双击C列单元格设为"a"时，VBA无法在E列生成时间戳的问题

原代码存在的问题 #

• 触发范围错误：原代码用Range("Selection")判断触发区域，这会导致只有选中的单元格才触发，而非固定的C列，完全不符合需求。
• 时间戳逻辑颠倒：原代码中If Excel.Range("E" & n).Value <> "" Then的逻辑是“E列不为空时才设置时间”，和你需要的“切换为a时生成时间戳”完全相反。
• 状态切换逻辑不严谨：If Target.Value < "a" Then的文本比较逻辑容易误判，空值、其他字符都会被归为这一类，导致状态切换混乱。

修正后的VBA代码 #

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 仅处理C列的单个单元格
    If Target.Count > 1 Or Intersect(Target, Me.Columns("C")) Is Nothing Then Exit Sub
    
    Cancel = True ' 取消双击进入编辑模式的默认行为
    
    ' 循环切换状态并处理时间戳
    Select Case Target.Value
        Case "a"
            Target.Value = "r"
        Case "r"
            Target.Value = "p"
        Case "p", "" ' 空值或待处理状态时切换为已接受
            Target.Value = "a"
            ' 设置E列时间戳并指定显示格式
            With Me.Cells(Target.Row, "E")
                .Value = Now
                .NumberFormat = "MM/DD/YY"
            End With
        Case Else ' 未知状态默认切换为已接受并生成时间戳
            Target.Value = "a"
            With Me.Cells(Target.Row, "E")
                .Value = Now
                .NumberFormat = "MM/DD/YY"
            End With
    End Select
End Sub

修正说明 #

• 精准触发范围：通过Intersect(Target, Me.Columns("C"))限定只有双击C列单元格才触发代码，避免误操作。
• 清晰的状态循环：用Select Case替代多个If判断，状态切换逻辑一目了然，覆盖空值和未知状态的情况。
• 正确生成时间戳：只要状态切换为"a"，就会在对应行E列生成当前时间，并强制设置为MM/DD/YY的显示格式，确保符合需求。
• 优化操作体验：设置Cancel = True取消双击进入单元格编辑的默认行为，操作更流畅。

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