（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工作表中所选内容发生更改时发生