Excel2003 VBAにて条件付き書式のマクロを書きたいのですが、
Excel2003 VBAにて条件付き書式のマクロを書きたいのですが、どうも上手くいきません。
1列おき（C列、E列、G列・・・）に条件付き書式を設定し、
条件は、
・セルの値が”0”より大きい場合はフォント”赤”で表示。
・セルの値が”0”より小さい場合はフォント”緑”で表示。
としたいと思いマクロを組んでみました。
Sub Color()
Dim j, j0
Dim x
Worksheets("sheet1").Active
Application.ScreenUpdating = False
j0 = 3
j = 300
For x = 3 To 100 Step 2
Range(.Cells(j0, x), .Cells(j, x)).Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="0"
Selection.FormatConditions(1).Font.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="0"
Selection.FormatConditions(2).Font.ColorIndex = 10
Next
Application.ScreenUpdating = True
End Sub
デバックでステップインしていくと、ここで実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです。がでます。
Selection.FormatConditions(1).Font.ColorIndex = 3
--------------------------------------------------------------------------------------
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="0"
Selection.FormatConditions(1).Font.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="0"
Selection.FormatConditions(2).Font.ColorIndex = 10
--------------------------------------------------------------------------------------
この間は、マクロの自動記録で書かれてるので間違ってはいないハズなのですが、、、
お知恵を下さい。
よろしくお願いします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_2_thumbnail_img_sm.png)
お礼
ありがとうございました。