Excel VBA ワークブックを選択（アクティブ）にする-Activate

Excel VBAでブックを選択（アクティブ）にするには「Workbook.Activate」メソッドを使います。

シートやセルをアクティブにする場合は、前もってブックをアクティブにしておくことも必要です。

< スポンサーリンク >

構文

式.Activate

ブックをアクティブにする例

ファイル名を指定してブックを選択（アクティブ）にする例

aaa.xlsxを選択（アクティブ）にします。

Sub BookActiveTest1()
    Workbooks(“aaa.xlsx”).Activate
End Sub

aaa.xlsxが開いていないとエラーになります
aaa.xlsxが開いているか判断して、開いている場合は選択（アクティブ）にします。

Sub BookActiveTest2()
　　‘変数の宣言
　　Dim wb As Workbook
　　Dim flag As Boolean
　　‘aaa.xlsxが開いているか
　　For Each wb In Workbooks
　　　　If wb.Name = “aaa.xlsx” Then flag = True
　　Next wb
　　‘aaa.xlsxが開いているときは選択（アクティブ）にする
　　If flag = True Then
　　　　Workbooks(“aaa.xlsx”).Activate
　　Else
　　　　MsgBox “aaa.xlsxは開いていません”
　　End If
End Sub

２番目に開いているブックを選択（アクティブ）にする例

複数のブックが開いていて、その中で２番目に開いているブックを選択（アクティブ）にします。

Sub BookActiveTest3()
    Workbooks(2).Activate
End Sub

２番目のブックを指定する場合は、２つ以上のブックが開いていないとエラーになります。
ブックが２つ以上開いているか判断して、開いている場合は、その中で２番目に開いているブックを選択（アクティブ）にする例です。

Sub BookActiveTest4()
　　If Workbooks.Count >= 2 Then
　　　　Workbooks(2).Activate
　　Else
　　　　MsgBox “ブックは２つ以上開いていません”
　　End If
End Sub

別のブックからアクティブになった時に操作する方法はこちら↓

ブックがアクティブではなくなった時に操作する方法はこちら↓

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします