VBAで日付をformat関数で”-”にしたい

Question

/で区切られた日付を-で区切るようにしたいのですが、どうしても/で区切られたままでてきてしまいます。
2019/9/31-> 2019-09-31のように変換したい。

Sub date_change()
    Dim i
    
    For i = 1 To 100
        str_date = CDate(Cells(i, 2))
        Cells(i, 2) = Format(str_date, "yyyy-mm-dd")
        
    Next
    
        
End Sub

デバッグすると６行目のCells(i, 2)でも、2019/9/31のようになったままでした。

Split関数も使ってやってみましたがそちらもうまくいかず。

よろしくお願いします。

Answer 1

セルの書式が「標準」か「日付」になっているのでしょう。

書式を変更すればご希望の表示になります。

Sub date_change()
    Dim i As Long

    For i = 1 To 100
        Cells(i, 2).NumberFormatLocal = "yyyy-mm-dd"
    Next

End Sub

ループさせなくても一気に変更することもできます。

Sub date_change()

    Range(”B1:B100").NumberFormatLocal = "yyyy-mm-dd"

End Sub

2019/12/11 とか 2019-12-11 とか令和1年12月11日というように日付と扱えるようなデータは、日付としてセルに格納されます。（実際には1900年1月1日を基準日としてその日から経過日数が格納されている。＝日付シリアル値）
それを書式設定で、いろいろな書式に変換して表示している。表示上の値と内部に格納されている値は異なる。

Comments

[yuchin.]

2つ目のコードを試したところうまくいきました！ありがとうございました！

Answer 2

日付の書式設定は、システム設定の
時刻と言語→日付、時刻、地域の書式設定→データ形式を変更する
からの「日付（短い形式）」で決定されています。
ここを変更する事で日付の書式は変更できます。

ですが、PCの設定に依存するので、セルの書式設定が確実ですね。

Answer 3

VBAやったことないのでうまく行くかわかりませんが
Cells(i, 2) = Format(str_date, "yyyy" & "-" & "mm" & "-" & "dd")
こんな感じでできないですかね。

（できなかったらすみません）