Excel自动触发时间

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    col_num = ActiveCell.Column
    row_num = ActiveCell.Row
    Cells(row_num, 1) = Date
End Sub