Vba 双击启动宏

我试图通过双击单元格来启动宏

我直接从互联网上复制了这段代码，但当我双击单元格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

---

确保代码位于工作表代码区域中：

由于它是工作表代码，因此安装和自动使用非常容易：

在Excel窗口底部附近的选项卡名称上单击鼠标右键

选择查看代码-这将打开一个VBE窗口

粘贴内容并关闭VBE窗口

确保已启用宏和事件

---

确保代码位于工作表代码区域中：

由于它是工作表代码，因此安装和自动使用非常容易：

在Excel窗口底部附近的选项卡名称上单击鼠标右键

选择查看代码-这将打开一个VBE窗口

粘贴内容并关闭VBE窗口

确保已启用宏和事件

---

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

---

工作表事件的代码必须放在模块中，以获得正确的工作表，而不是常规模块

---

对于那些喜欢复制/粘贴的人：

私有子工作表\u在双击之前（ByVal目标作为范围，取消作为布尔值）

对于那些喜欢复制/粘贴的人：

私有子工作表\u在双击之前（ByVal目标作为范围，取消作为布尔值）