excel2000 条件付書式５つ
A1～J10に100個の数値があり、
行ごとの１位～５位にそれぞれ書式を
あたえます。
マクロの記録機能を使って１位～３位を。
その後別で４位・５位を記録し、くっつけて
みました。
つけたい書式は
以下のマクロの通りのセルのパターン・フォントの色です。
以下は記録したものをくっつけてつくったマクロです。
動作しません。
Sub 条件付書式５つ()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=LARGE($A1:$J1,1)"
Selection.FormatConditions(1).Font.ColorIndex = 2
Selection.FormatConditions(1).Interior.ColorIndex = 1
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=LARGE($A1:$J1,2)"
Selection.FormatConditions(2).Font.ColorIndex = 2
Selection.FormatConditions(2).Interior.ColorIndex = 16
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=LARGE($A1:$J1,3)"
Selection.FormatConditions(3).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=LARGE($A1:$J1,4)"
Selection.FormatConditions(4).Font.ColorIndex = 2
Selection.FormatConditions(4).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=LARGE($A1:$J1,5)"
Selection.FormatConditions(5).Font.ColorIndex = xlAutomatic
Selection.FormatConditions(5).Interior.ColorIndex = 38
End Sub
初心者のためどうしたらいいのかまったく
わかりません。
どうぞお願いします。
補足
回答ありがとうございます。 条件付き書式に変更をすればいいということでしょうか？それとも VBAを修正すればいいということでしょうか？ VBA初心者のため出来れば例をあげてもらえると助かります。