Legen Sie die Hintergrundfarbe des Interior-Objekts von Excel VBA fest

Inneres Objekt

stellt das Innere eines Objekts dar

Für das Innenobjekt verwenden wir am häufigsten seine Farbe, lassen Sie uns dies weiter unten besprechen.

1.ColorIndex Index-Farbwert

Sub 索引颜色值()
    For i = 1 To 56
        Cells(i, 1).Interior.ColorIndex = i
        Cells(i, 2) = i
    Next i
    
    For i = 1 To 56
        Cells(i, 3).Interior.ColorIndex = i
        Cells(i, 3).Interior.ColorIndex = xlNone
        Cells(i, 4) = i
    Next i
End Sub

 

Funktion: Verwenden Sie ColorIndex , um die Hintergrundfarbe der Zelle festzulegen.Für die entsprechende Beziehung zwischen dem Wert und der Farbe können Sie sich auf das folgende Bild beziehen oder diesen Code in Excel schreiben und ausführen, um das Ergebnis zu sehen. 3. Verwenden Sie xlNone, wenn die 4-Spalten-Validierungseinstellung keine Farbe enthält

2.Farbe kombiniert mit dem frühen Farbwert von QBColor

Sub 早期颜色值()
    For i = 0 To 15
        Cells(i + 1, 1).Interior.Color = QBColor(i)
        Cells(i + 1, 2) = i
    Next i
    
    For i = 0 To 15
        Cells(i + 1, 3).Interior.Color = QBColor(i)
        Cells(i + 1, 3).Interior.Color = xlNone
        Cells(i + 1, 4) = i
    Next i
End Sub

Funktion: Setzt die Hintergrundfarbe der Zelle durch Kombinieren von Color mit QBColor (i) Der Wertebereich von i ist [0,15] Wenn das Programm außerhalb des Bereichs läuft, wird ein Fehler gemeldet. Für die Übereinstimmung zwischen Werten und Farben können Sie sich auf das folgende Bild beziehen oder diesen Code in Excel schreiben und ausführen, um das Ergebnis zu sehen. 3. Verwenden Sie xlNone, wenn die 4-Spalten-Validierungseinstellung keine Farbe enthält

3.Farbe kombiniert mit RGB-Farbwert

Sub 三原色颜色值()
    Cells(2, 4).Interior.Color = RGB(255, 0, 0)
    
    Cells(3, 4).Interior.Color = RGB(255, 0, 0)
    Cells(3, 4).Interior.Color = xlNone
End Sub

Funktion: Legen Sie die Hintergrundfarbe der Zelle fest, indem Sie Color mit RGB kombinieren Der Bereich des Medianwerts von RGB ist [0,255], was wiederum die R-, G- und B-Komponenten der Farbe sind.

3-Zeilen- und 4-Spalten-Validierungssatz zur Verwendung von xlNone, wenn keine Farbe vorhanden ist

4. Farbe kombiniert mit BGR-Farbwert

Sub 直接颜色值() '此颜色有255^3种颜色
    Cells(1, 1).Interior.Color = 255

    Cells(1, 2).Interior.Color = 255
    Cells(1, 2).Interior.Color = xlNone
End Sub

Funktion: Legen Sie die Hintergrundfarbe der Zelle fest, indem Sie Color mit BGR kombinieren. Hier ist der Wert von Interior.Color eine Dezimalzahl mit einem Bereich von 0 bis 16777215. Sie gehört zum Long-Integer-Bereich und zur Reihenfolge der RGB-Farbkomponenten ist BGR, also (ist Die Umwandlung dieser drei Hexadezimalzahlen in Dezimalzahlen ergibt 16711680; 65280; 255.

Verwenden Sie xlNone, wenn Sie keine Farbe in 1 Zeile und 2 Spalten festlegen