Excelマクロ 負の数（例-20）を赤にしたい

こんにちは。

Excel2003でA1からB20までのセルに正と負の数字が混在しています。
負の数字　(-20などマイナス記号が入ったまま)　を赤にしたいのです。

調べてマクロを組みましたが書き方がわからないところがあります
Sub Macro()
Dim r As Range
With Range("A1:B20")
For Each r In .Cells　<-----ここの書き方
If .Cells < 0 Then　<-----ここの書き方
With r.Font
.ColorIndex = 3
End With
End If
Next
End With
End Sub

どこを修正すれば良いでしょうか
おわかりの方お教えください。

No.3 ベストアンサー 回答者： f272 回答日時： 2012/02/10 15:07

If .Cells < 0 Then

これを
If r.Value < 0 Then
こうする

この回答へのお礼

ご回答ありがとうございます
この修正だけでうまく動きました

お礼日時：2012/02/10 15:24

No.2 回答者： mu2011 回答日時： 2012/02/10 15:04

一例です。

Sub Macro()
Dim r As Range
For Each r In Range("A1:B20")
If r.Value < 0 Then
r.Font.ColorIndex = 3
End If
Next
End Sub

この回答へのお礼

ご回答ありがとうございます。
この方法でできました。

お礼日時：2012/02/10 15:23

No.1 回答者： 9der-qder 回答日時： 2012/02/10 14:57

マクロでなくてはダメなのでしょうか。

「条件付き書式」で出来ますが。

この回答へのお礼

ご回答ありがとうございます。

「条件付き書式」のばあいは「△」とか「マイナス符号が付かない赤字」
になってしまうはずです。

どうしてもマイナス符号をつけて赤字にしたいので質問しました。

お礼日時：2012/02/10 15:17