Excel VBA。文字の色が赤の件数を求めたい。
＜Excel VBA＞
Excelには、文字の色を数えるような関数は用意されていません。
オートフィルターで文字の色で抽出した件数というような方法しかありません。
そこで、Excel VBAでプログラム文をつくってみることにします。
まず、用意した表です。
つくってみたプログラム文です。
Sub 文字の色赤の件数()
' 最終行を入れるための変数
Dim lastRow As Long
' 赤文字セルの件数を数えるための変数
Dim countRed As Long
' ループ用の変数
Dim i As Long
' C列の最終行を取得。この回数分繰り返す
lastRow = Cells(Rows.Count, "C").End(xlUp).Row
' 件数を初期化
countRed = 0
' For文で繰り返し処理
For i = 1 To lastRow
' セルの文字色が「赤」かどうかを調べる
If Cells(i, "C").Font.Color = vbRed Then
' 赤だったら、＋１します
countRed = countRed + 1
End If
Next i
' 結果を表示
Range("E2").Value = countRed & " 件"
End Sub
では、実行してみます。
4件と求めることができました。
今回は、標準の色を赤の場合で対応しております。
