如何雙擊單元格以在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；表2“”A12；表3“”A4；表4“”A100；表5" 表示雙擊儲存格 A1 將開啟 Sheet2，雙擊 A2 將開啟 Sheet3...，請根據您的需求進行變更。

3。 按 其他 + Q 鍵一起關閉 Microsoft Visual Basic for Applications 窗口。

從現在起，當雙擊目前工作表中的A1儲存格時，將立即啟動指定的工作表。

相關文章：

• 如何單擊或雙擊單元格以在Excel中打開指定的用戶表單？
• 如何在Excel中雙擊在單元格中添加複選標記？
• 如何在Excel中雙擊自動在單元格中添加/輸入當前日期/時間？
• 如何雙擊單元格並在Excel中將該單元格值添加1？
• 單擊Excel中的特定單元格時如何彈出日曆？