VBA-kleurenindex - Topmanieren om de eigenschap Color Index te gebruiken in Excel VBA

Excel VBA-kleurenindex

Net als in een werkblad wijzigen we de kleur van een cel of een bepaald celbereik vanaf het starttabblad in VBA. We hebben een vba-functie genaamd Color Index die wordt gebruikt om de kleuren van de cellen of het geleverde celbereik te wijzigen, deze functie heeft een unieke identificatie voor verschillende soorten kleuren.

In VBA hebben we twee manieren om de kleur toe te passen, de eerste is door de eigenschap "kleur" te gebruiken en de tweede is door de eigenschap "ColorIndex" te gebruiken.

We passen kleur toe op de cel als achtergrondkleur, we passen lettertypekleur toe en we passen randkleur toe. Dus om toegang te krijgen tot de eigenschap kleur en kleurindex, moeten we eerst de cel selecteren.

Hoe gebruik ik de eigenschap Color & Color Index?

# 1 - Kleureigenschap gebruiken

Stel dat u het woord "Hallo" in cel A1 hebt staan. We zullen zien hoe we de achtergrondkleur van deze cel kunnen toepassen.

Om de achtergrondkleur te wijzigen, moeten we in kleureigenschappen eerst het bereik van de cel vermelden.

Code:

Subkleur () Bereik ("A1") Einde Sub

Nadat we de cel hebben geselecteerd, moeten we vermelden wat we moeten doen. Zoals ik al zei, we moeten de binnenkleur van de cel veranderen. Gebruik dus de eigenschap 'Interieur' om de achtergrondkleur van de cel te wijzigen.

Code:

Subkleur () Bereik ("A1") Binnenkant Sub

Onder Eigenschap interieur hebben we verschillende andere methoden en eigenschappen. Omdat we de kleur van de cel moeten wijzigen, gebruikt u de kleureigenschap.

Code:

Subkleur () Bereik ("A1") Interior.Color = End Sub

Hier kunnen we 8 constant benoemde kleuren gebruiken. Hieronder is de lijst van hetzelfde.

vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite

Selecteer het kleurtype volgens uw wens.

Code:

Subkleur () Bereik ("A1"). Interior.Color = vbBlue End Sub

Als ik deze code uitvoer met de F5-toets of handmatig, wordt de achtergrondkleur van cel A1 gewijzigd in waarde .

Op deze manier kunt u andere constante benoemde kleuren gebruiken. Probeer ze te gebruiken om het resultaat te testen.

Naast deze 8 constante kleuren kunnen we ook vullen met verschillende kleuren door gebruik te maken van de RGB-functie in VBA.

Code:

Subkleur () Bereik ("A1") Interior.Color = RGB (End Sub

We moeten de combinatie van rood, groen en blauw in cijfers invoeren. Om dit te gebruiken, moet u perfect zijn in het invoeren van de cijfers. Ik heb het mengsel ingevoerd als RGB (250, 200, 150).

Code:

Subkleur () Bereik ("A1"). Interior.Color = RGB (250, 200, 150) End Sub

De verandering van deze kleur is als volgt.

Het probleem hier is dat u niet precies weet welk nummer welke kleur heeft.

De onderstaande code is om de lettertypekleur te wijzigen.

Code:

Sub Color_Font () Bereik ("A1"). Font.Color = RGB (100, 400, 100) End Sub

Voer deze code uit met behulp van de F5-toets of handmatig om het resultaat te krijgen.

# 2 - Kleurindex-eigenschap gebruiken

Kleurindex wijkt enigszins af van de kleureigenschap. In de COLOR-eigenschap gebruiken we 8 constante kleuren gegeven door VBA en ook met behulp van de RGB-functie creëren we onze eigen kleur.

De eigenschap COLOR INDEX is beperkt in VBA. Het kan de waarden van 1 tot 56 bevatten. Elk nummer van 1 tot 56 bevat verschillende kleuren. Hieronder staan ​​de lijstnummers en hun respectievelijke kleuren.

Hieronder staat de macrocode om de achtergrondkleur van cel A1 in roze te veranderen.

Code:

Sub ColorIndex_Cell () Bereik ("A1"). Interior.ColorIndex = 26 End Sub

Voer deze code handmatig uit of gebruik de F5-toets om het resultaat te zien.

Hieronder staat de macrocode om de lettertypekleur van cel A1 in geel te veranderen.

Code:

Sub ColorIndex_Font () Bereik ("A1"). Font.ColorIndex = 27 End Sub

Voer deze code uit met de F5-toets, of u kunt het handmatig uitvoeren en het resultaat zien.

Een van de belangrijke dingen die u hier moet onthouden, is dat we getallen van 1 tot 56 kunnen invoeren. Als er meer dan 56 zijn, krijgen we de foutmelding "Subscript buiten bereik".

Heb je geobserveerd?

Zoals ik tegen Color Index heb gezegd, kan de eigenschap slechts 56 kleuren invoegen, maar het is een feit dat het slechts 46 unieke kleuren kan invoegen en dat er 10 dubbele kleuren zijn. Hieronder vindt u de lijst met dubbele kleurcodes.