指定値以下のセルのフォント色を赤にするには?

Question 56.9 Excel VBA Borad (掲示板)より Previous Next
ダータシート
初めまして。どなたか教えてください。
m(_ _)m

左のようなデータがあり、例えば、12.0以下に対して、フォントを赤にしたい場合、マクロで行う場合は、どのように記述すれば宜しいでしょうか?

データ件数が膨大にある為、マクロという手段をとりました。宜しくお願い致します。
Answer   2002.12.12 もてもて
データが2行目のJ列(10列)目からならば、
Sub test()
Dim MyRange As Range
Dim MyRow As Long
Dim MyCol As Integer
    Set MyRange = Cells(2, 10).CurrentRegion        'データ範囲取得
    MyRow = MyRange.Rows.Count                      '行数カウント
    MyCol = MyRange.Columns.Count                   '列数カウント
    For a% = 2 To MyRow + 1                         '2行目から最終行
        For b% = 10 To MyCol + 9                    '10列目から最終列
            If Cells(a%, b%) <= 12 Then
                Cells(a%, b%).Font.ColorIndex = 3   '12以下は赤
            Else
                Cells(a%, b%).Font.ColorIndex = 0   '12より大は黒
            End If
        Next b%
    Next a%
End Sub
データの開始列がJ列からでなければ、
Set MyRange = Cells(2, 開始列).CurrentRegion 
For b% = 開始列 To MyCol 
*データの途中に空白の行または空白の列があると正常に動作しません(空白のセルはOK)
分かりますか?
ありがとうございました
もてもてさん。
ありがとうございました。非常に勉強になりました。m(_ _)m

Excel VBA Macro