Excelで指定されたワークシートを開くためにセルをダブルクリックするにはどうすればよいですか？

Excelのワークブック内で指定されたワークシートにすばやく移動したいですか？この記事では、Excelで特定のセルをダブルクリックして指定されたワークシートを開くためのVBA方法を提供します。

VBAコードを使用して、セルをダブルクリックして指定されたワークシートを開く

VBAコードを使用して、セルをダブルクリックして指定されたワークシートを開く

以下の手順に従って、Excelでセルをダブルクリックして指定されたワークシートを開いてください。

1. セルをクリックして開きたいワークシートが含まれているシートタブを右クリックし、「 コードの表示」をコンテキストメニューからクリックします。スクリーンショットをご覧ください：

2. 開いた「Microsoft Visual Basic for Applications」ウィンドウで、次のVBAコードをコードウィンドウにコピーしてください。

VBAコード：指定されたワークシートをExcelで開くためのセルをダブルクリック

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20180822
Dim xArray, xAValue As Variant
Dim xFNum As Long
Dim xStr, xStrRg, xStrSheetName As String
xRgArray = Array("A1;Sheet2", "A12;Sheet3", "A4;Sheet4", "A100;Sheet5")
On Error Resume Next
For xFNum = LBound(xRgArray) To UBound(xRgArray)
xStr = ""
xStr = xRgArray(xFNum)
xAValue = ""
xAValue = Split(xStr, ";")
xStrRg = ""
xStrRg = xAValue(0)
xStrSheetName = ""
xStrSheetName = xAValue(1)
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then
Sheets(xStrSheetName).Activate
End If
Next
End Sub

注釈: VBAコード内の "A1;Sheet2", "A12;Sheet3", "A4;Sheet4", "A100;Sheet5" は、セルA1をダブルクリックするとSheet2が開き、A12をダブルクリックするとSheet3が開くことを意味します。必要に応じてこれらを変更してください。

3. 「Alt + Q」キーを同時に押して「Microsoft Visual Basic for Applications」ウィンドウを閉じます。

これで、現在のワークシートでセルA1をダブルクリックすると、指定されたワークシートが即座にアクティブになります。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

関連記事：

• Excelでセルをクリックまたはダブルクリックして指定されたユーザー フォームを開くにはどうすればよいですか？
• Excelでダブルクリックしてセルにチェックマークを追加するにはどうすればよいですか？
• Excelでダブルクリックしてセルに現在の日付/時刻を自動的に追加/入力するにはどうすればよいですか？
• Excelでセルをダブルクリックしてそのセルの値に1を加算するにはどうすればよいですか？
• Excelで特定のセルをクリックしたときにカレンダーをポップアップさせるにはどうすればよいですか？