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

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

解決済みの質問

Excelでセルが空白の時にカウントしない方法

初めまして。
私はExcelの初心者で、Excel2010を使っています。

名簿の整理をするにあたって
黒字は男性、赤字は女性にし、それぞれの人数を
色で識別しカウントするやり方をVBAで行いました。


Function COUNTCOLOR(data As Range, color As Integer)
Application.Volatile
Count = 0
For Each C In data
If C.Font.ColorIndex = color Then
Count = Count + 1
End If
Next C
COUNTCOLOR = Count
End Function

上記のもの(他サイトから引用)を入力し、上手く作動したのですが
名簿の名前をDelし再計算後、カウント数が減りません。

手作業で一つ一つセル内の文字色を
白にするとカウント数が減ります。

しかし条件付きの書式でセルが""の時に文字色が白になる式を
設定してもカウント数は減りませんでした。


どのようにしたら空白の時にカウントさせないよう出来ますか。
よろしくお願いします。

投稿日時 - 2016-07-15 19:50:55

QNo.9202041

すぐに回答ほしいです

質問者が選んだベストアンサー

空白を数えなければいいのですね
If C.Font.ColorIndex = color Then
のところを
If C > "" And C.Font.ColorIndex = color Then
に変えればいいです。

投稿日時 - 2016-07-15 20:10:22

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

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

回答(3)

ANo.3

なるほど。初心者でVBAとVBの違いに気がつかなかったようですね。

ExcelはVB(Visual Basic)ではなくVBAです。
違うものなので、質問を改めた方が良いかと思います。

あと、技術者向なので初心者はかけ離れ過ぎです。

投稿日時 - 2016-07-15 21:02:17

ANo.2

VBA良く知らないけど

分岐するとき

if a == b
if a === b
if false == a

とかじゃないの?

投稿日時 - 2016-07-15 20:17:27

あなたにオススメの質問