第六章ExcelVBA常用对象与应用案例..ppt

第六章 Excel VBA常用对象与应用案例  Excel VBA常用对象与应用案例 Excel VBA常用对象 Application对象 Application对象代表整个Excel应用程序，位于Excel对象模型的最项层。使用该对象可控制应用程序范围的设置和选项。具体如下： ⑴设置Excel主窗口的标题栏、编辑栏、滚动条、状态栏。 ⑵设置Excel主窗口的状态，即最大化、最小化和正常窗口。 ⑶定时执行过程和合并区域。 ⑷快速跳转和重新计算。 ⑸获取对象的引用，如“ActiveCell”、“ActiveChart”、“Cells”属性等。 Excel VBA常用对象 【例6-1】 设计一个窗体，窗体的Caption属性为“Application对象的应用”。窗体中添加8个命令按钮CommandButton1~8，单击命令按钮可实现的功能依次为：动态设置Excel的标题、设置Excel标题为当前日期、隐藏滚动条、显示滚动条、隐藏状态栏、显示状态栏、隐藏编辑栏和显示编辑栏，如图6-2所示。各命令按钮的Click事件代码如下： Excel VBA常用对象 Private Sub CommandButton1_Click() ‘动态设置Excel的标题 Application.Caption = 动态设置Excel的标题 End Sub Private Sub CommandButton2_Click() ‘设置Excel标题为当前日期 Application.Caption = Date End Sub Private Sub CommandButton3_Click() ‘隐藏滚动条 Application.DisplayScrollBars = False End Sub Private Sub CommandButton4_Click() ‘显示滚动条 Application.DisplayScrollBars = True End Sub Private Sub CommandButton5_Click() ‘隐藏状态栏 Application.DisplayStatusBar = False End Sub Private Sub CommandButton6_Click() ‘显示状态栏 Application.DisplayStatusBar = True End Sub Private Sub CommandButton7_Click() ‘隐藏编辑栏 Application.DisplayFormulaBar = False End Sub Private Sub CommandButton8_Click() ‘显示编辑栏 Application.DisplayFormulaBar = True End Sub Excel VBA常用对象 【例6-2】 设置当前单元格的文本为“VBA范例”，且文本为粗体。 Private Sub CommandButton1_Click() With ActiveCell .Value = VBA范例 .Font.Bold = True End With End Sub Excel VBA常用对象 【例6-3】 下面程序可以将鼠标指针形状更改为“I”形，稍停片刻，然后将其重新变为默认指针形状。 Sub ChangeCursor() Application.Cursor = xlIBeam For x = 1 To 1000 For y = 1 to 1000 Next y Next x Application.Cursor = xlDefault End Sub Excel VBA常用对象 【例6-4】 以下程序的功能是在关闭工作簿Book1.xls，不提示用户保存所作更改。Book1.xls 中的所有更改都不会保存。 Sub test() Application.DisplayAlerts = False Application.ActiveWorkbook.Close Application.DisplayAlerts = True End Sub Excel VBA常用对象 【例6-5】 设置在打开B.xls工作簿之前将状态栏文字设为“请等待一会...”，然后将状态栏恢复为默认文字。 代码如下： O_StatusBar = App