【VBA】上位3位のセルの書式(文字色、背景色)を変更する

条件付き書式を設定することで、
　・上位3位のセルの書式(文字色、背景色)を変更
することが出来ます！

↑上位3位である「1156」、「1654」、「9534」の書式(文字色、背景色)を変更した。

VBAコード
実行結果

VBAコード

ここでは例として、シート「sample」のセル「C3～E5」の設定値の上位3位の
　・文字色を赤
　・セルの背景色を薄いピンク
にするVBAコードを記載します。

Sub sample()
    
    With Worksheets("sample").Range("C3:E5").FormatConditions.AddTop10
    
        '上位3位
        .TopBottom = xlTop10Top
        .Rank = 3
    
        '文字色を赤にする
        .Font.Color = XlRgbColor.rgbRed
    
        '背景色を薄いピンクにする
        .Interior.Color = XlRgbColor.rgbLightPink
        
    End With
    
End Sub

「TopBottom」に「xlTop10Top」を指定することで、「上位からX位」となります。
「TopBottom」に「xlTop10Bottom」と指定すれば、「下位からX位」となります。

「Rank」に「3」を指定することで、「XXから3位」となります。
「Rank」に「5」と指定すれば、「XXから5位」となります。

実行結果

上位3位のセルの書式(文字色、背景色)を変更することが出来ました。