photosdematures.com

Índex de colors Excel VBA

Igual que en un full de càlcul, canviem el color d’una cel·la o d’un interval de cel·les determinat des de la pestanya inicial de VBA Tenim una funció vba anomenada Índex de colors que s’utilitza per canviar els colors de les cel·les o el rang de cel·les proporcionat.

A VBA tenim dues maneres d’aplicar el color, la primera és mitjançant la propietat “color” i la segona mitjançant la propietat “ColorIndex”.

Apliquem color a la cel·la com a color de fons, apliquem el color de la font i apliquem el color de la vora. Per tant, per accedir a la propietat de l’índex de color i color, primer hem de seleccionar la cel·la.

Com s'utilitza la propietat Color i índex de color?

Podeu descarregar aquesta plantilla d'índex de color VBA aquí: plantilla d'índex de color VBA

# 1 - Ús de la propietat del color

Suposem que teniu la paraula "Hola" a la cel·la A1. Veurem com aplicar el color de fons d’aquesta cel·la.

Per canviar el color de fons, a les propietats dels colors hem d’esmentar primer l’interval de la cel·la.

Codi:

 Sub Color () Rang ("A1") Final Sub 

Després de seleccionar la cel·la, hem d’esmentar quina és la cosa que hem de fer. Com he dit, hem de canviar el color interior de la cel·la. Per canviar el color de fons de la cel·la, utilitzeu la propietat "Interior".

Codi:

 Sub color () Rang ("A1"). Sub interior final 

A Propietat interior, tenim altres mètodes i propietats. Ja que hem de canviar el color de la cel·la, utilitzeu la propietat del color.

Codi:

 Sub Color () Range ("A1"). Interior.Color = Final Sub 

Aquí podem utilitzar vuit colors anomenats constantment. A continuació es mostra la llista del mateix.

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

Seleccioneu el tipus de color segons el vostre desig.

Codi:

 Sub Color () Range ("A1"). Interior.Color = vbBlue End Sub 

Si executo aquest codi amb la tecla F5 o manualment, canviarà el color de fons de la cel·la A1 a vbBlue.

D'aquesta manera, podeu utilitzar altres colors anomenats constants. Proveu d'utilitzar-los per provar el resultat.

A part d’aquests 8 colors constants, també podem omplir-los de diferents colors mitjançant la funció RGB a VBA.

Codi:

 Sub Color () Range ("A1"). Interior.Color = RGB (End Sub 

Hem d’introduir la barreja de vermell, verd i blau en xifres. Per fer-ho, haureu de ser perfectes per introduir els números. He entrat a la barreja com RGB (250, 200, 150).

Codi:

 Sub Color () Rang ("A1"). Interior.Color = RGB (250, 200, 150) Final Sub 

El canvi d’aquest color és així.

El problema aquí és que no saps exactament quin número té quin color.

El codi següent és per canviar el color de la lletra.

Codi:

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

Executeu aquest codi amb la tecla F5 o manualment per obtenir el resultat.

# 2 - Ús de la propietat Índex de color

L'índex de colors és lleugerament diferent de la propietat del color. A la propietat COLOR utilitzem 8 colors constants donats per VBA i també mitjançant la funció RGB creem el nostre propi color.

La propietat COLOR INDEX està limitada a VBA, pot contenir els valors de l'1 al 56. Cada número de l'1 al 56 conté colors diferents. A continuació es mostren els números de llista i els seus colors respectius.

A continuació es mostra el codi de macro per canviar el color de fons de la cel·la A1 a rosa.

Codi:

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

Executeu aquest codi manualment o amb la tecla F5 per veure el resultat.

A continuació es mostra el codi macro per canviar el color de la font de la cel·la A1 a groc.

Codi:

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

Executeu aquest codi amb la tecla F5 o podeu executar-lo manualment i veure el resultat.

Una de les coses importants que cal recordar aquí és que podem introduir números de l'1 al 56. Si hi ha més de 56, obtindrem l'error "Subscript Out of Range".

Ho vas observar?

Com he dit, la propietat Índex de colors només pot inserir 56 colors, però el fet és que només pot inserir 46 colors únics i hi ha 10 colors duplicats. A continuació es mostra la llista de codis de colors duplicats.