Soru Data_Bar

[gicimi]

Merhaba;

Ekteki çalışmada (B) sütununda yer alan değerler %100 oranı baz alınarak girilmiştir. Verilere Makro ile Data Bar yapılabilir mi_? Aşağıdaki resimde görüşüldüğü gibi, Konu hakkında yardımcı olabilir misiniz. Teşekkürler.

 

[netzone]

Merhaba,

Makro kaydet ile yaptığım koşullu biçimlendirme sonrası ortaya çıkan kodlar şöyledir.

*Kodlama bilgisi olan arkadaşlar kodları sadeleştirebilir.

Sub bar_olarak_goster()

    Columns("B:B").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 = 13012579
        .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 = 13012579
        .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 Sub

 

[gicimi]

@netzone ilginiz için teşekkür ederim. Kolaylıklar.