Farbe der Zelle ändern - .Interior.ColorIndex
Um die Farbe einer Zelle zu ändern, können wir Folgendes verwenden:
Cell.Interior.ColorIndex = Num
Woher:
• Zelle ist die Zellreferenz
• Interior – bezieht sich auf die Farbe der tatsächlichen Zellfarbe (Die Inneneigenschaft)
• Colourindex ist ein Wert zwischen 1 und 56 für eine der 56 vordefinierten Farben von Excel
Und Num ist die Zahlenfarbe, die der Zelle zugewiesen ist. Es ist jedoch nicht immer einfach, sich zu merken, welche Zahl für welche Farbe steht. Das folgende Unterprogramm ändert die Zellenfarbe basierend auf der Zeilennummer. So hat zum Beispiel Zeile 3 die Farbe 3 usw.
Da es in Excel 56 voreingestellte Farben gibt, bedeutet dies, dass die Zellen 59, 115 die gleiche Farbe wie die Zelle in Zeile 3 haben:
| 123456789101112 | Option explizitPrivate Sub CommandButton1_Click()Colour_Range (Sheets("Sheet2").Range("A1:A2000"))End SubSub Colour_Range (Cell_Range als Bereich)' Wird jede Zelle im Bereich färbenZelle dimmenFür jede Zelle in Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset(0, 0).Wert = Cell.RowNächsteEnd Sub |
Die Routine wird durch ein Klickereignis aktiviert.
Um die .XLSM-Datei für dieses Tutorial herunterzuladen, klicken Sie bitte hier.
