各セルに、翌月、前月、翌々月・・・当月を表示したい。

質問　です
セルE3に翌月を表示し、F3に前月を表示し、セルG3に翌々月を表示し、セルH3以降はO3まで一月ずつ加算し、セルP3は当月を表示する方法を教えてください。（セルE3からP3までのセルの表示を「日付」にし、それぞれに関数を入れれば済みますか。そうでしたら、その関数を教えてください。ＶＢＡが必要でしたら、その部分を教えてください。）
月が替わる都度、自動で各セルも繰り上がるようにしたいのです。

例　です
今月が8月ですので、セルE3には『9月』と表示し（『』は表示しません）、セルF3には『7月』と表示し、G3には『10月』、H3には『11月』・・・O3には『6月』と表示し、P3には『8月』と表示させたいのです。
そして、日数が過ぎて９月に入った場合は、自動でセルE3には『10月』と表示させ、以降のセルも計算により繰り上がった月表示させたいのです。


状況と理由　です
エクセル2002を使用しています。
[データ]－[入力規則]－[リスト]を使用して、セルに簡単に入力できるようにしています。
そのセル（セルA3）に入るのは、月です。
リストはセルE3、F3、G3、H3・・・P3に入力しています。
現在は手入力でテキスト形式で入力しています。
頻繁に使うのは翌月と前月です。
リストを使うと、候補の一番上はセルE3に表示されているもので、その下にはセルF3に表示しているものが来ます。
そこで、常に自動で並べかえられるならば、便利だと思ったのです。


よろしくお願いします。

No.5 ベストアンサー 回答者： hallo-2007 回答日時： 2008/08/27 19:25

>そのセル（セルA3）に入るのは、月です。

　A　　B　　C　　D　　E 　 F　　G　　H　・・・O　　P
8月　　　　　　　　　9月　7月　10月　11月　　6月　8月
E3　=TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())+1,1),"m月")
F3　=TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())-1,1),"m月")
G3　=TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())+COLUMN(B1),1),"m月")
O3まで右へコピィ
P3　=TEXT(DATE(YEAR(TODAY()),MONTH(TODAY()),1),"m月")

ででると思いますが
>頻繁に使うのは翌月と前月です。
なので複雑な順番にしていると思いますが、人が使うには順に並んでいるほうが良くないですか？
E3　=TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())+COLUMN(A1)-2,1),"m月")
でPまで右へコピィで、先月から順になりますが。

この回答へのお礼

ありがとうございます。

大変参考になりました。

＞人が使うには順に並んでいるほうが良くないですか？
リストの表示枠が狭く、順に並ばせると、前月はスクロールして一番下出さなきゃならないのでこうしてみました。

でも、リストの最初の月を変更すれば、うまく行くかもしれません。

ありがとうございました。

お礼日時：2008/08/28 08:51

No.4 回答者： keirika 回答日時： 2008/08/27 17:10

＃３です。

補足します。
Ｈ３以降はＨ３の式を右フィルして下さい。

この回答へのお礼

ご丁寧にフォローしていただいてありがとうございます

お礼日時：2008/08/28 08:47

No.3 回答者： keirika 回答日時： 2008/08/27 17:03

Ｅ３　=IF(MONTH(TODAY())+1=13,1,MONTH(TODAY())+1)

Ｆ３　=IF(MONTH(TODAY())-1=0,12,MONTH(TODAY())-1)
Ｇ３　=IF(E3+1=13,1,E3+1)
Ｈ３以降　=IF(G3+1=13,1,G3+1)
Ｐ３　=MONTH(TODAY())

でセルの書式設定をG/標準"月"にします

この回答へのお礼

ありがとうございます。

こういう方法もあるんですね。
勉強になりました。

お礼日時：2008/08/28 08:47

No.2 回答者： mu2011 回答日時： 2008/08/27 16:47

一例です。

E3は、=TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())+1,1),"m月")
F3は、=TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())-2,1),"m月")
G3は、=TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())+COLUMN(B1),1),"m月")
H3以降は、G3を右方向にコピーして下さい。

この回答へのお礼

ありがとうございました。
これなら書式設定はいらないのですね。

大変参考になりました。

お礼日時：2008/08/28 08:45

No.1 回答者： FEX2053 回答日時： 2008/08/27 16:36

=DATE(YEAR(NOW()),MONTH(NOW())+XXXXX,1)

XXXXXのところに-1,+1などを突っ込めば、前月、翌月などの１日が
出てきます。後は「書式」「セル」の「日付」でコントロールすれば
オッケー。月だけしか表示したくないなら、「ユーザー定義」で「m月」
と入力してやれば「月」しか出てきません。

ちなみに「+12」とすれば、ちゃんと翌年の同月が出てきます。

この回答へのお礼

ありがとうございました。

解決方法を教えていただいて
ほっとしました。

お礼日時：2008/08/28 08:44