电子表格VBA编程计算速成2(5)

第一章 电子表格专业函数编程第二章 学习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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库电子表格VBA编程计算速成2(5)在线全文阅读。