Excelで特定のシートに移動するにはどうすればよいですか？

タブ名をクリックして特定のシートに移動することは、多くのユーザーにとって非常に簡単ですが、ワークブックが大きく、複数のシートがあり、以下のスクリーンショットのようにタブにすべてを表示できない場合、シートをすばやく見つけてに移動するにはどうすればよいですか？それ？

右クリックして特定のシートに移動します

VBAで特定のシートに移動する

Kutools forExcelで特定のシートに移動する

Kutools forExcelでシート名が存在するかどうかを確認します

---

右クリックして特定のシートに移動します

Excelでは、特定のシートに移動するには、右クリックを使用できます。

シートの左下隅にあるくずの矢印にカーソルを置き、右クリックすると、最初の15枚のシートを表示するためのコンテキストメニューがポップアップ表示されます。

ブックに15枚を超えるシートがある場合は、クリックできます その他のシート アクティブにしましょう ダイアログでは、このダイアログにすべてのシートが表示され、スクロールして目的のシートを見つけ、クリックしてアクティブにします。

注意： Excel 2013では、 アクティブにしましょう の右下隅にある矢印を右クリックすると、ダイアログボックスが直接ポップアップします。 シートバー.

ブックに非常に多くのシートがある場合、これはスクロールして特定のシートを見つけて移動するのに適していません。

---

VBAで特定のシートに移動する

ブック内の特定のシートをすばやく見つけて移動するのに役立つVBAコードがあります。

1.プレス Altキー+ F11 一緒にキー、そして アプリケーション用のMicrosoftVisual Basic ウィンドウが飛び出します。

2。 クリック インセット > モジュール、次にVBAの下に貼り付けます モジュール 窓。

VBA：特定のシートに移動

Sub GotoSheet()
'UpdatebyKutoolsforExcel20150916
    Dim xRet As Variant
    Dim xSht As Worksheet
    xRet = Application.InputBox("Go to this sheet", "Kutools for Excel")
    On Error Resume Next
    If xRet = False Then Exit Sub
    On Error GoTo 0
    On Error Resume Next
    Set xSht = Sheets(xRet)
    If xSht Is Nothing Then Set xSht = Sheets(Val(xRet))
    If xSht Is Nothing Then
        MsgBox "This sheet does not exist", , "Kutools for Excel"
    Else
        xSht.Activate
    End If
End Sub

3。 クリック ラン またはプレス F5 コードを実行するには、 Kutools for Excel dailogが表示されたら、検索するシート名を入力してテキストボックスに移動します。 スクリーンショットを参照してください：

4。 クリック OK、これで、必要な特定のシートに配置できました。

---

Kutools forExcelで特定のシートに移動する

Kutools for Excel、すべてのシート名を一覧表示してから、必要なシート名を見つけて移動できます。

後の 無料インストール Kutools for Excel、以下のようにしてください：

1。 クリック クツールズプラス > ワークシート > シート名のリストを作成する。 スクリーンショットを参照してください：

2.ポップアウトされたダイアログで、次のようにします。

3。 クリック Ok。 これで、すべてのシート名リストを含む新しいシートが作成されます。

4。 押す Ctrl + F を開く 検索および置換 ダイアログで、検索するシート名をに入力します 見つける テキストボックス。 スクリーンショットを参照してください：

5。 クリック すべて検索。 これで、必要なシートが選択されました（閉じる 検索および置換 ダイアログ）、それをクリックするだけで、この特定のシートに移動します。

シート名のリストの作成の詳細については、ここをクリックしてください。

  クリック可能なシート名のリストを作成する