VBAについて

質問

UserFormのTextBoxで日付（例：12/1）と入力されたら、
エクセルシートに「12/1」と表示させたいと思っています。
そこで、以下のプログラムまではできているのですが、
これだと「2005/12/1」と表示されてしまいます。

d = TextBox1.Text
For i = 4 To 35
Sheet1.Cells(4, i) = d
d = d + 1
Next i

どのようにプログラムを書いたら「12/1」というような表示の仕方になるのか
どなかた教えてください。

回答No.1

s___o · ベストアンサー

d = TextBox1.Text
For i = 4 To 35
Sheet1.Cells(4, i) = d
Sheet1.Cells(4, i).NumberFormatLocal = "m/d"
d = d + 1
Next i

でどうでしょう？
セルの書式を「m/d」にしています。

お礼

早速、回答ありがとうございます。

おかげで解決することができました。

本当にありがとうございました。