【正文】 寬度為: amp。 MsgBox 當(dāng)前窗口可用區(qū)域的高度為: amp。如果參數(shù)ActiveWorkbook為False或者省略，則參數(shù)SyncHorizontal和SyncVertical被忽略。設(shè)置參數(shù)SyncHorizontal為True，在水平滾動時同步滾動當(dāng)前工作簿的所有窗口；如果為 False，則不同步滾動。如果為False，則對所有窗口進(jìn)行排列。您可以在上面的程序中測試這些常量，以體驗效果。Arrange方法用于對屏幕上的窗口進(jìn)行排列，(ArrangeStyle, ActiveWorkbook, SyncHorizontal, SyncVertical)，所有的參數(shù)均為可選參數(shù)。 MsgBox “窗口將垂直并排排列顯示” MsgBox “窗口將水平排列顯示” MsgBox “窗口將層疊顯示” MsgBox “窗口將平鋪顯示”示例0216：排列窗口(Arrange方法)Sub testArrangeWindows() NextEnd Sub示例說明：SelectedSheets屬性返回代表指定窗口中的所有選定工作表的集合。 amp。 For Each sh In (1).SelectedSheets示例0215：返回指定窗口中所選擇的工作表(SelectedSheets屬性)Sub testSelectedSheet() MsgBox End Sub示例說明：本示例返回當(dāng)前窗口中所選單元格區(qū)域的地址。示例0214：獲取指定窗口單元格區(qū)域地址(RangeSelection屬性)Sub testRangeSelection() MsgBox 您可以使用本窗口了!End Sub示例說明：本示例包括兩個程序，主程序為testRunProcedure()，運行后，每當(dāng)激活該窗口時，將會運行test()程序。示例0213：設(shè)置激活窗口時運行的程序(OnWindow屬性)Sub testRunProcedure() = End Sub示例說明：TabRatio屬性返回或設(shè)置工作簿中工作表標(biāo)簽區(qū)域的寬度與窗口水平滾動條的寬度比例(可為0到1之間的數(shù)字；）。 窗口(Window對象)基本操作應(yīng)用示例(二)分類:ExcelVBAExcelVBA編程入門范例示例0212：設(shè)置工作表標(biāo)簽區(qū)域?qū)挾群退綕L動條寬度比例(TabRatio屬性)Sub test()其中，GridlineColorIndex屬性可以用于返回或設(shè)置網(wǎng)格線的顏色，下面給出了默認(rèn)調(diào)色板中顏色的編號值：[小結(jié)]ActiveWindow屬性返回當(dāng)前激活的工作簿窗口，可以用來設(shè)置工作表中的元素，也可以顯示特定的單元格，或者用來調(diào)整窗口的顯示比例，以及設(shè)置窗口。 MsgBox “恢復(fù)為原來的網(wǎng)格線顏色” MsgBox 將活動窗口的網(wǎng)格線顏色設(shè)為藍(lán)色 MsgBox 將活動窗口的網(wǎng)格線顏色設(shè)為紅色 Dim iColor As Long將該屬性的值設(shè)置為False，將取消凍結(jié)窗格。 MsgBox “凍結(jié)窗格”也可以設(shè)置SplitColumn屬性和SplitRow屬性的值來取消窗格拆分。 = 0End Sub示例說明：本示例演示了以活動單元格為基準(zhǔn)拆分窗格。 MsgBox 恢復(fù)原來的窗口狀態(tài) .SplitRow = iRow With ActiveWindow iRow = Dim iRow As Long, iColumn As Long MsgBox 恢復(fù)原來的窗口狀態(tài) .SplitRow = iRow With ActiveWindow iRow = Dim iRow As Long, iColumn As Long該屬性設(shè)置為True，則能調(diào)整窗口大小。 MsgBox “設(shè)置窗口大小不可調(diào)整”可以通過設(shè)置這兩個屬性來移動窗口到指定的位置，也可以返回指定窗格或窗口最左上面的行號或列號。 = 10示例0207：移動窗口到指定位置(ScrollRow屬性和ScrollColumn屬性)Sub testScroll() End Sub示例說明：本程序運行后，顯示當(dāng)前活動工作簿窗口原先的名稱(即工作簿窗口未處于最大化狀態(tài)時，出現(xiàn)在窗口頂部標(biāo)題欄中的文字)，然后設(shè)置當(dāng)前活動工作簿窗口名稱，(1).Caption = 我的工作簿，最后顯示當(dāng)前活動工作簿窗口的新名稱。 (1).Caption = 我的工作簿 MsgBox 當(dāng)前活動工作簿窗口的名字是: amp。將該屬性設(shè)置為True，重新顯示工作表標(biāo)簽。 MsgBox “隱藏工作表標(biāo)簽”若要顯示數(shù)值，則將該屬性設(shè)置為False，或者，如果工作表中的公式顯示的是結(jié)果數(shù)值，則該屬性為False。 MsgBox “顯示工作表中包含公式的單元格中的公式”您也可以將該屬性設(shè)置為False，以取消水平和垂直滾動條顯示，= False；而將該屬性設(shè)置為True，則顯示水平和垂直滾動條。 = Not ()End Sub示例說明：本示例切換是否顯示工作表中的水平和垂直滾動條。[示例020304]Sub DisplayScrollBar()您也可以將該屬性設(shè)置為False，以取消水平滾動條， = False；而將該屬性設(shè)置為True，則顯示水平滾動條。 Not End Sub示例說明：本示例切換是否顯示工作表中的水平滾動條。 _ MsgBox “切換顯示/隱藏水平滾動條”您也可以將該屬性設(shè)置為False，以取消網(wǎng)格線顯示， = False；而將該屬性設(shè)置為True，則顯示網(wǎng)格線。 = Not End Sub示例說明：本示例切換是否顯示工作表中的網(wǎng)格線。[示例020302]Sub testDisplayGridline()運行后，工作表中的行標(biāo)號和列標(biāo)號將消失；再次運行后，行列標(biāo)號重新出現(xiàn)，如此反復(fù)。 MsgBox “切換顯示/隱藏行列標(biāo)號”在運行程序時，您可以將VBE窗口縮小，從而在工作簿中查看動態(tài)效果，也可以在Excel中選擇菜單中的宏命令執(zhí)行以查看效果。 .WindowState = xlMaximized .Width = x Next x For x = 50 To .Height = 50 .Top = 1 With ActiveWindow[示例020203]Sub SheetGradualGrow()當(dāng)前活動窗口一般代表當(dāng)前活動工作簿窗口，讀者可以在VBE編輯器中按F8鍵逐語句運行testWindow()程序，觀察Excel應(yīng)用程序及工作簿窗口的不同狀態(tài)。 End Select Case xlMinimized: MsgBox 當(dāng)前活動工作簿窗口已最小化 Select Case Case xlMinimized: MsgBox 應(yīng)用程序窗口已最小化 Select Case = xlMinimized Call testWindowState MsgBox 當(dāng)前活動工作簿窗口將恢復(fù)正常 = xlMaximized Call testWindowState MsgBox 當(dāng)前活動工作簿窗口將最小化 39。 = xlNormal Call testWindowState MsgBox 應(yīng)用程序窗口將最大化 39。可以使用Windows(index)來返回單個的Window對象，其中的index為窗口的名稱或編號，活動窗口總是Windows(1)。 Windows(1).WindowState = xlMaximizedEnd Sub示例說明：使用WindowState屬性可以返回或者設(shè)置窗口的狀態(tài)。 Windows(1).WindowState = xlNormal Windows(1).WindowState = xlMinimized Next iEnd Sub示例0202：窗口狀態(tài)(WindowState屬性)[示例020201]Sub WindowStateTest() 個窗口，還要繼續(xù)嗎？, vbYesNo) bWin = MsgBox(您激活了第 amp。 For i = 1 To iWin MsgBox “您已打開的窗口數(shù)量為：” amp。 MsgBox 依次切換已打開的窗口示例0201：激活窗口(Activate方法)Sub SelectWindow()Window對象是Windows集合中的成員，對于Application對象來說，Windows集合包含該應(yīng)用程序中的所有窗口；對于Workbook對象來說，Windows集合只包含指定工作簿中的窗口。=============================(by fanjy)第二章 MsgBox Excel將會關(guān)閉SendKeys方法的作用是摸擬鍵盤輸入，如例中的“%fx”表示在Excel中同時按下Alt、F和X三個鍵。示例0128：退出Excel(SendKeys方法)Sub SendKeysSample() (xlDialogOpen).ShowEnd Sub示例說明：本示例顯示Excel的“打開”文件對話框。 scroll:=TrueEnd Sub示例說明：本示例運行后，將當(dāng)前單元格移至工作表Sheet1中的單元格A154。示例0126：快速移至指定位置(Goto方法)Sub GotoSample()MsgBox 路徑分隔符為 amp。其中，Intersect方法返回一個Range對象，代表兩個或多個范圍重疊的矩形區(qū)域。 MsgBox 沒有交叉區(qū)域 Set rSect = (Range(rg1), Range(rg2)) Dim rSect As Range一般，使用WorksheetFunction屬性引用工作表函數(shù)，但如果VBA自帶有實現(xiàn)相同功能的函數(shù)，則直接使用該函數(shù)，否則會出現(xiàn)錯誤。 answer = (myRange) Dim myRange As Range, answer在例子中，使用了Volatile方法，強(qiáng)制函數(shù)進(jìn)行重新計算，即無論何時重新計算工作表，該函數(shù)都會重新計算。 True 39。其中，CalculationVersion屬性返回工作簿的版本信息。 [示例01212]Sub CalculateFullSample()示例0121：重新計算工作簿[示例01211]Sub CalculateAllWorkbook() MsgBox 恢復(fù)原來的按鍵狀態(tài) MsgBox 按下Ctrl+D后將執(zhí)行程序「testFullScreen」 Call testFullScreenEnd Sub示例說明：運行本程序后，按下彈出的提示框中的“確定”按鈕，等待5秒后執(zhí)行另一程序testFullScreen。 SetTime = DateAdd(s, 5, Now()) Dim SetTime As Date Now + TimeValue(00:00:10), testFullScreenEnd Sub示例說明：運行本程序后，在10秒后將執(zhí)行程序testFullScreen。 DrawLineEnd Sub示例0118：在指定的時間執(zhí)行宏(OnTime方法)Sub AfterTimetoRun() MsgBox 本程序先選擇A1至C6單元格區(qū)域后執(zhí)行DrawLine宏 Index:=0End Sub示例說明：運行本程序后，將調(diào)用Windows的計算器。 MsgBox 將工作表Sheet1的左頁邊距設(shè)為5厘米 vInput amp。 vInput = InputBox(請輸入用戶名:, 獲取用戶名, )示例0114：使用InputBox方法Sub SampleInputBox()示例0113：改變Excel工作簿名字(Caption屬性)Sub SetCaption() D:\ExcelSample\SampleEnd Sub示例說明：運行本程序后。示例0112：保存Excel的工作環(huán)境Sub 保存Excel的工作環(huán)境() End WithEnd Sub示例說明：本示例顯示“打開文件”對話框，當(dāng)用戶在其中選擇一個或多個文件后，將依次顯示每個文件的路徑。 MsgBox .SelectedItems(lngCount)顯示所選的每個文件的路徑 .Show With (msoFileDialogOpen) 39。示例0111：文件對話框操作(FileDialog屬性)Sub UseFileDialogOpen()如果成功打開一個新文件，則該值為True。 End IfEnd Sub示例說明：本示例將顯示“打開”文件對話框，若用戶未打開文件(即點擊“取消”按鈕)，則會顯示“打開失敗”信息框。 If Not Then On Error Resume Next (3).Name MsgBox 顯示最近使用過的第三個文件名,并打開該文件 Chr(10) amp。 = FalseEnd Sub示例0108：Excel啟動的文件夾路徑Sub ExcelStartfolde