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 阅读(397) 评论(0) 收藏举报