エクセル２０００マクロ年月計算

セル（A1）に今日の日付関数（TODAY）を入れています。
2002/04→書式設定(yyyy/m)表示です。

今日の日付がたとえば2002/04であれば、別のセル(例B1～B6)に200203(１ケ月前）
200202(2ケ月前）200201(3ケ月前）200112(4ケ月前）200111(5ケ月前）
200110(6ケ月前）と入れたい場合はマクロでどう記述すればよいか
教えてください。(１ケ月前）等は表示には関係ありません。
例例えば来月になれば(2002/05)に変わるので、200204,200203,200202,
200201,200112,200111に表示したいのです。
セルの位置は別にどこでも結構です。

No.1 ベストアンサー 回答者： nishi6 回答日時： 2002/04/06 12:21

分かりやすく６個書いてみました。

当然ForNextが使えますね。
ご参考に。

Sub Zengetu1_6()
　　Dim Ima As Date '今の日付
　　Ima = Range("A1")

　　Range("B1") = Format(DateSerial(Year(Ima), Month(Ima) - 1, 1), "yyyy/mm")
　　Range("B2") = Format(DateSerial(Year(Ima), Month(Ima) - 2, 1), "yyyy/mm")
　　Range("B3") = Format(DateSerial(Year(Ima), Month(Ima) - 3, 1), "yyyy/mm")
　　Range("B4") = Format(DateSerial(Year(Ima), Month(Ima) - 4, 1), "yyyy/mm")
　　Range("B5") = Format(DateSerial(Year(Ima), Month(Ima) - 5, 1), "yyyy/mm")
　　Range("B6") = Format(DateSerial(Year(Ima), Month(Ima) - 6, 1), "yyyy/mm")
End Sub

この回答への補足

できました。ありがとうございました。
いつもわかりやすい回答ありがとうございます。

補足日時：2002/04/06 12:48