FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 > ICustomNameSupport インタフェース : RemoveCustomName メソッド |
'使用法 Dim instance As ICustomNameSupport Dim name As String instance.RemoveCustomName(name)
FarPoint.Win.Spread.Model.ICustomNameSupport cns; DialogResult dlg; cns = (FarPoint.Win.Spread.Model.ICustomNameSupport)fpSpread1.ActiveSheet.Models.Data; cns.AddCustomName("ALPHA", "SUM(A1,A2)", 1, 1); cns.AddCustomName("GAMMA", "A1*A2", 2, 2); fpSpread1.ActiveSheet.SetFormula(1, 1, "ALPHA"); fpSpread1.ActiveSheet.SetFormula(2, 2, "GAMMA"); fpSpread1.ActiveSheet.SetValue(0, 0, 10); fpSpread1.ActiveSheet.SetValue(1, 0, 10); dlg = MessageBox.Show("Do you want to remove the custom name?", "RemoveCustomName", MessageBoxButtons.YesNo); if (dlg == DialogResult.Yes) { cns.RemoveCustomName("ALPHA"); fpSpread1.ActiveSheet.RecalculateAll(); }
Dim cns As FarPoint.Win.Spread.Model.ICustomNameSupport Dim dlg As DialogResult cns = FpSpread1.ActiveSheet.Models.Data cns.AddCustomName("ALPHA", "SUM(A1,A2)", 1, 1) cns.AddCustomName("GAMMA", "A1*A2", 2, 2) FpSpread1.ActiveSheet.SetFormula(1, 1, "ALPHA") FpSpread1.ActiveSheet.SetFormula(2, 2, "GAMMA") FpSpread1.ActiveSheet.SetValue(0, 0, 10) FpSpread1.ActiveSheet.SetValue(1, 0, 10) dlg = MessageBox.Show("Do you want to remove the custom name?", "RemoveCustomName", MessageBoxButtons.YesNo) If dlg = DialogResult.Yes Then cns.RemoveCustomName("ALPHA") FpSpread1.ActiveSheet.RecalculateAll() End If