【VBA】データバーを設定する

VBAコード

ここでは例として、
　・シート「sample」の列「売上(＝3列目)」に
　・データバー(赤色)を設定
します。

Option Explicit

Sub sample()
    
    Dim startRange As Range
    Dim endRow As Double
    Dim endRange As Range
    Dim dataBar As dataBar

    '開始セルを取得
    Set startRange = Worksheets("sample").Range("C3")
    '最終行を取得
    endRow = startRange.End(xlDown).Row
    '最終セルを取得
    Set endRange = Worksheets("sample").Cells(endRow, startRange.Column)
    
    'データバーを取得
    Set dataBar = Range(startRange, endRange).FormatConditions.AddDatabar
    
    With dataBar
        '最小値を最短のデータバーにする
        .MinPoint.Modify newtype:=xlConditionValueAutomaticMin
        'データバーの色を赤にする
        .BarColor.Color = XlRgbColor.rgbRed
    End With

End Sub

実行結果

データバー(赤色)を設定できました。

参考①

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「FormatConditions」オブジェクトの「AddDatabar」メソッド

●「DataBar」オブジェクト

参考②

上記のコードでは「データバーの色を赤」にするために、列挙体「XlRgbColor」の定数「rgbRed」を使用しています。

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

参考③

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