第一章 电子表格专业函数编程第二章 学习VBA编程基础第三章 常用VBA编程代码语句第四章 电子表格计算编程
End Sub
（2） Worksheet_SelectionChange(ByVal Target As Range)：工作表上的选定区域发生改变时，产生本事件。下例滚动工作簿窗口，直至选定区域位于窗口的左上角。
Private Sub Worksheet_SelectionChange(ByVal Target As Range) With ActiveWindow
.ScrollRow = Target.Row
.ScrollColumn = Target.Column
End With
End Sub
（3）命令按钮Click事件：在电子表格VBA编程计算中，最简单的启动方式就是在活动工作表上设计一个命令按钮，当用鼠标单击命令按钮，就启动设计的相应计算。下例单击工作表sheet1计算地形点坐标的命令按钮时引发的事件过程:（参见4.3）
Private Sub dxdzbButton1_Click() Private Sub 名称
Buttonl_Click()
Dim xzan As String 声明变量xzan
Dim msg, style, title, response 声明变量msg, style, title, response Application.AskToUpdateLinks = False 取消Excel的更新链接 Sheet1.Visible = xlSheetVisible 设置Sheet1（“地形点”）可见 Sheet3.Visible = xlSheetVisible 设置Sheet3（“操作指南”）可见 Sheet2.Visible = xlSheetHidden 设置Sheet2（“表面积”）不可见 Sheet1.Activate 激活Sheet1
……
End sub