エクセル色付きセルを数える

エクセル色付きセルを数える方法を教えてください。エクセル２０１３です。初心者です。よろしくお願いします。

No.3 ベストアンサー 回答者： jmuiny 回答日時： 2016/09/19 15:49

何色でもいいので色がついているセルを数えるなら、標準モジュールに下記コードを書いておき

表の方で　=ColorCount(A1:A10)　とすると、
A1～A10の中で色がついたセルの個数が表されます。

Function ColorCount(wr As Range) As Long
Dim r As Range
ColorCount = 0
For Each r In wr
If r.Interior.ColorIndex <> -4142 Then
ColorCount = ColorCount + 1
End If
Next r
End Function

この回答へのお礼

できました～！！！感激です。ありがとうございました。(*ゝω・*)

お礼日時：2016/09/19 16:11

No.2 回答者： jmuiny 回答日時： 2016/09/19 14:05

関数はありませんよ。

VBAでユーザー定義関数を作ることになります。

colorcount　とは下記のものを勘違いされたのではないかと思います。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …

この回答へのお礼

紹介していただいたHPでやってみようと思います。本当にありがとうございます。(*ゝω・*)

お礼日時：2016/09/19 15:04

No.1 回答者： Goo-Goo-Go-Go 回答日時： 2016/09/19 13:47

関数はcolorcountだったように思います。

2013で使える関数かどうかは不明ですが、試してみてください。

あとは、他人に聞くのは悪いことではありませんが、自分で調べる方法を覚えると良いと思います。グッとスキルが向上してより面白くなりますよ。

この回答へのお礼

早速，回答いただきありがとうございました。本を買ってきて勉強しています。今後ともよろしくお願いします。

お礼日時：2016/09/19 13:56