エクセル２００７で・・・

質問

現在、エクセル2007で工程管理表を運用しています。
項目は
【シート1】に、
受注番　　得意先名　機械名　数量　作業予定日　作業終了日　担当者・・・
　　1　　　　　秋田　　　　Ａ　　　100　　　3/7　　　　　　3/8　　　　　山田
　　2　　　　　長崎　　　　Ｂ　　　500　　　3/8　　　　　　3/9　　　　　田中
　　3　　　　　大阪　　　　Ａ　　　300　　　3/9　　　　　　3/10　　　　　吉田
　　4　　　　　東京　　　　Ａ　　　900　　　3/8　　　　　　3/11　　　　　大塚
　　・
　　・

の感じで、現在受注しているデータが上記の項目でシート１に入力してあります。

【シート2】に、
シート1の作業予定日毎で集めて各項目が一覧で表示されるようになっています

作業予定日　3/7
受注番　　得意先名　機械名　数量　作業予定日　作業終了日　担当者・・・
　　1　　　　　秋田　　　　Ａ　　　100　　　3/7　　　　　　3/8　　　　　山田

作業予定日　3/8
受注番　　得意先名　機械名　数量　作業予定日　作業終了日　担当者・・・
　　2　　　　　長崎　　　　Ｂ　　　500　　　3/8　　　　　　3/9　　　　　田中
　　4　　　　　東京　　　　Ａ　　　900　　　3/8　　　　　　3/11　　　　　大塚

作業予定日　3/9
受注番　　得意先名　機械名　数量　作業予定日　作業終了日　担当者・・・
　　3　　　　　大阪　　　　Ａ　　　300　　　3/9　　　　　　3/10　　　　　吉田

というように、作業予定日で分けて表示されるようにしています。
予定日ですべての作業が完了すれば良いのですが、中には翌日に作業が繰越すものもあります。
その場合、作業が完了していないものは、翌日の日程にも反映させたいのですがどうすればよいでしょうか？
作業繰越のものは何か入力（例えば「残」とか「１」とかの列を増やす程度にしたい）くらいは社員も恒久的にできるでしょうが、繰越の作業の予定日を再度入力し直して云々は避けたいです。
ご教示頂きたく宜しくお願い致します。

回答No.2

kagakusuki · ベストアンサー

今仮に、Sheet1とSheet2の両シートにおいて、「受注番」という項目名が入力されているセルがA1セルであるものとします。
　又、Sheet3のA列～D列を作業列として使用するものとします。

　　まず、Sheet3のA2セルに次の数式を入力して下さい。

=IF(ISNUMBER(INDEX(Sheet1!$E:$E,ROW())),COUNT(A$1:A1)+1,"")

　次に、Sheet3のC2セルに次の数式を入力して下さい。

=IF(COUNT($A:$A),IF(ROWS($2:2)=1,1,IF(COUNTIF(C$1:C1,C1)=INDEX(Sheet1!$F:$F,MATCH(C1,$A:$A))-INDEX(Sheet1!$E:$E,MATCH(C1,$A:$A))+1,IF(COUNTIF(C$1:C1,COUNT($A:$A)),"",C1+1),C1)),"")

　次に、Sheet3のD2セルに次の数式を入力して下さい。

=IF($C2="","",INDEX(Sheet1!$E:$E,MATCH($C2,$A:$A))+COUNTIF($C$1:$C1,$C2))

　次に、Sheet3のB2セルに次の数式を入力して下さい。

=IF($D2="","",COUNTIF($D:$D,"<"&$D2)+COUNTIF($D$1:$D2,$D2))

　次に、Sheet3のA2～D2の範囲をコピーして、同じ列の3行目以下に貼り付けて下さい。

　次に、Sheet2のA1～F1の各セルに、各項目名を入力して下さい。
　次に、Sheet2のA2セルに次の数式を入力して下さい。

=IF(ROWS($2:2)>COUNT(Sheet3!$C:$C),"",IF(COUNTIF(A$1:A1,SMALL(Sheet3!$D:$D,ROWS($2:2))),"",SMALL(Sheet3!$D:$D,ROWS($2:2))))

　次に、Sheet2のA2セルの書式設定の表示形式を[日付]として下さい。
　次に、Sheet2のB2セルに次の数式を入力して下さい。

=IF(OR(ROWS($2:2)>COUNT(Sheet3!$C:$C),COUNTIF(Sheet1!$A$1:$G$1,B$1)=0),"",INDEX(Sheet1!$A:$G,MATCH(VLOOKUP(ROWS($2:2),Sheet3!$B:$C,2,FALSE),Sheet3!$A:$A),MATCH(B$1,Sheet1!$A$1:$G$1,0)))

　次に、Sheet2のB2セルをコピーして、Sheet2のC2～F2の範囲に貼り付けて下さい。
　次に、Sheet2のA2～F2の範囲をコピーして、Sheet2のA3～F3の範囲に貼り付けて下さい。

　次に、以下の操作を行って下さい。

Sheet2のA3セルを右クリック
　　↓
現れた選択肢の中にある[セルの書式設定]をクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[罫線]タブをクリック
　　↓
上辺と下辺の罫線をクリックして、左辺と右辺だけ残して罫線を消す
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
Sheet2のA3セルが選択されている状態で、[ホーム]タブをクリック
　　↓
「スタイル」グループの中にある[条件付き書式]ボタンをクリック
　　↓
現れた選択肢の中から[新しいルール]を選択してクリック
　　↓
現れた「新しい書式ルール」ダイアログボックスの「ルールの種類を選択してください」欄の中にある[指定の値を含むセルだけを書式設定]を選択してクリック
　　↓
「次のセルのみを書式設定」欄の中の左端の欄をクリック
　　↓
現れた選択肢の中にある[セルの値]をクリック
　　↓
「次のセルのみを書式設定」欄の中の左端から２番目の欄をクリック
　　↓
現れた選択肢の中にある[次の値に等しくない]をクリック
　　↓
「次のセルのみを書式設定」欄の中の左端から3番目の欄に

=""

と入力
　　↓
「新しい書式ルール」ダイアログボックスの[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[罫線]タブをクリック
　　↓
上辺をクリックして、上辺のみに罫線を入れる
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「新しい書式ルール」ダイアログボックスの[OK]ボタンをクリック

　次に、Sheet2のA3～F3の範囲をコピーして、同じ列の4行目以下に貼り付けて下さい。

　以上です。

お礼

すごいっす。
こんな事できるんですね。
ありがとうございました。
質問後、プロジェクトチームで缶詰状態でこのサイトがなかなか確認できず御礼が遅くなり申し訳ありませんでした。未だ手が付けられる状態ではありませんが、この作業にかかれるようになったらやってみます。
本当にありがとうございました

回答No.1

K Kazz（@JazzCorp）

「作業完了日」が入ってないものを引っ張ってくるだけ！！
「作業完了日」自体がなければ追加するだけ～