EXCEL VBAChp08.docVIP

第章　“以使用中視窗為來源建立一個新的視窗副本” 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　分割視窗與解除分割視窗