みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Excel2002 色文字カウント コード

色のついた文字セルをカウントするコードを検索し、
実際にやってみましたが、黒文字だけカウントできませんでした。
下記の「黄は6」のところを「黒は1」に変更してやりました。
その後、シートにもどって
色ごとに、=SpecialCell(A2:A14,3)としてカウントしました。

黒を他の色と同様に「=SpecialCell(A2:A14,1)」でカウント
するために、どこを修正すれば宜しいでしょうか?

教えてください。よろしくお願いします。

-------------------------------------------
Function SpecialCell(targetRange As Range, _
intColor As Integer) As Integer
'赤は3,緑は4,青は5,黄は6
Dim myCell As Range

For Each myCell In targetRange
If myCell.Font.ColorIndex = intColor _
Or myCell.Interior.ColorIndex = intColor Then
SpecialCell = SpecialCell + 1
End If
Next
End Function

-------------------------------------------

投稿日時 - 2010-01-14 20:02:53

QNo.5593257

困ってます

このQ&Aは役に立ちましたか?

3人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

黒色=カラーコード(0)
とは限りません。

セルやフォントカラーの設定には”自動”という設定があります。
その場合は、マクロでは xlColorIndexAutomatic という設定(数値で -4105)にします。


実際に黒文字のセルのカラーコードを確認してみましょう。
MsgBox ActiveCell.Font.ColorIndex
MsgBox xlColorIndexAutomatic


http://abcclub.cside.ne.jp/vbahelp_help/dai6.htm

投稿日時 - 2010-01-14 20:24:44

お礼

>黒色=カラーコード(0)
>とは限りません。

勉強になりました。
カラーコードの確認の仕方も教えていただき、ありがとうございました。

投稿日時 - 2010-01-15 18:33:46

あなたにオススメの質問