易失性函数

yfxfsj

自己VBA里自定义一个函数，属易失性取数函数，每次更改数据表，都是出现#name?，要双击才可以显示出正确数据，如何写个代码，点下按钮就可以显示出正确数据，不要一个一个的单元格去点击？

gwjkkkkk

加一句Application.Volatile试试

杨建营

加上这句代码试试：Application.Volatile

ovxyz

如果这个值只需要双击就能重算正确，那这样就应该没问题吧

yfxfsj

gwjkkkkk 发表于 2023-4-23 17:41
加一句Application.Volatile试试

我的这样：
Function BQDF(cd) As Double
Application.Volatile
Set rg = Sheets("数据").[b7]
For Each cell In Range(rg, rg.End(xlDown))
If cell = cd Then Sum = Sum + Val(Replace(cell(1, 6), ",", ""))
Next
BQDF = Sum
End Function
没有用。

yfxfsj

ovxyz 发表于 2023-4-23 17:50
如果这个值只需要双击就能重算正确，那这样就应该没问题吧

这句出错？？？？

ovxyz

这是说明第一次tmp就没找到#NAME的值。
加一句判断就可以了。

yfxfsj

ovxyz 发表于 2023-4-24 10:59
这是说明第一次tmp就没找到#NAME的值。
加一句判断就可以了。

还是无效，仍旧显示#NAME？这个错误值。保存退出后再次打开有会有绝大部分单元格可以取到数字。

ovxyz

用其他楼层友友们说的Volatile试试呢。
我这个宏相当于双击的效果，如果双击出不来，宏也出不来的。