VBAで自動化 VBA一覧 シート操作 セル・シート・ブック操作

【VBA】シートを指定してアクティブにする方法｜ActivateとSelectの違い

ExcelVBAで複数のシートを扱うマクロを作るとき、
「特定のシートを開いてから処理したい」「別のシートに切り替えて操作したい」
といった場面は非常に多くあります。

たとえば、

  • 「設定」シートをアクティブにして値を取得する
  • 「集計」シートに移動して結果を書き込む
  • マクロ終了時に「メニュー」シートを開く

こうした操作を実現するのが、VBAのシート指定とアクティブ化（Activate）です。

この記事では、シートを指定してアクティブにするための基本構文から実務的な応用例、よくあるエラー回避までを、初心者にも分かりやすく徹底解説します。

✅ VBAでシートをアクティブにする基本構文

VBAでは、特定のシートをアクティブにする（＝開く）には、Activateメソッドを使います。
Excelの操作で「シートタブをクリックして切り替える」のと同じ動作です。

🔹 基本構文

Sheets("シート名").Activate

このコードで、指定したシートが前面に表示され、アクティブ状態になります。
「アクティブにする」とは、そのシートがユーザーの操作対象になることを意味します。

🔹 実行例

Sub ActivateSheet()
    Sheets("集計").Activate
End Sub

実行すると、ブック内の「集計」シートが開きます。
別のシートにいたとしても、自動で「集計」シートがアクティブになります。

参考：【VBA】シートをアクティブにしないとできないこと

✅ ActivateとSelectの違いを理解しよう

VBAにはシートを切り替える方法が2つあります：
Activate と Select。
見た目は似ていますが、厳密には意味と動作が異なります。

メソッド意味特徴
Activateそのシートをアクティブにする（前面に表示）最も一般的で安全
Selectそのシートを選択状態にする複数シートの選択にも対応

🔹 Selectを使う例

Sheets("売上").Select

このコードでも「売上」シートが表示されます。
ただし、Selectは複数のシートを同時に選択することもできる点が異なります。

💡どちらを使うべき？

  • 1枚だけアクティブにしたい → Activate
  • 複数シートを同時選択したい → Select
Sheets(Array("集計", "グラフ")).Select  ' 2枚同時に選択

ほとんどのケースでは Activate を使えばOKです。

参考：【VBA】指定したシートを開く方法｜Activate・Select・Visibleの違いと実務活用

✅ アクティブ化するシートを変数で指定する

実務ではシート名を固定せず、変数で指定してアクティブにするケースがよくあります。
これにより、ユーザー入力や処理結果に応じて柔軟に切り替えが可能になります。

🔹 コード例：変数で指定したシートをアクティブにする

Sub ActivateByVariable()
    Dim sheetName As String
    sheetName = "設定"
    Sheets(sheetName).Activate
End Sub

実行結果

変数sheetNameの内容に応じて、指定したシートが開きます。
たとえばユーザーがフォームで入力したシート名を反映させることも可能です。

🔹 コード例：InputBoxでユーザーに指定させる

Sub OpenUserSheet()
    Dim sheetName As String
    sheetName = InputBox("開きたいシート名を入力してください。")
    
    On Error Resume Next
    Sheets(sheetName).Activate
    If Err.Number <> 0 Then
        MsgBox "指定したシートは存在しません。"
    End If
End Sub

ポイント

  • ユーザーが自由にシート名を入力できる
  • 存在しない場合でもエラーで止まらないように安全設計
  • 実務で「任意のシートを選んで開くマクロ」を作るときに便利参考：【VBA】InputBoxの活用方法

✅ アクティブシート（ActiveSheet）を理解する

VBAでは、現在開かれているシートを「ActiveSheet」として参照できます。

🔹 現在のシート名を確認する

MsgBox ActiveSheet.Name

出力例：

「現在アクティブになっているシートの名前」が表示されます。

🔹 シートを操作して別のシートに戻す例

Sub SwitchSheetAndReturn()
    Dim originalSheet As Worksheet
    Set originalSheet = ActiveSheet
    
    Sheets("設定").Activate
    MsgBox "設定シートを開きました。"
    
    originalSheet.Activate
    MsgBox "元のシートに戻りました。"
End Sub

解説：

  1. 元のシートを一時的に記録（ActiveSheet）
  2. 指定したシートを開いて処理
  3. 最後に元のシートへ戻す

シートをまたいでデータを操作するマクロでは、処理完了後に元の画面へ戻す設計がよく使われます。

参考：VBA　処理後に特定のシートを表示



✅ 他ブックのシートを指定してアクティブにする

複数のExcelファイルを開いている場合、他ブック内のシートをアクティブにしたい場面もあります。

🔹 コード例：他ブック内のシートを開く

Sub ActivateOtherBookSheet()
    Workbooks("Report2025.xlsx").Sheets("集計").Activate
End Sub

注意点：

  • 対象ブック（Report2025.xlsx）が開いている必要があります。
  • 開いていない場合は次のようにファイルを開いてからアクティブ化します。

🔹 コード例：ブックを開いてからアクティブ化

Sub OpenAndActivate()
    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\Data\Report2025.xlsx")
    wb.Sheets("結果").Activate
End Sub

これで、他ブックを開いて指定シートを表示できます。
複数ブックを連動させるマクロでも応用可能です。

✅ 非表示（Hidden / VeryHidden）のシートをアクティブにする

「指定したシートが非表示のまま開けない」というトラブルもよくあります。
この場合、可視化（Visible設定）をしてからActivateする必要があります。

🔹 コード例：非表示シートをアクティブ化

Sub ActivateHiddenSheet()
    With Sheets("管理")
        .Visible = xlSheetVisible
        .Activate
    End With
End Sub

解説

💡全シートを一括で表示してからアクティブに

Sub ShowAllSheetsAndActivate()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    Sheets("トップ").Activate
End Sub

開発中や検証時に、全シートを一時的に表示する処理としても使えます。

✅ シート指定でアクティブ化する実務応用例

VBAのActivateは、単なるシート切替だけでなく、業務効率化の多くの場面で役立ちます。
ここでは代表的な3つの活用例を紹介します。

① マクロ終了時に「メニュー」シートへ戻す

Sub ReturnToMenu()
    ' 処理内容
    Call ProcessAllData
    Call ExportPDF
    
    ' 完了後にメニューシートを開く
    Sheets("メニュー").Activate
    MsgBox "処理が完了しました。メニューに戻ります。"
End Sub

マクロ完了時にトップ画面へ戻すことで、
「どこにいるか分からない」というユーザーの混乱を防げます。

② 各シートを順にアクティブにして確認する

Sub CheckAllSheets()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Activate
        MsgBox ws.Name & " を確認しました。"
    Next ws
End Sub

自動化の前に各シートをチェックするような、
手動検証支援マクロとして使えます。

③ シート名リストから選択して開く（InputBox応用）

Sub SelectAndActivate()
    Dim ws As Worksheet
    Dim names As String
    Dim userInput As String

    ' シート名リスト作成
    For Each ws In Worksheets
        names = names & ws.Name & vbCrLf
    Next ws

    userInput = InputBox("開くシートを選んでください：" & vbCrLf & names)

    On Error Resume Next
    Sheets(userInput).Activate
    If Err.Number <> 0 Then MsgBox "指定したシートが見つかりません。"
End Sub

ユーザーにシート一覧を提示し、入力したシートを自動でアクティブ化します。
Excelをメニュー型ツールとして使う際に最適です。

✅ Activateを使う際の注意点

VBA初心者が陥りやすい落とし穴として、「Activateが必要ない場面」で使いすぎるケースがあります。

⚠ 1. 不要なActivateは処理を遅くする

Activateは画面を切り替えるため、頻繁に使うと動作が重くなります。
単にセル操作を行う場合は、アクティブにせず直接指定する方が速いです。

' NG：わざわざ開いてから値を入れる
Sheets("集計").Activate
ActiveSheet.Range("A1").Value = 100

' OK：直接指定して操作
Sheets("集計").Range("A1").Value = 100

⚠ 2. 非表示シートにActivateするとエラー

非表示のままActivateを実行すると「実行時エラー1004」が発生します。
→ .Visible = xlSheetVisibleで可視化してからアクティブ化。

⚠ 3. シート名が存在しないと止まる

Sheets("○○")で存在しない名前を指定すると、マクロが停止します。
→ 事前に存在確認関数を使うと安全です。

Function SheetExists(name As String) As Boolean
    On Error Resume Next
    SheetExists = Not Sheets(name) Is Nothing
    On Error GoTo 0
End Function

■ まとめ：VBAで指定シートを安全にアクティブ化する方法

  • Sheets("名前").Activate でシートを指定して開ける
  • Activateは1枚、Selectは複数選択にも対応
  • 変数で動的指定・ユーザー入力にも対応可能
  • 非表示シートを扱う際は.Visible = xlSheetVisibleが必要
  • 過剰なActivateは避け、直接参照で高速化を意識

VBAでシートを自在にアクティブ化できるようになれば、
「データ入力画面 → 設定画面 → 結果画面」など、
Excelをアプリのように操作できるマクロを構築できます。

これを理解すれば、VBAの基礎から一歩進んだ「操作制御型マクロ」の第一歩を踏み出せます。

-VBAで自動化, VBA一覧, シート操作, セル・シート・ブック操作