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) '外枠色指定
End Sub