1、按ALT+F11进入VBA窗口
2、如果你的表在sheet1中,你就点左边工程管理器里的sheet1(总之你在哪个表中要实现这个功能就点开哪个工作表)。
3、在右边的窗口中输入下边代码:
Sub Macro1()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
Target.Offset(0, -1) = Format(Date, "dd日")
End If
End Sub
4、这样你回到工作表,在B列输入数据。
A列就会出现当前日期。