エクセル2007で作成したいのですが・・

質問

作業予定表を作成しています
シート1に左から
予定日　機械名　数量　終了日　得意先　色　・・・等の項目があり
１／１　　Ａ機　　500　　　1/3　　　AAA　　黒
１／３　　Ｂ機　　1000　　1/5　　　CCC　　青
１／２　　Ａ機　　300　　　1/3　　　ABC　　黒
１／１　　Ａ機　　200　　　1/2　　BBBB　　赤
１／２　　Ｂ機　　100　　　1/4　　　ABCD　青

という感じで行下にどんどん追記していく予定表データから別シートに
作業予定日と機械名を入力すると数量や・終了日等該当する行の項目データが表示されるようにしたいのですが・・・。

シート2のイメージは以下の感じです

予定日　　　機械名
1月1日　　　　Ａ機　
↑↑↑　　↑↑↑
ここに抽出したい日時と機械名を入れてエンターを押すと下のように表示されるのがベストです

数量　　終了日　得意先　　色・・・
500　　　1/3　　　　ＡＡＡ　　黒
200　　　1/2　　　　BBBB　赤

サーバにアップして、各社員が予定表に入力して、状況を閲覧できるようにしたいのです。
シート1では数式でいろんな集計？がしてあるのでフィルタや並び替えは避けたいです。
多くの人間が作業するのでフィルタや並び替え等の操作をすると誤って削除する方が多く困っているのでこの方法が良いかと考えました。
すみませんが御助力ください。他になにか良い案があればご教示頂ければ幸いです。

回答No.4

KURUMITO · ベストアンサー

シート1の1行目は項目名で2行目から下方にデータがあるとします。
Ａ列からＦ列までにお示しの表がさらに右の列にいくつかの項目があるとしてＪ列まであるとします。
データがどんどん追加されていくのですから複雑な式を入力して対応するよりも作業列を作って対応することがはるかに効率的です。
ところで結果の表示ですがシート2を使うとしてシート2のＡ1セルに予定日の文字を入力し、Ｂ1セルに検索したい予定日を入力することにします。また、Ａ2セルには機械名と文字を入力しＢ2セルに検索したい機械名を入力します。
そこでシート1での作業列ですがＫ2セルには次の式を入力して下方にドラッグコピーします。

=IF(OR(Sheet2!B$1="",Sheet2!B$2=""),"",IF(AND(A2=Sheet2!B$1,B2=Sheet2!B$2),MAX(K$1:K1)+1,""))

シート2ではＡ3セルから右の列には項目名を入力します。
Ａ4セルには次の式を入力して右横方向にドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(OR(ROW(A1)>MAX(Sheet1!$K:$K),A$3=""),"",IF(INDEX(Sheet1!$A:$J,MATCH(ROW(A1),Sheet1!$K:$K,0),COLUMN(A1)+2)=0,"",INDEX(Sheet1!$A:$J,MATCH(ROW(A1),Sheet1!$K:$K,0),COLUMN(A1)+2)))

お礼

すごいっす。これがやりたかったのです。ありがとうございました。
素晴しいです。また、困った時は是非御力を貸して下さい。
ありがとうございました。

回答No.5

noname#204879

添付図参照
Sheet2 において、
１．セル A2 に次の配列数式を入力して、此れを下方にズズーッと、必要十分なだけ、ドラッグ＆ペースト
　　{=IF(OR(B$2="",C$2=""),"",SMALL(IF((Sheet1!$A1:$A1000=$B$2)*(Sheet1!$B1:$B1000=$C$2),(Sheet1!$A1:$A1000=$B$2)*(Sheet1!$B1:$B1000=$C$2)*ROW(Sheet1!A$1:A$1000),""),ROW(Sheet1!A1)))}
２．Ａ列を“表示しない”に設定
３．セル D2 に次の[条件付き書式]を設定
　　数式が　　　=ISERROR(D2)
　　フォント色　白
４．セル D2 に式 =INDEX(Sheet1!C:C,$A2) を入力して、此れを右方にズズーッと（此処ではセル G2 までと仮定）ドラッグ＆ペースト
５．セル E2 を日付形式 m/d に書式設定
６．範囲 D2:G2 を下方にズズーッと、必要十分なだけ、ドラッグ＆ペースト

お礼

いろんなやり方があるんですね。たくさんの方のご指導に感謝です。
こいうのを作りたかったのです。
また、御教示頂けたら光栄です。お忙しい中ありがとうございました。

回答No.3

tom04

こんにちは！
一例です。

↓の画像のようにSheet1に作業用の列を設けます。
（作業列が目障りであれば遠く離れた列にするか、作業列を非表示にします）

Sheet1の作業列G2セルに
=IF(AND(A2=Sheet2!$A$2,B2=Sheet2!$B$2),ROW(),"")
という数式を入れオートフィルでずぃ～～～！っと下までこれ以上データがない！というくらいコピーしておきます。

Sheet2のA5セルに
=IF(COUNT(Sheet1!$G:$G)<ROW(A1),"",INDEX(Sheet1!$A:$F,SMALL(Sheet1!$G:$G,ROW(A1)),MATCH(A$4,Sheet1!$1:$1,0)))
という数式を入れ列方向・行方向にオートフィルでコピー！
最後に日付列の表示形式は「日付」にして完了です。

参考になりますかね？m(_ _)m

お礼

結果が同じでもいろんな数式がある事に驚きました。
皆さんの御力に感謝です。
また、教えてください。ありがとうございました

回答No.2

MackyNo1

ご希望の複数条件の抽出なら基本はフィルタオプションの設定を利用されることをお勧めします（マクロの記録でボタンをクリックすれば自動的に抽出結果を表示することができます）。

どうしても関数で表示したいなら、以下ような数式を入力して右方向及び下方向にオートフィルすることになりますが、配列数式のため元データの範囲や表示データ数が多くなると、再計算に時間がかかりシートの動きが重くなるなどの欠点があります。
(元データがSheet2にあり、A列の抽出条件がA1セル、B列の抽出条件がB列に入力されている場合）。

=IF(ROW(A1)>SUMPRODUCT((Sheet2!$A$2:$A$1000=$A$1)*(Sheet2!$B$2:$B$1000=$B$1)),"",INDEX(Sheet2!C:C,SMALL(INDEX(((Sheet2!$A$2:$A$1000<>$A$1)+(Sheet2!$B$2:$B$1000<>$B$1))*10000+ROW($A$2:$A$1000),),ROW(A1))))

お礼

まだ、試してませんが迅速にご教示いただきありがとうございました。
やってみます。

回答No.1

mu2011

フィルタオプションの設定でシート２に抽出しては如何でしょうか。
（１）シート２のA1:B2に抽出条件を入力
（２）シート２上でデータ→詳細設定→指定下範囲を選択、リスト範囲欄に=Sheet1!A:F、検索条件範囲欄にA1:B2,抽出範囲欄にA4→ＯＫ
　　　因みに（２）操作をマクロ記録すると後々の操作が簡単になりますが如何でしょうか。

参考のＵＲＬを添付していますのでこちらもご確認下さい。

参考URL：

http://www.eurus.dti.ne.jp/~yoneyama/Excel/filter3.htm

お礼

フィルタオプションだと、データを追記する度に抽出しなければいけないですよね。ではなくて、常に日付と機械を選択する方法が理想です。
でも大変勉強になりました。ありがとうございました。