内容发布更新时间 : 2024/12/22 19:58:51星期一 下面是文章的全部内容请认真阅读。

Sub CalculateAllWorkbook() Application.Calculate End Sub 示例说明：当工作簿的计算模式被设置为手动模式后，运用Calculate方法可以重新计算所有打开的工作簿、工作簿中特定的工作表或者工作表中指定的单元格区域。

[示例01-21-2]

Sub CalculateFullSample()

If Application.CalculationVersion <> Workbooks(1).CalculationVersion Then

Application.CalculateFull End If End Sub

示例说明：本示例先将当前Microsoft Excel的版本与上次计算该工作簿的Excel版本进行比较，如果两个版本不同，则对所有打开工作簿中的数据进行一次完整计算。其中，CalculationVersion属性返回工作簿的版本信息。

[NextPage] 示例01-22：控制函数重新计算(Volatile方法) Function NonStaticRand()

'当工作表中任意单元格重新计算时本函数更新 Application.Volatile True NonStaticRand = Rnd() End Function

示例说明：本示例摸仿Excel中的Rand()函数，当工作表单元格发生变化时，都会重新计算该函数。在例子中，使用了Volatile方法，强制函数进行重新计算，即无论何时重新计算工作表，该函数都会重新计算。

示例01-23：利用工作表函数(WorksheetFunction属性) Sub WorksheetFunctionSample() Dim myRange As Range, answer

Set myRange = Worksheets(\ answer = Application.WorksheetFunction.Min(myRange) MsgBox answer End Sub 示例说明：本示例获取工作表Sheet1中单元格区域A1:C10中的最小值，使用了工作表函数Min()。一般，使用WorksheetFunction属性引用工作表函数，但如果VBA自带有实现相同功能的函数，则直接使用该函数，否则会出现错误。

示例01-24：获取重叠区域(Intersect方法) Sub IntersectRange() Dim rSect As Range

Worksheets(\

Set rSect = Application.Intersect(Range(\ If rSect Is Nothing Then

MsgBox \没有交叉区域\ Else

rSect.Select End If End Sub 示例说明：本示例在工作表Sheet1中选定两个命名区域rg1和rg2的重叠区域，如果所选区域不重叠，则显示一条相应的信息。其中，Intersect方法返回一个Range对象，代表两个或多个范围重叠的矩形区域。

示例01-25：获取路径分隔符(PathSeparator属性) Sub GetPathSeparator()

MsgBox \路径分隔符为\End Sub

示例说明：本示例使用PathSeparator属性返回路径分隔符(“\\”)。

示例01-26：快速移至指定位置(Goto方法) Sub GotoSample()

Application.Goto Reference:=Worksheets(\ scroll:=True End Sub

示例说明：本示例运行后，将当前单元格移至工作表Sheet1中的单元格A154。

示例01-27：显示内置对话框(Dialogs属性) Sub DialogSample()

Application.Dialogs(xlDialogOpen).Show End Sub

示例说明：本示例显示Excel的“打开”文件对话框。其中，Dialogs属性返回的集合代表所有的Excel内置对话框。

示例01-28：退出Excel(SendKeys方法) Sub SendKeysSample()

Application.SendKeys (\End Sub

示例说明：本示例使用SendKeys方法退出Excel，若未保存，则会弹出提示对话框并让用户作出相应的选择。SendKeys方法的作用是摸拟键盘输入，如例中的“%fx”表示在Excel中同时按下Alt、F和X三个键。

示例01-29：关闭Excel Sub 关闭Excel()

MsgBox \将会关闭\ Application.Quit End Sub

示例说明：运行本程序后，若该工作簿未保存，则会弹出对话框询问是否保存。

Window对象代表一个窗口，约有48个属性和14个方法，能对窗口特性进行设置和操作。Window对象是Windows集合中的成员，对于 Application对象来说，Windows集合包含该应用程序中的所有窗口；对于Workbook对象来说，Windows集合只包含指定工作簿中 的窗口。下面介绍一些示例，以演示和说明Window对象及其属性和方法的运用。

示例02-01：激活窗口(Activate方法) Sub SelectWindow()

Dim iWin As Long, i As Long, bWin MsgBox \依次切换已打开的窗口\ iWin = Windows.Count

MsgBox “您已打开的窗口数量为：” & iWin For i = 1 To iWin Windows(i).Activate

bWin = MsgBox(\您激活了第 \个窗口，还要继续吗？\ If bWin = vbNo Then Exit Sub Next i End Sub

示例02-02：窗口状态(WindowState属性) [示例02-02-01]

Sub WindowStateTest()

MsgBox \当前活动工作簿窗口将最小化\ Windows(1).WindowState = xlMinimized MsgBox \当前活动工作簿窗口将恢复正常\ Windows(1).WindowState = xlNormal MsgBox \当前活动工作簿窗口将最大化\ Windows(1).WindowState = xlMaximized End Sub

示 例说明：使用WindowState属性可以返回或者设置窗口的状态。示例中，常量xlMinimized、xlNormal和xlMaximized分 别代表窗口不同状态值，Windows(1)表示当前活动窗口。可以使用Windows(index)来返回单个的Window对象，其中的index为 窗口的名称或编号，活动窗口总是Windows(1)。 [示例02-02-02] Sub testWindow()

'测试Excel应用程序窗口状态 MsgBox \应用程序窗口将最大化\

Application.WindowState = xlMaximized Call testWindowState

MsgBox \应用程序窗口将恢复正常\ Application.WindowState = xlNormal MsgBox \应用程序窗口已恢复正常\

'测试活动工作簿窗口状态

MsgBox \当前活动工作簿窗口将最小化\ ActiveWindow.WindowState = xlMinimized Call testWindowState

MsgBox \当前活动工作簿窗口将最大化\ ActiveWindow.WindowState = xlMaximized Call testWindowState

MsgBox \当前活动工作簿窗口将恢复正常\ ActiveWindow.WindowState = xlNormal Call testWindowState

MsgBox \应用程序窗口将最小化\

Application.WindowState = xlMinimized Call testWindowState End Sub

‘********************************************************* Sub testWindowState()

Select Case Application.WindowState

Case xlMaximized: MsgBox \应用程序窗口已最大化\ Case xlMinimized: MsgBox \应用程序窗口已最小化\ Case xlNormal:

Select Case ActiveWindow.WindowState

Case xlMaximized: MsgBox \当前活动工作簿窗口已最大化\ Case xlMinimized: MsgBox \当前活动工作簿窗口已最小化\ Case xlNormal: MsgBox \当前活动工作簿窗口已恢复正常\ End Select End Select End Sub

示 例说明：本示例有两个程序，其中testWindow()是主程序，调用子程序textWindowState()，演示了应用程序窗口和工作簿窗口的不 同状态。当前活动窗口一般代表当前活动工作簿窗口，读者可以在VBE编辑器中按F8键逐语句运行testWindow()程序，观察Excel应用程序及 工作簿窗口的不同状态。此外，在子程序中，还运用了嵌套的Select Case结构。 [示例02-02-03]

Sub SheetGradualGrow() Dim x As Integer With ActiveWindow

.WindowState = xlNormal .Top = 1 .Left = 1 .Height = 50 .Width = 50

For x = 50 To Application.UsableHeight .Height = x Next x

For x = 50 To Application.UsableWidth .Width = x Next x

.WindowState = xlMaximized End With End Sub 示例说明：本示例将动态演示工作簿窗口由小到大直至最大化的变化过程。在运行程序时，您可以将VBE窗口缩小，从而在工作簿中查看动态效果，也可以在Excel中选择菜单中的宏命令执行以查看效果。

示例02-03：切换显示工作表元素 [示例02-03-01]

Sub testDisplayHeading()

MsgBox “切换显示/隐藏行列标号”

ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings End Sub

示例说明：本示例切换是否显示工作表中的行列标号。运行后，工作表中的行标号和列标号将消失；再次运行后，行列标号重新出现，如此反复。您也可以将该属性设置为False，以取消行列标号的显示，如ActiveWindow.DisplayHeadings = False；而将该属性设置为True，则显示行列标号。 [示例02-03-02]

Sub testDisplayGridline()

MsgBox “切换显示/隐藏网格线”

ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub

示例说明：本示例切换是否显示工作表中的网格线。运行后，工作表中的网格线消失，再次运行后，网格线重新出现，如此反复。您也可以将该属性设置为False，以取消网格线显示，如ActiveWindow.DisplayGridlines = False；而将该属性设置为True，则显示网格线。 [示例02-03-03]

Sub DisplayHorizontalScrollBar() MsgBox “切换显示/隐藏水平滚动条”

ActiveWindow.DisplayHorizontalScrollBar = _ Not ActiveWindow.DisplayHorizontalScrollBar End Sub

示例说明：本示例切换是否显示工作表中的水平滚动条。运行后，工作表中的水平滚动条消失，再次运行后，水平滚动条重新出现，如此反复。您也可以将该属性设置为False，以取消水平滚动条，如

ActiveWindow.DisplayHorizontalScrollBar = False；而将该属性设置为True，则显示水平滚动条。

同理，DisplayVerticalScrollBar属性将用来设置垂直滚动条。 [示例02-03-04]

Sub DisplayScrollBar()

MsgBox \切换显示/隐藏水平和垂直滚动条\