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

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

A 回答 (1件)

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

当然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
    • good
    • 0

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

このQ&Aを見た人が検索しているワード


人気Q&Aランキング

おすすめ情報