Question

在电子表格A，B，C列单元格里输入数字，回车后，如何让D，E，F列相应单元格行自动显示输入当时时间

如图，怎么用代码 在2 3 4 …………行输入也能像A1那样

Answer 1

1. 工作表标题上右键，查看代码，然后输入以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim i, j, k
i = Target.Address
j = Mid(i, 2, 1)
k = Mid(i, 4, 9)
If j = "A" Then
    Cells(k, 4) = Now()
ElseIf j = "B" Then
    Cells(k, 5) = Now()
ElseIf j = "C" Then
    Cells(k, 6) = Now()
End If
End Sub

2. 效果如下图所示：

Answer 2

工作表change事件考虑下

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <= 3 And IsNumeric(Target.Value) Then
        Target.Offset(0, 3) = Format(Now, "hh:mm:ss AM/PM")
End If
End Sub

追问

能实现在D1 E1 F1输入在 G1 H1 I1 自动显示吗，我发个模版网页链接

追答

Private Sub Worksheet_Change(ByVal Target As Range)
        With Target
                If .Column >= 4 And .Column <= 6 And IsNumeric(.Value) Then
                        Application.EnableEvents = False
                        .Offset(0, 3) = Format(Now, "hh:mm:ss AM/PM")
                        Application.EnableEvents = True
                End If
        End With
End Sub

稍微改下代码就可以了

Answer 3

=IF(D4="","",NOW())

注：D4是你要输入的单元格

追问

这个日期会随着时间而变，我要的是时间不变的，你这个昨天输入的到今明后就算不动单元格时间也会岁着电脑时间变

追答

嗯..只能手动转换成值了...

Answer 4

VBA,

Private Sub Worksheet_Change(ByVal Target As Range)
时间 =now()

追问

你这个不行呀