右键工作表标签》查看代码》粘贴以下代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Select Case Target
Case 1
Cells(Target.Row, "B") = Format(Now, "yyyy-mm-dd")
Case 2
Cells(Target.Row, "C") = Format(Now, "yyyy-mm-dd")
Case 3
Case 4
Case Else
End Select
End Sub
3，4等其它选项自己参考着改。
07及以上版本excel请另存为.xlsm启用宏工作簿
