
例えば
以下の表の列「売上」に…


データバーを設定できます!


データバーを設定により、
数値が視覚的に分かりやすくなります!

データバーは
・「条件付き書式」を用いて設定
します!
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」の詳細は、以下の記事をご確認ください。
参考③
列挙体そのものについては、以下の記事をご確認ください。