Indholdsfortegnelse
Skift farve på celle - .Interior.ColorIndex
For at ændre farven på en celle kan vi bruge:
Cell.Interior.ColorIndex = Num
Hvor:
• Celle er cellereferencen
• Interiør - refererer til farven på den faktiske cellefarve (den indre egenskab)
• Colourindex er en værdi mellem 1 og 56 for en af Excels 56 foruddefinerede farver
Og Num er den talfarve, der er tildelt cellen. Det er dog ikke altid let at huske, hvilket tal der repræsenterer hvilken farve. Den følgende underrutine ændrer cellefarven baseret på rækkenummeret. Så f.eks. Række 3 vil have farve 3 osv.
Da der er 56 forudindstillede farver i Excel, betyder det, at celler 59, 115 vil have samme farve som cellen i række 3:
| 123456789101112 | Mulighed eksplicitPrivat underkommandoButton1_Click ()Colour_Range (Sheets ("Sheet2"). Range ("A1: A2000"))Afslut SubUnderfarveområde (celleområde som område)'Farver hver celle inden for rækkeviddeDim CellFor hver celle i celleområdeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0) .Værdi = Cell.RækkeNæsteAfslut Sub |
Rutinen aktiveres af en klikhændelse.
Klik her for at downloade .XLSM -filen til denne vejledning.
