双击启动宏

Question

我正在尝试通过双击单元格来启动宏。

我直接从互联网上复制了这段代码，但是当我双击单元格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. 选择查看代码 - 这会打开一个VBE窗口
3. 粘贴内容并关闭VBE窗口
4. 确保启用宏并启用事件

Answer 2

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