2017-05-04 5 views
-5

Ich möchte ein VBA-Programm, um die Farbe von Text in einer Zelle basierend auf der Farbe von Text in einer anderen Zelle zu ändern. Beispiel:Ich möchte die Farbe des Textes in einer Zelle basierend auf der Farbe des Textes in einer anderen Zelle ändern

Wenn die Farbe von Text in Zelle A1 blau ist. Ich möchte, dass die Farbe des Textes in der Zelle B1 blau ist.

Eine Formel oder ein VBA-Programm würde helfen, da ich dasselbe für eine große Anzahl von Zellen tun müsste.

Danke.

+0

Was bestimmt, ob 'A1' blau ist? Kommt es so zu dir oder gibt es vielleicht ein bedingtes Format? Ist es nur 'A1' und' B1'? Oder der * Wert * in 'A1', wo immer er in der' B' Spalte erscheint? – BruceWayne

+3

** Profi-Tipp **: Wenn ich einen Beitrag mit "Ich will" beginnen sehe und keinen Code drin habe, ignoriere ich ihn 99% der Zeit. Bitte zeigen Sie uns, was Sie bisher versucht haben und welche Schwierigkeiten Sie haben. Wenn Sie noch nichts versucht haben, ist Stack Overflow nicht der richtige Ort für diese Frage. –

+0

Ich stimme Macro Man zu. Versuchen Sie es selbst zu tun, und wenn Sie eine Fehlermeldung erhalten, schauen Sie das nach ... und wenn Sie nicht weiterkommen, kommen Sie zurück und stellen Sie eine Frage zu dem Fehler. So erhalten Sie schnell eine Antwort von dieser Website. – Mozahler

Antwort

6

Verwenden Sie Font.Color Eigenschaft der angegebenen Zellen.

Range("B1").Font.Color = Range("A1").Font.Color 

Sie können auch jede Variable für die Wiederverwendung verwenden.

Dim ColorTemplate As Long = Range("A1").Font.Color 
Range("B1").Font.Color = ColorTemplate 
Range("C1").Font.Color = ColorTemplate 
... 
Verwandte Themen