Question

Excel如何用VBA来实现在 D列 自动输入当前时间

我要实现 当在K列（从K3开始）输入数据时：
如果同行C列单元格的数据和上一行 不一样，（就像C3和C2不一样; 如C6不等于C5），这D3和D6中自动输入当前时间，（时间一旦输入，就不再改变，当然手工更改也是可以的）
2. 如果同行C列单元格的数据和上一行 一样， （就像C4=C3或C5=C4或C11=C10）这时同行的D列自动输入的时间和上一个单元格的时间相同 （如D5=D4=D3）
3. 时间一旦输入，就不能变化，当然手工可以更改已经输入的时间

Answer 1

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    i = Target.Row
    If i > 3 And Target.Column = 11 Then
        Columns("D:D").NumberFormatLocal = "yyyy/m/d h:mm;@"
        If Cells(i, 3) = Cells(i - 1, 3) Then
            Cells(i, 4) = Cells(i - 1, 4)
        Else
            Cells(i, 4) = Now()
        End If
    End If
End Sub

这个是工作表事件过程，一定要放在工作表对应的代码中窗口中。