Excel VBA DoubleClick

我正在开发一个工作项目，在这个项目中，我有一个excel表格，当它们超出规范的时候，它们的值会变成红色。 我想要做的是能够双击一个单元格，并让我的工作簿中的工作表popup来，其中有趋势数据。 我已经创build了图表上的图表。 长话短说，我希望能够双击一个特定的单元格，并让它出现相应的表单。

我试过这个代码，它不会工作。 任何人都可以从头开始编写代码或更改代码，以便使用它？ 我试图点击的单元格是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方法隔离Target 。

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

 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有必要停止用户进入内嵌编辑模式（假设已在选项中启用）。

Answer 2

您的代码将工作，如果：

• 它被安装在你的数据表的工作表代码区（你正在双击它的单元格）
• macros启用
• 文件types是.xlsm而不是.xlsx