【VBA】条件付き書式を使用して、上位3位のセルの書式(文字色、背景色)を変更する

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

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位のセルの書式(文字色、背景色)を変更できました。

参考①

上記のVBAコードでは、色の指定に列挙体「XlRgbColor」を使用しています。

列挙体「XlRgbColor」の詳細は、以下の記事をご確認ください。

【VBA】列挙体「XlRgbColor」の定数一覧【Colorプロパティ】

【VBA】列挙体「XlRgbColor」の定数の一覧です！

参考②

列挙体そのものについては、以下の記事をご確認ください。

【VBA講座】列挙体について

【VBA講座】列挙体について説明します！