vba - Excel VBA 双击

Question

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

我已经尝试过这段代码，但它不起作用。是否有人能够从头开始编写代码或更改代码以便我可以使用它？我试图点击的单元格是 N9，我希望它打开的工作表名为“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

如果你 仅限 希望 N9 能够将焦点切换到另一个工作表，隔离 目标 与 Intersect method .

在数据工作表的代码表中:

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有必要阻止用户进入单元内编辑模式(假设已在选项中启用)。