- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：エクセル２０００マクロ年月計算）
Excel2000マクロで2002/04の1〜6か月前の日付を入力する方法を教えてください
このQ&Aのポイント
- エクセル２０００マクロで、セル（A1）に今日の日付関数（TODAY）を入れ、2002/04の表示形式（yyyy/m）にしています。今日の日付が2002/04の場合、別のセル（例B1〜B6）には200203（１ケ月前）、200202（２ケ月前）、200201（３ケ月前）、200112（４ケ月前）、200111（５ケ月前）、200110（６ケ月前）と入力したい場合、どのようなマクロを記述すれば良いですか？（１ケ月前などの表示には関係ありません）
- エクセル２０００マクロで、特定のセルに今日の日付を入力し、その日付を2002/04のような形式で表示しています。もし、今日の日付が2002/04なら、別のセルには200203（１ケ月前）、200202（２ケ月前）、200201（３ケ月前）、200112（４ケ月前）、200111（５ケ月前）、200110（６ケ月前）と入力したい場合、どのようなマクロを使用すれば良いですか？（１ケ月前などの表示には関係ありません）
- エクセル２０００マクロで、セル（A1）に「今日の日付関数（TODAY）」を入力し、それを2002/04のような表示形式（yyyy/m）に設定しています。もし、今日の日付が2002/04の場合、別のセル（例B1〜B6）には200203（１ケ月前）、200202（２ケ月前）、200201（３ケ月前）、200112（４ケ月前）、200111（５ケ月前）、200110（６ケ月前）と入力したい場合、どのようなマクロを記述すればいいですか？（「１ケ月前」という表示には関係ありません）
noname#72697
- オフィス系ソフト
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
分かりやすく６個書いてみました。当然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
補足
できました。ありがとうございました。 いつもわかりやすい回答ありがとうございます。