Excel自动触发时间

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    col_num = ActiveCell.Column
    row_num = ActiveCell.Row
    Cells(row_num, 1) = Date
End Sub
posted @ 2010-03-11 00:12  kelin1314  阅读(382)  评论(0)  编辑  收藏  举报