刷新Excel VBA函數結果

Question

有誰知道我如何獲得用戶定義的函數來重新評估自己（基於電子表格中已更改的數據）？我試過F9和移 + F9 ，但那些不工作。似乎工作的唯一的東西是用函數調用編輯單元格，然後按Enter鍵。有任何想法嗎？我似乎記得能夠做到這一點...

Answer 1

你應該在你的函數的頂部使用Application.Volatile：

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

然後它會重新評估每當工作簿的變化（如果你的計算被設置爲自動）。

Answer 2

好的，自己找到了這一個。您可以使用Ctrl + Alt + F9來完成此操作。

Answer 3

在Excel中的F9快捷鍵進行計算的一些詳細信息，

• F9重新計算所有工作表中的所有打開的工作簿
• 移 + F9重新計算活動工作表
• Ctrl + Alt + F9重新計算所有工作表中的所有打開的工作簿（完整計算）
• 移 + 按Ctrl + Alt鍵 + F9重建的依賴關係樹和不完整計算

Answer 4

如果包括所有對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 

Answer 5

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 

Answer 6

要切換到自動：

Application.Calculation = xlCalculationAutomatic  

切換到手動：

Application.Calculation = xlCalculationManual  

Answer 7

它運作良好，這樣一來刷新計算比範圍更好（A：B）。計算

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 

Answer 8

Application.Volatile不適用於用我自己的函數重新計算公式。我用下面的功能： Application.CalculateFull