

セル(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に表示したいのです。
セルの位置は別にどこでも結構です。
No.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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelに入力した個々の日付の数...
-
Excelで8/26等の日付を全てその...
-
31:30:00が1900/1/1 7:30:0
-
エクセルでENTERを押すと数式が...
-
日付だけを変更して印刷(Excel)
-
Excelで半年後の日付を計算したい
-
エクセル関数で日付かどうかの...
-
入力後に日付順になるように自...
-
EXCELで直近の日付を抽出する関数
-
エクセルで日付入力欄を作成し...
-
Excelで日付を4ケタで入力し、○...
-
ファイルのオープン時に今日の...
-
word、日付選択コンテンツの隣...
-
日付の照合でFALSEになります。
-
エクセル 当番表の作り方 エク...
-
エクセルで数字列の間に『/』を...
-
日付を入力したセルをファイル...
-
WORDで翌日や翌々日の日付を表...
-
エクセル グラフ 軸の日付表記...
-
エクセルのセルにたとえば「756...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelに入力した個々の日付の数...
-
日付だけを変更して印刷(Excel)
-
入力後に日付順になるように自...
-
31:30:00が1900/1/1 7:30:0
-
Excelで半年後の日付を計算したい
-
エクセルでENTERを押すと数式が...
-
Excelで8/26等の日付を全てその...
-
日付の照合でFALSEになります。
-
エクセル関数で日付かどうかの...
-
エクセル 当番表の作り方 エク...
-
エクセルで数字列の間に『/』を...
-
EXCELで直近の日付を抽出する関数
-
エクセルのセルにカレンダーを...
-
日付を入力したセルをファイル...
-
ファイルのオープン時に今日の...
-
WORDで翌日や翌々日の日付を表...
-
エクセルで1年後の月末を表示さ...
-
エクセルで日付入力欄を作成し...
-
エクセル グラフ 軸の日付表記...
-
エクセル セルに109と入力する...
おすすめ情報