[[20170715120206]]　『条件付き書式でセルに色を付けた時のカウント』（たかみ）　ページの最後に飛ぶ

『条件付き書式でセルに色を付けた時のカウント』（たかみ）

Function ColorCount(R1 As Range, C As Range)
　　Dim r As Range

　　Application.Volatile
　　ColorCount = 0

　　For Each r In R1
　　　　If r.Interior.Color = C.Interior.Color Then
　　　　　　ColorCount = ColorCount + 1
　　　　End If
　　Next r

 End Function

セルに、手動で色を付けたときは上記でカウント出来ますが条件付き書式で
セルに色を付けた時のコードは違うのでしょうか？

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

はい。条件付き書式の色はカウントできません。

DisplayFormat で↓、できそうですが、
https://msdn.microsoft.com/ja-jp/library/office/ff838814.aspx
残念ながら、ユーザー定義関数では使用できないようです。

（マナ） 2017/07/15(土) 12:55

 他のプロシージャから呼び出す方法

 該当シートのコードモジュールへ

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("C1").Value = ColorCount(Range("a1:a10"), Range("a1"))
 End Sub

 カーソルが移動するたびに計算、C1に結果表示。
 C1, A1:A10, A1 は適時変更。

（seiya　） 2017/07/15(土) 13:28

 ↑
 　　　　If r.Interior.Color = C.Interior.Color Then 
 を
 　　　　If r.DisplaFormat.Interior.Color = C.DisplaFormat.Interior.Color Then

 に変更してからの話...
（seiya　） 2017/07/15(土) 13:43

seiya様

ありがとうございます。

でも、”実行時エラー４３８”と出てカウントしてくれません。

マナ様

機能としてあってもいいのにないんですね・・・。
（たかみ） 2017/07/15(土) 17:17

 >でも、”実行時エラー４３８”と出てカウントしてくれません。

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

 ↑　2013でいいんだよね？

 ファイルアップ
http://firestorage.jp/download/a0a8e203ab8cd6aa46528b7b6a5d1898c4d3f846
 password:ywcp7uvv
（ seiya） 2017/07/15(土) 17:50

  　　　　If r.DisplaFormat.Interior.Color = C.DisplaFormat.Interior.Color Then
                  ↑これミスタイプ

  　　　　If r.DisplayFormat.Interior.Color = C.DisplayFormat.Interior.Color Then 
  Displayのyが抜けていました...
（ seiya） 2017/07/15(土) 18:09

seiya様

ファイルアップありがとうございました。

確認出来ました。

でも、セルに色がついてないのをカウントしているんでしょうか？

黄色を、指定したい場合どうすればよいですか？

また、まだ業務では出てきてないですが「黄色」「青色」「赤色」をそれぞれカウントって
いう場合はどのようにすれば良いですか？
（たかみ） 2017/07/15(土) 20:21

 >でも、セルに色がついてないのをカウントしているんでしょうか？ 
 A2:A10 に条件付き書式で　=A2<>"" 塗りつぶし赤　が設定されている。
 A2:A10の値の入ったセルを空白にするか、空白セルに値を入力するとわかるはず。

 あくまでも、たかみさんが提示されたユーザー定義関数を利用しています。
 提示された関数の意味を理解していますか？
（seiya） 2017/07/15(土) 20:43

seiya様

すいません、質問の仕方が間違えていました。

重複セルを、黄色で示しその数を数えたいです。
（たかみ） 2017/07/15(土) 21:29

 重複セルをカウントするなら色は無関係。

 エクセル　重複　カウント

 等で検索すれば出てきますよ。
（seiya） 2017/07/15(土) 21:55

コメント返信：