窗口(window對象)基本操作應用示例

1、Window對象代表一個窗口，約有48個屬性和14個方法，能對窗口特性進行設置和操作。Window對象是Windows集合中的成員，對于Application對象來說，Windows集合包含該應用程序中的所有窗口；對于Wkbook對象來說，Windows集合只包含指定工作簿中的窗口。下面介紹一些示例，以演示和說明Window對象及其屬性和方法的運用。示例示例0201：激活窗口：激活窗口(Activate方法方法)SubWindow()D

2、imiWinAsLongiAsLongbWinMsgBox“依次切換已打開的窗口“iWin=Windows.CountMsgBox“您已打開的窗口數(shù)量為：”&iWinFi=1ToiWinWindows(i).ActivatebWin=MsgBox(“您激活了第“&i&“個窗口，還要繼續(xù)嗎？“vbYesNo)IfbWin=vbNoThenExitSubNextiEndSub示例示例0202：窗口狀態(tài)：窗口狀態(tài)(WindowState屬性屬

3、性)[示例020201]SubWindowStateTest()MsgBox“當前活動工作簿窗口將最小化“Windows(1).WindowState=xlMinimizedMsgBox“當前活動工作簿窗口將恢復正常“Windows(1).WindowState=xlNmalMsgBox“當前活動工作簿窗口將最大化“Windows(1).WindowState=xlMaximizedEndSub示例說明：使用WindowState屬性可

4、以返回或者設置窗口的狀態(tài)。示例中，常量xlMinimized、xlNmal和xlMaximized分別代表窗口不同狀態(tài)值，Windows(1)表示當前活動窗口。可以使用Windows(index)來返回單個的Window對象，其中的index為窗口的名稱或編號，活動窗口總是Windows(1)。[示例020202]SubtestWindow()測試Excel應用程序窗口狀態(tài)MsgBox“應用程序窗口將最大化“Application.Wi

5、ndowState=xlMaximizedCalltestWindowStateMsgBox“應用程序窗口將恢復正?！癆pplication.WindowState=xlNmalMsgBox“應用程序窗口已恢復正?！皽y試活動工作簿窗口狀態(tài)MsgBox“當前活動工作簿窗口將最小化“ActiveWindow.WindowState=xlMinimizedCalltestWindowStateMsgBox“當前活動工作簿窗口將最大化“示例說明

6、：本示例將動態(tài)演示工作簿窗口由小到大直至最大化的變化過程。在運行程序時，您可以將VBE窗口縮小，從而在工作簿中查看動態(tài)效果，也可以在Excel中選擇菜單中的宏命令執(zhí)行以查看效果。示例示例0203：切換顯示工作表元素：切換顯示工作表元素[示例020301]SubtestDisplayHeading()MsgBox“切換顯示隱藏行列標號”ActiveWindow.DisplayHeadings=NotActiveWindow.Display

7、HeadingsEndSub示例說明：本示例切換是否顯示工作表中的行列標號。運行后，工作表中的行標號和列標號將消失；再次運行后，行列標號重新出現(xiàn)，如此反復。您也可以將該屬性設置為False，以取消行列標號的顯示，如ActiveWindow.DisplayHeadings=False；而將該屬性設置為True，則顯示行列標號。[示例020302]SubtestDisplayGridline()MsgBox“切換顯示隱藏網(wǎng)格線”Active

8、Window.DisplayGridlines=NotActiveWindow.DisplayGridlinesEndSub示例說明：本示例切換是否顯示工作表中的網(wǎng)格線。運行后，工作表中的網(wǎng)格線消失，再次運行后，網(wǎng)格線重新出現(xiàn)，如此反復。您也可以將該屬性設置為False，以取消網(wǎng)格線顯示，如ActiveWindow.DisplayGridlines=False；而將該屬性設置為True，則顯示網(wǎng)格線。[示例020303]SubDispl

9、ayHizontalScrollBar()MsgBox“切換顯示隱藏水平滾動條”ActiveWindow.DisplayHizontalScrollBar=_NotActiveWindow.DisplayHizontalScrollBarEndSub示例說明：本示例切換是否顯示工作表中的水平滾動條。運行后，工作表中的水平滾動條消失，再次運行后，水平滾動條重新出現(xiàn)，如此反復。您也可以將該屬性設置為False，以取消水平滾動條，如Activ

10、eWindow.DisplayHizontalScrollBar=False；而將該屬性設置為True，則顯示水平滾動條。同理，DisplayVerticalScrollBar屬性將用來設置垂直滾動條。[示例020304]SubDisplayScrollBar()MsgBox“切換顯示隱藏水平和垂直滾動條“Application.DisplayScrollBars=Not(Application.DisplayScrollBars)En

11、dSub示例說明：本示例切換是否顯示工作表中的水平和垂直滾動條。運行后，工作表中的水平和垂直滾動條同時消失，再次運行后，水平和垂直滾動條重新出現(xiàn)，如此反復。您也可以將該屬性設置為False，以取消水平和垂直滾動條顯示，如Application.DisplayScrollBars=False；而將該屬性設置為True，則顯示水平和垂直滾動條。示例示例0204：顯示公式：顯示公式(DisplayFmulas屬性屬性)SubDisplayFm