Format Farbskala

Ich habe ein Makro, das Matrix bietet und ich möchte nur diejenigen Matrix unter einer Farbskala-Format (siehe unten) setzen, dies wurde händisch gemacht:Format Farbskala

Erwartete Ausgabe:

die die meisten näher ich habe ist das Format, das das Gegenteil bedeutet:

Stromausgang:

, was ich tun verwendet, so ist:

Ich habe versucht mit vielen Zahlen von Farbtyp, aber nur 2 und 3 scheinen zu laufen, aber nicht meine erwartete Ausgabe.

Vielen Dank für Ihre Hilfe

Und auf diese Weise weder nicht funktioniert, (ich habe wirklich 8-Matrix)

Sheets("Hoja1").Range("B3:BA26").FormatConditions.AddColorScale ColorScaleType:=2 
Sheets("Hoja1").Range("B29:BA52").FormatConditions.AddColorScale ColorScaleType:=2 
Sheets("Hoja2").Range("B55:BA78").FormatConditions.AddColorScale ColorScaleType:=2 
Sheets("Hoja2").Range("B81:BA104").FormatConditions.AddColorScale ColorScaleType:=2 

Sheets("Hoja2").Range("B3:BA26").FormatConditions.AddColorScale ColorScaleType:=2 
Sheets("Hoja2").Range("B29:BA52").FormatConditions.AddColorScale ColorScaleType:=2 
Sheets("Hoja1").Range("B55:BA78").FormatConditions.AddColorScale ColorScaleType:=2 
Sheets("Hoja1").Range("B81:BA104").FormatConditions.AddColorScale ColorScaleType:=2 


FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueLowestValue

Quelle

2017-11-23 IlvarNourtan

können Sie Makrorekorder verwenden, während Bereich Auswahl nach Hause gehen dann> bedingte Formatierung> Farbskalen und wählen zweite nach rechts oben (dunkelste Farbe für höchste Zahl) – QHarr

It 3 colorscalecriteria zurück (Typ), die xlConditionValueLowestValue, xlConditionValuePercentile und xlConditionValueHighestValue – QHarr

Danke, also gibt es keinen direkten VBA-Befehl, der es direkt erlaubt? – IlvarNourtan

Sie verwenden können:

With FormatConditions(1) 
    'Define the color for your lowest value 
    .ColorScaleCriteria(1).FormatColor.Color = 8109667 

    'Define the type of definition for the mid value. The default is 50%. 
    .ColorScaleCriteria(2).Type = xlConditionValuePercentile 
    .ColorScaleCriteria(2).Value = 50 
    'Define the color for your mid-point value 
    .ColorScaleCriteria(2).FormatColor.Color = 8711167 

    'Define the color for your highest value 
    .ColorScaleCriteria(3).Type = xlConditionValueHighestValue 
    .ColorScaleCriteria(3).FormatColor.Color = 7039480 

End With

Natürlich ist diese soll Ihnen völlige Freiheit über das Ergebnis Ihres bedingten Formats geben. Alles was Sie wollen, ist einer der Standardstile, mein Kommentar sollte ausreichen.

Quelle

2017-11-23 23:44:06

Format Farbskala

Antwort

Verwandte Themen