VBA 文字色で判定してセルの数を集計

文字色で判定してセルの数を集計

Sub test()

   ’  文字色で判定してセルの数を集計

    Dim A As Range
    Dim Cnt As Long
    Cnt = 0     '　初期値セロにする
    
    'ループで個数を集計
    For Each A In Range("A3").CurrentRegion

      If A.Font.Color = vbRed Then
        Cnt = Cnt + 1   '　カウントアップ
      End If
    Next
    
    Debug.Print "赤は、" & Cnt & " 個です"

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA印刷設定 用紙１枚に収まる』

『VBA印刷設定 シートの印刷』

『VBA印刷設定　印刷タイトルを設定する』