XL97: 如何使用 EnableEvents 來停用事件處理

文章翻譯 文章翻譯
文章編號: 165867 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

在 Microsoft Excel 中,您可以建立事件處理常式是 Visual Basic 的應用程式回應特定事件的巨集。另一個 Visual Basic 巨集可以執行事件處理常式。本文包含範例巨集,會停用事件處理正在執行的應用程式的巨集的 Visual Basic 時。

其他相關資訊

Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證,包括但不是限於適售性以及適合某特定用途之默示擔保責任。本文假設您已熟悉我們所示範的程式設計語言,以及用來建立和偵錯程序的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您的特定需求。
如果您有限制程式設計經驗,您可以連絡 Microsoft 認證合作夥伴或 Microsoft 諮詢服務。如需詳細資訊請造訪下列 Microsoft] 網站:

Microsoft 認證合作夥伴-https://partner.microsoft.com/global/30000104

Microsoft 摘要報告服務-http://support.microsoft.com/gp/advisoryservice

如需有關可用的支援選項,以及有關如何連絡 Microsoft 的詳細資訊,請造訪下列 Microsoft 網站: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

建立程序範例事件

在這個範例中您設定為應用程式回應 SelectionChange 事件在工作表中的巨集的 Visual Basic。若要設定事件處理常式,請使用下列步驟:

  1. 關閉並儲存任何開啟的活頁簿,然後建立新的活頁簿。
  2. 啟動 「 Visual Basic 編輯器 」 (按 ALT + F11)。
  3. 如果看不到 [專案總管] 視窗,請按一下 [檢視] 功能表上的 [專案總管]。
  4. 連按兩下以開啟 [程式碼] 視窗為 Sheet1 Sheet1。
  5. 在對 Sheet1 中的 [程式碼] 視窗中輸入下列程式碼為 SelectionChange 事件:
          Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
              MsgBox ActiveCell.Address
          End Sub
    						
  6. 切換至 [Microsoft Excel (ALT + F11)。
  7. 按一下工作表 Sheet1 上的任一儲存格。
當您按一下 [在 Sheet1 的儲存格訊息方塊會顯示所選儲存格的儲存格位址。

若要執行事件處理常式使用程序

下列範例巨集會執行事件處理常式。若要設定為巨集,使用下列步驟:

  1. 啟動 「 Visual Basic 編輯器 」 (按 ALT + F11)。
  2. 按一下 [插入] 功能表模組。
  3. 請輸入下列程式碼貼入 Visual Basic 模組:
          Sub FireEvent()
              For X = 1 To 5
                  Cells(X, 1).Select
              Next X
          End Sub
    						
  4. 切換至 [Microsoft Excel (ALT + F11)。
  5. 在 [工具] 功能表上指向 [巨集],然後再按一下 [巨集]。然後,按一下 FireEvent,然後按一下 [執行]。
每次 FireEvent 巨集將選取 Sheet1 上的儲存格,就會顯示訊息方塊。

防止執行的事件程序

若要防止事件處理常式執行巨集執行時,將 EnableEvents 屬性設為 False。在範例中使用 EnableEvents 屬性,請使用下列步驟:

  1. 啟動 「 Visual Basic 編輯器 」 (按 ALT + F11)。
  2. 按一下 [插入] 功能表模組。
  3. 在模組中輸入下列巨集:
          Sub DisableEvent()
    
             'Disable all event firing.
             Application.EnableEvents = False
    
             For X = 1 To 5
                Cells(X, 1).Select
             Next X
    
             'Re-enable all event firing.
             Application.EnableEvents = True
          End Sub
    						
  4. 切換至 [Microsoft Excel (按 ALT + F11)。
  5. 在 [工具] 功能表上指向 [巨集],然後按一下 [巨集]。然後,按一下 DisableEvent,然後按一下 [執行]。
在巨集執行期間會出現沒有訊息方塊。這表示 SelectionChange 事件未執行。如果您選取 Sheet1 上的另一個儲存格 DisableEvent 巨集完成之後執行,事件處理常式為作用中一次並且訊息方塊隨即出現。

注意: 如果您的巨集執行完成之前,執行不設為 True 設定 EnableEvents 屬性,已停用事件。如果您將 EnableEvents 屬性設定為 False,請確定您它回到 True 進行設定。

?考

如需有關如何使用事件處理常式的詳細資訊,請按一下 [Office 小幫手],鍵入 事件]、 按一下 [搜尋],然後再按一下以檢視與 Microsoft Excel 物件使用事件主題]。

注意: 如果隱藏 [小幫手] 按一下 [一般] 工具列上的 [Office 小幫手] 按鈕。如果您的電腦未安裝 Microsoft Excel 說明,請參閱下列的 「 Microsoft 知識庫 」 中的文件:
120802辦公室: 如何新增/移除單一的 Office 程式或元件

屬性

文章編號: 165867 - 上次校閱: 2006年11月23日 - 版次: 2.4
這篇文章中的資訊適用於:
  • Microsoft Excel 97 Standard Edition
關鍵字:?
kbmt kbhowto kbprogramming KB165867 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:165867
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此,本文係依「現狀」提供,不會再更新。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com