Chapter-08 視窗

第八章　視窗
08-01　建立視窗的複本

應用範例
Sub 建立視窗的副本()
MsgBox “以使用中視窗為來源建立一個新的視窗副本”
ActiveWindow.NewWindow
End Sub

08-02　選取視窗

應用範例
Sub 選取視窗()
MsgBox “依序切換已開啟的視窗”
wsuu = Windows.Count
For i = 1 To wsuu
Windows(i).Activate
henji = MsgBox(“第 ” & i & “個視窗，還要繼續嗎？”, vbYesNo)
If henji = vbNo Then Exit Sub
Next i
End Sub

08-03　關閉視窗

應用範例
Sub 關閉視窗()
MsgBox “關閉使用中的視窗”
ActiveWindow.Close
End Sub

08-04　顯示視窗的標題

應用範例
Sub 顯示視窗的標題()
MsgBox “顯示使用中視窗的標題”
MsgBox ActiveWindow.Caption
End Sub
08-05　取得視窗的數量

應用範例
Sub 取得視窗的數量()
MsgBox “顯示目前已開啟的視窗數量”
MsgBox Windows.Count
End Sub

08-06　分割視窗與解除分割視窗

應用範例
Sub 分割視窗()
MsgBox “以使用中儲存格為基準點來分割視窗”
gyou = ActiveCell.Row
retu = ActiveCell.Column
With ActiveWindow
.SplitColumn = retu
.SplitRow = gyou
End With
MsgBox “回復原來的狀態”
ActiveWindow.Split = False
End Sub

08-07　凍結窗格

應用範例1
Sub 凍解窗格()
MsgBox “以使用中的儲存格為基準將窗格凍結”
ActiveWindow.FreezePanes = True
End Sub

應用範例2
Sub 取消凍結窗格()
MsgBox “取消凍結的窗格”
ActiveWindow.FreezePanes = False
End Sub

08-08　移動視窗的位置

應用範例
Sub 設定視窗的位置()
MsgBox “將使用中視窗向下移動60點、向右移動90點”
jyoutan = ActiveWindow.Top
satan = ActiveWindow.Left
ActiveWindow.Top = jyoutan + 60
ActiveWindow.Left = satan + 90
MsgBox “回復原來的狀態”
ActiveWindow.Top = jyoutan
ActiveWindow.Left = satan
End Sub

08-09　變更視窗的高度及寬度

應用範例
Sub 變更視窗的高度及寬度()
MsgBox “將使用中視窗的高度及寬度各縮減一半”
takasa = ActiveWindow.Height
haba = ActiveWindow.Width
ActiveWindow.Height = takasa / 2
ActiveWindow.Width = haba / 2
MsgBox “回復原來的狀態”
ActiveWindow.Height = takasa
ActiveWindow.Width = haba
End Sub

08-10　鎖定視窗的尺寸

應用範例
Sub 視窗尺寸的變更()
MsgBox “鎖定/解除視窗尺寸變更的功能”
ActiveWindow.EnableResize = Not (ActiveWindow.EnableResize)
End Sub

08-11　變更視窗格線的顏色

應用範例
Sub 設定視窗的格線顏色()
MsgBox “將視窗的格線顏色變更為紅色”
iro = ActiveWindow.GridlineColor
ActiveWindow.GridlineColor = RGB(255,0,0)
MsgBox “回復原來的狀態”
ActiveWindow.GridlineColor = iro
End Sub

08-12　重排視窗

應用範例1
Sub 重排視窗()
MsgBox "將目前所有開啟的視窗以階梯式並排的方式來排列"
Windows.Arrange arrangestyle:=xlArrangeStyleCascade
End Sub

應用範例2
Sub 重排視窗()
MsgBox "將目前所有開啟的視窗以磚塊式並排的方式來排列"
MsgBox "目前開啟的視窗數量：" & Windows.Count
Application.Windows.Arrange arrangestyle:=xlArrangeStyleTiled
End Sub

08-13　視窗的最大化及最小化

應用範例
Sub 設定視窗的狀態()
MsgBox “將使用中視窗變為最小化”
Windows(1).WindowState = xlMinimized
MsgBox “將使用中視窗變為最大化”
Windows(1).WindowState = xlMaximized
End Sub

08-14　隱藏最大化及最小化的按鈕

應用範例
Sub 隱藏最大化及最小化的按鈕()
MsgBox “隱藏視窗中最大化及最小化的按鈕”
ActiveWindow.EnableResize = Not (ActiveWindow.EnableResize)
MsgBox “回復原來的狀態”
ActiveWindow.EnableResize = True
End Sub

08-15　將最上層的視窗移到最下層

應用範例
Sub 將視窗移到最下層()
MsgBox “將使用中的視窗移到最下層”
ActiveWindow.ActivateNext
End Sub

08-16　將最下層的視窗移到最上層

應用範例
Sub 將視窗移到最上層()
MsgBox “將最下層的視窗移到最上層”
ActiveWindow.ActivatePrevious
End Sub

08-17　顯示儲存格內的運算式

應用範例
Sub 顯示運算式()
MsgBox “在使用中視窗內，讓有運算式的儲存格顯示運算式”
ActiveWindow.DisplayFormulas = True
MsgBox “回復原來的狀態”
ActiveWindow.DisplayFormulas = False
End Sub

08-18　顯示或隱藏零值

應用範例
Sub 顯示或隱藏零值()
MsgBox “顯示/隱藏使用中視窗內的零值”
ActiveWindow.DisplayZeros = Not (ActiveWindow.DisplayZeros)
End Sub

08-19　顯示及隱藏格線

應用範例
Sub 顯示或隱藏格線()
MsgBox “顯示/隱藏使用中視窗的格線”
ActiveWindow.DisplayGridlines = Not (ActiveWindow.DisplayGridlines)
End Sub

08-20　以列或行為單位捲動視窗內容

應用範例1
Sub 列的捲動()
MsgBox “將視窗畫面向下捲動五列”
gyou = 5
ActiveWindow.SmallScroll Down:=gyou
End Sub

應用範例2
Sub 行的捲動()
MsgBox “將視窗畫面向右捲動兩行”
retu = 2
ActiveWindow.SmallScroll ToRight:=retu
End Sub

08-21　以頁為單位捲動視窗內容

應用範例
Sub 頁的捲動()
MsgBox “將視窗畫面向下捲動一頁”
pge = 1
ActiveWindow.LargeScroll Down:=pge
End Sub

08-22　顯示、隱藏水平捲軸及垂直捲軸

應用範例1
Sub 隱藏視窗的捲軸()
MsgBox “隱藏/顯示使用中視窗的捲軸”
ActiveWindow.DisplayHorizontalScrollBar = Not (ActiveWindow.DisplayHorizontalScrollBar)
ActiveWindow.DisplayVerticalScrollBar = Not (ActiveWindow.DisplayVerticalScrollBar)
End Sub

應用範例2
Sub 隱藏活頁簿的捲軸()
MsgBox “隱藏/顯示活頁簿的水平及垂直捲軸”
Application.DisplayScrollBars = Not (Application.DisplayScrollBars)
End Sub

08-23　以指定的儲存格捲動到視窗左上角

應用範例
Sub 以視窗左上角為基準的視窗畫面捲動()
MsgBox “將儲存格C6捲動到視窗的左上角”
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollColumn = 3
End Sub