[已解决]为什么自定义函数不能随着Worksheets("1计算")数据自动更新数值？

ray234

Function 天数()
    Dim arr

    With Worksheets("1计算")
        arr = .Range(.[a3], .[a3000].End(xlUp))
    End With

    Set dic = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        dic(arr(i, 1)) = ""
    Next

    天数 = dic.Count
End Function

最佳答案

月排行榜 / 总排行榜

砂海

2021-8-10 20:30

在VBA自定义函函数时，我们可以将该函数变成  易失性函数，只要在函数中加入一句语句。

    Application.Volatile

跳转到最佳答案楼层

砂海

在VBA自定义函函数时，我们可以将该函数变成  易失性函数，只要在函数中加入一句语句。

    Application.Volatile

ray234

非常谢谢！