FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 > IEnhancedCustomNameSupport インタフェース > AddModelScopeCustomName メソッド : AddModelScopeCustomName(String,Expression,String) メソッド |
'Declaration Overloads Sub AddModelScopeCustomName( _ ByVal name As String, _ ByVal value As Expression, _ ByVal comment As String _ )
'使用法 Dim instance As IEnhancedCustomNameSupport Dim name As String Dim value As Expression Dim comment As String instance.AddModelScopeCustomName(name, value, comment)
FarPoint.Win.Spread.Model.IEnhancedCustomNameSupport cns; FarPoint.CalcEngine.Expression ex; cns = (FarPoint.Win.Spread.Model.IEnhancedCustomNameSupport)fpSpread1.ActiveSheet.Models.Data; cns.AddModelScopeCustomName("ALPHA", new FarPoint.CalcEngine.DoubleExpression(20), "test"); fpSpread1.ActiveSheet.SetFormula(1, 1, "ALPHA"); ex = cns.GetModelScopeCustomName("ALPHA"); listBox1.Items.Add("The type of the custom name is " + ex.ToString());
Dim cns As FarPoint.Win.Spread.Model.IEnhancedCustomNameSupport Dim ex As FarPoint.CalcEngine.Expression cns = FpSpread1.ActiveSheet.Models.Data cns.AddModelScopeCustomName("ALPHA", New FarPoint.CalcEngine.DoubleExpression(20), "test") FpSpread1.ActiveSheet.SetFormula(1, 1, "ALPHA") ex = cns.GetModelScopeCustomName("ALPHA") ListBox1.Items.Add("The type of the custom name is " & ex.ToString())