清除自定义公式

试了各种方式，ClearCustomFunctions()无法清除自定义公式。

回复 1楼jleidong的帖子

需要在清除后调用 RecalculateAll 方法：

1. 
   
2.         Dim icf2 As FarPoint.Win.Spread.Model.ICustomFunctionSupport2
   
3.         icf2 = DirectCast(FpSpread1.ActiveSheet.Models.Data, FarPoint.Win.Spread.Model.ICustomFunctionSupport2)
   
4.         icf2.ClearCustomFunctions()
   
5.         FpSpread1.ActiveSheet.RecalculateAll()
   

复制代码

不行啊，必须用SetFormula把公式设为空，否则单元格会显示#NAME？ClearCustomFunctions之后只是Spread自定义公式不认了。

单元格里的自定义公式还在。

回复 4楼jleidong的帖子

你好，
这是正常现象。
ClearCustomFunctions 这个动作就是撤销 AddCustomFunction 的动作。你可以把这行代码注销再查看。

1. 
   
2. 'cfs.AddCustomFunction(New CubeFunctionInfo())
   

复制代码

和执行ClearCustomFunctions 之后效果相同。需要彻底清除公式影响还需要设置文本为空。

1. 
   
2.         FpSpread1.ActiveSheet.SetFormula(1, 1, "")
   
3.         FpSpread1.ActiveSheet.Cells(1, 1).Text = ""
   

复制代码