双击生成日期戳和时间戳VBA代码报错求助：名称冲突问题

错误原因 #

同一个工作表模块中不能存在两个同名的Worksheet_BeforeDoubleClick事件过程，VBA会判定为重复定义引发编译错误；自定义名称的子过程无法触发双击事件，因为Excel的事件触发依赖固定的过程名称。

修正后的代码 #

将两个逻辑合并到同一个事件过程中，代码如下：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 双击E列单元格生成日期戳
    If Not Intersect(Target, Me.Range("E1:E10000")) Is Nothing Then
        Cancel = True
        Target.Value = Date
    ' 双击F列单元格生成时间戳
    ElseIf Not Intersect(Target, Me.Range("F1:F10000")) Is Nothing Then
        Cancel = True
        Target.Value = Now()
    End If
End Sub

额外优化说明 #

• 使用Me.Range明确指向当前工作表的单元格，避免跨工作表的引用错误；
• 替换Target.Formula为Target.Value，这里是直接赋值日期/时间常量，而非公式，用Value更准确且无额外公式依赖；
• 确保代码粘贴在对应工作表的代码模块中（而非标准模块），才能正常触发双击事件。

内容的提问来源于stack exchange，提问作者Louis