Excel实现双击插入当前日期时间

用vba做一个事件驱动程序。

第一步：点击开发工具-visual basic。

第二步：在当前工作表中编制程序如下：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 1 Then

   Target.Value = Now

End If

End Sub