![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.5ベストアンサー
- 回答日時:
こんばんは。
CountColor というのは、
http://excel-magic.com/post-42/
このものをおっしゃっているのでしょうか。
どうも違うようですね。
http://day-after-days.seesaa.net/article/3995060 …
これに近いようですね。
>Aのグリーの数を数えるにはどうすればよろしいのでしょうか?
(B列のグレー?)
'//標準モジュール
Function CountColorN(CellRange As Range, ColoredCell As Variant)
'CountColorN(セル範囲,色の付いたセル(または、色番号)
Dim cnt As Long
Dim rng As Range
Dim c As Range
Dim numRGB As Long
Dim indxColor As Integer
If TypeName(ColoredCell) = "Range" Then
Set rng = ColoredCell
numRGB = rng.Interior.Color
Else
indxColor = ColoredCell
End If
For Each c In CellRange
If numRGB <> 0 Then
If c.Interior.Color = numRGB Then
cnt = cnt + 1
End If
ElseIf indxColor <> 0 Then
If c.Interior.ColorIndex = indxColor Then
cnt = cnt + 1
End If
Else
cnt = cnt + 1
End If
Next
CountColorN = cnt
End Function
'//
使い方は簡単です。
=CountColorN($B$2:$B$13,B3)
範囲, 色のついたセル
ColorIndex が分かるのでしたら、例えば
=CountColorN($B$2:$B$13,44)
でも数えることが可能です。
p.s.多くのコードに、Application.Volatile を入れているようですが、
邪魔になることが多いです。
今は、Ver4 マクロ関数は、ほとんど、VBAに置き換えることが可能です。
No.3
- 回答日時:
ユーザー定義関数を使いたいのですか?
https://oshiete.goo.ne.jp/qa/1225959.html
こちら↑の関数を使うなら、複数の条件でのカウントはNo.1の回答者
さんと同じですが、作業列を用意しないとカウントできないと思います。
塗りつぶし色だけのセルは、セル内に値がないのでカウントする関数
での対象になりません。
どうしても塗りつぶし色を指定しユーザー定義関数を使うことを前提に
して、且つ複数条件にするのなら、作業列に以下式を入れます。
=COUNTCOLOR(A2,"35")=1
必要な行数分オートフィルをし、各行にTRUEまたはFALSEを表示して
おきます。
この列とA列を対象に複数条件でのカウントをする関数を利用します。
例:COUNTIFS関数やSUMPRODUCT関数など
http://www.relief.jp/itnote/archives/003021.php
http://www.relief.jp/itnote/archives/001400.php
http://yuwithyou.net/2011/01/sumproduct.html
![「色つきのセルに条件をつけて数えたい」の回答画像3](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/e/190948_58f9549657a05/M.png)
No.1
- 回答日時:
ユーザー定義関数を使わない方法ですが・・・
C列を作業列として、セルC2を選択した状態で、「数式」タブの「定義された名前の定義」グループ内の
「名前の定義」をクリックします。
次に「新しい名前の定義」ダイアログがでますので「名前」に「セルの色」など好きな文字を入力。
「参照範囲」には次の式を入れます =GET.CELL(63,Sheet1!B2) (63という数字はセルの色を数値化させる番号です)
次にセルC2に =セルの色 と入力して「Enter」キーを押し、下方向へ式をオートフィルコピー
添付した画像を参照して頂いて・・・
セルF2に =COUNTIFS($A$2:$A$13,"A",$C$2:$C$13,10) の式を入れます。
(10はC列で返されている数値のことです)
他にもA列の黄色個数を計算する場合は、最後の「10」を「6」に変更すると黄色の色の個数が出ます。
取り敢えず、一例として載せておきます。
![「色つきのセルに条件をつけて数えたい」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/a/432203_58f8f0e2324cb/M.jpg)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- 数学 写真の問題の(4)についてですが、例えば赤のカードにおいて、他の数字は1枚ずつのままで5が2枚(他の 4 2023/07/29 03:49
- Excel(エクセル) 条件付き書式の色付きセルのカウント方法について 2 2022/10/21 14:51
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) Excelの数式についての質問 1 2022/10/31 15:50
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- 会計ソフト・業務用ソフト エクセル 背景色のついたセル位置を参考にして固定の数値を取得する 4 2022/07/11 08:44
- その他(Microsoft Office) Excel2003,2007の作業です 2 2023/05/17 09:58
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELの散布図で日付が1900年に...
-
エクセルのツールバーから数値...
-
祝日と土曜、日曜の合計をカウ...
-
Excel分数の表示について
-
特定の文字列を含む、住所を抽...
-
Excelについての質問です。 B2...
-
文字2桁、3桁交じりの文字列...
-
Excelで表を作ったところに文字...
-
【マクロ】2回実行したら、エ...
-
【EXCEL】画像の黄色部分の抽出...
-
マイクロソフトのPADを使ってい...
-
絶対参照
-
マクロエクセルのブロック解除
-
在庫管理表に使うエクセルの関...
-
Excelピボットテーブルの1行目
-
エクセルのクイックアクセスツ...
-
DATE関数で現在の年齢を出した...
-
ユーザー定義関数をアドイン登...
-
職場の人から聞かれており、こ...
-
【マクロ】毎回、ファイル名が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報