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 trascorro molto tempo a formattare celle, caratteri, ecc. Spesso mi sento 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, all'inizio tutto sembra essere difficile, poi ci prenderai la mano.
Come cambiare il colore del carattere usando 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 utilizzando la proprietà COLOR, possiamo usare 8 colori incorporati vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .
Per questi colori non è necessario fornire alcun numero. Piuttosto possiamo accedervi semplicemente 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 utilizzando 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
