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

计 算 中 心 编 制
3
上海大学
Shanghai University
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
For y = 1 to 1000
计 算 中 心 编 制
Next y Next x Application.Cursor = xlDefault End Sub6Fra bibliotek上海大学
Shanghai University
Excel VBA常用对象
【例6-4】 以下程序的功能是在关闭工作簿Book1.xls， 不提示用户保存所作更改。Book1.xls 中的所有更改都 不会保存。 Sub test() Application.DisplayAlerts = False
Selection
9
序号 8 9 10
属性
说明 上海大学
Shanghai University
ScreenUpdate Caption DisplayAlerts
表示屏幕的更新功能是否打开。 设置或返回显示在Excel标题栏上的标题文本。 设置或返回是否显示或隐藏警告信息，如关闭工作簿时是否显示保存信息。例如： ThisWorkbook.Close Application.DisplayAlerts=True 设置或返回是否显示或隐藏状态栏，默认值为True。 设置或返回是否显示或隐藏公式栏，默认值为True。 设置或返回是否显示或隐藏滚动条，默认值为True。 设置或返回一个代表所代表的内部对话框Dialogs集合，只读。例如： Application.Dialogs(xlDialogOpen).Show „显示“打开”对话框 Application.Dialogs(xlDialogPrint).Show „显示“打印”对话框 设置鼠标指针形状，其值有xlDeault(默认)、xlIBeam(I型指针)、 xlNorthwestArrow(西北向箭头指针)和xlWait(沙漏型指针)。 返回或设置当前用户名称。 只读，返回WorksheetFunction对象，利用该对象可双VBA中调用Excel工作簿函 数。例如： Set Ra1=Worksheets(“Sheet”).Range(“A1:C10”) MsgBox Application.WorksheetFunction.Min(ra1)
22
用于设置工作簿自动时间间隔。 返回或设置Excel打开文件时使用的默认路径，例如： Application. DefaultFilePath=”D:\Excel”。注意，这种设置将保留 到下次设置的默认路径。 设置或返回打开文件时是否更新链接。
计 DefaultFilePath 23 算 中 心 编 24 制
计 算 中 心 编 制
.Font.Bold = True End With
End Sub
5
上海大学
Shanghai University
Excel VBA常用对象
【例6-3】 下面程序可以将鼠标指针形状更改为“I”形，稍停片刻， 然后将其重新变为默认指针形状。
Sub ChangeCursor()
Application.Cursor = xlIBeam For x = 1 To 1000
当工作表不是活动状态时执行程序。
SheetFollowHyperlink 当单击超链接时时执行程序。 SheetSelectionChang e WindowActivate WindowDeactivate WindowResize 当单元格的选择范围变更时执行程序。 当任意工作簿窗口被激时执行程序。 当工作簿窗口不是活动窗口时执行程序。 当工作簿窗口的大小变更时执行程序。
8
上海大学
Shanghai University
Excel VBA常用对象
Application对象的常用属性及应用
序号 1 2 属性 AcTiveCell ActiveSheet 说明 表示一个代表活动窗口的活动单元格的Range对象，只读，如 Application.ActiveCell.Value 表示一个活动工作簿或指定的窗口与工作簿中的活动工作表，如： Worksheets(“Sheet2”).Activate MsgBox
Public WithEvents AppEvent as Application
计 算 中 心 编 制
④插入一个标准模块，并在该模块下输入下面的语句。 Dim MyAppEvent as New AppEventcls Sub InitializeAppEvent()
第六章 Excel VBA常用对象与应用 案例
上海大学
Shanghai University
Excel VBA常用对象与应用案例
计 算 中 心 编 制
1
上海大学
Shanghai University
Excel VBA常用对象
Application对象
Application对象代表整个Excel应用程序，位于Excel对象模型的最 项层。使用该对象可控制应用程序范围的设置和选项。具体如下： ⑴设置Excel主窗口的标题栏、编辑栏、滚动条、状态栏。 ⑵设置Excel主窗口的状态，即最大化、最小化和正常窗口。
计 算 中 心 编 制
⑶定时执行过程和合并区域。
⑷快速跳转和重新计算。 ⑸获取对象的引用，如“ActiveCell”、“ActiveChart”、“Cells” 属性等。
2
上海大学
Shanghai University
Excel VBA常用对象
【例6-1】 设计一个窗体，窗体的Caption属性为 “Application对象的应用”。窗体中添加8个命令按钮 CommandButton1~8，单击命令按钮可实现的功能依次 为：动态设置Excel的标题、设置Excel标题为当前日期、 隐藏滚动条、显示滚动条、隐藏状态栏、显示状态栏、 隐藏编辑栏和显示编辑栏，如图6-2所示。各命令按钮的 Click事件代码如下：
计 算 中 心 编 制
Application.StatusBar = "请等待一会... " Workbooks.Open Filename:="B.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = O_StatusBar
11 12 13 14
DisplayStatusBar DisplayFormulaBar DisplayScrollBars Dialogs
计 算 15 中 心 16 编 17 制
Cursor
UserName WorksheetFunction
10
序号 18
属性
上海大学说明 Shanghai University
Shanghai University
SheetBeforeDoubleCl ick
4
5 6
SheetBeforeRightClic k
SheetCalculate SheetChange
当右击工作表时执行程序。
当对工作表进行计算时程序。 当任何表的值变更时执行程序。
7
8
SheetDeactivate
25
AskToUpdateLinks
Windows
11
该属性返回一个Windows集合对象，它代表所有工作簿中的所有窗口， 只读。例如：Application.Windows(1).Close
序号 1 2 3
事件
NewWorkbook SheetActivate
上海大学
说明 当新建工作簿时执行程序。 当激活工作表时执行程序。 当双击工作表时执行程序。
计 算 中 心 编 制
4
上海大学
Shanghai University
Excel VBA常用对象
【例6-2】 设置当前单元格的文本为“VBA范例”，且 文本为粗体。 Private Sub CommandButton1_Click() With ActiveCell .Value = " VBA范例"
计 算 中 心 编 制
Application.ActiveWorkbook.Close Application.DisplayAlerts = True