【文章內容簡介】 End SelectEnd Sub示例說明：本示例有兩個程序，其中testWindow()是主程序，調用子程序textWindowState()，演示了應用程序窗口和工作簿窗口的不同狀態(tài)。當前活動窗口一般代表當前活動工作簿窗口，讀者可以在VBE編輯器中按F8鍵逐語句運行testWindow()程序，觀察Excel應用程序及工作簿窗口的不同狀態(tài)。此外，在子程序中，還運用了嵌套的Select Case結構。[示例020203]Sub SheetGradualGrow() Dim x As Integer With ActiveWindow .WindowState = xlNormal .Top = 1 .Left = 1 .Height = 50 .Width = 50 For x = 50 To .Height = x Next x For x = 50 To .Width = x Next x .WindowState = xlMaximized End WithEnd Sub示例說明：本示例將動態(tài)演示工作簿窗口由小到大直至最大化的變化過程。在運行程序時，您可以將VBE窗口縮小，從而在工作簿中查看動態(tài)效果，也可以在Excel中選擇菜單中的宏命令執(zhí)行以查看效果。示例0203：切換顯示工作表元素[示例020301]Sub testDisplayHeading() MsgBox “切換顯示/隱藏行列標號” = Not End Sub示例說明：本示例切換是否顯示工作表中的行列標號。運行后，工作表中的行標號和列標號將消失；再次運行后，行列標號重新出現，如此反復。您也可以將該屬性設置為False，以取消行列標號的顯示， = False；而將該屬性設置為True，則顯示行列標號。[示例020302]Sub testDisplayGridline() MsgBox “切換顯示/隱藏網格線” = Not End Sub示例說明：本示例切換是否顯示工作表中的網格線。運行后，工作表中的網格線消失，再次運行后，網格線重新出現，如此反復。您也可以將該屬性設置為False，以取消網格線顯示， = False；而將該屬性設置為True，則顯示網格線。[示例020303]Sub DisplayHorizontalScrollBar() MsgBox “切換顯示/隱藏水平滾動條” = _ Not End Sub示例說明：本示例切換是否顯示工作表中的水平滾動條。運行后，工作表中的水平滾動條消失，再次運行后，水平滾動條重新出現，如此反復。您也可以將該屬性設置為False，以取消水平滾動條， = False；而將該屬性設置為True，則顯示水平滾動條。同理，DisplayVerticalScrollBar屬性將用來設置垂直滾動條。[示例020304]Sub DisplayScrollBar() MsgBox 切換顯示/隱藏水平和垂直滾動條 = Not ()End Sub示例說明：本示例切換是否顯示工作表中的水平和垂直滾動條。運行后，工作表中的水平和垂直滾動條同時消失，再次運行后，水平和垂直滾動條重新出現，如此反復。您也可以將該屬性設置為False，以取消水平和垂直滾動條顯示，= False；而將該屬性設置為True，則顯示水平和垂直滾動條。示例0204：顯示公式(DisplayFormulas屬性)Sub DisplayFormula() MsgBox “顯示工作表中包含公式的單元格中的公式” = TrueEnd Sub示例說明：本程序運行后，工作表中含有公式的單元格將顯示公式而不是數值。若要顯示數值，則將該屬性設置為False，或者，如果工作表中的公式顯示的是結果數值，則該屬性為False。示例0205：顯示/隱藏工作表標簽(DisplayWorkbookTabs屬性)Sub testDisplayWorkbookTab() MsgBox “隱藏工作表標簽” = FalseEnd Sub示例說明：本程序運行后，工作表標簽消失。將該屬性設置為True，重新顯示工作表標簽。示例0206：命名活動窗口(Caption屬性)Sub testCaption() MsgBox 當前活動工作簿窗口的名字是: amp。 (1).Caption = 我的工作簿 MsgBox 當前活動工作簿窗口的名字是: amp。 End Sub示例說明：本程序運行后，顯示當前活動工作簿窗口原先的名稱(即工作簿窗口未處于最大化狀態(tài)時，出現在窗口頂部標題欄中的文字)，然后設置當前活動工作簿窗口名稱，(1).Caption = 我的工作簿，最后顯示當前活動工作簿窗口的新名稱。改變窗口的標題并不會改變工作簿的名稱。示例0207：移動窗口到指定位置(ScrollRow屬性和ScrollColumn屬性)Sub testScroll() MsgBox “將當前窗口工作表左上角單元格移至第10行第3列” = 10 = 3End Sub示例說明：本程序運行后，當前活動窗口左上角單元格為第10行第3列?？梢酝ㄟ^設置這兩個屬性來移動窗口到指定的位置，也可以返回指定窗格或窗口最左上面的行號或列號。示例0208：調整窗口(EnableResize屬性)Sub testResize() MsgBox “設置窗口大小不可調整” = FalseEnd Sub示例說明：測試本程序前，將當前工作簿窗口恢復為正常狀態(tài)(即讓工作簿標題可見)，運行程序后，當前工作簿窗口將不能調整其大小，右上角的最小化最大化按鈕將消失(即隱藏最大化和最小化按鈕)。該屬性設置為True，則能調整窗口大小。示例0209：拆分窗格[示例020901]Sub SplitWindow1() Dim iRow As Long, iColumn As Long MsgBox 以活動單元格為基準拆分窗格 iRow = iColumn = With ActiveWindow .SplitColumn = iColumn .SplitRow = iRow End With MsgBox 恢復原來的窗口狀態(tài) = FalseEnd Sub[示例020902]Sub SplitWindow() Dim iRow As Long, iColumn As Long MsgBox 以活動單元格為基準拆分窗格 iRow = iColumn = With ActiveWindow .SplitColumn = iColumn .SplitRow = iRow End With MsgBox 恢復原來的窗口狀態(tài) = 0 = 0End Sub示例說明：本示例演示了以活動單元格為基準拆分窗格。如果指定窗口被拆分，則Split屬性的值為True；設置該屬性的值為False則取消窗格拆分。也可以設置SplitColumn屬性和SplitRow屬性的值來取消窗格拆分。示例0210：凍結窗格(FreezePanes屬性)Sub testFreezePane() MsgBox “凍結窗格” = TrueEnd Sub示例說明：運行本程序后，將會凍結活動單元格所在位置上方和左側的單元格區(qū)域。將該屬性的值設置為False，將取消凍結窗格。示例0211：設置網格線顏色(GridlineColor屬性和GridlineColorIndex屬性)Sub setGridlineColor() Dim iColor As Long iColor= MsgBox 將活動窗口的網格線顏色設為紅色 = RGB(255, 0, 0) MsgBox 將活動窗口的網格線顏色設為藍色 = 5 MsgBox “恢復為原來的網格線顏色” =iColorEnd Sub示例說明：運行程序后，當前工作表窗口網格線將被設置為紅色。其中，GridlineColorIndex屬性可以用于返回或設置網格線的顏色，下面給出了默認調色板中顏色的編號值：[小結]ActiveWindow屬性返回當前激活的工作簿窗口，可以用來設置工作表中的元素，也可以顯示特定的單元格，或者用來調整窗口的顯示比例，以及設置窗口。第二章 窗口(Window對象)基本操作應用示例(二)分類:ExcelVBAExcelVBA編程入門范例示例0212：設置工作表標簽區(qū)域寬度和水平滾動條寬度比例(TabRatio屬性)Sub test() MsgBox 設置工作表標簽區(qū)域寬度為水平滾動條寬度的一半 = End Sub示例說明：TabRatio屬性返回或設置工作簿中工作表標簽區(qū)域的寬度與窗口水平滾動條的寬度比例(可為0到1之間的數字；）。您可以改變上面程序中的數值進行測試。示例0213：設置激活窗口時運行的程序(OnWindow屬性)Sub testRunProcedure() (1).OnWindow = testEnd Sub‘*********************************************************Sub test() MsgBox 您可以使用本窗口了!End Sub示例說明：本示例包括兩個程序，主程序為testRunProcedure()，運行后，每當激活該窗口時，將會運行test()程序。其中，OnWindow屬性返回或設置每當激活一個窗口時要運行的過程的名稱，如本例中的test()程序。示例0214：獲取指定窗口單元格區(qū)域地址(RangeSelection屬性)Sub testRangeSelection() MsgBox 顯示所選單元格地址 MsgBox End Sub示例說明：本示例返回當前窗口中所選單元格區(qū)域的地址。RangeSelection屬性返回指定窗口的工作表中的選定單元格(即使指定工作表中有圖形對象處于活動狀態(tài)，或者已選定圖形對象，仍返回在圖形對象被選定之前選定的單元格區(qū)域，這是該屬性與Selection屬性的區(qū)別)。示例0215：返回指定窗口中所選擇的工作表(SelectedSheets屬性)Sub testSelectedSheet() Dim sh As Worksheet For Each sh In (1).SelectedSheets MsgBox 工作表 amp。 amp。 被選擇 NextEnd Sub示例說明：SelectedSheets屬性返回代表指定窗口中的所有選定工作表的集合。本示例中，如果您同時選擇了活動工作簿中的工作表Sheet1和Sheet2，那么運行程序后，將會顯示相應工作表被選擇的信息。示例0216：排列窗口(Arrange方法)Sub testArrangeWindows() MsgBox 請確保應用程序至少含有兩個工作簿,這樣才能看出效果 MsgBox “窗口將平鋪顯示” ArrangeStyle:=xlArrangeStyleTiled MsgBox “窗口將層疊顯示” ArrangeStyle:=xlArrangeStyleCascade MsgBox “窗口將水平排列顯示” ArrangeStyle:=xlArrangeStyleHorizontal MsgBox “窗口將垂直并排排列顯示” ArrangeStyle:=xlArrangeStyleVerticalEnd Sub示例說明：運行本程序后，將平鋪應用程序中的所有窗口。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被忽略。示例0217：窗口尺寸(UsableHeight、UsableWidth、Height、Width屬性)Sub testActiveWindowSize()MsgBox 當前窗口可用區(qū)域的高度為: amp。 MsgBox 當前窗口的高度為: amp。 MsgBox 當前窗口可用區(qū)域的寬度為: amp。 MsgBox 當前窗口的寬度為: amp。 End Sub示例0218：水平排列兩個窗口Sub testWindowArrange() Dim ah As L