如何在 Excel 中雙擊單元格以打開指定的工作表？

您是否希望快速導航到 Excel 工作簿中的指定工作表？本文將提供一種 VBA 方法，通過雙擊 Excel 中的某個單元格來打開指定的工作表。

使用 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，雙擊 A2 將打開 Sheet3……，請根據您的需求進行更改。

3. 同時按下 Alt + Q 鍵以關閉 Microsoft Visual Basic for Applications 窗口。

從現在開始，當雙擊當前工作表中的 A1 單元格時，指定的工作表將立即被激活。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章：

• 如何在 Excel 中單擊或雙擊單元格以打開指定的用戶窗體？
• 如何在 Excel 中雙擊單元格以添加核取記號？
• 如何在 Excel 中雙擊單元格以自動添加/輸入當前日期/時間？
• 如何在 Excel 中雙擊單元格並在該單元格值上加 1？
• 如何在 Excel 中點擊特定單元格時彈出日曆？