窗口Window對象基本操作應(yīng)用示例

-.zWindow對象代表一個窗口，約有48個屬性和14個方法，能對窗口特性進展設(shè)置和操作。Window對象是Windows集合中的成員，對于Application對象來說，Windows集合包含該應(yīng)用程序中的所有窗口；對于Workbook對象來說，Windows集合只包含指定工作簿中的窗口。下面介紹一些例如，以演示和說明Window對象及其屬性和方法的運用。例如02-01：激活窗口(Activate方法)SubSelectWindow()

DimiWinAsLong,iAsLong,bWin

MsgBo*"依次切換已翻開的窗口"

iWin=Windows.Count

MsgBo*“您已翻開的窗口數(shù)量為：〞&iWin

Fori=1ToiWin

Windows(i).Activate

bWin=MsgBo*("您激活了第"&i&"個窗口，還要繼續(xù)嗎.",vbYesNo)

IfbWin=vbNoThenE*itSub

Ne*ti

EndSub例如02-02：窗口狀態(tài)(WindowState屬性)[例如02-02-01]

SubWindowStateTest()

MsgBo*"當前活開工作簿窗口將最小化"

Windows(1).WindowState=*lMinimized

MsgBo*"當前活開工作簿窗口將恢復(fù)正常"

Windows(1).WindowState=*lNormal

MsgBo*"當前活開工作簿窗口將最大化"

Windows(1).WindowState=*lMa*imized

EndSub例如說明：使用WindowState屬性可以返回或者設(shè)置窗口的狀態(tài)。例如中，常量*lMinimized、*lNormal和*lMa*imized分別代表窗口不同狀態(tài)值，Windows(1)表示當前活動窗口?？梢允褂肳indows(inde*)來返回單個的Window對象，其中的inde*為窗口的名稱或編號，活動窗口總是Windows(1)。

[例如02-02-02]

SubtestWindow()

'測試E*cel應(yīng)用程序窗口狀態(tài)

MsgBo*"應(yīng)用程序窗口將最大化"

Application.WindowState=*lMa*imized

CalltestWindowState

MsgBo*"應(yīng)用程序窗口將恢復(fù)正常"

Application.WindowState=*lNormal

MsgBo*"應(yīng)用程序窗口已恢復(fù)正常"

'測試活開工作簿窗口狀態(tài)

MsgBo*"當前活開工作簿窗口將最小化"

ActiveWindow.WindowState=*lMinimized

CalltestWindowState

MsgBo*"當前活開工作簿窗口將最大化"

ActiveWindow.WindowState=*lMa*imized

CalltestWindowState

MsgBo*"當前活開工作簿窗口將恢復(fù)正常"

ActiveWindow.WindowState=*lNormal

CalltestWindowState

MsgBo*"應(yīng)用程序窗口將最小化"

Application.WindowState=*lMinimized

CalltestWindowState

EndSub‘*********************************************************

SubtestWindowState()

SelectCaseApplication.WindowState

Case*lMa*imized:MsgBo*"應(yīng)用程序窗口已最大化"

Case*lMinimized:MsgBo*"應(yīng)用程序窗口已最小化"

Case*lNormal:

SelectCaseActiveWindow.WindowState

Case*lMa*imized:MsgBo*"當前活開工作簿窗口已最大化"

Case*lMinimized:MsgBo*"當前活開工作簿窗口已最小化"

Case*lNormal:MsgBo*"當前活開工作簿窗口已恢復(fù)正常"

EndSelect

EndSelect

EndSub例如說明：本例如有兩個程序，其中testWindow()是主程序，調(diào)用子程序te*tWindowState()，演示了應(yīng)用程序窗口和工作簿窗口的不同狀態(tài)。當前活動窗口一般代表當前活開工作簿窗口，讀者可以在VBE編輯器中按F8鍵逐語句運行testWindow()程序，觀察E*cel應(yīng)用程序及工作簿窗口的不同狀態(tài)。此外，在子程序中，還運用了嵌套的SelectCase構(gòu)造。

[例如02-02-03]

SubSheetGradualGrow()

Dim*AsInteger

WithActiveWindow

.WindowState=*lNormal

.Top=1

.Left=1

.Height=50

.Width=50

For*=50ToApplication.UsableHeight

.Height=*

Ne*t*

For*=50ToApplication.UsableWidth

.Width=*

Ne*t*

.WindowState=*lMa*imized

EndWith

EndSub例如說明：本例如將動態(tài)演示工作簿窗口由小到大直至最大化的變化過程。在運行程序時，您可以將VBE窗口縮小，從而在工作簿中查看動態(tài)效果，也可以在E*cel中選擇菜單中的宏命令執(zhí)行以查看效果。例如02-03：切換顯示工作表元素[例如02-03-01]

SubtestDisplayHeading()

MsgBo*“切換顯示/隱藏行列標號〞

ActiveWindow.DisplayHeadings=NotActiveWindow.DisplayHeadings

EndSub例如說明：本例如切換是否顯示工作表中的行列標號。運行后，工作表中的行標號和列標號將消失；再次運行后，行列標號重新出現(xiàn)，如此反復(fù)。您也可以將該屬性設(shè)置為False，以取消行列標號的顯示，如ActiveWindow.DisplayHeadings=False；而將該屬性設(shè)置為True，則顯示行列標號。

[例如02-03-02]

SubtestDisplayGridline()

MsgBo*“切換顯示/隱藏網(wǎng)格線〞

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

[例如02-03-03]

SubDisplayHorizontalScrollBar()

MsgBo*“切換顯示/隱藏水平滾動條〞

ActiveWindow.DisplayHorizontalScrollBar=

_

NotActiveWindow.DisplayHorizontalScrollBar

EndSub例如說明：本例如切換是否顯示工作表中的水平滾動條。運行后，工作表中的水平滾動條消失，再次運行后，水平滾動條重新出現(xiàn)，如此反復(fù)。您也可以將該屬性設(shè)置為False，以取消水平滾動條，如ActiveWindow.DisplayHorizontalScrollBar=False；而將該屬性設(shè)置為True，則顯示水平滾動條。同理，DisplayVerticalScrollBar屬性將用來設(shè)置垂直滾動條。

[例如02-03-04]

SubDisplayScrollBar()

MsgBo*"切換顯示/隱藏水平和垂直滾動條"

Application.DisplayScrollBars=Not(Application.DisplayScrollBars)

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

MsgBo*“顯示工作表中包含公式的單元格中的公式〞

ActiveWindow.DisplayFormulas=True

EndSub例如說明：本程序運行后，工作表中含有公式的單元格將顯示公式而不是數(shù)值。假設(shè)要顯示數(shù)值，則將該屬性設(shè)置為False，或者，如果工作表中的公式顯示的是結(jié)果數(shù)值，則該屬性為False。例如02-05：顯示/隱藏工作表標簽(DisplayWorkbookTabs屬性)SubtestDisplayWorkbookTab()

MsgBo*“隱藏工作表標簽〞

ActiveWindow.DisplayWorkbookTabs=False

EndSub例如說明：本程序運行后，工作表標簽消失。將該屬性設(shè)置為True，重新顯示工作表標簽。例如02-06：命名活動窗口(Caption屬性)SubtestCaption()

MsgBo*"當前活開工作簿窗口的名字是:"&ActiveWindow.Caption

ActiveWorkbook.Windows(1).Caption="我的工作簿"

MsgBo*"當前活開工作簿窗口的名字是:"&ActiveWindow.Caption

EndSub例如說明：本程序運行后，顯示當前活開工作簿窗口原先的名稱(即工作簿窗口未處于最大化狀態(tài)時，出現(xiàn)在窗口頂部標題欄中的文字)，然后設(shè)置當前活開工作簿窗口名稱，即使用語句ActiveWorkbook.Windows(1).Caption="我的工作簿"，最后顯示當前活開工作簿窗口的新名稱。改變窗口的標題并不會改變工作簿的名稱。例如02-07：移動窗口到指定位置(ScrollRow屬性和ScrollColumn屬性)SubtestScroll()

MsgBo*“將當前窗口工作表左上角單元格移至第10行第3列〞

ActiveWindow.ScrollRow=10

ActiveWindow.ScrollColumn=3

EndSub例如說明：本程序運行后，當前活動窗口左上角單元格為第10行第3列?？梢酝ㄟ^設(shè)置這兩個屬性來移動窗口到指定的位置，也可以返回指定窗格或窗口最左上面的行號或列號。[Ne*tPage]

例如02-08：調(diào)整窗口(EnableResize屬性)SubtestResize()

MsgBo*“設(shè)置窗口大小不可調(diào)整〞

ActiveWindow.EnableResize=False

EndSub例如說明：測試本程序前，將當前工作簿窗口恢復(fù)為正常狀態(tài)(即讓工作簿標題可見)，運行程序后，當前工作簿窗口將不能調(diào)整其大小，右上角的最小化最大化按鈕將消失(即隱藏最大化和最小化按鈕)。該屬性設(shè)置為True，則能調(diào)整窗口大小。例如02-09：拆分窗格[例如02-09-01]

SubSplitWindow1()

DimiRowAsLong,iColumnAsLong

MsgBo*"以活動單元格為基準拆分窗格"

iRow=ActiveCell.Row

iColumn=ActiveCell.Column

WithActiveWindow

.SplitColumn=iColumn

.SplitRow=iRow

EndWith

MsgBo*"恢復(fù)原來的窗口狀態(tài)"

ActiveWindow.Split=False

EndSub

[例如02-09-02]

SubSplitWindow()

DimiRowAsLong,iColumnAsLong

MsgBo*"以活動單元格為基準拆分窗格"

iRow=ActiveCell.Row

iColumn=ActiveCell.Column

WithActiveWindow

.SplitColumn=iColumn

.SplitRow=iRow

EndWith

MsgBo*"恢復(fù)原來的窗口狀態(tài)"

ActiveWindow.SplitColumn=0

ActiveWindow.SplitRow=0

EndSub例如說明：本例如演示了以活動單元格為基準拆分窗格。如果指定窗口被拆分，則Split屬性的值為True；設(shè)置該屬性的值為False則取消窗格拆分。也可以設(shè)置SplitColumn屬性和SplitRow屬性的值來取消窗格拆分。例如02-10：凍結(jié)窗格(FreezePanes屬性)SubtestFreezePane()

MsgBo*“凍結(jié)窗格〞

ActiveWindow.FreezePanes=True

EndSub例如說明：運行本程序后，將會凍結(jié)活動單元格所在位置上方和左側(cè)的單元格區(qū)域。將該屬性的值設(shè)置為False，將取消凍結(jié)窗格。例如02-11：設(shè)置網(wǎng)格線顏色(GridlineColor屬性和GridlineColorInde*屬性)SubsetGridlineColor()

DimiColorAsLong

iColor=ActiveWindow.GridlineColor

MsgBo*"將活動窗口的網(wǎng)格線顏色設(shè)為紅色"

ActiveWindow.GridlineColor=RGB(255,0,0)

MsgBo*"將活動窗口的網(wǎng)格線顏色設(shè)為藍色"

ActiveWindow.GridlineColorInde*=5

MsgBo*“恢復(fù)為原來的網(wǎng)格線顏色〞

ActiveWindow.GridlineColorInde*=iColor

EndSub例如說明：運行程序后，當前工作表窗口網(wǎng)格線將被設(shè)置為紅色。其中，GridlineColorInde*屬性可以用于返回或設(shè)置網(wǎng)格線的顏色，下面給出了默認調(diào)色板中顏色的編號值：

[小結(jié)]ActiveWindow屬性返回當前激活的工作簿窗口，可以用來設(shè)置工作表中的元素，也可以顯示特定的單元格，或者用來調(diào)整窗口的顯示比例，以及設(shè)置窗口。例如02-12：設(shè)置工作表標簽區(qū)域?qū)挾群退綕L動條寬度比例(TabRatio屬性)Subtest()

MsgBo*"設(shè)置工作表標簽區(qū)域?qū)挾葹樗綕L動條寬度的一半"

ActiveWindow.TabRatio=0.5

EndSub例如說明：TabRatio屬性返回或設(shè)置工作簿中工作表標簽區(qū)域的寬度與窗口水平滾動條的寬度比例(可為0到1之間的數(shù)字；默認值為0.6〕。您可以改變上面程序中的數(shù)值進展測試。例如02-13：設(shè)置激活窗口時運行的程序(OnWindow屬性)SubtestRunProcedure()

ThisWorkbook.Windows(1).OnWindow="test"

EndSub‘*********************************************************

Subtest()

MsgBo*"您可以使用本窗口了!"

EndSub例如說明：本例如包括兩個程序，主程序為testRunProcedure()，運行后，每當激活該窗口時，將會運行test()程序。其中，OnWindow屬性返回或設(shè)置每當激活一個窗口時要運行的過程的名稱，如本例中的test()程序。例如02-14：獲取指定窗口單元格區(qū)域地址(RangeSelection屬性)SubtestRangeSelection()

MsgBo*"顯示所選單元格地址

EndSub例如說明：本例如返回當前窗口中所選單元格區(qū)域的地址。RangeSelection屬性返回指定窗口的工作表中的選定單元格(即使指定工作表中有圖形對象處于活動狀態(tài)，或者已選定圖形對象，仍返回在圖形對象被選定之前選定的單元格區(qū)域，這是該屬性與Selection屬性的區(qū)別)。[Ne*tPage]

例如02-15：返回指定窗口中所選擇的工作表(SelectedSheets屬性)SubtestSelectedSheet()

DimshAsWorksheet

ForEachshInActiveWorkbook.Windows(1).SelectedSheets

MsgBo*"工作表"&sh.Name&"被選擇"

Ne*t

EndSub例如說明：SelectedSheets屬性返回代表指定窗口中的所有選定工作表的集合。本例如中，如果您同時選擇了活開工作簿中的工作表Sheet1和Sheet2，則運行程序后，將會顯示相應(yīng)工作表被選擇的信息。例如02-16：排列窗口(Arrange方法)SubtestArrangeWindows()

MsgBo*"請確保應(yīng)用程序至少含有兩個工作簿,這樣才能看出效果"

MsgBo*“窗口將平鋪顯示〞

Windows.ArrangeArrangeStyle:=*lArrangeStyleTiled

MsgBo*“窗口將層疊顯示〞

Windows.ArrangeArrangeStyle:=*lArrangeStyleCascade

MsgBo*“窗口將水平排列顯示〞

Windows.ArrangeArrangeStyle:=*lArrangeStyleHorizontal

MsgBo*“窗口將垂直并排排列顯示〞

Windows.ArrangeArrangeStyle:=*lArrangeStyleVertical

EndSub例如說明：運行本程序后，將平鋪應(yīng)用程序中的所有窗口。Arrange方法用于對屏幕上的窗口進展排列，其語法為e*pression.Arrange(ArrangeStyle,ActiveWorkbook,SyncHorizontal,SyncVertical)，所有的參數(shù)均為可選參數(shù)。其中，參數(shù)ArrangeStyle代表排列樣式，可為以下常量：常量*lArrangeStyleTiled為缺省值，表示將平鋪窗口；常量*lArrangeStyleCascade表示將窗口進展層疊；常量*lArrangeStyleHorizontal表示將水平排列所有窗口；常量*lArrangeStyleVertical表示將垂直并排排列所有窗口。您可以在上面的程序中測試這些常量，以體驗效果。將參數(shù)ActiveWorkbook設(shè)置為True，則只對當前工作簿的可見窗口進展排列。如果為False，則對所有窗口進展排列。默認值為False。設(shè)置參數(shù)SyncHorizontal為True，在水平滾動時同步滾動當前工作簿的所有窗口；如果為False，則不同步滾動。設(shè)置參數(shù)SyncVertical為True，則在垂直滾動時同步滾動當前工作簿的所有窗口；如果為False，則不同步滾動，默認值為False。如果參數(shù)ActiveWorkbook為False或者省略，則參數(shù)SyncHorizontal和SyncVertical被忽略。例如02-17：窗口尺寸(UsableHeight、UsableWidth、Height、Width屬性)SubtestActiveWindowSize()

MsgBo*"當前窗口可用區(qū)域的高度為:"&ActiveWindow.UsableHeight

MsgBo*"當前窗口的高度為:"&ActiveWindow.Height

MsgBo*"當前窗口可用區(qū)域的寬度為:"&ActiveWindow.UsableWidth

MsgBo*"當前窗口的寬度為:"&ActiveWindow.Width

EndSub例如02-18：水平排列兩個窗口SubtestWindowArrange()

DimahAsLong,awAsLong

Windows.Arrange*lArrangeStyleTiled

ah=Windows(1).Height

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

WithWindows(1)

.Width=aw

.Height=ah/2

.Left=0

EndWith

WithWindows(2)

.Width=aw

.Height=ah/2

.Top=ah/2

.Left=0

EndWith

EndSub例如說明：在運行本例如前，保證只翻開了兩個工作簿窗口。運行本例如后，將水平排列第一個窗口和第二個窗口，即每個窗口占用可使用的垂直空間的一半，占用所有水平空間。其中，Top屬性表示從窗口頂端到可用區(qū)域頂端的距離，無法對最大化的窗口設(shè)置本屬性；Left屬性表示使用區(qū)域的左邊界至窗口左邊界的距離，如果窗口已最大化，則會返回一個負數(shù)；如果該屬性被設(shè)置為0，則窗口的主邊框剛好在屏幕上可見。例如02-19：改變窗口的高度和寬度SubChangeHeightAndWidth()

DimiWinHeightAsLong,iWinWidthAsLong

ActiveWindow.WindowState=*lNormal

MsgBo*"將當前窗口的高度和寬度各減一半"

iWinHeight=ActiveWindow.Height

iWinWidth=ActiveWindow.Width

ActiveWindow.Height=iWinHeight/2

ActiveWindow.Width=iWinWidth/2

MsgBo*"恢復(fù)原窗口大小"

ActiveWindow.Height=iWinHeight

ActiveWindow.Width=iWinWidth

EndSub例如說明：Height屬性和Width屬性必須在窗口處于正常顯示狀態(tài)(即不是最大化或最小化狀態(tài))時使用，否則會出錯。例如02-20：移動窗口SubSetWindowPosition()

DimiTopAsLong,iLeftAsLong

MsgBo*"將當前窗口向下移60,向右移90"

ActiveWindow.WindowState=*lNormal

iTop=ActiveWindow.Top

iLeft=ActiveWindow.Left

ActiveWindow.Top=iTop+60

ActiveWindow.Left=iLeft+90

MsgBo*"恢復(fù)原來窗口的位置"

ActiveWindow.Top=iTop

ActiveWindow.Left=iLeft

EndSub例如說明：Top屬性和Left屬性必須在窗口處于正常顯示狀態(tài)(即不是最大化或最小化狀態(tài))時使用，否則會出錯。例如02-21：并排比較窗口Subtestpare()

MsgBo*"與工作簿Book2進展并排比較"

Windows.pareSideBySideWith"Book2"

MsgBo*"啟動窗口滾動功能,使兩個窗口同時滾動"

Windows.SyncScrollingSideBySide=True

MsgBo*"將工作簿Book2最小化"

Windows("Book2").WindowState=*lMinimized

MsgBo*"重置并排比較顯示,恢復(fù)并排比較"

Windows.ResetPositionsSideBySide

MsgBo*"關(guān)閉并排比較

EndSub例如說明：在運行本例如前，確保在本窗口外還翻開了一個名為Book2的窗口，或者您翻開了一個其它命名的窗口，相應(yīng)將上面程序中的Book2更換為您的窗口名。pareSideBySideWith方法將以并排模式翻開兩個窗口，其中一個是當前活動窗口，另一個就是該方法所指定的窗口，如本例中的Book2。SyncScrollingSideBySide屬性設(shè)置是否將兩個窗口的滾動保持同步，如果為True，在對文檔進展并排比較的同時啟用窗口內(nèi)容的滾動功能。假設(shè)為False，則在對文檔進展并排比較的同時禁用窗口內(nèi)容的滾動功能。ResetPositionsSideBySide方法重置正在進展并排比較的兩個工作表窗口的位置，例如，如果用戶將正在進展比較的兩個工作表窗口中的其中一個窗框最小化或最大化，就可以使用ResetPositionsSideBySide方法重置顯示，以便這兩個窗口再次并排顯示。BreakSideBySide方法用來關(guān)閉并排比較。[Ne*tPage]

例如02-22：返回或設(shè)置窗口中顯示的視圖(View屬性)

SubtestView()

MsgBo*"將視圖切換為分頁預(yù)覽"

ActiveWindow.View=*lPageBreakPreview

MsgBo*"窗口視圖為:"&ActiveWindow.View

MsgBo*"將視圖恢復(fù)正常"

ActiveWindow.View=*lNormalView

MsgBo*"窗口視圖為:"&ActiveWindow.View

EndSub例如02-23：返回窗口中可見單元格區(qū)域(VisibleRange屬性)

SubtestVisibleRange()

MsgBo*"當前窗口中共有"&Windows(1).VisibleRange.Cells.Count&"個單元格可見"

EndSub例如說明：如果窗口中有局部行列的單元格可見，也包括在可見單元格區(qū)域中。例如02-24：創(chuàng)立窗口(NewWindow方法)SubtestNewWindow()

MsgBo*"為活動窗口創(chuàng)立一個副本"

ActiveWindow.NewWindow

MsgBo*"所創(chuàng)立窗口的窗口號為"&ActiveWindow.WindowNumber

EndSub例如說明：本例如中，NewWindow方法為指定窗口(本例中為當前活動窗口)創(chuàng)立一個副本，然后顯示該副本窗口的窗口號。注意，窗口號與窗口索引(Inde*屬性)的不同，例如名稱為“Book1.*ls:2〞的窗口，其窗口號為２，而窗口索引為該窗口在Windows集合中的位置，可以為窗口名稱或編號。例如02-25：設(shè)置窗口大小(Zoom屬性)

SubtestWindowDisplaySize()

MsgBo*"將窗口大小設(shè)置為與選定區(qū)域相適應(yīng)的大小"

ActiveWindow.Zoom=True

MsgBo*"以雙倍大小顯示窗口"

ActiveWindow.Zoom=200

MsgBo*"以正常大小顯示窗口"

ActiveWindow.Zoom=100

EndSub例如說明：Zoom屬性將以百分數(shù)的形式(100表示正常大小，200表示雙倍大小，以此類推)返回或設(shè)置窗口的顯示大小。如果本屬性為True，則可將窗口大小設(shè)置成與當前選定區(qū)域相適應(yīng)的大小。本功能僅對窗口中當前的活開工作表起作用，假設(shè)要對其他工作表使用本屬性，必須先激活該工作表。例如02-26：激活窗口(ActivateNe*t方法和ActivatePrevious方法)

[例如02-26-01]

SubtestActivateWindow1()

MsgBo*"假設(shè)已翻開Book1.*ls、Book2.*ls和Book3.*ls三個工作簿且Book1.*ls為當前窗口"&Chr(10)&"則按依次激活窗口"

ActiveWindow.ActivateNe*t

MsgBo*"激活工作簿:"&Windows(1).Caption

ActiveWindow.ActivateNe*t

MsgBo*"激活工作簿:"&Windows(1).Caption

ActiveWindow.ActivateNe*t

MsgBo*"激活工作簿:"&Windows(1).Caption

EndSub

[例如02-26-02]

SubtestActivateWindow2()

MsgBo*"假設(shè)已翻開Book1.*ls、Book2.*ls和Book3.*ls三個工作簿且Book1.*ls為當前窗口"&Chr(10)&"則按依次激活窗口"

ActiveWindow.ActivatePrevious

MsgBo*"激活工作簿:"&Windows(1).Caption

ActiveWindow.ActivatePrevious

MsgBo*"激活工作簿:"&Windows(1).Caption

ActiveWindow.ActivatePrevious

MsgBo*"激活工作簿:"&Window