Question

Excel里引用VBA的自定义函数，如何自动重新计算？

请教：
用VBA写的一个自定义函数，比如：getABC()
返回一个全局变量strAbc的值

在单元格里用"=getABC()"来返回strAbc的值

但在全局变量strAbc的值改变后
所有引用=getABC()的单元格都不自动重新计算
还是显示strAbc未改变前的值

只有双击单元格再回车才会显示新值

求解！！！





Answer 1

在function开始处加一句，Application.Volatile，用此句讲自定义函数设置为易失性函数，这样才能保证数据发生变化时，函数重新计算。
比如:
Function getABC()
Application.Volatile
'函数主体
End Fcuntion

追问

加上了，没有效果！
EXCEL里的内置函数都可以自动计算
只有VBA写的自定义函数不行

追答

保存以后重新打开试试.

追问

试过了，没用

追答

我不清楚你想达到什么效果。没有看出你文档打开事件里的Core是什么变量。我估计你这文档打开就会报错。至于你的function主体也是同样的问题。

追问

汗一个。。。

那个Core是我的模块名称啊

老兄。。。

追答

哦。明白了。打开文档以后你用inputbox给str赋值，这些都只是在内存中处理的，自定义函数没有响应工作表事件，所以不会重新计算。易失的前提也是要响应事件的。这么说明白了吗？

Answer 2

在自定义函数代码前加一行
application.volatile
易失标记

追问

试过了啊！
没有效果！
怎么才能上传附件呢，我这有个示例

追答

这里贴上微软官方APPLICAITON.VOLATILE的解释
Application.Volatile 方法 (Excel)
将用户定义函数标记为易失性。每当在工作表中任何单元格中进行计算的时间，必须重新计算可变函数。仅当输入的变量更改时重新计算非易失性函数。如果它不在用户定义的函数用于计算的工作表中的单元格，则此方法将不起作用。
看你这种情况是通过进程改变全局变量，想让单元格中自定义函数返回新的变量值
这样的话建议在修改设置全局变量的进程中
加个工作表重算方法
ActiveSheet.Calculate
将活动工作表重算

Answer 3

把这个函数的调用写进WORKSHEET_CHAGE事件中。

追问

然后呢？

追答

这个事件的意思就是你的单元格一变化就会自动执行这个事件里的代码，里面如果你把这个函数的调用写在里面的话，就会自动调用它了。

追问

然后我再用VBA遍历所有调用过=getABC()的单元格重新计算吗？
不会这么悲催吧？
我觉得这种情况应该很常见的

追答

WORKSHEET_CHAGE事件是有参数的，参数会返回对应哪个单元格发生了变化，个人认为你可以根据这个信息，来决定调用你自己写的函数来更新对应的单元格。给你个例子：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then '当改变的单元格的列号为4,即为D列时执行程序
MsgBox "刚刚修改的单元格地址是：" & Target.Address
End If
End Sub

追问

不是修改的单元格，而是所有引用这个公式的单元格

Answer 4

只是需要触发重算，是数值的话，用“查找”“替换”，在函数后面加一个“+0”，就OK，只需要一部分数据重算，那就选中那部分数，用“查找”“替换”加一个“+0”