- ベストアンサー
各セルに、翌月、前月、翌々月・・・当月を表示したい。
質問 です セル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に表示しているものが来ます。 そこで、常に自動で並べかえられるならば、便利だと思ったのです。 よろしくお願いします。
- pooh-03
- お礼率95% (168/176)
- オフィス系ソフト
- 回答数5
- ありがとう数6
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
>そのセル（セル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まで右へコピィで、先月から順になりますが。
その他の回答 (4)
- keirika
- ベストアンサー率42% (279/658)
＃３です。 補足します。 Ｈ３以降はＨ３の式を右フィルして下さい。
お礼
ご丁寧にフォローしていただいてありがとうございます
- keirika
- ベストアンサー率42% (279/658)
Ｅ３ =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/標準"月"にします
お礼
ありがとうございます。 こういう方法もあるんですね。 勉強になりました。
- mu2011
- ベストアンサー率38% (1910/4994)
一例です。 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を右方向にコピーして下さい。
お礼
ありがとうございました。 これなら書式設定はいらないのですね。 大変参考になりました。
- FEX2053
- ベストアンサー率37% (7987/21355)
=DATE(YEAR(NOW()),MONTH(NOW())+XXXXX,1) XXXXXのところに-1,+1などを突っ込めば、前月、翌月などの１日が 出てきます。後は「書式」「セル」の「日付」でコントロールすれば オッケー。月だけしか表示したくないなら、「ユーザー定義」で「m月」 と入力してやれば「月」しか出てきません。 ちなみに「+12」とすれば、ちゃんと翌年の同月が出てきます。
お礼
ありがとうございました。 解決方法を教えていただいて ほっとしました。
関連するQ&A
- ExcelでVBAを使って日付を自動表示したい
初めまして。エクセル初心者です。エクセル２０００で日付を自動で表示したいのですが、どのようにＶＢＡで作成すればよいか教えて下さい。 まず、シート１のセルＥ２に西暦・セルＧ２に月を入力するとセルＥ４ にＧ２の月・Ｐ４にＧ２の次の月が自動で表示されます。 次に、セルＥ５からセルＯ５までにＥ４の月の２１日から３１日、 セルＥ６からセルＯ６までにＥ４の月の２１日から３１日までの 曜日を自動で表示したい。 セルＰ５からセルＡＩ５までにＰ４の月の１日から２０日、 セルＰ６からセルＡＩ６までにＰ４の月の１日から２０日までの 曜日を自動で表示したい。 最後に、土日の列のセル５から２５までを灰色にする。 セルＥ４の月によって３０日まででセルＯ５何もなし、２月なら２８日で２９日から３１日は表示しないようにしたいのですが。 何かいいマクロの組み方を教えて下さい。よろしくお願いします。
- 締切済み
- その他（ビジネス・キャリア）
- 前月を表示したいのですが…
A1に各月度（「1」～「12」）のみが入力されています。 D1にその前月の月度（「1」～「12」）のみを表示させたいのですが、うまくいきません…（汗） IF関数の入れ子で対応出来たりするんでしょうか？ ちょっと頑張ってみたんですが、イマイチうまくいかず、MONTH関数か？と思ってやってみたんですがシリアル値？に詳しくなく、これまたちょっと分からず…（滝汗） 既出かもしれないんですが、お力をお貸しください。 どうぞよろしくお願いします（＞＜
- ベストアンサー
- その他MS Office製品
- エクセルで当月の数字を入力して、隣のセルに前月の数字を表示するのには
エクセルで今月の数字を入力して、隣のセルに前月数字を表示するのにはどうすればいいのでしょうか？どうか分かる方教えてください。
- ベストアンサー
- Windows系OS
- 指定セル値に当月１日を翌月まで維持
B1セル変更によってマクロを実行したくB1セル値に月が変わったら当月１日が入力され翌月初日切替りまでB1セルに当月/1を入力維持させたいのですがVBAコードが解る方宜しくお願いします。(B1セル当月/1,B2セル当月/2,B3セル当月/3～を入力したいためです）
- ベストアンサー
- Visual Basic
- エクセルで曜日を自動で表示させる
苦戦してます。教えて下さい A B C D E F G H I 1 平成 ２１ 年 ４ 月 ４ 日 ■ 曜日 2 3 上のように表を作成し A2セルに ＝A1&B1&C1＆D1&E1&F1&G1 と入力し 平成２１年４月４日と表示させました。 A3セルには ＝A２ と入力し、セルの書式設定を ａａａ にして曜日を表示させようとしたんですが、平成２１年４月４日 としか表示されません。 最終的にはＨ１セルに ＝Ａ２を入力して曜日を自動表示させるつもりでいたんですが、どうすればうまくいくのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 1つのセルの数字を複数のセルに1文字づつ表示したい
こんばんは。 いつも勉強させていただいています。 下記について、ご教示いただければ幸いです。 K1セルには、最小で1桁から最大で9桁までの数値が入力されます。 それを A1からI1までに1つづつ表示させたいのです。 例1） K1 に 10105 と入力した場合 A1からD1まではブランク E1に1、F1に0、G1に1、H1に0、I1に5 例2） K1 に 101050235 と入力した場合 A1に1、B1に0、C1に1、D1に0、E1に5、F1に0、G1に2、H1に3、I1に5 なお、同じシートの他のセルには0を入力する場合があるため、「ゼロ値のセルにゼロを表示する」のチェックを外すことはできません。 私なりに考えたのは、K1セルの数値をL1に =TEXT(K1,"000000000")として文字にし、M1から右のセルに =MID($K$1,1,1) というように各桁を抜き出す方法だったのですが、10000 のように丸い数字をK1に入力すると 1 は表示できても 0 がブランクになってしまいます。 いい方法がありましたら、ぜひご教示下さい。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 関数で、最大値のあるセルの列を表示したい
エクセルの関数について教えてください。 セルＨ1に関数を使って、列Ａ、列Ｃ、列Ｅ、列Ｇの最大値を出しました。 その下のＨ２のセルに、関数を使って、列Ａ、列Ｃ、列Ｅ、列Ｆの最大値のある列（Ａ，Ｂ，Ｃ，Ｄのいずれか）を表記させたいのですが（下記のように）、可能でしょうか？ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ 1 10 ※ 28 ※ 66 ※ 26 99 2 56 ※ 29 ※ 89 ※ 28 Ａ 3 99 ※ 12 ※ 66 ※ 10 （列Ｈが上記のようになるようにしたいのです。）
- ベストアンサー
- オフィス系ソフト
- セルを空白にしたら「０（ゼロ）」を表記させる方法
セルを空白にしたら「０（ゼロ）」を表記させる方法の質問です。 「Ｆ５～Ｆ３８」「Ｈ５～Ｈ３８」「Ｊ５～Ｊ３８」「Ｌ５～Ｌ３８」「Ｎ５～Ｎ３８」「Ｐ５～Ｐ３８」「Ｒ５～Ｒ３８」「Ｄ６～Ｄ３８」「Ｅ５～Ｅ３６」「Ｔ５～Ｔ３６」「Ｕ５～Ｕ３８」の範囲のセルに数字や文字を入力します。 上記範囲のセルに入力した数字や文字を消して、空白表示にした場合は自動で「０（ゼロ）」と表記させる方法はあるのでしょうか？
- ベストアンサー
- Excel（エクセル）
- 可視セルを関数に組み込むマクロ
Z列に関数を入力するマクロを組みたいです。 最初に、A-D列のみ表示し、E-Y列はグループ化して非表示にしており、 A、B、C、D、Z 列のみ表示されています。 セルZ1に、A1、B1を引数とする関数を入力します。 次に、グループ化を解除し、E-H列のみ表示し、A-D列、I-Y列をグループ化して非表示にし、 E、F、G、H、Z列のみ表示します。 マクロを実行すると、セルZ１に、E１、F１を引数とする関数が入力されるようにしたいです。 グループ化は4列ずつ行い、画面に表示されるのは常に５列のみで、 Z列には、「表示されている第1列と第2列」のセルを引数とする関数を入力するように したいのです。 Z列から見て、表示されている列が変わっていくため、RC形式のセルの単純な相対表示では あらわせません。 よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- Excelで飛び飛びのセル（列）を参照したいのですが…その２
ある「sheet１」で、G1="A",H1="B",I1="C",J1="D",K1="E",L1="F",M1="G",N1="H",O1="I",P1="J",Q1="K",・・というように文字が入力されているとすると、５列飛びの値A,F,K・・・（G1,L1,Q1・・・）が欲しいのです。そして、その値が「sheet２」に、C5=A,D5=F,E5=K,F5=P・・・となるようにしたいのです。ただ数値が５ずつ増加するのではなく、そのセルに入力されている文字列を参照したいのです。 それをまた、「sheet１」の、G2="A",H2="B",I2="C",J2="D"・・・の値でも同じ事をしたいのですが・・・。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 大変参考になりました。 ＞人が使うには順に並んでいるほうが良くないですか？ リストの表示枠が狭く、順に並ばせると、前月はスクロールして一番下出さなきゃならないのでこうしてみました。 でも、リストの最初の月を変更すれば、うまく行くかもしれません。 ありがとうございました。