FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 > DefaultSheetDataModel クラス : GetCustomNameEnumerator メソッド |
'Declaration Public Function GetCustomNameEnumerator() As IEnumerator
'使用法 Dim instance As DefaultSheetDataModel Dim value As IEnumerator value = instance.GetCustomNameEnumerator()
public IEnumerator GetCustomNameEnumerator()
FarPoint.Win.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Win.Spread.Model.DefaultSheetDataModel(10, 10); dataModel.AddCustomName("TWICESUM", "2*SUM(A1,A2)", 1, 1); dataModel.AddCustomName("TwiceProduct", "2*A1*A2", 2, 2); dataModel.SetFormula(1, 1, "TWICESUM"); dataModel.SetFormula(2, 2, "TwiceProduct"); dataModel.SetValue(0, 0, 10); dataModel.SetValue(1, 0, 10); fpSpread1.ActiveSheet.Models.Data = dataModel; IEnumerator enm; enm = dataModel.GetCustomNameEnumerator(); while (enm.MoveNext()) { listBox1.Items.Add(enm.Current); }
Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(10, 10) dataModel.AddCustomName("TWICESUM", "2*SUM(A1,A2)", 1, 1) dataModel.AddCustomName("TwiceProduct", "2*A1*A2", 2, 2) dataModel.SetFormula(1, 1, "TWICESUM") dataModel.SetFormula(2, 2, "TwiceProduct") dataModel.SetValue(0, 0, 10) dataModel.SetValue(1, 0, 10) FpSpread1.ActiveSheet.Models.Data = dataModel Dim enm As IEnumerator enm = dataModel.GetCustomNameEnumerator() While enm.MoveNext() ListBox1.Items.Add(enm.Current) End While