右击工作表标签》查看代码》分别粘贴下面的代码
问题1
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each c In Target.Cells
With c
If .Address = "$B$1" Then Range("A1") = Format(Date, "yyyy年mm月dd日")
End With
Next
Application.EnableEvents = True
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024