[[20200718115421]]　『色付きかつ文字入りをカウントしたい』（ゆき）　ページの最後に飛ぶ

『色付きかつ文字入りをカウントしたい』（ゆき）

エクセルvba初心者です
出退勤表のようなものに、早帰りを希望する日は「は」と入れ、残業可能な日は「ざ」と入れ、実際に実施できた場合は黄色で「は」や「ざ」のセルを塗りつぶすシステムをしており、達成率をだすために、「は」の色付き色なしと「ざ」の色付き色なしをそれぞれカウントしたいのですが、色付きがうまくカウントできません
どなたかご教授していただけませんか
よろしくお願いします

イメージ
　　　　　1 2 3 4 5 …
鈴木　　　は　　　　ざ
田中　　　ざ　　は
　　　　　↑実施できたら色つけ、できない場合はそのまま

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

 システム、ということは自動的に条件か何か
 で塗りつぶしているのですか？
 でしたら、条件ベースでカウントできませんか？
（通りすがり） 2020/07/18(土) 12:11

手動でセルに色付けしている場合、数式で色付けセルだけをカウントすることはできません。
（マクロならできます）
条件付き書式で色付けしている場合は、通りすがりさんの回答のとおりで
色付け条件の方をヒントにカウントできるかもしれません。
（はらぺこ） 2020/07/18(土) 12:18

コメントありがとうございます
各々個人が予定通り達成できれば、手動でセルを塗りつぶすという方法です
言葉足らずで申し訳ありません
色付きセルをカウントする方法は、検索すればたくさん出てきたのですが、色付き文字入りセルをカウントする方法がなかなか出てこず困っておりました
（ゆき） 2020/07/18(土) 12:32

 予実のデータはそのｴｸｾﾙﾌﾞｯｸでは管理してないのですか？

 「エクセル　色付きセル　カウント」で検索したら一般機能、マクロとも
 たくさんヒットしましたよ。
（通りすがり） 2020/07/18(土) 12:38

説明不足で申し訳ありません
カウントしたいのは、同じ色がついた「は」「や」等(全部で4種類)なんです
色で分ければいいのはわかるのですが、大人数が使用するので、「は」のときは赤、「や」のときは青、など設定していても間違える人が多く、「は」にせよ「ざ」にせよ予定通り出来たら黄色、と統一しています
なので、黄色に着色したもののうち、「は」や「ざ」をそれぞれカウントしたいのです
（ゆき） 2020/07/18(土) 13:01

  １．標準モジュールに後記コードを貼り付ける

  ２．結果を求めたいセルに式を入力する。
  　例
  　　(1) I1セル =ColorCount(B1:F1,"ざ")
  　　(2) J1セル =ColorCount(B1:F1,"は")

  　　(3) I2セル =ColorCount(B2:F2,"ざ")
  　　(4) J2セル =ColorCount(B2:F2,"は")

  結果図
   行  __A__  _B_  _C_  _D_   E    F   _G_  _H_   I    J 
    1  鈴木   は   ざ        は   ざ              1    0
    2  田中   ざ   は        ざ   は              1    1

  ’標準モジュールに貼り付ける

  Function ColorCount(Rng As Range, ByVal Letter)
      Dim r As Range
      Application.Volatile

      For Each r In Rng
          If r.Interior.Color = 65535 Then
              If r.Value = Letter Then
                  ColorCount = ColorCount + 1
              End If
          End If
      Next r

  End Function

（半平太） 2020/07/18(土) 13:23

半平太さん、ありがとうございました
できました！！！
凄く嬉しいです
本当に助かりました
（ゆき） 2020/07/18(土) 14:18

コメント返信：

[ 一覧(最新更新順) ]

[[20200718115421]] 『色付きかつ文字入りをカウントしたい』（ゆき） ページの最後に飛ぶ

[[20200718115421]]　『色付きかつ文字入りをカウントしたい』（ゆき）　ページの最後に飛ぶ