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