ウィンドウをアクティブにする

Excel VBA を使って指定したウィンドウをアクティブにする方法を解説します。アクティブになったウィンドウと言うのは、一番前面に表示されているウィンドウのことです。一度にアクティブにできるウィンドウは1つだけです。

(Last modified: )

ウィンドウをアクティブにする

ウィンドウをアクティブにするには、アクティブにしたいWindowオブジェクトに対して「Activate」メソッドを使います。

Dim window1 As Window

Set window1 = Application.Windows("VBAsample.xls")
window1.Activate

サンプルプログラム

では簡単なサンプルで試してみましょう。3つのブックを開いておきます。

Windowオブジェクトの取得

この中から「2005年成績.xls」というウィンドウ名を持つWindowオブジェクトを取得し、アクティブな状態にしてみます。

Sub テスト()
    
    Dim window1 As Window
    
    Set window1 = Application.Windows("2005年成績.xls")
    window1.Activate
    
End Sub

上記マクロを実行すると次のようになります。

Windowオブジェクトの取得

-- --

Excel VBA を使って指定したウィンドウをアクティブにする方法を解説しました。

( Written by Tatsuo Ikura )

Profile
profile_img

著者 / TATSUO IKURA

プログラミングや開発環境構築の解説サイトを運営しています。