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

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

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

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

4、在打开的代码编辑页面输入这些代码。

Private Sub Worksheet_BeforeDoubleClick(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，自动输入当前时间。效率简直不要太高。