【VBA】指定したシートを開く方法｜Activate・Selectの使い方と実務応用を徹底解説

Excelでマクロを作成していると、「特定のシートを自動的に開きたい」「処理の途中で別シートを表示したい」という場面が多くあります。

たとえば次のようなシーンです。

• マクロ実行後に「結果」シートを自動表示したい
• ユーザーが操作するメニューシートを開きたい
• 処理中に「設定」シートに移動して値を参照したい

こうした操作は、VBAで簡単に自動化できます。
この記事では、「Excelで指定したシートを開くVBAコード」の書き方を、初心者にも分かりやすく解説していきます。

✅ 基本：VBAで特定のシートを開く構文

VBAで「シートを開く」とは、Excelの画面上でそのシートをアクティブにする（前面に表示する）という意味です。
この動作は Activate メソッドを使って実現します。

🔹 基本構文

Sheets("シート名").Activate

このコードを実行すると、指定したシートが自動的に開かれます。

🔹 実行例

Sub OpenSheet()
    Sheets("結果").Activate
End Sub

このマクロを実行すると、「結果」という名前のシートが表示されます。
ユーザーがどのシートにいても、確実に「結果」シートを開くことができます。

💡ポイント

• Sheets("シート名") には ワークシート名を指定します。
• シート名のスペルミスがあるとエラー（実行時エラー1004）になります。
• 実務では変数を使うと、柔軟に切り替えが可能です。

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

Activate のほかに、Selectを使ってシートを開くこともできます。
どちらも似た動作ですが、微妙な違いを理解して使い分けましょう。

参考：【VBA】Worksheet.Activate が実行されない原因と解決方法

🔹 Selectの例

Sheets("集計").Select

このコードでもシートを開けますが、複数シートをまとめて選択したい場合にはこちらを使用します。

Sheets(Array("集計", "グラフ")).Select

💡結論

「1枚のシートを開く」場合は Activate がベスト。
「複数シートをまとめて選ぶ」場合は Select を使います。

✅ 変数を使って指定したシートを開く

実務ではシート名が動的に変わることも多いため、変数を使って開く方法を知っておくと便利です。

🔹 コード例：変数を使う

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

このように、変数にシート名を代入しておけば、同じ構文で複数のシートを柔軟に開けます。

参考：【VBA】シートを追加して名前を付ける方法：Sheets.Addメソッド・Nameプロパティ

🔹 ユーザー入力で開くシートを指定

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

このコードは、ユーザーが入力したシート名を自動で開きます。
存在しない場合も安全にエラーメッセージを出して停止しないよう設計されています。

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

✅ 他のブックにあるシートを開く方法

開いているExcelブック以外のシートを開きたい場合は、ブック名も指定する必要があります。

🔹 コード例

Sub OpenOtherBookSheet()
    Workbooks("SalesReport.xlsx").Sheets("売上").Activate
End Sub

このように書くことで、SalesReport.xlsx 内の「売上」シートを開くことができます。
ただし、そのブックがすでに開かれていることが前提です。

🔹 ブックが開かれていない場合

ファイルを開いてからシートをアクティブにする方法も可能です。

Sub OpenBookAndSheet()
    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\Data\Report2025.xlsx")
    wb.Sheets("集計").Activate
End Sub

このようにすれば、ブックを開いた直後に目的のシートを自動表示できます。

✅ 非表示シートを開く場合の注意点

VBAで「指定したシートを開く」操作を行う際、
対象シートが非表示（Hidden / VeryHidden）の状態だとエラーが発生します。

🔹 エラーになる例

Sheets("管理").Activate

上記の「管理」シートが非表示だと、「実行時エラー1004」が発生します。

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

🔹 解決策：シートを可視化してから開く

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

.Visibleプロパティでシートを表示状態にしてから開けば、
HiddenでもVeryHiddenでも確実に表示できます。

💡全シートを一括で表示して開く例

Sub ShowAndOpen()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    Sheets("メニュー").Activate
End Sub

開発やメンテナンス時に、隠れているシートを一時的にすべて表示するのに便利です。

✅ 開いているシートを確認・戻す処理も組み合わせよう

指定したシートを開く処理では、「元のシートに戻す」仕組みを入れると実務でより使いやすくなります。

🔹 コード例：元のシートを保存して戻す

Sub OpenAndReturn()
    Dim original As Worksheet
    Set original = ActiveSheet

    Sheets("設定").Activate
    MsgBox "設定シートを開きました。"

    original.Activate
    MsgBox "元のシートに戻りました。"
End Sub

処理の流れ

1. 現在のアクティブシートを保存
2. 指定シートを開く
3. 処理が終わったら元に戻る

このように設計すれば、ユーザー操作の流れを崩さず自然な動作を実現できます。

✅ 実務で役立つ「シートを開く」応用マクロ

単にシートを開くだけでなく、業務シナリオに応じて工夫することで効率が格段に上がります。

① マクロ実行後に自動的に「結果」シートを開く

Sub FinishAndShowResult()
    ' 集計処理（例）
    Call CalculateData
    
    ' 結果シートを開く
    Sheets("結果").Activate
    MsgBox "集計が完了しました。結果シートを確認してください。"
End Sub

処理完了後に結果シートを表示することで、ユーザーの操作を最小化できます。

② メニューシートから他シートを開くボタンを配置

1. 「メニュー」シートにフォームボタンを配置
2. 次のコードを登録

Sub GoToSheet1()
    Sheets("入力").Activate
End Sub

Sub GoToSheet2()
    Sheets("出力").Activate
End Sub

これにより、ユーザーがマウスクリックでシートを開ける操作メニューを構築できます。
Excelを「アプリのように使う」UI設計に最適です。

参考：【Excel】開発タブの使い方を初心者向けに解説｜マクロ・VBA・フォームを活用して業務効率化！

③ シート名リストから選択して開く

Sub ChooseSheet()
    Dim ws As Worksheet
    Dim list As String
    Dim userSelect As String

    ' シート名を一覧表示
    For Each ws In Worksheets
        list = list & ws.Name & vbCrLf
    Next ws

    userSelect = InputBox("開くシートを選択してください：" & vbCrLf & list)
    
    On Error Resume Next
    Sheets(userSelect).Activate
    If Err.Number <> 0 Then MsgBox "そのシートは存在しません。"
End Sub

すべてのシート名を一覧表示し、ユーザーが選択入力できるインタラクティブな仕組みです。

✅ よくあるエラーと対策まとめ

■ まとめ：VBAで指定したシートを安全に開く方法

• Sheets("名前").Activateで簡単にシートを開ける
• Activateは1枚、Selectは複数シートに対応
• 変数やInputBoxを使えば動的にシートを開ける
• 非表示シートは.Visible = xlSheetVisibleが必要
• 元のシートに戻す設計やUIボタンとの連携が便利

「指定したシートを開く」処理はVBAの中でも頻出の基本操作です。
この構文を使いこなすことで、Excelをアプリのように操作できる「動くツール」に変えることができます。