如何自动填入日期

青月轩

我有个缺料补领的表格，前面的缺料日期 缺料数量 型号 名称 代码 都是在发生缺料的时候 填写进去的
在缺料来货后 发生补领时 我需要的是
在填写补领数量的时候 也就是说 我在F列 和H列 填入数字后 I列 会自动填入当天的系统日期
如 我是在2013-1-29 填入补领数量的 那么I列 相应的行 就自动填入2013-1-29
如果我把F 或H 列 某行的 的数字 删除 后面的I 列的日期 也会自动消失
总之 就是 H或 F列 不为空的话 I列就会自定填入当天的日期
、如果是空的话 I列的日期就自动清除

请高手帮忙 谢谢了
新建 Microsoft Office Excel 工作表.rar (6.91 KB, 下载次数: 6)

2013-1-29 20:27 上传

点击文件名下载附件

ccwan

试试在F，H列输入数值

青月轩

ccwan 发表于 2013-1-29 20:44
试试在F，H列输入数值

谢谢，我是初学者，学会方法，是我根本目的，请问，可以帮忙 麻烦您一下，把你写的几个语句注释一下吗 谢谢。

ccwan

1. Private Sub Worksheet_Change(ByVal Target As Range)   '该事件在工作表中的单元格发生变化后产生
   
2.     If Target.Count > 1 Then Exit Sub                 '选中的单元格超过1个时退出过程
   
3.     If Target.Column = 6 Or Target.Column = 8 Then    '规定选中的单元格的列数为6或8，即F列和H列
   
4.         Cells(Target.Row, 9) = IIf(Target.Value = "", "", Date) '选中的单元格同行第9列，即I列的值当选中的单元格为空时也为空，否则为当前日期
   
5.     End If
   
6. End Sub
   

复制代码

青月轩

ccwan 发表于 2013-1-29 21:26

十分感谢。我明白了。我这就把代码改一下 用在别的地方试试
谢谢了