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

Schreibe einen Kommentar