年月の取得 (ID:141651)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめまして。なうと申します。 下記の件に関して、アドバイス等いただければ幸いです。 現在、セルの値から年月を取得したいのですが、想定どおりいかず困っています。 例） セルの値：2009.3.7 取得したい値：0903 色々試して MyDate = Range("A1")←2009.3.7 MyShortDate = CDate(Replace(MyDate, ".", ",")) MsgBox (MyShortDate) MsgBox (Year(MyShortDate)) MsgBox (Month(MyShortDate)) として、年月の取得までは出来たのですが、年の後ろ2文字、月の桁が1桁なら0をつける、といった処理を行いたいのですが、Lengthが使えなかったり、Leftが使えなかったりで上手く出来ません。 勉強し始めたばかりで分からないことばかりなので、間の抜けた問題なのかも知れませんが、アドバイスいただけますよう、お願いします。