OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

エクセル2000マクロ年月計算

  • すぐに回答を!
  • 質問No.248001
  • 閲覧数232
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

セル(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に表示したいのです。
セルの位置は別にどこでも結構です。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

分かりやすく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
補足コメント
noname#72697

できました。ありがとうございました。
いつもわかりやすい回答ありがとうございます。
投稿日時 - 2002-04-06 12:48:46
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ