色のついたセルと文字を両方数えられるVBA

質問

VBAの初心者です。
エクセルで文字の色でカウントする為に以下のVBAをこちらで教えていただきました。
順調に快適にエクセルを使えていたたのですが今回同じエクセル内で
文字ではなくセルに色付けしたものもカウントしなければならなくなりました。

以下のVBAがあるからかよく言われている4.0マクロ関数ではうまくいきません。

以下のVBAに何かを足せば一方では文字色をカウントし
一方ではセル色をカウントすると言う事は可能でしょうか？

どなたか力を貸してください

Function CCount(Rng As Range, idx)
Dim R As Range
Dim Cnt As Long
Application.Volatile
For Each R In Rng
    If R.Font.ColorIndex = idx Then Cnt = Cnt + 1
Next R
CCount = Cnt
End Function

回答No.2

keithin · ベストアンサー

別にこれらのマクロがあるから４．０マクロが動かないという事はありませんが。まぁでもふつーのマクロで作成したほうが簡単です。

function FCCount(target as range, idx as integer) as long
dim h as range
application.volatile
for each h in target
if h.font.colorindex = idx then fccount = fccount + 1
next
end function

function CCCount(target as range, idx as integer) as long
dim h as range
application.volatile
for each h in target
if h.interior.colorindex = idx then cccount = cccount + 1
next
end function

みたいな。

お礼

会社のセキュリティ上PCから見れなくなってしまいお礼が大変遅くなりました。申し訳ありません。でも教えて頂いた内容で完成させられました。ありがとうございました。

回答No.1

Trick--o--

If R.Font.ColorIndex = idx Then Cnt = Cnt + 1
ここで
「文字の色がidxだったらCntを1増やす」
という処理をしています。
ここを
「背景の色（セルの色）が【特定の値】だったら【カウンタ】を1増やす」
とすればセルの色でカウントできます。

文字色などの情報を Font が持っているように
セル色などの情報は Interior が持っています
（リンク先参照）

参考URL：

http://www.excellenceweb.net/vba/object/range_member/interior/colorindex.html

お礼

会社のセキュリティ上PCから見れなくなってしまいお礼が大変遅くなりました。申し訳ありません。でも教えて頂いた内容が私には少し難しかったのですが勉強になりました。ありがとうございました。