エクセル ＶＢＡで日付表示を平成００年・・・とする方法を教えて下さい。

質問

こんにちは。いつも大変お世話になっています。
「わをん」のシートのｂ1に、日付が入力されています。
表示は月のみとなっています。

それをＶＢＡで「あいう」のｆ４に持ってきて
その後に「支払」と入れたいのです。
2007年12月31日支払、もしくは平成19年12月31日支払としたいのですが、
下記のようだと　　
2007/12/31支払　　と出てしまいます。

Worksheets("あいう").Select
Range("f4") = Worksheets("わをん").Range("b1")
Worksheets("あいう").Select
Range("f4") = Range("f4") & ("支払")

どのようにしたら、うまく表示されますでしょうか？
よろしくお願い致します。

回答No.1

hana-hana3 · ベストアンサー

Format関数を使います。
Range("f4") = format(Range("f4"),"ggge年m月d日") & ("支払")

http://www.geocities.jp/cbc_vbnet/function/date.html#format1

お礼

早速のご回答ありがとうございます！
できました！

回答No.4

imogasi

（１）セルの値を変える場合　Format
既回答は
Sub test01()
Range("f4") = Format(Range("f4"), "追加分ggge年m月d日支払")
End Sub
のように、日付の前後に、それ以外の語句を、＆でなく、直接加えられます。
（２）書式だけにする場合
Sub test01()
'Range("f4") = Format(Range("f4"), "追加分ggge年m月d日支払")
Range("f4").NumberFormat = "追加分ggge年m月d日支払"
End Sub
ーー
書式の記号は「日付　書式　VBA」でWEB照会すると
http://www.officepro.jp/excelvba/cell_numberformat/index5.html
など
で沢山出てきます。

回答No.3

patak

「2007年12月31日支払」
Worksheets("あいう").Select
Range("F4").Select
Selection.NumberFormatLocal = "yyyy""年""m""月""d""日 支払"""

「平成19年12月31日支払」の場合
Range("f4") = Worksheets("わをん").Range("b1")
Range("F4").Select
Selection.NumberFormatLocal = "ggge""年""m""月""d""日　支払"""

みたいな具合でどうでしょうか？

回答No.2

n-jun

Worksheets("あいう").Range("f4").Value = _
　　　　　　　　　　Format(Worksheets("わをん").Range("b1").Value, "ggge年mm月dd日支払")
か
Worksheets("あいう").Range("f4").Value = _
　　　　　　　　　　Format(Worksheets("わをん").Range("b1").Value, "yyyy年mm月dd日支払")
では、どうでしょう？