VBA エクセル アイコンを表示 条件書式を追加

セルの範囲内で上位３３％が青、下位３３％以下が赤、３３％以上６７％以下が黄

全値の平均以下だったら文字色と塗りつぶし

Sub アイコンセットの表示()
'矢印のアイコンセットを表示
 Range("B4:F15").FormatConditions.AddIconSetCondition
    With Range("B4:F15").FormatConditions(1)
        .IconSet = ActiveWorkbook.IconSets(xl3Arrows)
    End With
End Sub

Sub 強調表示()
'平均以下だったら文字色と塗りつぶし
 Range("B4:F15").FormatConditions.AddAboveAverage
 With Range("B4:F15").FormatConditions(2)
    .AboveBelow = xlBelowAverage
    .Interior.Color = RGB(255, 230, 180)
    .Font.Color = RGB(255, 0, 0)
 End With
End Sub