Application物件方法介紹，如何重新計算工作表單元格公式

2021-05-17 13:30:32

No.1

Application物件裡面有一個很有用的方法，可以重新計算表中的公式。

因為在有些時候，工作表內的公式並不完全是即時計算的，有些需要手動進行，或者重新整理工作表觸發某些條件下，Excel才會進行一次計算程序。

本節將討論一下，如何讓工作表按照我們的要求對錶中的公式進行計算。

要想達到如上目的，就要認識一個方法：Calculate

這個方法是Application物件下的，所以在使用的時候，要在方法之前新增一個Application物件變數。

具體語法，如下圖所示：

學習Calculate方法的時候，要重點掌握其它兩個相似的方法，即：

CalculateFull和CalculateFullRebuild

這兩個方法分別是對工作表進行強制完整計算和重新建立從屬關係。

就好比不管三七二十一，都要對錶內公式進行計算。

所謂從屬關係就是當一個表格的內容是被關聯另一個表格內容的時候，這個方法將重新進行一次關聯，也就相當於重要輸入一次公式。

具體我們看如下示例：

本示例相對簡單，黃色區域為有公式的單元格，也就是說所有Calculate方法所執行的單元格。執行程式碼之後這些內容將重新被計算一次，但由於沒有修改任何參數，所以根本看不出單元格內容變化，其實它變了。

如果，在另一臺電腦或變更Excel版本之後，開啟工作薄將有提示，是否重新計算。

有興趣，可以試一下。

No.2

程式碼

'計算所有開啟的工作簿Private Sub CommandButton1_Click()Application.CalculateEnd Sub'計算指定工作表Private Sub CommandButton2_Click()ActiveSheet.CalculateEnd Sub'計算指定區域Private Sub CommandButton3_Click()ActiveSheet.Columns("F").CalculateEnd Sub'強制對所有開啟工作簿中的資料進行完整計算Private Sub CommandButton4_Click()If Application.CalculationVersion <> ThisWorkbook.CalculationVersion ThenApplication.CalculateFullEnd IfEnd Sub'對於所有開啟的工作簿，強制資料的完整計算並重建從屬關係Private Sub CommandButton5_Click()If Application.CalculationVersion <> ThisWorkbook.CalculationVersion ThenApplication.CalculateFullRebuildEnd IfEnd Sub

上述程式碼完整表達了，強制計算的幾種方法。

有時候想要實現此功能，是一個很有用的方法，特別是對一些變化很頻繁的資料，如股票、基金等，需要即時看到的資料。

具體可根據需求進行設定。

歡迎關注、收藏

---END---

Application物件方法介紹，如何重新計算工作表單元格公式

熱門文章