如何在excel中自动生成数据录入时间？21
发布网友
发布时间：2023-10-13 08:53
共3个回答
热心网友
时间：2024-07-30 10:32
本人2010版excel，假设表格是这样的，首先将B列设置单元格格式，看自己需求，选中B列，右键，设置单元格格式，数字选项卡，自定义，yyyy/mm/dd hh:mm:ss
方法一：数据有效性
在C1单元格写公式=NOW()，C1计算出来的格式不用管，选中B列，数据-数据有效性-序列-来源（用鼠标点一下C1，或者直接输入C1）。这样在A列填写数据结束后，对应的B列单元格的时间通过下拉箭头选则时间。
方法二：迭代计算+函数
首先设置启用迭代计算，见下图，计算次数默认是100，随便设置，次数少了 计算快。
然后在B列用公式，B2公式=IF(A2="","",IF(B2="",NOW(),B2))，下拉填充，这样，在A列输入数据后，B列会自动填充当前时间，而且同样不会变化。
热心网友
时间：2024-07-30 10:33
问题1
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each c In Target.Cells
With c
If .Address = "$B$1" Then Range("A1") = Format(Date, "yyyy年mm月dd日")
End With
Next
Application.EnableEvents = True
End Sub
问题 2
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each c In Target.Cells
With c
If .Row = 1 Then Range("A1") = Format(Date, "yyyy年mm月dd日")
End With
Next
Application.EnableEvents = True
End Sub
问题3
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each c In Target.Cells
With c
If .Row <= 50 And .Column >= 2 And .Column <= 4 Then Range("A1") = Format(Date, "yyyy年mm月dd日")
End With
Next
Application.EnableEvents = True
End Sub
热心网友
时间：2024-07-30 10:33
1
在A1中输入 ＝IF（B1,NOW()）
2
在A1中输入 ＝IF（1，NOW())
3
在A1中输入 ＝IF（50，NOW())
2与3有点相同，无论你往哪输，日期都会变动
