プロが教える店舗&オフィスのセキュリティ対策術

以下のように作成したのですが、
年:XXXX 4桁 できました。
月:XX 2桁ができません、1桁になります。
  5月なら05として取得したいのですが、修正方法がわかりません
A1には、2009/5/1と入力しています。

VBAに詳しい方で簡単に、どうぞお願いします。

Sub sample()
Dim myDate As Date
myDate = Range("A1").Value

Range("B7").Value = Year(myDate)
Range("C7").Value = Month(myDate)
Range("D7").Value = Day(myDate)

End Sub

A 回答 (1件)

こんにちは


 VBAの式を見ますとセルのデータとしては、数値で持つようなので、見映えをリーディング0付きにしたいと判断しまた。
◆手動で設定(事前作業とするとき)セルの表示形式をユーザ定義にして 00 を設定すればOk。
 VBAマクロからなら、事前に1度だけ下記のコード実行する。
 Range("C7").NumberFormatLocal = "00"

この回答への補足

説明不足でした。

05という文字列を抽出して、変数を修飾してから、2009年05月XXX.xlsというファイルを読みたいのです。

無理ですか

補足日時:2009/06/11 21:06
    • good
    • 0
この回答へのお礼

ありがとうございます。
できました。

Sub a()
Dim myDate As Date
Dim AAA As String

myDate = Range("A1").Value

AAA = "'" & Format(myDate, "mm")

Range("C7").Value = AAA '確認用です。
End Sub

お礼日時:2009/06/11 21:39

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!