Sub 条件付き書式_データバー_を設定する()

    Columns("A").FormatConditions.AddDatabar

End Sub