Sub 条件付き書式_データバー_の色を指定する() Columns("A").FormatConditions.AddDatabar 'データバーを追加 Columns("A").FormatConditions(1).BarColor.Color = RGB(155, 187, 89) 'データバー色指定 End Sub