[[20150202101016]]　『ExcelでWBSを作成したい』（hoge）　ページの最後に飛ぶ

『ExcelでWBSを作成したい』（hoge）

はじめました。

ExcelファイルでWBS作成をしたいと考えておりますが、
VBAで自動で作成出来たらと考えております。

どなたか、過去に利用したソースなどがあれば、
展開いただけないでしょうか。

なお、WBSのイメージは以下となります。

■WBSイメージ
　Excelの[sheet1]、[B4]あたりから以下項目を右側に入力。

　| B4 | C4 | D4 | E4 | F4 | G4 | H4 | I4 |　 J4 | K4 | L4 |
　|大項目|中項目|小項目|タスク名|進捗率|担当|作業開始予定日|作業終了予定日|作業実施日|作業完了日|備考|

　更に、備考(K4)の右側(M4)から、プロジェクト期間の日付を1セルづつに記載。

　例）プロジェクトが90日間だった場合

　　　セルM4～CXまで日付を表示（M4に日付を入力後、N4～日付自動反映）
　　　M5から下のセルに関しては、各タスクごとに作業期間を塗りつぶし。
　　　（プロジェクトが1/1～3/30とした場合、対象タスク（5行目に記載されているタスク）が1/1～1/3の場合、
　　　　N5～P5まで自動塗りつぶし（色付け））　　　　　　

宜しくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 ちょっと前に同じようなことを質問した人がいますけど、
 その時は、所要作業日数(何日・何時間必要か）を考慮するので
 塗りつぶしは営業日に限っていました。

 更に期間中の休日は別の色にしたい、とかでした。

 hogeさんの処ではそんな色分けは必要ないんですか？

 因みに、作業実施日とは作業開始日(1日)と同じですか？
 それとも複数日なんですか？
 もしかして、小項目のタスクは1日で終わるものばかりなんですか？

 この表のサイズですけど、下は何行目辺りまで使う予定ですか？

 塗りつぶすセルには何かデータが入るのですか？
 それとも視覚的な効果しか求められていないので、空ですか？

（半平太） 2015/02/02(月) 11:41

（半平太）さん

コメントありがとうございます。

 ちょっと前に同じようなことを質問した人がいますけど、
 その時は、所要作業日数(何日・何時間必要か）を考慮するので
 塗りつぶしは営業日に限っていました。

 →塗りつぶしは非営業日も欲しいです。

 更に期間中の休日は別の色にしたい、とかでした。
 hogeさんの処ではそんな色分けは必要ないんですか？

 →必要ありません。

 因みに、作業実施日とは作業開始日(1日)と同じですか？
 それとも複数日なんですか？
 もしかして、小項目のタスクは1日で終わるものばかりなんですか？

 →タスクの最小単位は、1日で考えております。

 この表のサイズですけど、下は何行目辺りまで使う予定ですか？

 →100行もあれば足りる予定です。

 塗りつぶすセルには何かデータが入るのですか？
 それとも視覚的な効果しか求められていないので、空ですか？

 →視覚的な効果がメインとなります。

宜しくお願いします。
（hoge） 2015/02/02(月) 12:36

 オーダーメードにこだわらなければ、こんなあたりは検討の余地がないでしょうか。
http://chusho-it.net/post_chart.html
（Mook） 2015/02/02(月) 13:21

  ＞VBAで自動で作成出来たらと考えております。

  済みません、「VBA」を見逃しました。
  取りあえず、一般機能での対策を書いて置きます。

  VBA案は、他の回答者のレスをお待ちください。m(__)m

  (1) N4セルに下式を入力して、右にコピー

 　　　 =IF(OR(M4="",$I4<=M4),"",M4+1)

  (2) セル範囲 M5:EZ100 (適当）に以下の条件付き書式を設定

      =AND($H5<=M$4,M$4<=$I5,M$4<>"")

（半平太） 2015/02/02(月) 13:27

（半平太）さん

了解しました。
ありがとうございます。

一般機能でまずは対応してみます。
（hoge） 2015/02/02(月) 15:28

コメント返信：

[ 一覧(最新更新順) ]

[[20150202101016]] 『ExcelでWBSを作成したい』（hoge） ページの最後に飛ぶ

[[20150202101016]]　『ExcelでWBSを作成したい』（hoge）　ページの最後に飛ぶ