Question

Excel怎么实现在A1输入数据时B1自动填入当前日期,除非A1数据有变化,否则B1日期永远不变

Answer 1

做好了,Hi我给你发文件.
或者你自己测试:
打开你的excel表后,假设你要在sheet1实现这个功能:
那么,按alt+f11,在左边找到sheet1,双击后输入下列代码:
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
If
Target.Column
=
1
And
Target.Count
=
1
Then
'这个是控制只有A列输入,且一个一个输入,B列才会显示日期.如果你是别的列.按照A=1,B=2,c=3,z=26,aa=27自己该.比如你是需要D列变,E列显示结果,那么在这里Target.Column
=
1改成Target.Column
=4
Target.Offset(0,
1).Value
=
Date
'这里是制定输入数据的那列的后一列显示日期,如果要改成前面的一列,Target.Offset(0,
1).Value
改成Target.Offset(0,
-1).Value
.
Target.Offset(0,
1).NumberFormat
=
"e/mm/dd"
'这是设置日期显示的格式
End
If
End
Sub