如何让Worksheet_SelectionChange在E列输入值后自动触发执行时间戳宏？

要实现E列输入值后自动触发宏，你需要替换原来的Worksheet_SelectionChange事件为Worksheet_Change事件，并对代码做如下调整：

1. 修改事件触发逻辑 #

将原来的Worksheet_SelectionChange事件替换为Worksheet_Change，并添加判断仅处理E列的单元格修改，同时禁用事件防止循环触发：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理E列的单个单元格修改
    If Not Intersect(Target, Me.Columns("E")) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False ' 禁用事件避免循环执行
        recordTimeStamp Target ' 传递修改的单元格给宏
        Application.EnableEvents = True ' 恢复事件监听
    End If
End Sub

2. 优化recordTimeStamp宏 #

修改宏以接收Target参数（即修改的E列单元格），避免依赖ActiveCell，同时增加空值判断：

Sub recordTimeStamp(ByVal Target As Range)
    ' 声明变量
    Dim Barcode As String
    Dim Row As Long
    Dim Timestamp As String

    ' 获取E列输入的条码值
    Barcode = Target.Value
    If Barcode = "" Then Exit Sub ' 空值直接退出

    ' 获取当前时间戳
    Timestamp = Format(Now, "yyyy-MM-dd hh:mm AM/PM")

    ' 遍历A列查找匹配的行
    For Row = 2 To Me.Cells(Me.Rows.Count, 1).End(xlUp).Row
        ' 匹配条码与A列的编号
        If Barcode = Me.Cells(Row, 1).Value Then
            ' 匹配行E列为空则填充E列，否则填充F列
            If IsEmpty(Me.Cells(Row, 5).Value) Then
                Me.Cells(Row, 5).Value = Timestamp
            Else
                Me.Cells(Row, 6).Value = Timestamp
            End If
            
            ' 清空当前输入的E列单元格
            Target.ClearContents
            
            ' 选中匹配行的A列单元格
            Me.Cells(Row, 1).Select
            
            ' 退出循环，无需继续查找
            Exit For
        End If
    Next Row
End Sub

关键说明 #

• Worksheet_Change事件：该事件会在单元格内容修改完成后自动触发（比如输入值按回车、扫码完成后），完美替代需要选中单元格才触发的Worksheet_SelectionChange。
• Intersect判断：确保只有E列的单元格修改才会触发宏，避免其他列操作干扰。
• Application.EnableEvents：宏中修改单元格内容会再次触发Worksheet_Change事件，禁用事件可以防止无限循环，执行完成后必须恢复事件监听。
• 依赖Target而非ActiveCell：输入值回车后，ActiveCell会自动跳转到下一行，用Target能准确获取刚才修改的E列单元格，避免逻辑错误。

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