[[20200421221740]]　『複数条件で一致する箇所をカウント』（すみれ）　ページの最後に飛ぶ

『複数条件で一致する箇所をカウント』（すみれ）

　A列 B列 C列　　　　　　　　D列
　種類備考結果/登録Ｎｏ．
　野菜
　魚
　　・・・下行に続く

上記の様な、表だった場合、A列が野菜かつC列がD列の塗りつぶし色と
同じだった場合1カウントする。というようなマクロを作りたいです。
宜しくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

こんな感じ？

Sub test()

    Dim k As Long
    Dim myCount As Long

    For k = 1 To 10
        If Cells(k, "A").Value = "魚" Then
            If Cells(k, "C").DisplayFormat.Interior.Color = _
                Cells(k, "D").DisplayFormat.Interior.Color Then
                myCount = myCount + 1
            End If
        End If
    Next
    MsgBox myCount
End Sub
これで、C,D列は条件付き書式でも、そうでなくてもOKなはず。
繰り返し範囲は適当に調整のこと。
（γ） 2020/04/21(火) 22:45

ありがとうございます。

無知なものですみません。
これをマクロに入れて、実行すればいいんですか？
それとも何か式をセルに入れるのでしょうか？

すみません。
宜しくお願いします。
（すみれ） 2020/04/21(火) 22:56

＞これをマクロに入れて、実行すればいいんですか？
そうです。
今は、1行目から10行目にしているので、そこは修正してください。
例：A列の最終行まで

    For k = 1 To Cells(Rows.Count, "A").End(xlUp).Row

＞というようなマクロを作りたいです。
マクロで良かったんですよね。所望されているのは。

# 時々こちらが間違って、マクロお呼びでない、あそう、
# となることがあるんで、ヒヤヒヤしています。
（γ） 2020/04/21(火) 23:12

いや、勝手に「魚」に変身していました。「野菜」に修正してください。
空目は恐ろしい。

# 「政治家に徳目を求めるのは、八百屋で魚をくれというのに等しい」（by秦野章)
# という物言いがありますが、それを連想してしまいました。(関係ない話で恐縮です）
（γ） 2020/04/22(水) 06:42

できました！
ありがとうございます！
（すみれ） 2020/04/22(水) 09:20

コメント返信：

[ 一覧(最新更新順) ]

[[20200421221740]] 『複数条件で一致する箇所をカウント』（すみれ） ページの最後に飛ぶ

[[20200421221740]]　『複数条件で一致する箇所をカウント』（すみれ）　ページの最後に飛ぶ