【原】1.Activate 和 Deactivate 事件

'代码在Sheet1工作表事件中写入
private Sub WorkSheet_Activate() 'Activate 事件没有传参
  msgbox "活动表是Sheet1表"
End Sub

private Sub WorkSheet_Deactivate() 'Deactivate 事件没有传参
  msgbox "Sheet1表已停止活动，即将进入下一个活动工作表"   '例如当前活动表是Sheet1，当我们点击Sheet2时，即将进入sheet2之前，停止Sheet1之后触发此事件。
End Sub