Excelで2つのシートを交互に切り替えるにはどうすればよいですか？

ワークブックに多数のワークシートが含まれているとします。しかし、多くの場合、特定の2つの非隣接シート（例：Sheet1 と Sheet30）間でのみ移動する必要があります。Excelでこの2つの非隣接シートを迅速かつ簡単に切り替えるにはどうすればよいでしょうか？

VBAコードを使用して2つの非隣接シート間を切り替える

Kutools for Excelを使用して2つの非隣接シート間を切り替える

VBAコードを使用して2つの非隣接シート間を切り替える

次のVBAコードは、特定の2つのワークシート間を行き来するのに役立ちます。以下の手順で行ってください：

1. ALT + F11 キーを押したままにすると、Microsoft Visual Basic for Applications ウィンドウが開きます。

2. 次に、プロジェクトエクスプローラーで ThisWorkbook をダブルクリックしてモジュールを開きます。スクリーンショットをご覧ください：

注：Microsoft Visual Basic for Applications ウィンドウを開いたときにプロジェクトエクスプローラーが表示されない場合は、表示タブをクリックし、プロジェクトエクスプローラーを選択して開いてください。スクリーンショットをご覧ください：

3. 次に、以下のコードをモジュールウィンドウに貼り付けます。

VBA: 2つの非隣接シート間を切り替える

Public LateWsName As String
'Update 20130830
Sub ToggleSheets()
If LateWsName <> "" Then
    Application.Sheets(LateWsName).Activate
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
LateWsName = Sh.Name
End Sub

4. 切り替えたい2つのワークシート（Sheet1 と Sheet30）を1つずつクリックします。

5. 次に、 F5キーを押してこのコードを実行します。一度押すとSheet1が表示され、もう一度押すとSheet30に切り替わります。これで、F5キーを押すことで2つのシートを交互に切り替えることができます。

Kutools for Excelを使用して2つの非隣接シート間を切り替える

上記のコードが少し難しいと感じる場合、ここではワンクリックでこのタスクを完了できる簡単な方法をご紹介します。

Kutools for Excelには300以上の便利なExcelツールが含まれています。30日間無制限で無料試用できます。今すぐ入手してください。

Kutools for Excelをインストールしたら、次の手順を行ってください：

1. 使用したいワークブックを開きます。そして、Kutools > ナビゲーションをクリックします。

2. ナビゲーションペインが表示されます。次に、シートタブをクリックします。

3切り替えたい2つのシートをクリックすると、その後 ボタンを ナビゲーションペインで 最後にクリックした2つのシートが交互に切り替わります。

注：2つのワークブックにある2つのシートも切り替えることができます。

このナビゲーションペインについてさらに詳しく知るにはこちらをクリックしてください。

関連記事：

• 1つのワークブック内のすべてのワークシートをリスト化する
• ワークブック間のウィンドウ間を移動する
• ナビゲーションペインを表示する
• セル間を移動する
• 名前付き範囲をリスト化する
• 列ヘッダー名をリスト化する