遗留CSE数组公式触发UDF两次调用的检测方案咨询

我们可以通过以下几种实用方法，区分UDF的调用是否来自遗留CSE（Ctrl+Shift+Enter）数组公式，从而规避重复调用带来的问题：

方法1：利用单元格属性直接判断公式类型 #

通过Application.Caller获取调用UDF的单元格，结合HasArray、DynamicArrayFormula和FormulaArray三个属性，可以精准识别CSE公式：

Function IsCSECall() As Boolean
    Dim caller As Range
    Set caller = Application.Caller
    
    ' CSE数组公式的特征：HasArray为True，且无动态数组公式属性
    IsCSECall = caller.HasArray And caller.DynamicArrayFormula = ""
End Function

在你的UDF开头调用这个辅助函数，一旦判定为CSE触发的重复调用，可直接跳过验证逻辑或返回缓存结果。

方法2：通过静态变量标记调用次数 #

CSE公式会触发UDF两次连续调用，而动态数组仅调用一次。可以用静态变量记录同一次计算周期内的调用次数：

Function YourTargetUDF(inputVal As Variant) As Variant
    Static callCount As Integer
    Dim result As Variant

    ' 计算完成后重置计数，避免跨计算周期干扰
    If Application.CalculationState = xlDone Then
        callCount = 0
    End If

    callCount = callCount + 1
    ' 第二次调用即为CSE的重复触发
    If callCount = 2 Then
        ' 返回第一次计算的缓存结果，跳过验证
        YourTargetUDF = GetCachedResult()
        Exit Function
    End If

    ' 执行正常业务逻辑与验证代码
    result = YourValidationAndCalculationLogic(inputVal)
    ' 缓存结果供第二次调用使用
    CacheResult result
    YourTargetUDF = result
End Function

注意：需自行实现GetCachedResult和CacheResult的缓存逻辑，比如用静态变量存储结果。

方法3：检查公式数组属性 #

CSE公式的FormulaArray属性会返回完整的数组公式内容，而动态数组公式的该属性为空，可据此判断：

Function IsCSEFormula() As Boolean
    Dim caller As Range
    Set caller = Application.Caller
    
    IsCSEFormula = caller.HasArray And caller.FormulaArray <> "" And caller.DynamicArrayFormula = ""
End Function

内容的提问来源于stack exchange，提问作者Tom Baxter