请打开我发的文件去试一试吧!
用VBA来做:首先【工具】【宏】【安全性】设置为:低。关闭Excel再打开!
鼠标右击Sheet1的标签,选【查看代码】在代码区粘贴下面的代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(, 1) = Format(Now, "yyyy-mm-dd hh:mm:ss")
End Sub
按Alt + F11,回到Excel,在A列输入数据去试一试!!!
祝你成功!
要用VBA。ALT+F11打开VBA编辑器,双击SHEET1,worksheet,将以下代码复制粘贴进去,按F8运行。
if [a1]<>"" and [b1]="" then
[b1]=date
end if
这个需要代码
好像发不了代码
如有需要,留邮箱
=IF(A1,TODAY(),"")
把B列设成日期