2024年6月3日发(作者：)
窗口(Window 对象)基本操作应用示例
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 =
MsgBox “您已打开的窗口数量为：” & iWin
For i = 1 To iWin
Windows(i).Activate
bWin = MsgBox("您激活了第" & i & "个窗口，还要继续吗？" vbYesNo)
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 "应用程序窗口将最大化"
State = xlMaximized
Call testWindowState
MsgBox "应用程序窗口将恢复正常"
PDF 文件使用 "pdfFactory Pro" 试用版本创建
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 2 -
State = xlNormal
MsgBox "应用程序窗口已恢复正常"
'测试活动工作簿窗口状态
MsgBox "当前活动工作簿窗口将最小化"
State = xlMinimized
Call testWindowState
MsgBox "当前活动工作簿窗口将最大化"
State = xlMaximized
Call testWindowState
MsgBox "当前活动工作簿窗口将恢复正常"
State = xlNormal
Call testWindowState
MsgBox "应用程序窗口将最小化"
State = xlMinimized
Call testWindowState
End Sub
‘*********************************************************
Sub testWindowState()
Select Case State
Case xlMaximized: MsgBox "应用程序窗口已最大化"
Case xlMinimized: MsgBox "应用程序窗口已最小化"
Case xlNormal:
Select Case State
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 Height
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 3 -
.Height = x
Next x
For x = 50 To Width
.Width = x
Next x
.WindowState = xlMaximized
EndWith
End Sub
示例说明：本示例将动态演示工作簿窗口由小到大直至最大化的变化过程。在运行程序时，
您可以将VBE 窗口缩小，从而在工作簿中查看动态效果，也可以在Excel 中选择菜单中的
宏命令执行以查看效果。
示例 02-03：切换显示工作表元素
[示例02-03-01]
Sub testDisplayHeading()
MsgBox “切换显示/隐藏行列标号”
yHeadings = Not yHeadings
End Sub
示例说明：本示例切换是否显示工作表中的行列标号。运行后，工作表中的行标号和列标
号
将消失；再次运行后，行列标号重新出现，如此反复。您也可以将该属性设置为False，以
取消行列标号的显示，如yHeadings = False；而将该属性设置为
True，
则显示行列标号。
[示例02-03-02]
Sub testDisplayGridline()
MsgBox “切换显示/隐藏网格线”
yGridlines = Not yGridlines
End Sub
示例说明：本示例切换是否显示工作表中的网格线。运行后，工作表中的网格线消失，再
次
运行后，网格线重新出现，如此反复。您也可以将该属性设置为False，以取消网格线显示，
如yGridlines = False；而将该属性设置为True，则显示网格线。
[示例02-03-03]
Sub DisplayHorizontalScrollBar()
MsgBox “切换显示/隐藏水平滚动条”
yHorizontalScrollBar = _
Not yHorizontalScrollBar
End Sub
示例说明：本示例切换是否显示工作表中的水平滚动条。运行后，工作表中的水平滚动条
消
失，再次运行后，水平滚动条重新出现，如此反复。您也可以将该属性设置为False，以取
消水平滚动条，如yHorizontalScrollBar = False；而将该属性设置
为
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 4 -
True，则显示水平滚动条。
同理，DisplayVerticalScrollBar 属性将用来设置垂直滚动条。
[示例02-03-04]
Sub DisplayScrollBar()
MsgBox "切换显示/隐藏水平和垂直滚动条"
yScrollBars = Not (yScrollBars)
End Sub
示例说明：本示例切换是否显示工作表中的水平和垂直滚动条。运行后，工作表中的水平
和
垂直滚动条同时消失，再次运行后，水平和垂直滚动条重新出现，如此反复。您也可以将
该
属性设置为False，以取消水平和垂直滚动条显示，如yScrollBars=
False；
而将该属性设置为True，则显示水平和垂直滚动条。
示例 02-04：显示公式(DisplayFormulas 属性)
Sub DisplayFormula()
MsgBox “显示工作表中包含公式的单元格中的公式”
yFormulas = True
End Sub
示例说明：本程序运行后，工作表中含有公式的单元格将显示公式而不是数值。若要显示
数
值，则将该属性设置为False，或者，如果工作表中的公式显示的是结果数值，则该属性为
False。
示例 02-05：显示/隐藏工作表标签(DisplayWorkbookTabs属性)
Sub testDisplayWorkbookTab()
MsgBox “隐藏工作表标签”
yWorkbookTabs = False
End Sub
示例说明：本程序运行后，工作表标签消失。将该属性设置为True，重新显示工作表标签。
示例 02-06：命名活动窗口(Caption属性)
Sub testCaption()
MsgBox "当前活动工作簿窗口的名字是:" & n
s(1).Caption = "我的工作簿"
MsgBox "当前活动工作簿窗口的名字是:" & n
End Sub
示例说明：本程序运行后，显示当前活动工作簿窗口原先的名称(即工作簿窗口未处于最大
化状态时，出现在窗口顶部标题栏中的文字)，然后设置当前活动工作簿窗口名称，即使用
语句s(1).Caption = "我的工作簿"，最后显示当前活动工作簿
窗口
的新名称。改变窗口的标题并不会改变工作簿的名称。
示例 02-07：移动窗口到指定位置(ScrollRow属性和ScrollColumn属性)
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 5 -
Sub testScroll()
MsgBox “将当前窗口工作表左上角单元格移至第10行第3列”
Row = 10
Column = 3
End Sub
示例说明：本程序运行后，当前活动窗口左上角单元格为第10行第3列。可以通过设置这
两个属性来移动窗口到指定的位置，也可以返回指定窗格或窗口最左上面的行号或列号。
示例 02-08：调整窗口(EnableResize属性)
Sub testResize()
MsgBox “设置窗口大小不可调整”
Resize = False
End Sub
示例说明：测试本程序前，将当前工作簿窗口恢复为正常状态(即让工作簿标题可见)，运行
程序后，当前工作簿窗口将不能调整其大小，右上角的最小化最大化按钮将消失(即隐藏最
大化和最小化按钮)。该属性设置为True，则能调整窗口大小。
示例 02-09：拆分窗格
[示例02-09-01]
Sub SplitWindow1()
Dim iRow As Long iColumn As Long
MsgBox "以活动单元格为基准拆分窗格"
iRow =
iColumn =
With ActiveWindow
.SplitColumn = iColumn
.SplitRow = iRow
EndWith
MsgBox "恢复原来的窗口状态"
= False
End Sub
[示例02-09-02]
Sub SplitWindow()
Dim iRow As Long iColumn As Long
MsgBox "以活动单元格为基准拆分窗格"
iRow =
iColumn =
With ActiveWindow
.SplitColumn = iColumn
.SplitRow = iRow
EndWith
MsgBox "恢复原来的窗口状态"
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 6 -
olumn = 0
ow = 0
End Sub
示例说明：本示例演示了以活动单元格为基准拆分窗格。如果指定窗口被拆分，则Split 属
性的值为True；设置该属性的值为False 则取消窗格拆分。也可以设置SplitColumn 属性
和SplitRow 属性的值来取消窗格拆分。
示例 02-10：冻结窗格(FreezePanes属性)
Sub testFreezePane()
MsgBox “冻结窗格”
Panes = True
End Sub
示例说明：运行本程序后，将会冻结活动单元格所在位置上方和左侧的单元格区域。将该
属
性的值设置为False，将取消冻结窗格。
示例 02-11：设置网格线颜色(GridlineColor属性和GridlineColorIndex 属性)
Sub setGridlineColor()
Dim iColor As Long
iColor=neColor
MsgBox "将活动窗口的网格线颜色设为红色"
neColor = RGB(255 0 0)
MsgBox "将活动窗口的网格线颜色设为蓝色"
neColorIndex = 5
MsgBox “恢复为原来的网格线颜色”
neColorIndex=iColor
End Sub
示例说明：运行程序后，当前工作表窗口网格线将被设置为红色。其中，
GridlineColorIndex
属性可以用于返回或设置网格线的颜色，下面给出了默认调色板中颜色的编号值：
[小结]ActiveWindow 属性返回当前激活的工作簿窗口，可以用来设置工作表中的元素，
也
可以显示特定的单元格，或者用来调整窗口的显示比例，以及设置窗口。
示例 02-12：设置工作表标签区域宽度和水平滚动条宽度比例(TabRatio属性)
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 7 -
Sub test()
MsgBox "设置工作表标签区域宽度为水平滚动条宽度的一半"
io = 0.5
End Sub
示例说明：TabRatio 属性返回或设置工作簿中工作表标签区域的宽度与窗口水平滚动条的
宽度比例(可为0到1之间的数字；默认值为0.6）。您可以改变上面程序中的数值进行测
试。
示例 02-13：设置激活窗口时运行的程序(OnWindow属性)
Sub testRunProcedure()
s(1).OnWindow = "test"
End Sub
‘*********************************************************
Sub test()
MsgBox "您可以使用本窗口了!"
End Sub
示例说明：本示例包括两个程序，主程序为testRunProcedure()，运行后，每当激活该窗
口
时，将会运行test()程序。其中，OnWindow 属性返回或设置每当激活一个窗口时要运行
的
过程的名称，如本例中的test()程序。
示例 02-14：获取指定窗口单元格区域地址(RangeSelection属性)
Sub testRangeSelection()
MsgBox "显示所选单元格地址"
MsgBox s
End Sub
示例说明：本示例返回当前窗口中所选单元格区域的地址。RangeSelection 属性返回指定
窗口的工作表中的选定单元格(即使指定工作表中有图形对象处于活动状态，或者已选定图
形对象，仍返回在图形对象被选定之前选定的单元格区域，这是该属性与Selection属性
的
区别)。
示例 02-15：返回指定窗口中所选择的工作表(SelectedSheets属性)
Sub testSelectedSheet()
Dim sh AsWorksheet
For Each sh In s(1).SelectedSheets
MsgBox "工作表" & & "被选择"
Next
End Sub
示例说明：SelectedSheets属性返回代表指定窗口中的所有选定工作表的集合。本示例中，
如果您同时选择了活动工作簿中的工作表Sheet1 和Sheet2，那么运行程序后，将会显示
相应工作表被选择的信息。
示例 02-16：排列窗口(Arrange 方法)
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 8 -
Sub testArrangeWindows()
MsgBox "请确保应用程序至少含有两个工作簿这样才能看出效果"
MsgBox “窗口将平铺显示”
e ArrangeStyle:=xlArrangeStyleTiled
MsgBox “窗口将层叠显示”
e ArrangeStyle:=xlArrangeStyleCascade
MsgBox “窗口将水平排列显示”
e ArrangeStyle:=xlArrangeStyleHorizontal
MsgBox “窗口将垂直并排排列显示”
e ArrangeStyle:=xlArrangeStyleVertical
End Sub
示例说明：运行本程序后，将平铺应用程序中的所有窗口。Arrange方法用于对屏幕上的
窗
口进行排列，其语法为e(ArrangeStyle ActiveWorkbook
SyncHorizontal
SyncVertical)，所有的参数均为可选参数。其中，参数ArrangeStyle 代表排列样式，可为
以下常量：常量xlArrangeStyleTiled为缺省值，表示将平铺窗口；常量
xlArrangeStyleCascade表
示将窗口进行层叠；常量xlArrangeStyleHorizontal 表示将水平排列所有窗口；常量
xlArrangeStyleVertical表示将垂直并排排列所有窗口。您可以在上面的程序中测试这些常
量，以
体验效果。将参数ActiveWorkbook设置为True，则只对当前工作簿的可见窗口进行排列。
如果为False，则对所有窗口进行排列。默认值为False。设置参数SyncHorizontal 为
True，
在水平滚动时同步滚动当前工作簿的所有窗口；如果为False，则不同步滚动。设置参数
SyncVertical 为True，则在垂直滚动时同步滚动当前工作簿的所有窗口；如果为False，
则
不同步滚动，默认值为False。如果参数ActiveWorkbook 为False 或者省略，则参数
SyncHorizontal 和SyncVertical 被忽略。
示例 02-17：窗口尺寸(UsableHeight、UsableWidth、Height、Width属性)
Sub testActiveWindowSize()
MsgBox "当前窗口可用区域的高度为:" & Height
MsgBox "当前窗口的高度为:" &
MsgBox "当前窗口可用区域的宽度为:" & Width
MsgBox "当前窗口的宽度为:" &
End Sub
示例02-18：水平排列两个窗口
Sub testWindowArrange()
Dim ah As Long aw As Long
e xlArrangeStyleTiled
ah = Windows(1).Height
aw = Windows(1).Width + Windows(2).Width
WithWindows(1)
.Width = aw
.Height = ah / 2
.Left = 0
EndWith
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 9 -
WithWindows(2)
.Width = aw
.Height = ah / 2
.Top = ah / 2
.Left = 0
EndWith
End Sub
示例说明：在运行本示例前，保证只打开了两个工作簿窗口。运行本示例后，将水平排列
第
一个窗口和第二个窗口，即每个窗口占用可使用的垂直空间的一半，占用所有水平空间。
其
中，Top 属性表示从窗口顶端到可用区域顶端的距离，无法对最大化的窗口设置本属性；
Left
属性表示使用区域的左边界至窗口左边界的距离，如果窗口已最大化，则会返回一个负数；
如果该属性被设置为0，则窗口的主边框刚好在屏幕上可见。
示例 02-19：改变窗口的高度和宽度
Sub ChangeHeightAndWidth()
Dim iWinHeight As Long iWinWidth As Long
State = xlNormal
MsgBox "将当前窗口的高度和宽度各减一半"
iWinHeight =
iWinWidth =
= iWinHeight / 2
= iWinWidth / 2
MsgBox "恢复原窗口大小"
= iWinHeight
= iWinWidth
End Sub
示例说明：Height属性和Width属性必须在窗口处于正常显示状态(即不是最大化或最小
化
状态)时使用，否则会出错。
示例 02-20：移动窗口
Sub SetWindowPosition()
Dim iTop As Long iLeft As Long
MsgBox "将当前窗口向下移60向右移90"
State = xlNormal
iTop =
iLeft =
= iTop + 60
= iLeft + 90
MsgBox "恢复原来窗口的位置"
= iTop
= iLeft
End Sub
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 10 -
示例说明：Top 属性和Left 属性必须在窗口处于正常显示状态(即不是最大化或最小化状态)
时使用，否则会出错。
示例 02-21：并排比较窗口
Sub testCompare()
MsgBox "与工作簿Book2进行并排比较"
eSideBySideWith "Book2"
MsgBox "启动窗口滚动功能使两个窗口同时滚动"
rollingSideBySide = True
MsgBox "将工作簿Book2最小化"
Windows("Book2").WindowState = xlMinimized
MsgBox "重置并排比较显示恢复并排比较"
ositionsSideBySide
MsgBox "关闭并排比较"
ideBySide
End Sub
示例说明：在运行本示例前，确保在本窗口外还打开了一个名为Book2 的窗口，或者您打
开了一个其它命名的窗口，相应将上面程序中的Book2 更换为您的窗口名。
CompareSideBySideWith 方法将以并排模式打开两个窗口，其中一个是当前活动窗口，
另
一个就是该方法所指定的窗口，如本例中的Book2。SyncScrollingSideBySide属性设置
是
否将两个窗口的滚动保持同步，如果为True，在对文档进行并排比较的同时启用窗口内容
的滚动功能。若为False，则在对文档进行并排比较的同时禁用窗口内容的滚动功能。
ResetPositionsSideBySide 方法重置正在进行并排比较的两个工作表窗口的位置，例如，
如果用户将正在进行比较的两个工作表窗口中的其中一个窗框最小化或最大化，就可以使
用
ResetPositionsSideBySide 方法重置显示，以便这两个窗口再次并排显示。
BreakSideBySide方法用来关闭并排比较。
示例 02-22：返回或设置窗口中显示的视图(View属性)
Sub testView()
MsgBox "将视图切换为分页预览"
= xlPageBreakPreview
MsgBox "窗口视图为:" &
MsgBox "将视图恢复正常"
= xlNormalView
MsgBox "窗口视图为:" &
End Sub
示例02-23：返回窗口中可见单元格区域(VisibleRange属性)
Sub testVisibleRange()
MsgBox "当前窗口中共有" &Windows(1). & "个单元格可见"
End Sub
示例说明：如果窗口中有部分行列的单元格可见，也包括在可见单元格区域中。
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 11 -
示例 02-24：创建窗口(NewWindow方法)
Sub testNewWindow()
MsgBox "为活动窗口创建一个副本"
dow
MsgBox "所创建窗口的窗口号为" & Number
End Sub
示例说明：本示例中，NewWindow 方法为指定窗口(本例中为当前活动窗口)创建一个副
本，
然后显示该副本窗口的窗口号。注意，窗口号与窗口索引(Index 属性)的不同，例如名称为
“:2”的窗口，其窗口号为２，而窗口索引为该窗口在Windows 集合中的位置，
可
以为窗口名称或编号。
示例 02-25：设置窗口大小(Zoom 属性)
Sub testWindowDisplaySize()
MsgBox "将窗口大小设置为与选定区域相适应的大小"
= True
MsgBox "以双倍大小显示窗口"
= 200
MsgBox "以正常大小显示窗口"
= 100
End Sub
示例说明：Zoom 属性将以百分数的形式(100表示正常大小，200表示双倍大小，以此类
推)
返回或设置窗口的显示大小。如果本属性为True，则可将窗口大小设置成与当前选定区域
相适应的大小。本功能仅对窗口中当前的活动工作表起作用，若要对其他工作表使用本属
性，
必须先激活该工作表。
示例 02-26：激活窗口(ActivateNext方法和ActivatePrevious 方法)
[示例02-26-01]
Sub testActivateWindow1()
MsgBox "若已打开、和三个工作簿且为当前
窗口" & Chr(10) & "则按依次激活窗口"
teNext
MsgBox "激活工作簿:" &Windows(1).Caption
teNext
MsgBox "激活工作簿:" &Windows(1).Caption
teNext
MsgBox "激活工作簿:" &Windows(1).Caption
End Sub
[示例02-26-02]
Sub testActivateWindow2()
MsgBox "若已打开、和三个工作簿且为当前
窗口" & Chr(10) & "则按依次激活窗口"
tePrevious
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 12 -
MsgBox "激活工作簿:" &Windows(1).Caption
tePrevious
MsgBox "激活工作簿:" &Windows(1).Caption
tePrevious
MsgBox "激活工作簿:" &Windows(1).Caption
End Sub
示例02-27：滚动窗口(LargeScroll方法和SmallScroll 方法)
[示例02-27-01]
Sub testScroll1()
MsgBox "将当前窗口向下滚动3页并向右滚动1页"
croll Down:=3 ToRight:=1
End Sub
示例说明：LargeScroll
croll(Down
方法将按页滚动窗口的内容，其语法为
Up ToRight ToLeft)，带有4个可选的参数，其中参数Down表示将窗口内容向下滚动的
页
数；参数Up 表示将窗口内容向上滚动的页数；参数ToRight表示将窗口内容向右滚动的
页
数；参数ToLeft表示将窗口内容向左滚动的页数。如果同时指定了Down和Up，窗口内
容
上下方向滚动的页数由这两个参数的差决定，例如，如果Down 为3，Up 为6，则窗口向
上滚动三页。如果同时指定了ToLeft和ToRight，窗口内容左右方向滚动的页数由这两个
参
数的差决定，例如，如果ToLeft为3，ToRight为 6，则窗口向右滚动三页。所有这四个
参
数都可以使用负数。
[示例02-27-02]
Sub testScroll2()
MsgBox "将当前活动窗口向下滚动3行"
croll down:=3
End Sub
示例说明：SmallScroll方法按行或列滚动窗口，其语法为
croll(Down Up
ToRight ToLeft)，带有4个可选的参数，其中参数Down表示将窗口内容向下滚动的行数；
参数Up 表示将窗口内容向上滚动的列数；参数ToRight表示将窗口内容向右滚动的列数；
参数ToLeft表示将窗口内容向左滚动的列数。如果同时指定了Down和Up，则窗口内容
滚
动的行数由这两个参数的差值决定，例如，如果Down 为3，Up 为6，则窗口内容向上滚
动三行。如果同时指定了ToLeft和ToRight，则窗口内容滚动的列数由这两个参数的差值
决
定，例如，如果ToLeft为3，ToRight为 6，则窗口内容向右滚动三列。以上四个参数均
可
取负值。
示例 02-28：测试所选单元格宽度和高度
Sub testWidthOrHeight()
Dim lWinWidth As Long lWinHeight As Long
With ActiveWindow
lWinWidth = .PointsToScreenPixelsX(.)
lWinHeight = .PointsToScreenPixelsY(.)
EndWith
ExcelVBA>>ExcelVBA编程入门范例>>窗口(Window对象)基本操作
2006年9月23日fanjy.- 13 -
MsgBox "当前选定单元格宽度为:" & lWinWidth & Chr(10) & _
"当前选定单元格高度为:" & lWinHeight
End Sub
示例02-29：关闭窗口(Close方法)
Sub CloseWindow()
MsgBox "关闭当前窗口"
End Sub
示例说明：本示例运行后，将关闭当前窗口。如果当前窗口未保存，则会弹出询问是否保
存
的消息框供选择
发布评论