找回密码
 立即注册

QQ登录

只需一步,快速开始

jleidong

注册会员

6

主题

19

帖子

69

积分

注册会员

积分
69

活字格认证

最新发帖

[已处理] 清除自定义公式

jleidong
注册会员   /  发表于:2014-7-3 14:10  /   查看:5291  /  回复:4
试了各种方式,ClearCustomFunctions()无法清除自定义公式。

spreadTest.rar

115.77 KB, 下载次数: 199

4 个回复

倒序浏览
iceman
社区贡献组   /  发表于:2014-7-4 18:07:00
沙发
回复 1楼jleidong的帖子

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

  1.         Dim icf2 As FarPoint.Win.Spread.Model.ICustomFunctionSupport2
  2.         icf2 = DirectCast(FpSpread1.ActiveSheet.Models.Data, FarPoint.Win.Spread.Model.ICustomFunctionSupport2)
  3.         icf2.ClearCustomFunctions()
  4.         FpSpread1.ActiveSheet.RecalculateAll()
复制代码
回复 使用道具 举报
jleidong
注册会员   /  发表于:2014-7-9 10:23:00
板凳
不行啊,必须用SetFormula把公式设为空,否则单元格会显示#NAME?ClearCustomFunctions之后只是Spread自定义公式不认了。
回复 使用道具 举报
jleidong
注册会员   /  发表于:2014-7-9 10:24:00
地板
单元格里的自定义公式还在。
回复 使用道具 举报
iceman
社区贡献组   /  发表于:2014-7-9 18:21:00
5#
回复 4楼jleidong的帖子

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

  1. 'cfs.AddCustomFunction(New CubeFunctionInfo())
复制代码


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

  1.         FpSpread1.ActiveSheet.SetFormula(1, 1, "")
  2.         FpSpread1.ActiveSheet.Cells(1, 1).Text = ""
复制代码

评分

参与人数 1满意度 +5 收起 理由
jleidong + 5 明白了

查看全部评分

回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部