自定义VBA函数TextToFormula无法自动重算的问题求助

方案1：用Application.Volatile强制触发重算 #

Excel自定义函数默认仅在参数值变化时才重算，你的函数参数是FORMULA_VERMELL（内容未变），所以TMP!A1修改时不会自动触发更新。在函数开头添加Application.Volatile，可强制函数随Excel每次全局重算运行：

Public Function TextToFormula(cellRef As String)
    Application.Volatile ' 强制函数在每次重算时更新
    TextToFormula = Evaluate(cellRef)
End Function

注意：如果工作簿内有大量这类函数，会轻微影响计算性能，小数据量场景可放心使用。

方案2：让函数直接依赖目标单元格（推荐） #

修改函数逻辑，解析文本公式中的单元格引用，让Excel明确跟踪该单元格的变化，仅在目标值修改时才重算：

Public Function TextToFormula(cellRef As String)
    Dim formulaText As String
    formulaText = Replace(cellRef, "=", "") ' 移除文本开头的等号
    
    ' 解析公式中的单元格引用，建立依赖关系
    Dim targetRng As Range
    On Error Resume Next ' 兼容非单元格引用的复杂公式
    Set targetRng = ThisWorkbook.Range(formulaText)
    On Error GoTo 0
    
    ' 计算公式结果
    TextToFormula = Evaluate(cellRef)
    
    ' 通过无意义运算强制Excel识别依赖关系
    If Not targetRng Is Nothing Then
        TextToFormula = TextToFormula + targetRng.Value - targetRng.Value
    End If
End Function

这个方案既保留了文本转公式的灵活性，又能让Excel自动跟踪目标单元格的变化，性能更优。

方案3：用工作表事件触发定向重算 #

如果不想修改函数，可在TMP工作表的代码模块中添加事件，当A1修改时强制重算调用函数的单元格（假设调用单元格是TMP!B1）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当A1被修改时触发
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        Me.Range("B1").Calculate ' 强制重算目标单元格
    End If
End Sub

若调用函数的单元格较多，可定义一个命名区域标记这些单元格，再批量触发重算。

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