vbscript 根据特定列中的数据为Excel行设置交替背景（在此示例中：cloumn 2（B））

Posted 2021-05-22

Sub Faerbe_RGB()
'Makro von PauleVBA @ gutefrage.net
Dim lngGrau As Long  'RGB-Wert fuer Grau
Dim lngWeiss As Long 'RGB-Wert für weiss
Dim lngEnde As Long 'Ende der gefuellten Zeilen
Dim lngInterneFarbe As Long 'die gewuenschte Fuellung
Dim I As Long ' einfach Zaehlvariable

lngGrau = RGB(235, 235, 235) 'Farbe Grau definieren
lngWeiss = RGB(255, 255, 255) 'Farbe weiss definieren
lngEnde = Range("B:B").SpecialCells(xlCellTypeLastCell).Row
lngInterneFarbe = lngWeiss ' festsetzen, welche Farbe die Ueberschrift hat
     ' die andere Farbe wird dann automatisch für die erste Zeile genommen

For I = 2 To lngEnde 'von Zeile 5 bis zur letzten genutzten
    If Cells(I, 2) <> Cells(I - 1, 2) Then 'Zellinhalte vergleichen
        'Farbwechsel
        If lngInterneFarbe = lngGrau Then
            'wenn bisher Grau, dann weiss
            lngInterneFarbe = lngWeiss
        Else
            'wenn bisher weiss, dann grau
            lngInterneFarbe = lngGrau
        End If
    End If
    'die Zeile faerben
    Rows(I).Interior.Color = lngInterneFarbe
Next I
End Sub