エクセルで特定の値を入力すると自動的に振り分け

質問

例えば、シート１に以下のような入力するセルがあるとします。
　　　　Ａ　　　　　　　　Ｂ　　　　
１　　　日付　　　　　（ 4/29）　
２　　　項目 　　　　（ 給料）
３　　　収入　　　　　（100,000）　
４　　　支出　　　　　　
５　　　備考　　　　（５月分一部前借り）

普段はＢ列は空白になっています。

またシート２、シート３・・・以降は「月別」に分かれています。（シート２は４月用、シート３は５月用）

もし、Ｂ１の日付が４月だった場合、シート２の部分の特定各セルにＢ２～５までの内容も反映させられるようにしたいです。

同じく、Ｂ１に５月と入力された時点で、シート３の特定各セルにＢ２～５までの内容も反映させられるようにしたいです。

この様なことは可能なのでしょうか？

表現の仕方が分かりづらいかもしれませんが、どなたかご協力頂けないでしょうか。

よろしくお願いいたします。

回答No.1

imogasi · ベストアンサー

例データ
Ｓｈｅｅｔ１　Ａ２：Ｂ７
x 2011/5/1
y 12
z 1
u 23
v 24
s aaa
ーー
Ｓｈｅｅｔ２　Ａ２：Ａ７　項目見出しのつもり。
y
z
u
v
s
ーー
Ｓｈｅｅｔ３　Ａ２：Ａ７
y
z
u
v
s
＝＝＝＝
Ｓｈｅｅｔ２でＢ２に
=IF(MONTH(Sheet1!$B$2)=4,Sheet1!B3,"")
下方向に式複写
ーー
Ｓｈｅｅｔ３でＢ２に
=IF(MONTH(Sheet1!$B$2)=5,Sheet1!B3,"")
下方向に式を複写する
＝＝＝＝
結果
Ｓｈｅｅｔ１のＢ２が2011/5/1なら
Sheet3のＢ２：Ｂ７も含めて、Ｓｈｅｅｔ３は
y 12
z 1
u 23
v 24
s aaa
Ｓｈｈｅｔ２Ｂ２：Ｂ７は空白
ーー
Ｓｈｅｅｔ１のＢ２が2011/4/1なら、Ｓｈｈｅｔ２が変わることを足し渇ること。
＝＝
Ｓｈｈｅｔ１のＢ２は上記では日付シリアル値の日付が入っている前提。
=IF(MONTH(Sheet1!$B$2)=4,Sheet1!B3,"")
の４はシートに４の数字を持てば、そのセルを使えば、４や５など指定しなくても済む
＝＝＝
質問の表現どおりすると上記になった。
しかし全般に、質問のこの考えは初心者の思いつきの気がする。
初心者が今まで同じ発想で質問したと思うが、
シートのデータを（同じセルの中身を変えることで）違ったシートのセルにデータを投げるというのは、無理がある。
ＶＢＡならＳｈｅｅｔ１と関係を絶てるが、上記では何時までもＳｈｅｅｔ１につながってしまう。
エクセルの主義は、Ｓｈｅｅｔ１で、４月はＢ列に、５月はＣ列に、・・といった風に列を変えてデータを持つのだ。
＝＝＝
あるいは質問表現がまずかったのか、
私の質問のまいようの理解がおかしいのか。

お礼

ご回答ありがとうございました。
形ばかりを気にしていたようです。目が覚めました。
途中まで、出来ましたが断念しました。

回答No.2

keithin

可能かと言われれば，マクロを駆使して可能です。

手順：
新しいブックを開く
あなたがご質問に書かれたサンプル記述のその通りにシート上に作成する
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim w as worksheet
　dim wo as worksheet
　set wo = activesheet
　on error goto errhandle
　set w = worksheets(format(range("B1").value, "yyyymm"))
　on error goto 0
　w.range("A65536").end(xlup).range("A2:E2").value = application.transpose(range("B1:B5"))
　exit sub
errhandle:
　worksheets.add after:=worksheets(worksheets.count)
　activesheet.name = format(wo.range("B1").value, "yyyymm")
　activesheet.range("A1:E1").value = application.transpose(wo.range("A1:A5").value)
　wo.select
　resume
end sub

ファイルメニューから終了してエクセルに戻る
シート上にオートシェイプの図形を配置する
右クリックしてマクロの登録を開始，いまコピーしたmacro1を指定する
あなたがご質問に書かれたサンプルの通りデータを記入し，図形をクリックしてマクロを起動する。

とりあえず手順は以上です。

しかしながら実際は，こんな丸投げで誰かに作ってもらったマクロは，現実の役には殆ど立ちません。（後から実はこうでした，また作り直してくださいは無しでお願いします）
また一枚のシートにデータを記入して，どこか別のシートに履歴を残すといった使い方自体，初心者さんなら一度は誰でも思いついて実現できずに諦める典型的な試みの一つです。

現実のエクセルの使い方としては，
作成例：
Ａ列に日付列を設ける
Ｂ列に項目列を設ける
Ｃ列に収入列を設ける
Ｄ列に支出列を設ける
Ｅ列に収支列を設ける
Ｆ列に備考列を設ける
そうして上から順にデータを上から順に記入します。（こういうのを「リスト形式」と言います）
月が変わったらリストを改めるとかは一切考えないで，ずらずらとひたすら下へ下へと記入していきます。
月集計とかそういうことは，このひたすら下へと続けたリストを元データにして，エクセルの機能で(通常はピボットテーブルレポートなどの機能を使って）集計表を自動で作成させて運用します。

お礼

ご回答ありがとうございました。
形ばかりを気にしていたようです。目が覚めました。
途中まで、出来ましたが断念しました。