excel2000 条件付書式5つ
A1~J10に100個の数値があり、
行ごとの1位~5位にそれぞれ書式を
あたえます。
マクロの記録機能を使って1位~3位を。
その後別で4位・5位を記録し、くっつけて
みました。
つけたい書式は
以下のマクロの通りのセルのパターン・フォントの色です。
以下は記録したものをくっつけてつくったマクロです。
動作しません。
Sub 条件付書式5つ()
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
初心者のためどうしたらいいのかまったく
わかりません。
どうぞお願いします。
お礼
有難う御座います。よくわかりました。