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 · ベストアンサー

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

お礼

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

回答No.2

mu2011

一例です。

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

お礼

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

回答No.1

9der-qder

マクロでなくてはダメなのでしょうか。
「条件付き書式」で出来ますが。

お礼

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

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

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