Excel VBA技术需求：选中Yes单元格自动生成时间戳及循环行问题

需求说明 #

• 当F列（F6至F100范围）的单元格值为“Yes”时，对应行的C列单元格自动生成该时刻的时间戳，时间格式为mm/dd/yyyy。

当前问题 #

现有代码的For循环无法遍历每一行，始终仅针对第6行的F6单元格做判断，无法自动跳转至下一行执行逻辑。

问题代码分析 #

原代码的核心问题是：循环里固定使用Range("F6")和Cells(6, 3)，没有利用循环变量j动态切换行号，导致循环跑100次却始终操作同一行。

原代码：

Sub timestampdu()

Dim tcell As Range
Dim trcell As Range
Dim j As Integer

Set tcell = Range("F6:F100")
Set trcell = Range("C6:C100")

For j = 1 To 100
    If Range("F6").Value = "Yes" Then
        Cells(6, 3).Value = Now
        trcell.NumberFormat = "mm/dd/yyyy"
    End If
Next j

End Sub

修正后的代码 #

直接让循环变量对应工作表行号，动态定位每一行的单元格，实现逐行遍历判断：

Sub timestampdu()
    Dim j As Integer
    
    ' 遍历F6到F100的每一行
    For j = 6 To 100
        ' 检查当前行F列的值是否为"Yes"
        If Cells(j, "F").Value = "Yes" Then
            ' 给当前行C列设置当前时间
            Cells(j, "C").Value = Now
            ' 设置时间格式
            Cells(j, "C").NumberFormat = "mm/dd/yyyy"
        End If
    Next j
End Sub

额外优化：实时触发时间戳生成 #

如果需要在用户手动输入"Yes"时自动生成时间戳，可使用工作表变更事件，代码如下（需粘贴到对应工作表的代码模块：右键工作表标签→查看代码→粘贴）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理F6到F100范围内的单元格变更
    If Not Intersect(Target, Range("F6:F100")) Is Nothing Then
        ' 检查变更后的单元格值为"Yes"
        If Target.Value = "Yes" Then
            ' 给对应行C列设置时间戳并格式化
            Target.Offset(0, -3).Value = Now
            Target.Offset(0, -3).NumberFormat = "mm/dd/yyyy"
        End If
    End If
End Sub

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