如何双击单元格以在 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，双击 A12 将打开 Sheet3……请根据需要进行更改。

3. 同时按下 Alt + Q 键关闭 Microsoft Visual Basic for Applications 窗口。

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

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何单击或双击单元格以在 Excel 中打开指定的用户窗体？
• 如何在 Excel 中通过双击在单元格中添加对勾？
• 如何在 Excel 中通过双击自动在单元格中添加/输入当前日期/时间？
• 如何在 Excel 中双击单元格并将该单元格值加 1？
• 如何在点击 Excel 中的特定单元格时弹出日历？