マクロでシリアル値を文字列にしたい。

マクロでシリアル値を文字列にしたい。

すみません、マクロでシリアル値を文字列に変えたいと思っています。

Range("A1").Value = Format(Now,"yyyy年")

とすれば現在の日付のデーターが文字列になるのですが、これを例えば、B2にシリアル値で日付が入力されていてA1文字列に置き換える方法はあるのでしょうか？出来れば記述の仕方を教えていただきたいのですが宜しくお願いします。

No.1 ベストアンサー 回答者： imogasi 回答日時： 2010/10/17 21:35

直ぐ近くまでわかっていて、どうしてこの質問になるのかな。

例えば
A1に2010/10/12と入力したとする。セルの値はシリアル値です。
Sub test01()
Range("B4") = Format(Range("A4"), "yyyy年m月d日")
End Sub
B4は 2010年10月12日
これはセル値としては文字列です。

この回答への補足

imogasi様
回答有難うございます。同じように記述もしたのですが、うまくいかずに投稿しました。
もう一度検討してみます。

補足日時：2010/10/17 21:41

この回答へのお礼

imogasi様
私の単純な記述ミスをしてました。
気づかせて頂き有難うございます。

お礼日時：2010/10/17 21:49