Colore carattere VBA

Colore carattere VBA di Excel

La proprietà Colore carattere VBA viene utilizzata per modificare il colore del carattere delle celle Excel utilizzando il codice VBA . Possiamo cambiare il colore del carattere in più modi usando l'indice del colore, la proprietà del colore con la funzione RGB.

Quando preparo una dashboard in Excel, di solito dedico molto tempo alla formattazione di celle, caratteri, ecc. Spesso mi sento come un'estetista di Excel guardando i vari colori della formattazione di Excel. Cambiare il colore del carattere nel foglio di lavoro Excel è un lavoro facile, ma quando si tratta di Excel, dovresti conoscere i modi di scrivere il codice VBA per cambiare il colore del carattere.

Per cambiare il colore del carattere, in primo luogo, dobbiamo identificare quali sono le celle che cambieremo.

Intervallo ("A1: A10")

Quindi dobbiamo selezionare la proprietà FONT.

Intervallo ("A1: A10") Carattere

Allora cosa vogliamo fare con questo carattere, quindi seleziona Colore?

Intervallo ("A1: A10") Font.Color

In questo modo, dobbiamo costruire il codice per cambiare il colore del carattere. Sembra difficile, non è vero?

Ma ricorda che all'inizio sembra che tutto sia difficile, in seguito capirai come funziona.

Come cambiare il colore del carattere usando VBA?

Puoi scaricare questo modello Excel colore carattere VBA qui - Modello Excel colore carattere VBA

Esempio n. 1: utilizzo dell'indice dei colori

La proprietà Color Index è diversa dalla proprietà Color in VBA. Usando valori numerici possiamo cambiare il colore delle celle, dei caratteri.

I numeri vanno da 1 a 56 e ogni numero rappresenta colori diversi. Di seguito è riportato l'elenco dei numeri e dei loro colori.

Ok, proviamo questo.

Ho un valore nella cella A1.

Voglio cambiare il colore del carattere A1 della cella in verde. Di seguito il codice.

Codice:

 Sub FontColor_Example1 () Range ("A1"). Font.ColorIndex = 10 End Sub 

Questo cambierà il colore del carattere A1 della cella in verde.

Possiamo anche usare la proprietà CELLS per cambiare il colore del carattere.

Codice:

 Sub FontColor_Example1 () Cells (1, 1) .Font.ColorIndex = 10 End Sub 

In questo modo, possiamo usare i numeri da 1 a 56 per applicare il colore desiderato al carattere.

Esempio n. 2: utilizzo della proprietà del colore

L'indice di colore ha colori molto limitati da 1 a 56, ma usando la proprietà COLOR possiamo usare 8 colori incorporati vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Per questi colori non abbiamo bisogno di fornire alcun numero, ma possiamo semplicemente accedervi usando il loro nome come mostrato sopra. Di seguito è riportato il codice di esempio per tutti gli 8 colori.

Codice:

 Sub vbBlack_Example () Range ("A1"). Font.Color = vbBlack End Sub 

Codice:

 Sub vbRed_Example () Range ("A1"). Font.Color = vbRed End Sub 

Codice:

 Sub vbGreen_Example () Range ("A1"). Font.Color = vbGreen End Sub 

Codice:

 Sub vbBlue_Example () Range ("A1"). Font.Color = vbBlue End Sub 

Codice:

 Sub vbYellow_Example () Range ("A1"). Font.Color = vbYellow End Sub 

Codice:

 Sub vbMagenta_Example () Range ("A1"). Font.Color = vbMagenta End Sub 

Codice:

 Sub vbCyan_Example () Range ("A1"). Font.Color = vbCyan End Sub 

Codice:

 Sub vbWhite_Example () Range ("A1"). Font.Color = vbWhite End Sub 

Esempio n. 3 - Utilizzo della proprietà del colore con la funzione RGB

Come abbiamo visto, abbiamo solo 8 colori incorporati con cui lavorare. Ma per avere un'ampia varietà di colori dobbiamo usare la funzione chiamata RGB, oltre ai colori incorporati possiamo creare i nostri colori usando la funzione vba RGB.

Guarda la sintassi della funzione RGB.

RGB (rosso, verde, blu)

RGB sta per "Red, Green e Blue". Per costruire i colori dobbiamo fornire numeri da 0 a 255 per ogni colore.

Di seguito sono riportati alcuni esempi per te.

Di seguito sono riportati alcuni esempi di codice macro

Codice:

 Sub RGB_Example () Range ("A1"). Font.Color = RGB (0, 0, 0) 'Cambia il colore del carattere in nero End Sub 

Codice:

 Sub RGB_Example () Range ("A1"). Font.Color = RGB (16, 185, 199) 'Il colore del carattere sarà questo End Sub 

Codice:

 Sub RGB_Example () Range ("A1"). Font.Color = RGB (106, 15, 19) 'Il colore del carattere sarà questo End Sub 

Codice:

 Sub RGB_Example () Range ("A1"). Font.Color = RGB (216, 55, 19) 'Il colore del carattere sarà questo End Sub