Excel-VBA: Wechselnde Reihe Farben im Sortiment
Ich verbrachte eine SEHR lange Zeit suchen, bis Sie eine Methode, um Alternative Zeilen-Farben in einem bestimmten Bereich. Es ist wirklich nicht viel da draußen und um ehrlich zu sein was ich gefunden habe sah einfach zu kompliziert. Also, ich beschlossen, zu stoppen benimmt sich wie eine schamlose 'script-kiddy' und setzen Sie die im folgenden Beispiel zusammen:
Sub AlternateRowColors()
Dim lastRow as Long
lastRow = Range("A1").End(xlDown).Row
For Each Cell In Range("A1:A" & lastRow) ''change range accordingly
If Cell.Row Mod 2 = 1 Then ''highlights row 2,4,6 etc|= 0 highlights 1,3,5
Cell.Interior.ColorIndex = 15 ''color to preference
Else
Cell.Interior.ColorIndex = xlNone ''color to preference or remove
End If
Next Cell
End Sub
Jetzt weiß ich, dass das funktioniert, aber ich Frage mich, ob es eine einfachere Methode?
Wenn dem so ist, bitte sagen, denn ich bin sehr begierig zu erfahren, Vereinfachung, wie ich eine Tendenz haben, zu schreiben verbose code " zu präsentieren. Wenn nicht, dann kann dieser Eintrag zu finden den Weg auf Seite 1 von Google für seine Suche nach Begriff(en), denn es hat mich absolut Altersgruppen zu finden, was auch nur entfernt nützlich.
Kommentare für "script-kiddies" nutzen.
Den folgenden code-Zeilen können entfernt werden, wenn Sie Ihre Daten enthält keine pre-vorhandene Farben:
Else
Cell.Interior.ColorIndex = xlNone
InformationsquelleAutor Kurt | 2011-01-07
Du musst angemeldet sein, um einen Kommentar abzugeben.
Wechselnde Reihe Farben getan werden kann mithilfe der bedingten Formatierung:
Macht das Bild nicht zeigen, bis für Sie? Ich nahm einen Screenshot von der ganzen Sache. Es funktioniert in Excel 2000, also gehe ich davon aus, dass es auch in Excel 2003 arbeiten
officehackery.com/2009/05/...
Ah, dass erklärt es. Ich bin bei der Arbeit und unserem team zu haben scheinen, eine internet-Politik, ähnlich der von Nord-Korea: stark zensiert. Ich werde mal schauen, wenn ich nach Hause komme.
Wenn ich versuche, dies in Excel für Mac 2011 gibt es einen Fehler, sagen, meinen, dass meine Formel einen Fehler enthält.
InformationsquelleAutor e.James
Ich müssen tun Sie dies Häufig und gerne in der Lage sein leicht ändern Sie die Farben, die ich verwende für die Streifenbildung. Die folgende sub macht es sehr einfach:
Verwendung:
Ich löste es. Mein problem war, dass mein Excel ist in portugiesischer Sprache, dann musste ich übersetzen der Formel-Portugiesisch-äquivalent. e.ich "=MOD(ROW(),2)<>0" ""=MOD(LIN();2)<>0" ab" 😉
Linha em vez de Reihe? Valeu!
InformationsquelleAutor Jon Crowell
Bräuchte ich ein makro, das würde die Farbe jeder zweiten Zeile in einem Bereich, wobei nur diejenigen Zeilen sichtbar. Dies ist, was ich kam mit. Sie nicht haben, um eine Schleife durch die Zeilen.
Probieren Sie es aus mit
Color_Alt_Rows Range("a2:d5")
InformationsquelleAutor Geko
Meine Lösung
Die Funktion
InformationsquelleAutor Mak
InformationsquelleAutor nick316igr
Gut, Sie können löschen Sie die
else
Teil, da werden Sie lassen Sie es in der Standard-FarbeInformationsquelleAutor Carlos Valenzuela
In meinem Excel 2010 gibt es eine option zum formatieren als Tabelle, wo Sie können auch wählen Sie einen Bereich und Header. Keine Notwendigkeit für scripting.
InformationsquelleAutor Bernhard