如何双击单元格以在Excel中打开指定的工作表？

是否要快速导航到Excel工作簿中的指定工作表？ 本文将提供一种VBA方法，通过双击Excel中的某个单元格来打开指定的工作表。

双击一个单元格以使用VBA代码打开指定的工作表

双击一个单元格以使用VBA代码打开指定的工作表

请执行以下操作以通过双击Excel中的单元格来打开指定的工作表。

1.右键单击包含要打开工作表的单元格的工作表选项卡，方法是单击它。 然后点击 查看代码 从上下文菜单中。 看截图：

2.在开幕 Microsoft Visual Basic应用程序 窗口，请将以下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”表示doube单击单元格A1将打开Sheet2，双击A2将打开Sheet3 ...，请根据需要进行更改。

3。 按 其他 + Q 键一起关闭 Microsoft Visual Basic应用程序 窗口。

从现在开始，双击当前工作表中的单元格A1，指定的工作表将立即被激活。

相关文章：

• 如何单击或双击单元格以在Excel中打开指定的用户表单？
• 如何在Excel中双击在单元格中添加复选标记？
• 如何在Excel中双击自动在单元格中添加/输入当前日期/时间？
• 如何双击单元格并在Excel中将该单元格值添加1？
• 单击Excel中的特定单元格时如何弹出日历？