次のVBAコードを使用すると、現在のブックで最後に使用したシートと現在のシートを切り替えることができます。 次のように実行できます。

1。 押す 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2。 ダブルクリック このワークブック 左側のバーで、次のコードを開始ウィンドウに貼り付けます。

VBA 1：前/最後のシートに戻る

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
LastSheet = Sh.Name
End Sub

3。 左側のバーでThisWorkbookを選択し続けてから、 インセット > モジュール、次のコードを開いているモジュールウィンドウに貼り付けます。

VBA 2：前/最後のシートに戻る

Public LastSheet As String
Sub Select_Last()
Application.Sheets(LastSheet).Select
End Sub

あなたは押すことができます F5 キーを押すか、 ラン ボタンをクリックして、最後に使用したワークシートに一度に戻ります。

現在のシートと最後に使用したシートを切り替えるショートカットを使用する場合は、先に進んでください。

4に設定します。 OK をクリックします。 ディベロッパー > マクロ [マクロ]ダイアログボックスを開きます。

注意：デフォルトでは、[開発者]タブはリボンに表示されません。クリックして確認してください Excelリボンで開発者タブを表示/表示する方法.

5。 [マクロ]ダイアログボックスを開くときに、をクリックして次のマクロを強調表示します。 最後を選択、をクリックします。 オプション ボタン。

6。 の中に ショートカットキー セクションで、このマクロを実行するためのショートカットを指定します 最後を選択、をクリックします OK ボタンをクリックしてダイアログボックスを閉じます。

7。 [マクロ]ダイアログボックスを閉じます。

これ以降、複数のワークシートを連続して開くと、指定したショートカットキーを押すことができます（この場合は、 Ctrlキー + b）現在のシートと最後/前のシートを切り替えます。

XNUMX枚のシートを前後に切り替え/切り替えます

ワークブックのウィンドウ間を移動する