Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
ガントチャートの非稼働日設定
投稿日時: 19/11/12 17:21:54
投稿者: ナナカマド

工場の稼働を見るためのガントチャートを作成してます。
まず基礎を作る手間を省くため以下の配布されてるブックをダウンロードしました。
 
http://popleaf.jp/hotate/wbs%E3%82%AC%E3%83%B3%E3%83%88%E3%83%81%E3%83%A3%E3%83%BC%E3%83%88%E3%82%92excel%E3%81%A7%E4%BD%9C%E3%81%A3%E3%81%A6%E3%81%BF%E3%81%9F/
 
1.A,B,D,E,F列を削除
2.B5〜BM31の関数をクリア
3.A5〜A12に順に工程を入れ、それぞれ色を振ります(各工程に必要な日数はすべて1日)
 
なおシート2枚目「Confing」はそのまま活用します。
 
B5に数字(製造個数)を入力したら、C6,D7,E8,F9,G10,H11,I12,に同じ数字が入力されるように
=IF(B5="","",B5)
と関数を入れていきました。(階段状になります)
 
また3で振った各工程の色がセルに入るように条件付き書式を入れました。
=C6<>""
範囲は
=$C$5:$CO$5(表の横です)
 
↑8行をセットにして下に複数コピペをしました
 
次の点の解決策を教えてください
 
(1)シート2枚目「Confing」で設定された非稼働日が1枚目のシートに反映されますが、
 階段状に出るセルが非稼働日に重なってしまいます。
 非稼働日を避けるようにしたいです。
 
(2)表の上に一行入れて「三つ目の工程」を一日に何個こなすかカウントするマクロと関数を入れました。(2
 
 Function ColorSum(R1 As Range, C As Range)
    Dim r As Range
    Application.Volatile
    ColorSum = 0
    For Each r In R1
        If r.Interior.Color = C.Interior.Color Then
            ColorSum = ColorSum + r.Value
        End If
    Next r
End Function
関数は
=colorsum(B5:B41,B2)
 
B2に「この色だよ」と一行塗りつぶしたものを入れてます(他の方が見るときに必要な行です)
 
ですが、
=IF(B5="","",B5)の関数で出た数字、条件付き書式の色には反応がありません
色付きセルの数字をカウントする方法はありませんか?

 
よろしくお願いします。
 

回答
投稿日時: 19/11/12 17:36:47
投稿者: んなっと

https://www.moug.net/faq/kiyaku.html#link4

引用:
禁止事項
ファイルを直接ダウンロードさせる
ファイルを直接リンクするURL、および同様のファイルをダウンロードさせることを目的としたフォルダやディレクトリ、サイトへのURLを、Q&A掲示板の発言内に記載することはご遠慮ください。
一般操作の説明は、操作方法または数式を記載し、マクロに関してはVBAコードを記載するようにしてください。

お手数ですが、シートの構成を下のような表形式で示してください。
 
    A     B     C      D   E
1 営業所 売上予算 売上実績 予算達成率 経費
2    A   14000   11000     79% 3000
3    B   10000   12000    120% 2000
4    C   5000   12000    240% 2000

投稿日時: 19/11/13 14:34:19
投稿者: ナナカマド

直リンクごめんなさい
 
再度投稿します。