excel实现双击空白单元格后自动输入日期/时间

1、我们有这样一个表格，B列为日期，每次编辑时，如果B列的单元格为空，则自动输入当前日期。对于这个问题你有没有什么好办法呢？

2、点击开发工具——visual Basic，打开代码编辑器。

3、双击sheet1.通用模块是写过程宏和自定义函数的地方，Sheet和thisworkboo氯短赤亻k是写事件的地方。如果你想将这个功能在每个工作表中都实现，则应该点击thisWorkBook。

4、在打开的代码编辑页面输入这些代码。Private Sub Worksheet_Be酆璁冻嘌foreDoubleClick(ByVal Target As Range, Cancel As Boolean)' 双击自动输入日期 If ActiveCell.Value = "" And (ActiveCell.Column = 2 Or ActiveCell.Column = 10) Then ActiveCell.NumberFormatLocal = "yyyy-m-d" ActiveCell = Date End If' 双击自动输入时间 If ActiveCell.Value = "" And (ActiveCell.Column = 11) Then ActiveCell.NumberFormatLocal = "hh：m：s" ActiveCell = Time End If End Sub

5、进入excel页面，双击B6，效果就出来啦，自动输入当前日期。

6、双击K6，自动输入当前时间。效率简直不要太高。