- 453 名前：デフォルトの名無しさん mailto:sage [2009/06/11(木) 20:25:43 ]
- VBAの年月を取得したいのですが
以下のように作成したのですが、
年：XXXX ４桁で取得できました。
月：XX ２桁ができません、１桁になります。
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
