|
|
| Excel VBA Macro ・ セル制御 ・ FAQ |
|
指定値以下のセルのフォント色を赤にするには？
|
|
|
|
Question 56.9 |
Excel VBA Borad （掲示板）より |
 |
 |
|
|
初めまして。どなたか教えてください。m(_ _)m
左のようなデータがあり、例えば、12.0以下に対して、フォントを赤にしたい場合、マクロで行う場合は、どのように記述すれば宜しいでしょうか？
データ件数が膨大にある為、マクロという手段をとりました。宜しくお願い致します。
|
|
|
データが2行目のＪ列(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
データの開始列がＪ列からでなければ、
Set MyRange = Cells(2, 開始列).CurrentRegion
For b% = 開始列 To MyCol
*データの途中に空白の行または空白の列があると正常に動作しません（空白のセルはOK）
分かりますか？
|
|
|
もてもてさん。
ありがとうございました。非常に勉強になりました。m(_ _)m
|
|
|
|
| |
|
|
