单元格显示今天日期VBA

nnsea

Sub szbn()
Dim str As Range
Set str = Worksheets("sheet1").Range("a2")
str.Value = CDate(Evaluate("=TODAY()"))
End Sub

nnsea

Sub szbn()
Dim str As Range
Set str = Worksheets("sheet1").Range("a2")
str.Value = Date
End Sub

nnsea

Sub szbn()
Dim str As Range
Set str = Worksheets("sheet1").Range("a3")
str.Value = FormatDateTime(Now, vbShortDate)
End Sub