ワークシートのセルに日付を文字列として入力し、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
セルに値を配置する前にフォーマットします。
Private Sub CommandButton1_Click()
With Worksheets("sheet1").Range("B1")
.NumberFormat = "dd/mm/yyyy"
.Value = Date
End With
End Sub