Excel 複数のシートを使って自動入力させていです。

質問

Excel 複数のシートを使って自動入力させていです。

Sheet1に「一覧表」とし、A1に日にち・B1に入荷先・C1「品物名」・D1「金額」を入力していく一覧表を作成しました。
入荷先の名前をSheet2.3に作り、入荷先ごとにリストを作成したいです。

一覧表に入力しただけで、自動的に入荷先ごとのシートに自動的に入力されてるってことって出来ますでしょうか？

例
　　A 　 B 　 C 　　D
1　日にち　入荷先　　　品物　　　金額
2　4/1　Aスーパー　たまねぎ　　100
3　4/5　B商店　　　　きゅり　　　50
これをSheet1「一覧表」をした場合、
Sheet2を「Aスーパー」とし、Sheet2を「B商店」として。同じ表を作成しておく。
一覧表のシートにAスーパーでの購入を入力すると、「Aスーパー」のシートに自動的に表が作られていく

説明下手で申し訳ありませんが、よろしくお願いします！

回答No.4

kagakusuki

今仮に、Sheet1のE列を作業列として使用し、Sheet2のB1セルに取引先の名前を入力し、Sheet2の3行目以下のA列に「日にち」、B列に「品物」の名前、C列に「金額」、が自動的に表示されるものとします。
　まず、Sheet1のE2セルに次の数式を入力して下さい。

=$B2&COUNTIF($B$2:$B2,$B2)

　次に、オートフィル機能等を使用して、E3以下のセルに、E2セルをコピーして下さい。
　そして、Sheet2のA2セルに「日にち」、B2セルに「品物」、C2セルに「金額」、と入力した後、Sheet2のA3セルに次の数式を入力して下さい。

=IF(COUNTIF(Sheet1!$E:$E,$B$1&ROWS(A$2:A2))>0,INDEX(Sheet1!$A:$E,MATCH($B$1&ROWS(A$2:A2),Sheet1!$E:$E,0),MATCH(A$2,Sheet1!$A$1:$D$1,0)),"")
　次に、オートフィル機能等を使用して、Sheet2のB3セルとC3セルに、Sheet2のA3セルをコピーして下さい。
　次に、Sheet2のA3からC3の範囲を選択した後、オートフィル機能等を使用して、4行目以下にコピーして下さい。
　そして、取引先の数に合わせて、Sheet2のコピーを作って下さい。
　最後に、Sheet2以降のシートのB1セルに、取引先の名前を入力すると、取引先毎のデータが自動的に表示されます。

回答No.3

tom04

こんばんは！
一例です。
↓の画像で説明させていただきます。

入荷先ごとにSheetがあるということですが、
とりあえず、Sheet2（Aスーパー）分の方法です。他のSheetも同様の方法になります。

まず、Sheet1（一覧表）に入荷先の数だけ作業用の列を設けます。
画像では項目を「Aスーパー」「B商店」という具合に入荷先の名前そのままをタイトル行にしています。

Sheet1のE2セルに
=IF($B2=E$1,ROW(),"")
という数式を入れ、列方向と行方向にオートフィルでずぃ～～～！っとコピーします。

このデータを元に各Sheetに振り分けて表示させるようにします。

Sheet2（Aスーパー用Sheet）のA2セルに
=IF(COUNT(Sheet1!$E:$E)<ROW(A1),"",INDEX(Sheet1!A:A,SMALL(Sheet1!$E:$E,ROW(A1))))
という数式を入れ、列方向と行方向にオートフィルでコピーすると
画像のような感じになります。

他のSheetも作業用の列を間違えないようにすれば同様の方法でOKだと思います。
これでSheet1に入力されるたびにデータが表示されるはずです。

以上、長々と書きましたが
参考になれば幸いです。m(__)m

回答No.2

hallo-2007

フィルタオプションの方法を紹介しておきます。
Sheet2に
　　A 　 B 　 C 　　D
1　　　　入荷先
2　　　　Aスーパー　
3　日にち　入荷先　　　品物　　　金額
B1、B2に抽出したい入荷先を入れておく
3行目に、Sheet1と同じタイトル行を作っておく
データ＝＞フィルタ＝＞フィルターオプション
ウィザードの　指定した範囲に　チェック
リストの範囲　Sheet1!$A:$D
検索条件範囲　$B$1:$B$2
抽出範囲　　　$A$4:$D$4
OK押すと　Aスーパー　の一覧表がでます。
毎回、操作するのが手間であれば、マクロの記録で自動化が出来るでしょう。

回答No.1

web2525

出来ないことはないが、計算式が複雑になります

代案として
・入荷先が固定
・リアルタイムな集計が必要ない
上記条件であれば

sheet1の入力が終了後オートフィルターで入荷先を指定した状態でシートをコピーし目的のsheetに貼り付け
この動作を一度マクロの記録で記録すればその後はワンクリックで目的は達成されます