不懂VBA也编程

waterszg · 发表于 2008-11-19 12:12

学习了,谢谢.

hetai · 发表于 2008-11-19 13:21

听“山菊花”讲课好轻松

aszxc · 发表于 2008-11-19 15:02

支持山菊花！

aszxc-9 · 发表于 2008-11-19 15:04

好方法值得学习

peter.lam · 发表于 2008-11-19 15:14

多谢楼主啦！

山菊花 · 发表于 2008-11-19 15:29

日期在记录单中是一个很重要的信息。为了减轻录入的负担，我们有时会希望Excel能自动录入当前日期。

右键点击工作表标签，选择“查看代码”，将下面的代码粘贴到光标处：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(0, 2) = Date
End Sub

复制代码

中间一行是核心代码，意思是：当第1列(即A列)录入数据时，右边第2列(即C列)输入一个日期。
如果你的要求是“B列(第2列)输入数据后C列(B列的右边第1列)自动输入一个日期”，则中间一行代码应改为：
If Target.Column = 2 Then Target.Offset(0, 1) = Date

如果你要求“D列(第4列)输入数据后，A列(D列的左边3列)自动输入日期”，则中间一行代码改为：
If Target.Column = 4 Then Target.Offset(0, -3) = Date

如果要输入当前时间，怎么办？
代码中，Date 表示当前日期，你可以像吃自助餐一样，把 Date 换成合你口味的东西：
Time ：当前时间
Now ：当前日期时间

练习：

自动填写日期.zip (7.85 KB, 下载次数: 2003)
答案：

自动填写日期答案.zip (10.26 KB, 下载次数: 2337)

fanzhengming · 发表于 2008-11-19 15:45

谢谢了
又学到了一个技巧

hjqandy · 发表于 2008-11-19 15:50

好东西，值得学习学习

816855 · 发表于 2008-11-19 20:25

学习中，感谢！

hj2006 · 发表于 2008-11-19 20:33

强烈支持山菊花老师！！！！！

		自动登录	找回密码
密码			免费注册

不懂VBA也编程

支持

3、自动输入当前日期