根据达成率区分不同颜色的数据条

ruanjiand1

根据达成率是否达标自动显示不同颜色的数据条（如图），如达成率高于100%为绿色数据条，达成率低于100%用黄色数据条，请问应该如何设置？

双色条形图教程看这里：
http://blog.sina.com.cn/s/blog_acadeb540102wiej.html
根据这个方法做出来是以下的效果哦，跟上图我想要的效果不一样呢。请问有更好的办法吗？

ruitree

开始--条件格式 --新建规则
只为包含以下内容的单元格设置格式

设定你想要的效果就行了

wangfeng2015

顶一下，留下脚步，我也不会，条件格式，数据条，新建规则，最小值选择公式，公式里面写入，=if($D$2>=1,1,0),渐变填充,选择颜色，然后从左到右；这样可以完成>=100%的渐变数据条填充为绿色；可是黄色＜1的如何完成啊，我不会啊，等其他人吧，或许最开始就是错的

就是他

我只能想到条件格式，其它不怎么懂

dengxingchang

双色条形图教程看这里：
http://blog.sina.com.cn/s/blog_acadeb540102wiej.html

本例公式：=$D2<=20

天下任我行1986

Sub 按照需求并更颜色()
Dim rg As Range
Set Rng = Application.InputBox("请输入需要变更的单元格：", , , , , , , Type:=8)
For Each rg In Rng
If rg.Value >= 1 Then
rg.Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = True
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueAutomaticMin
        .MaxPoint.Modify newtype:=xlConditionValueAutomaticMax
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 8700771
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillGradient
    Selection.FormatConditions(1).Direction = xlContext
    Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
    Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderSolid
    Selection.FormatConditions(1).NegativeBarFormat.BorderColorType = _
        xlDataBarColor
    With Selection.FormatConditions(1).BarBorder.Color
        .Color = 8700771
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
    With Selection.FormatConditions(1).AxisColor
        .Color = 0
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).NegativeBarFormat.Color
        .Color = 255
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).NegativeBarFormat.BorderColor
        .Color = 255
        .TintAndShade = 0
    End With
   Else
    rg.Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = True
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueAutomaticMin
        .MaxPoint.Modify newtype:=xlConditionValueAutomaticMax
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 2668287
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillGradient
    Selection.FormatConditions(1).Direction = xlContext
    Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
    Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderSolid
    Selection.FormatConditions(1).NegativeBarFormat.BorderColorType = _
        xlDataBarColor
    With Selection.FormatConditions(1).BarBorder.Color
        .Color = 2668287
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
    With Selection.FormatConditions(1).AxisColor
        .Color = 0
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).NegativeBarFormat.Color
        .Color = 255
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).NegativeBarFormat.BorderColor
        .Color = 255
        .TintAndShade = 0
    End With
    End If
     Next
End Sub

天下任我行1986

看附件，代码上传

ruanjiand1

天下任我行1986 发表于 2019-1-20 22:14
看附件，代码上传

谢谢，但是为了实现一个颜色显示效果，要写一大堆VBA代码，这时间成本会不会太高了

dengxingchang

你没有按照我发的链接的教程做双色条形图

dengxingchang

照着5楼链接能做出来你可以再按教程做一遍