如何在XLAM加载项的UDF计算时，在单元格显示loading提示？

Excel的自定义函数（UDF）默认限制直接修改单元格内容，但我们可以借助Application.Caller对象结合DoEvents实现加载提示效果，无需手动操作，直接在XLAM加载项的UDF内部完成。

修改后的示例代码如下：

Function retrievingData()
    Dim targetCell As Range
    Dim i As Long, t As Double
    
    ' 获取调用当前UDF的单元格
    Set targetCell = Application.Caller
    
    ' 设置单元格显示"loading"并强制Excel刷新界面
    targetCell.Value = "loading"
    DoEvents
    
    ' 模拟耗时计算逻辑
    For i = 1 To 2
        t = Now + TimeSerial(0, 0, 2)
        Do While Now < t
            DoEvents ' 释放控制权，让Excel响应界面更新
        Loop
    Next i
    
    ' 计算完成后返回最终结果
    retrievingData = 99
End Function

关键说明： #

• Application.Caller：获取触发当前UDF的单元格对象，这是实现加载提示的核心，能准确定位到需要显示提示的单元格。
• DoEvents：释放Excel的控制权，让界面及时刷新，确保"loading"文本能被用户看到，避免因为UDF持续占用资源导致界面卡顿不更新。
• 多单元格调用兼容：如果UDF被多个单元格同时调用，这段代码会分别对每个调用单元格设置"loading"提示，互不干扰。

内容的提问来源于stack exchange，提问作者Ujjawal Bhandari