刷新Excel VBA函数结果

如何获得用户定义的函数，以基于电子表格中已更改的数据重新评估自身？

我试着F9和Shift+F9。

唯一可行的方法是使用函数调用编辑单元格，然后按Enter。

您应该Application.Volatile在函数顶部使用：

Function doubleMe(d)
    Application.Volatile
    doubleMe = d * 2
End Function

然后，只要工作簿发生更改，它将重新评估（如果您的计算设置为自动）。

有关在Excel中进行计算的F9键盘快捷键的更多信息

• F9 重新计算所有打开的工作簿中的所有工作表
• Shift+F9 重新计算活动工作表
• Ctrl+ Alt+F9 重新计算所有打开的工作簿中的所有工作表（完全重新计算）
• Shift+ Ctrl+ Alt+F9重建依赖关系树并进行完整的重新计算

好的，我自己找到了这个。您可以使用Ctrl+ Alt+F9完成此操作。

如果在UDF参数列表中包括对电子表格数据的所有引用，则每当引用数据发生更改时，Excel都会重新计算函数：

Public Function doubleMe(d As Variant)
    doubleMe = d * 2
End Function

您也可以使用Application.Volatile，但这具有使UDF始终重新计算的缺点-即使在不需要时也是如此，因为引用的数据没有更改。

Public Function doubleMe()
    Application.Volatile
    doubleMe = Worksheets("Fred").Range("A1") * 2
End Function

切换到自动：

Application.Calculation = xlCalculationAutomatic    

要切换到手动：

Application.Calculation = xlCalculationManual    

在Application.Volatile不重新计算公式以我自己的函数里面工作。我使用以下功能： Application.CalculateFull

这比刷新效果更好Range(A:B).Calculate：

Public Sub UpdateMyFunctions()
    Dim myRange As Range
    Dim rng As Range

    ' Assume the functions are in this range A1:B10.
    Set myRange = ActiveSheet.Range("A1:B10")

    For Each rng In myRange
        rng.Formula = rng.Formula
    Next
End Sub

我发现最好仅在更改特定单元格时才更新计算。这是放置在“工作表”“更改”事件中的示例VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("F3")) Is Nothing Then
    Application.CalculateFull
  End If
End Sub

Public Sub UpdateMyFunctions()
    Dim myRange As Range
    Dim rng As Range

    'Considering The Functions are in Range A1:B10
    Set myRange = ActiveSheet.Range("A1:B10")

    For Each rng In myRange
        rng.Formula = rng.Formula
    Next
End Sub