小编Tom*_*ird的帖子

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