2

我在网上四处寻找答案，但没有找到任何关于我正在尝试做的事情的帮助。我希望在修改A列单元格时将时间自动输入到B列中的相应单元格中，这同样适用于C列和D列。我不希望时间更新，这是我目前遇到的问题. 以下是我目前拥有的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
    Target.Offset(, 1) = Time
ElseIf Target.Column = 3 Then
    Target.Offset(, 1) = Time
End If
Application.EnableEvents = True
End Sub

此编码有效，但它更新了 B 列和 D 列中的时间，这是我不想要的。我可以添加什么来停止时间更新？

谢谢<3

4

1 回答 1

3

如果我正确理解您的问题，您是否只想在相邻列中未显示时间的情况下更新时间？在这种情况下，这应该有效：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 1 Or Target.Column = 3 Then
        If Target.Offset(, 1) = vbNullString Then Target.Offset(, 1) = Now()
    End If
    Application.EnableEvents = True
End Sub

这与 Gary's Student 的答案一致，但添加了条件并稍微简化了代码。

于 2015-10-04T15:48:53.417 回答