自定义函数-易失性问题

26759761@qq.com

application.volatile是把函数变成易失性函数
但是,不是直接改变单元格内容,而是只修改批注的情况下,貌似触发不了自动更新的东东
定义的名称是sumpz
我在单元格写sumpz()&t(now())   貌似也不能自动更新,必须要选中单元格,然后回车,结果才会改变.
求解决方法.
详见附件.

1. Function sumpz(rng As Range, st As String)
   
2. Application.Volatile
   
3. For Each rg In rng
   
4. If rg.Cells.Comment Is Nothing Then
   
5.     k1 = k1 + rg
   
6.   Else
   
7.     If Replace(rg.Cells.Comment.Text, Chr(10), "") = st Then k = k + rg
   
8. End If
   
9. Next: sumpz = IIf(st = "", k1, k)
   
10. End Function

复制代码

刘志文

Application.Volatile改成Application.Calculate试下，或去掉Application.Volatile，将Application.Calculate放在End Function上一行

刘志文

https://technet.microsoft.com/zh-cn/library/ff195517.aspx

Hsiao

在 selectingchange事件里加个刷新或者自动计算就行了