双击启动macros

我试图通过双击一个单元来启动一个macros。

我直接从互联网复制这个代码，但是当我双击单元格C40时它不工作。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("C40")) Is Nothing Then Cancel = True SelectPayFreq.Show End If End Sub 

Answer 1

确保代码在工作表代码区域中 ：

因为它是工作表代码，所以安装和自动使用非常简单：

1. 右键单击Excel窗口底部附近的选项卡名称
2. select查看代码 – 这会popup一个VBE窗口
3. 粘贴东西，closuresVBE窗口
4. 确保已启用macros并启用事件

Answer 2

工作表事件的代码必须放在模块中，而不是放在常规模块中。