こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel VBA で日付を4ケタの数値に変換させるには?

ある日付データを 『月』と『日付』のみの4ケタの"文字列"にさせて表示処理させたいのですが、困っております。

現在、VBAを使用しないで処理させると…こんな感じで困っています。

1.日付を yyyy/mm/dd 表示
2.編集~ 『/』のみを全て『0』に変換
3.RIGHT関数で4ケタ(または5ケタ)抜き取る

*データ*
日付    yyyy/mm/dd  変換      RIGHT(4ケタ)
1月5日  2005/1/5     20050105   0105
1月10日  2005/1/10    200501010   0110
 ・    ・
 ・    ・

▲不具合状況
1."1月10日" のように日付が2ケタになる日は "1010" のように表示がずれる。RIGHT(○,5) で対処する方法もあるが…効率があまり良くない。

2."yyyy/mm/dd" のデータを直で "RIGHT( )" で処理させると思ったとおりの値が戻ってこない。

yyyy/mm/dd      RIGHT()
2005/1/5    →   8537 …変な値が戻ってくる?

VBAで一気にやる方法ありますでしょうか?
お知恵を拝借ください!

投稿日時 - 2005-01-17 01:10:42

QNo.1171441

困ってます

質問者が選んだベストアンサー

こんばんは。

VBAでなくてもいいんですよね?

"2005/1/10" と表示されているセルをA2として、
↓でどうでしょうか?
------------------
=TEXT(A2,"mmdd")
------------------

投稿日時 - 2005-01-17 01:25:31

お礼

おおっ! こんな方法もあったのですか【・_・ ホーなるほど
アドバイスありがとうございました!!!

投稿日時 - 2005-01-17 01:40:10

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問