エクセルの進捗表作成について

質問

エクセル2010で、製番工程表を作成したのですが、
各項目の日付を入力したら、写真のように期間に色が付いたり、
または矢印が自動的に表示できるようにしたいのですが、
どうしたらよいでしょうか？
全部で30製番あるので、それを一つ一つ手動で色や線を引くのが面倒です。

よろしくお願いします。

回答No.7

imogasi

VBAの回答しても質問者の意向に沿うか、判らないが、個人的に、やってみたので挙げてみる。
ーー
１製品分しか対象にしてない。
製品が複数になった時、対象の日付が右の列にどんどん伸びるが、シートを
見にくいのでは。
製品ごとに、受注製品と受注期間の日付を、受注品ごとに持ったほうが良いように感じた。
この点も、質問者はよく考えたのかどうか、質問文に明確でない。
また、１受注製品例しか質問に挙げてないのが理由。
ーー
質問の図データをまねて、下記でやった。
データは
（１）A1:G2に
製番 マーシャ開始 マーシャ終了 払い出し 着工 試験 出荷
ABC101100 8/1 8/5 8/6 8/7 8/15 9/1
と、各セルに入力されているとする。
（２）H1:AM1までについて、上記VBAプログラムで、8/1から9/1までの日付を入力する。（日付シリアル値、そして書式設定で、8/1などのように見せている。重要点）
ーー
結果
プログラム実行すると
H2からAM２せるまでセルの塗りつぶしの色が設定される。
色は小生が決めさせてもらった。
ーーー
この方法は、エクセルの「条件付き書式」の機能でセルに色づけしたもの。
標準モジュールに
Sub test03()
'--条件付き書式の削除
Range("H2:AM2").FormatConditions.Delete
'--準備作業
For i = 1 To 8
Cells(2, i).NumberFormat = "m/d"
Next i
'--
For i = 8 To 39
Cells(1, i).ColumnWidth = Cells(1, i).Height / 5
Cells(1, i) = DateSerial(2019, 8, i - 7)
Cells(1, i).NumberFormat = "d"
Next i
For Z = 2 To 2 ' Zは行番号
Set Rng = Range("h" & Z & ":AM" & Z)
'---マーシャ
Rng.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(H$1>=$B$" & Z & ",H$1<=$C$" & Z & ")"
With Rng.FormatConditions(1).Interior
.Color = vbYellow
.TintAndShade = 0
End With
'---払い出し
Rng.FormatConditions.Add Type:=xlExpression, Formula1:="=H$1=$D" & Z
With Rng.FormatConditions(2).Interior '2に注意 以下１つずつ増やす
.Color = vbGreen
End With
'---着工中
Rng.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(H$1>=$E" & Z & ",H$1<$F" & Z & ")"
With Rng.FormatConditions(3).Interior
.Color = vbBlue
End With
'---試験中
Rng.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(H$1>=$F$" & Z & ",H$1<$G" & Z & ")"
With Rng.FormatConditions(4).Interior
.ColorIndex = 7 ' = RGB(255, 102, 0)
End With
'---出荷
Rng.FormatConditions.Add Type:=xlExpression, Formula1:="=H$1=$G" & Z
With Rng.FormatConditions(5).Interior
.Color = vbRed
End With
Next Z
End Sub
ーー
質問の説明のしぶりや、図から推測して、こんなものを作っても、実際の仕事に役立つかどうか疑問と思った。
進捗「管理」とかカッコよくいっているが、受注処理のタイム予定図でしかないのでは？
＝＝
操作やVBAでやるのでなく、
（１）出来合いのソフトを探すか
（２）（初心者みたいに見える者がやるべき課題ではなくて）プロに頼んで作ってもらうべき、分野だろう。他の要素（材料手配や請求など）も抱合して。