如何使用 VBA 将 dd/mm/yyyy 格式的日期放入 Excel 单元格中？

Question

我想用日期作为字符串填充工作表中的单元格，并且希望其格式为 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

Answer 1

在单元格中放置值之前进行格式化：

Private Sub CommandButton1_Click()
     With Worksheets("sheet1").Range("B1")
        .NumberFormat = "dd/mm/yyyy"
        .Value = Date
    End With
End Sub

Answer 2

再会，

似乎单元格的底层格式会覆盖 VBA 中的格式。我只是在运行代码之前添加了自定义格式。我有一个更好的建议。您可能不需要图像，但是……