设置excel单元格自动填充日期,当在前一个单元格填入东西的时候,就在对应的后一个的单元格自动填入日期!
展开全部
右键SHEET--查看代码
复制下列代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1Then
Target.Offset(0, 1) = Date
End If
End Sub
注意:在VBA代码中,Date、Now、Time分别表示系统日期、日期及时间、时间
If Target.Column = 1 Then 表示:在第1列输入后,第2列自动出现日期
复制下列代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1Then
Target.Offset(0, 1) = Date
End If
End Sub
注意:在VBA代码中,Date、Now、Time分别表示系统日期、日期及时间、时间
If Target.Column = 1 Then 表示:在第1列输入后,第2列自动出现日期
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
设在A列填充,在A2输入:
=IF(A1<>"",NOW(),"")
拖动下拉方式复制到需要的行。
=IF(A1<>"",NOW(),"")
拖动下拉方式复制到需要的行。
追问
这样变更系统时间的时候原来的会跟着变化的?我要的是不变的!谢谢啦!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询