Excel VBA 「カー計簿」データバー

Excel VBA 「カー計簿」DataBarメソッドとは

小計や分類の合計値に対してデーターバーを用いて具体的な比率が視覚化できます。

Excel VBA 「カー計簿」DataBarメソッド設定方法

    Wk_g_Line = Sh_Temp.Cells(Rows.Count, 7).End(xlUp).Row
    Range("G3:G" &amp; Wk_g_Line).FormatConditions.Delete
    Range("G3:G" &amp; Wk_g_Line).FormatConditions.AddDatabar
    Range("K2:K7").FormatConditions.Delete     
    Range("K2:K7").FormatConditions.AddDatabar

1

2

3

4

5

Wk_g_Line = Sh_Temp.Cells(Rows.Count, 7).End(xlUp).Row

Range("G3:G" & Wk_g_Line).FormatConditions.Delete

Range("G3:G" & Wk_g_Line).FormatConditions.AddDatabar

Range("K2:K7").FormatConditions.Delete

Range("K2:K7").FormatConditions.AddDatabar

ポイントはまず削除（Delete）してからデータバーを設定します。Rangeで指定された領域に対して設定されます。
色、向き、基軸などプロパティで細かく設定可能です。
色：BarColor【ﾊﾞｰｶﾗｰ】データバーの色を設定します。
方向：Direction【ﾃﾞｨﾚｸｼｮﾝ】データバーを表示する方向を設定します。
基軸：AxisPosition【ｱｸｼｽﾎﾟｼﾞｼｮﾝ】データバーの軸の位置を設定します。
などの設定も可能です。