Sub 条件付き書式_データバー_にマイナス部分を付ける()

Columns("A").FormatConditions.AddDatabar 'データバーを追加
Columns("A").FormatConditions(1).BarColor.Color = RGB(155, 187, 89) 'データバー色指定

Columns("A").FormatConditions(1).BarBorder.Type = xlDataBarBorderSolid '外枠を付ける
Columns("A").FormatConditions(1).BarBorder.Color.Color = RGB(155, 187, 89) '外枠色指定

Columns("A").FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic '表の自動計算

End Sub