![如何使用 VBA 将 dd/mm/yyyy 格式的日期放入 Excel 单元格中?](https://linux22.com/image/1623035/%E5%A6%82%E4%BD%95%E4%BD%BF%E7%94%A8%20VBA%20%E5%B0%86%20dd%2Fmm%2Fyyyy%20%E6%A0%BC%E5%BC%8F%E7%9A%84%E6%97%A5%E6%9C%9F%E6%94%BE%E5%85%A5%20Excel%20%E5%8D%95%E5%85%83%E6%A0%BC%E4%B8%AD%EF%BC%9F.png)
我想用日期作为字符串填充工作表中的单元格,并且希望其格式为 dd/mm/yyyy。我使用以下代码,但它一直显示为 mm/dd/yyyy。我不确定我做错了什么,因为我已经查找了答案。
Private Sub CommandButton1_Click()
Dim date1 As String
date1 = Format(Date, "dd/mm/yyyy")
Worksheets("sheet1").Cells.Range("B1") = date1
End Sub
答案1
在单元格中放置值之前进行格式化:
Private Sub CommandButton1_Click()
With Worksheets("sheet1").Range("B1")
.NumberFormat = "dd/mm/yyyy"
.Value = Date
End With
End Sub