Question

excel表格中的日期不随系统时间变化而变化。能通过函数来解决吗？E6列输入文本后，B6自动获取系统日期。

需要在E,B两列单元格都实现这种效果。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Cells.Count = 1 And .Column = 1 Then
.Offset(0, 1).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
.Offset(0, 1).Value = Now
End If
End With
End Sub

Answer 1

1.用迭代计算可以实现，首先勾选excel选项-重新计算-迭代计算，如图：

2.在B2中输入公式：=if（isblank（E2），"",if（B2=“”，now（），B2），并下拉公式。在E列输入数据自动记录时间，如图：

3.注意B列要设置单元格格式为日期，图中为了显示记录时间不会变化设置成时间格式。

追问

不对呀

追答

你好，你的公式错了，是=IF(ISBLANK(E2),"",IF(B2="",NOW(),B2))

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 5 Then
Cells(Target.Row, 2) = Date     '此处Date可用Now
End If
Application.EnableEvents = True
End Sub