Microsoft Excel VBA - アクティブ・ウィンドウ以外のウィンドウを閉じる方法

◆概要

このページは、Excel VBAでアクティブ・ウィンドウ以外のウィンドウを閉じる方法について記載しています。


複数のウィンドウを開いているとき、アクティブなウィンドウ以外を閉じるには次のようにします。 このマクロを実行する前に、ブックを保存しておくことが必要です。

◆Sample code

Sub WindowClose()
'アクティブ・ウィンドウ以外のウィンドウを閉じる

       Dim myWDNum As Integer
       Dim i As Integer

       'ブックに対して開かれたウィンドウの数を取得
       myWDNum = Workbooks("Book1.xls").Windows.Count
       If myWDNum < 2 Then Exit Sub

       'アクティブ・ウィンドウ以外のウィンドウを閉じる
       For i = myWDNum To 2 Step -1
               'アクティブウィンドウのインデックスは必ず「1」になる
               'つまり、Windows(1)は常にアクティブ・ウィンドウ
               Workbooks("Book1.xls").Windows(i).Close
       Next i

End Sub
  



▼ページトップへ