Kann ich in Excel eine mehrfarbige Zelle ohne Farbverlauf erstellen?

1507
Victor Odukoya

Ich möchte zwei Farben auf eine Zelle anwenden und sie diagonal trennen. Ich weiß, dass es eine Funktion zum Hinzufügen von Farbverläufen in Excel gibt, aber ich habe keine Möglichkeit gefunden, die Stärke des Farbstops festzulegen.

Die erste Zelle ist, wie sie jetzt aussieht, und die zweite ist, was ich brauche

1
Ich glaube nicht, dass es ohne komplizierte VBA möglich ist ... Kinnectus vor 5 Jahren 0
@Kinnectus, ich würde gerne wissen, wie dies erreicht werden könnte, auch wenn dies komplizierte VBA bedeutet, bitte! Bharat Anand vor 5 Jahren 0
@ BharatAnand, nur um Sie wissen zu lassen, dass ich es geschafft habe. Ich habe selbst eine Antwort gepostet. Victor Odukoya vor 5 Jahren 0

1 Antwort auf die Frage

0
Victor Odukoya

Nachdem ich ein bisschen herumgespielt hatte, habe ich herausgefunden, wie es geht. Mein Fehler war, dass ich nur zwei Farbstopps hinzugefügt habe, wenn ich 4 Farbstopps hätte hinzufügen sollen, um den Farbverlauf zu entfernen. Der Farbverlauf wird automatisch hinzugefügt, um einen sanften Farbübergang zwischen zwei Farben zu erzeugen. Wenn Sie den Farbabstand zwischen zwei Farben so klein wie möglich machen, wird kein Farbverlauf angezeigt.

Hier ist mein Code:

With Selection.Interior .Pattern = xlPatternLinearGradient .Gradient.Degree = 225 .Gradient.ColorStops.Clear End With  With Selection.Interior.Gradient.ColorStops.Add(0) .Color = RGB(255, 0, 0) .TintAndShade = 0 End With  With Selection.Interior.Gradient.ColorStops.Add(0.49999999) .Color = RGB(255, 0, 0) .TintAndShade = 0 End With  With Selection.Interior.Gradient.ColorStops.Add(0.5) .Color = RGB(0, 255, 0) .TintAndShade = 0 End With  With Selection.Interior.Gradient.ColorStops.Add(1) .Color = RGB(0, 255, 0) .TintAndShade = 0 End With

Und so sieht es aus: Zweifarbige Excel-Zelle

Verwandte Probleme