VBA 年度をまたぐ月日の表示について質問です。B6は、令和7年7月開始してB17は、令和8年6月で終了させるにはVBAでどうすればよいですか？写真の通り上手くいかないです。

文字にしないで日付（シリアル値）を使うといいと思います。



Sub test()

Dim wdate As Date

Dim i As Long

wdate = DateSerial(2025, 6, 1)

For i = 1 To 12

Cells(i + 5, 2).Value = DateAdd(\u0026quot;m\u0026quot;, i, wdate)

Cells(i + 5, 2).NumberFormatLocal = \u0026quot;ggge年m月\u0026quot;

Next i

End Sub