web-dev-qa-db-ja.com

VBAを使用してdd / mm / yyyy形式の日付をExcelセルに配置するにはどうすればよいですか?

ワークシートのセルに日付を文字列として入力し、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
2
TomBird

セルに値を配置する前にフォーマットします。

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

良い一日、

セルの基になるフォーマットがVBAのフォーマットをオーバーライドするようです。コードを実行する前に、カスタムフォーマットを追加しました。私はより良い提案がありました。おそらく画像は必要ないでしょう。

enter image description here

2
BradR