エクセルで行の高さが一定数以下のセルに色を表示するマクロ

エクセルで、Ａ1からＤ50までの範囲で、行の高さが一定数以下の行（各セル）に同色（例えば黄色）表示するマクロを教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： pbforce 回答日時： 2007/11/16 15:20

For i = 1 To 50

If Rows(i).RowHeight < 8 Then
Range(Cells(i, 1), Cells(i, 4)).Interior.ColorIndex = 6
End If
Next i

こんな感じ？

この回答へのお礼

出来ました。
ありがとう、ございました。
また、よろしくお願いいたします。

お礼日時：2007/11/16 15:38

No.2 回答者： zap35 回答日時： 2007/11/16 15:24

先ほどの質問に対する皆さんの回答の中にヒントがてんこ盛りなのですがねぇ…。

後はマクロ記録でセルに背景色を着ける方法を調べれば解決しますよ。今度は全部は書きません。

If Rows(idx).RowHeight > 18 Then
　Rows(idx).Interior.ColorIndex = 6
Else
　Rows(idx).Interior.ColorIndex = xlNone
End If