第1个回答 2010-09-26
打开EXCEL 进去按ALT+F11 双击你的实现的SHEET表
复制下面代码进去
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '双击事件
If Selection.Column <> 1 And Selection.Column <> 4 Then '当双击的列数不是A D 列时候执行
Cells(Selection.Row, 1) = Date '双击的行的 A列对应数字显示日期
Cells(Selection.Row, 4) = Time '双击的行的 A列对应数字显示时间
End If
End Sub