工作表事件發(fā)生在特定的Worksheet對象中。Worksheet對象也是Excel最常用的對象之一，因此實際應用中經(jīng)常會用到Worksheet對象事件。

　?。矗罚玻薄hange事件

　　工作表中的單元格被用戶手工修改或被ＶＢＡ代碼修改時，將觸發(fā)工作表Change事件。值得注意的是，雖然事件的名稱是Change

但是并非工作表中單元格的任何變化都能觸發(fā)該事件。

　　Change事件的參數(shù)Target是Change變量，代表工作表中發(fā)生變化的區(qū)域，它可以是一個單元格也可以攻玉是多個單元格組成的區(qū)域。在實際應用中，用戶通常希望只有工作表中的某些特定單元格區(qū)域發(fā)生變化時，才激活Change事件，這就需要在Change事件中對Target參數(shù)進行判斷。

　　示例４７．１　自動記錄數(shù)據(jù)錄入日期

　　在工作表ChangDemo的代碼窗口中寫入如下代碼：

　　Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        '判斷是否選中了單個單元格
        If .Count = 1 Then
            '判斷單元格是否在第一列
            If .Column = 1 Then
                '禁止事件激活
                Application.EnableEvents = False
                '在相應行的第二列輸入當前日期
                Target.Offset(0, 1) = Date
                '恢復事件激活
                Application.EnableEvents = True
            End If
        End If
    End With
End Sub

　　返回Excel界面，在工作表ChangDemo中的A列中輸入備忘內(nèi)容，Change事件將自動在B列的相應行寫入當前日期。修改工作表中其他列的單元格（如C列），工作表的Change事件同樣會被觸發(fā)，但是因為不滿足代碼中的判斷條件，所以不會執(zhí)行寫入日期的代碼。

　　如何禁止事件的激活

　　上述代碼使用Application.EnableEvents=False為防止事件被意外多次激活。Application對象的EnableEvents屬性可以設(shè)置是否允許對象的事件被激活。上述代碼中如果沒有禁止事件激活的代碼，在寫入當前日期的代碼執(zhí)行后，工作表的Change事件被再次激活，事件代碼被再次執(zhí)行。某些情況下，這種事件的意外激活會重復多次發(fā)生，甚至造成死循環(huán)導致事件代碼重復調(diào)用，無法結(jié)束運行。因此在可能意外觸發(fā)事件的時候，需要設(shè)置Application.EnableEvents=False禁止事件激活。但這個設(shè)置并不能限制控件的事件被激活。

　　EnableEvents屬性的值不會隨著事件過程的執(zhí)行結(jié)束而自動恢復為True，也就是說需要在代碼運行結(jié)束之前進行恢復。如果代碼被異常終止，而EnableEvents屬性的值仍然為False，則相關(guān)的事件都無法激活?；謴娃k法是在VBE的立即窗口中執(zhí)行Application.EnableEven

ts=True。

　?。矗罚玻病electionChange事件

　　工作表中選定區(qū)域的范圍發(fā)生變化將觸發(fā)工作表的SelectionChange事件。SelectionChange事件的參數(shù)Target是Range變量，代表工作青史被選中的區(qū)域，相當于Selection屬性返回的Range對象。

　　示例４７．２　高亮顯示工作表中選定區(qū)域所在的行和列

　　在工作表SelectionChangeDemo中寫入如下的SelectionChange事件代碼。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        '清除工作表單元格的背景色
        .Parent.Cells.Interior.ColorIndex = xlNone
        '設(shè)置選中區(qū)域所在行的背景色
        .EntireRow.Interior.Color = vbCyan
        '設(shè)置選中區(qū)域所在列的背景色
        .EntireColumn.Interior.Color = vbCyan
    End With
End Sub

　　返回Excel界面，在工作表SelectionChangeDemo中選中一個單元格區(qū)域C10：C14，顯示效果，第10行至第14行以及第3列單元格高亮顯示。

　?。矗罚场」ぷ鞑臼录?br>　　工作簿事件發(fā)生在特定的Workbook對象中。

　?。矗罚常薄pen事件

　　Open事件是Workbook對象最常用的事件之一，它發(fā)生于用戶打開工作簿之時。

　　注意：在如下兩種情況下，打開工作簿不會觸發(fā)Open事件。

　　　　?。保诎醋?lt;Shift>鍵的同時打開工作簿。

　　　　?。玻诖蜷_文件時的宏安全警告提示框里，選擇了“禁用宏”。

　　Open事件經(jīng)常被用來自動設(shè)置用戶界面，這樣的好處在于，無論工作簿關(guān)閉時的狀態(tài)如何，再次打開時都可以按照某個特定風格呈現(xiàn)在用戶面前。

　　示例４７．３　自動設(shè)置工作簿打開時的界面風格

　　步驟１．在Thisworkbook模塊中寫入如下的Open事件代碼。

Private Sub Workbook_Open()
    'Excel窗口最大化
    Application.WindowState = xlMaximized
    With ActiveWindow
        '工作表窗口最大化
        .WindowState = xlMaximized
        '禁止顯示行標和列標
        .DisplayHeadings = False
    End With
    '激活Welcome工作表
    Sheets("Welcome").Select
End Sub

　　步驟２．返回Excel界面，選中Sheet1工作表。

　　步驟３．單擊Excel窗口右上角的向下還原按鈕，取消窗體最大化。

　　步驟４．單擊“文件”——“保存”。

　　步驟５．單擊“文件”——“退出”關(guān)閉工作簿。

　　步驟６．單擊“文件”——“打開”，再次打開剛才保存的工作簿。

　　步驟７．單擊安全警告提示框的“啟用宏”按鈕。

　　工作簿打開后，Excel窗口是最大化的，Welcome工作表成為活動工作表，而不是關(guān)閉工作簿時的Sheet1工作表。

　?。矗罚常病eforeClose事件

　　工作簿被關(guān)閉之前BeforeClose事件被激活。BeforeClose事件經(jīng)常和Open事件配合使用，在Open事件中修改的Excel設(shè)置和用戶界面，可以在BeforeClose事件中進行恢復。

　　示例４７．４　關(guān)閉工作簿時自動恢復Excel默認界面風格

　　在Thisworkbook模塊中寫入如下的代碼：

Private Sub Workbook_Open()
    With Application
        '隱藏公式編輯欄
        .DisplayFormulaBar = False
        '設(shè)置鼠標指針為沙漏型
        .Cursor = xlWait
    End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application
        '顯示公式編輯欄
        .DisplayFormulaBar = True
        '恢復系統(tǒng)默認鼠標指針
        .Cursor = xlDefault
    End With
End Sub
　　保存并關(guān)閉工作簿，然后再次打開工作簿，公式編輯欄已經(jīng)隱藏且鼠標指針改為沙漏形。而在BeforeClose事件中，對相應的設(shè)置進行了恢復，所以工作簿關(guān)閉后，Excel將恢復默認的系統(tǒng)設(shè)置。

　?。矗罚常场∪抗ぷ鞅硎褂孟嗤氖录a

　　工作簿事件有幾個名稱是以“Sheet”開頭的，這些事件的一個共同特點是，工作簿內(nèi)的任意工作表的行為都將觸發(fā)事件代碼的執(zhí)行。

　　如果希望所有的工作表都相應相同的工作表事件代碼，有兩種實現(xiàn)方法：

　?。保诿總€工作表代碼模塊中寫入相同的事件代碼。

　?。玻褂孟鄳墓ぷ鞑臼录a。

　　毫無疑問，第二種方法是最簡潔的實現(xiàn)方法。

　　示例４７．５　高亮顯示任意工作表中選定區(qū)域所在的行和列

　　與示例４７．２相對應，如果希望在工作簿中的任意工作表都擁有這種高亮顯示的效果，可以在Thisworkbook模塊中寫入如下事件代碼：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Target
        '清除工作表單元格的背景色
        .Parent.Cells.Interior.ColorIndex = xlNone
        '設(shè)置選中區(qū)域所在行的背景色
        .EntireRow.Interior.Color = vbCyan
        '設(shè)置選中區(qū)域所在列的背景色
        .EntireColumn.Interior.Color = vbCyan
    End With
End Sub
　　與示例４７．２相比，這種方法不必在每個工作表代碼模塊中寫入相同的事件代碼，而且當工作簿中新增工作表時，也無需為新建工作表添加Change事件代碼。

　?。矗罚础》菍ο笫录?/div>