Excel中用VBA-Worksheet基本操作应用示例 下载本文

Application.DisplayScrollBars = Not (Application.DisplayScrollBars) End Sub

示例说明:本示例切换是否显示工作表中的水平和垂直滚动条。运行后,工作表中的水平和垂直滚动条同时消失,再次运行后,水平和垂直滚动条重新出现,如此反复。您也可以将该属性设置为False,以取消水平和垂直滚动条显示,如Application.DisplayScrollBars= False;而将该属性设置为True,则显示水平和垂直滚动条。

示例02-04:显示公式(DisplayFormulas属性) Sub DisplayFormula()

MsgBox “显示工作表中包含公式的单元格中的公式” ActiveWindow.DisplayFormulas = True End Sub

示例说明:本程序运行后,工作表中含有公式的单元格将显示公式而不是数值。若要显示数值,则将该属性设置为False,或者,如果工作表中的公式显示的是结果数值,则该属性为False。

示例02-05:显示/隐藏工作表标签(DisplayWorkbookTabs属性) Sub testDisplayWorkbookTab() MsgBox “隐藏工作表标签”

ActiveWindow.DisplayWorkbookTabs = False End Sub

示例说明:本程序运行后,工作表标签消失。将该属性设置为True,重新显示工作表标签。

示例02-06:命名活动窗口(Caption属性) Sub testCaption()

MsgBox \当前活动工作簿窗口的名字是:\ ActiveWorkbook.Windows(1).Caption = \我的工作簿\

MsgBox \当前活动工作簿窗口的名字是:\End Sub

示例说明:本程序运行后,显示当前活动工作簿窗口原先的名称(即工作簿窗口未处于最大化状态时,出现在窗口顶部标题栏中的文字),然后设置当前活动工作簿窗口名称,即使用语句ActiveWorkbook.Windows(1).Caption = \我的工作簿\,最后显示当前活动工作簿窗口的新名称。改变窗口的标题并不会改变工作簿的名称。

示例02-07:移动窗口到指定位置(ScrollRow属性和ScrollColumn属性) Sub testScroll()

MsgBox “将当前窗口工作表左上角单元格移至第10行第3列” ActiveWindow.ScrollRow = 10 ActiveWindow.ScrollColumn = 3 End Sub

示例说明:本程序运行后,当前活动窗口左上角单元格为第10行第3列。可以

通过设置这两个属性来移动窗口到指定的位置,也可以返回指定窗格或窗口最左上面的行号或列号。

[NextPage] 示例02-08:调整窗口(EnableResize属性) Sub testResize()

MsgBox “设置窗口大小不可调整” ActiveWindow.EnableResize = False End Sub

示例说明:测试本程序前,将当前工作簿窗口恢复为正常状态(即让工作簿标题可见),运行程序后,当前工作簿窗口将不能调整其大小,右上角的最小化最大化按钮将消失(即隐藏最大化和最小化按钮)。该属性设置为True,则能调整窗口大小。

示例02-09:拆分窗格 [示例02-09-01] Sub SplitWindow1()

Dim iRow As Long, iColumn As Long MsgBox \以活动单元格为基准拆分窗格\ iRow = ActiveCell.Row

iColumn = ActiveCell.Column With ActiveWindow

.SplitColumn = iColumn .SplitRow = iRow End With

MsgBox \恢复原来的窗口状态\ ActiveWindow.Split = False End Sub

[示例02-09-02] Sub SplitWindow()

Dim iRow As Long, iColumn As Long MsgBox \以活动单元格为基准拆分窗格\ iRow = ActiveCell.Row

iColumn = ActiveCell.Column With ActiveWindow

.SplitColumn = iColumn .SplitRow = iRow End With

MsgBox \恢复原来的窗口状态\ ActiveWindow.SplitColumn = 0 ActiveWindow.SplitRow = 0 End Sub

示例说明:本示例演示了以活动单元格为基准拆分窗格。如果指定窗口被拆分,则Split属性的值为True;设置该属性的值为False则取消窗格拆分。也可以设置SplitColumn属性和SplitRow属性的值来取消窗格拆分。

示例02-10:冻结窗格(FreezePanes属性) Sub testFreezePane() MsgBox “冻结窗格”

ActiveWindow.FreezePanes = True End Sub 示例说明:运行本程序后,将会冻结活动单元格所在位置上方和左侧的单元格区域。将该属性的值设置为False,将取消冻结窗格。

示例02-11:设置网格线颜色(GridlineColor属性和GridlineColorIndex属性) Sub setGridlineColor() Dim iColor As Long

iColor=ActiveWindow.GridlineColor

MsgBox \将活动窗口的网格线颜色设为红色\ ActiveWindow.GridlineColor = RGB(255, 0, 0) MsgBox \将活动窗口的网格线颜色设为蓝色\ ActiveWindow.GridlineColorIndex = 5 MsgBox “恢复为原来的网格线颜色”

ActiveWindow.GridlineColorIndex=iColor End Sub

示例说明:运行程序后,当前工作表窗口网格线将被设置为红色。其中,

GridlineColorIndex属性可以用于返回或设置网格线的颜色,下面给出了默认调色板中颜色的编号值:

[小结]ActiveWindow属性返回当前激活的工作簿窗口,可以用来设置工作表中的元素,也可以显示特定的单元格,或者用来调整窗口的显示比例,以及设置窗口。

示例02-12:设置工作表标签区域宽度和水平滚动条宽度比例(TabRatio属性) Sub test()

MsgBox \设置工作表标签区域宽度为水平滚动条宽度的一半\ ActiveWindow.TabRatio = 0.5 End Sub

示例说明:TabRatio属性返回或设置工作簿中工作表标签区域的宽度与窗口水平滚动条的宽度比例(可为0到1之间的数字;默认值为0.6)。您可以改变上面程序中的数值进行测试。

示例02-13:设置激活窗口时运行的程序(OnWindow属性) Sub testRunProcedure()

ThisWorkbook.Windows(1).OnWindow = \End Sub

‘********************************************************* Sub test()

MsgBox \您可以使用本窗口了!\End Sub

示例说明:本示例包括两个程序,主程序为testRunProcedure(),运行后,每当激活该窗口时,将会运行test()程序。其中,OnWindow属性返回或设置每当激活一个窗口时要运行的过程的名称,如本例中的test()程序。

示例02-14:获取指定窗口单元格区域地址(RangeSelection属性) Sub testRangeSelection()

MsgBox \显示所选单元格地址\

MsgBox ActiveWindow.RangeSelection.Address End Sub

示 例说明:本示例返回当前窗口中所选单元格区域的地址。RangeSelection属性返回指定窗口的工作表中的选定单元格(即使指定工作表中有图形对象 处于活动状态,或者已选定图形对象,仍返回在图形对象被选定之前选定的单元格区域,这是该属性与Selection属性的区别)。

[NextPage] 示例02-15:返回指定窗口中所选择的工作表(SelectedSheets属性)

Sub testSelectedSheet() Dim sh As Worksheet

For Each sh In ActiveWorkbook.Windows(1).SelectedSheets MsgBox \工作表\被选择\ Next End Sub

示例说明:SelectedSheets属性返回代表指定窗口中的所有选定工作表的集合。本示例中,如果您同时选择了活动工作簿中的工作表Sheet1和Sheet2,那么运行程序后,将会显示相应工作表被选择的信息。

示例02-16:排列窗口(Arrange方法) Sub testArrangeWindows()

MsgBox \请确保应用程序至少含有两个工作簿,这样才能看出效果\ MsgBox “窗口将平铺显示”

Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled MsgBox “窗口将层叠显示”

Windows.Arrange ArrangeStyle:=xlArrangeStyleCascade MsgBox “窗口将水平排列显示”

Windows.Arrange ArrangeStyle:=xlArrangeStyleHorizontal MsgBox “窗口将垂直并排排列显示”

Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical End Sub

示例说明:运行本程序后,将平铺应用程序中的所有窗口。Arrange方法用于对屏幕上的窗口进行排列,其语法为expression.Arrange(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 \当前窗口可用区域的高度为:\ MsgBox \当前窗口的高度为:\

MsgBox \当前窗口可用区域的宽度为:\ MsgBox \当前窗口的宽度为:\End Sub

示例02-18:水平排列两个窗口 Sub testWindowArrange()

Dim ah As Long, aw As Long

Windows.Arrange xlArrangeStyleTiled ah = Windows(1).Height

aw = Windows(1).Width + Windows(2).Width With Windows(1) .Width = aw

.Height = ah / 2 .Left = 0 End With

With Windows(2) .Width = aw

.Height = ah / 2 .Top = ah / 2 .Left = 0 End With End Sub

示 例说明:在运行本示例前,保证只打开了两个工作簿窗口。运行本示例后,将水平排列第一个窗口和第二个窗口,即每个窗口占用可使用的垂直空间的一半,占用所 有水平空间。其中,Top属性表示从窗口顶端到可用区域顶端的距离,无法对最大化的窗口设置本属性;Left属性表示使用区域的左边界至窗口左边界的距 离,如果窗口已最大化,则会返回一个负数;如果该属性被设置为0,则窗口的主边框刚好在屏幕上可见。