讀古今文學網 > 別怕,ExcelVBA其實很簡單 > 練習小課堂 >

練習小課堂

(1)編寫程序,當選中A1單元格時,提示A1單元格的內容。

(2)編寫程序,當選中的單元格不是A列的單元格時,自動選中同行A列的單元格。

參考答案

(1)

(2)

Worksheet_Activate事件:自動提示工作表名

Worksheet_Activate事件告訴Excel,當激活工作表時自動運行程序。

在Sheetl工作表模塊裡寫入程序,重新激活工作表,程序就自動運行了,如圖5-9所示。

圖5-9 激活工作表時自動運行程序

Worksheet_Deactivate事件:禁止選中其他工作表

Worksheet_Deactivate事件告訴Excel,當工作表由活動工作表變為不活動工作表時自動運行過程。

在Sheetl工作表模塊中寫入下面的程序:

輸入程序後,當激活其他工作表時,Excel會進行提示,並自動重新激活Sheetl工作表,如圖5-10所示。

圖5-10 禁止激活其他工作表

5.2.3 Worksheet事件列表

Worksheet對像一共有9個事件可供使用,如表5-1所示。

表5-1 Worksheet對象的事件列表

事件名稱事件說明Activate激活工作表時發生BeforeDoubleClick雙擊工作表之後,默認的雙擊操作之前發生 BeforeRightClick右擊工作表之後,默認的右擊操作之前發生 Calculate重新計算工作表之後發生 Change工作表中的單元格發生更改時發生 Deactivate工作表由活動工作表變為不活動工作表時發生 FollowHyperlink單擊工作表中的任意超鏈接時發生 PivotTableUpdate在工作表中更新數據透視表之後發生 SelectionChange工作表中所選內容發生更改時發生