Excel VBA 双击

Question

我正在做一个工作项目，我有一个 excel sheet 的值在超出规格时会变成红色。我想要做的是能够双击一个单元格，并在我的工作簿中弹出 sheet，其中包含趋势数据。我已经创建了带有图表的 sheet。长话短说，我希望能够双击特定的单元格并让它显示相应的 sheet。

我已经试过这个代码了，但是不行。是否有人能够从头开始编写代码或更改代码以便我可以使用它？我试图点击的单元格是 N9，我希望它打开的 sheet 名为 "Alpha Final Rinse"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    Sheets("Alpha Final Rinse").Select
End Sub

我在 Excel 2013 年做这个。谢谢！

Answer 1

如果满足以下条件，您的代码将有效：

它安装在您数据的工作sheet代码区域sheet（您双击的sheet单元格）
宏已启用
文件类型是 .xlsm 而不是 .xlsx

Answer 2

如果您仅希望 N9 能够将焦点切换到另一项工作sheet，请使用 Target 隔离 Intersect method.

数据工作中sheet的代码sheet:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    If Not Intersect(Target, Range("N9")) Is Nothing Then
        cancel = True
        Worksheets("Alpha Final Rinse").Activate
    End If
End Sub

请注意，cancel = True 是阻止用户进入单元内编辑模式所必需的（假设已在选项中启用）。

Excel VBA 双击

Excel VBA DoubleClick

excel

vba

double-click