Come cambiare il colore della casella di testo in base al valore in Excel?
In Excel, possiamo applicare la funzione Formattazione condizionale per modificare il colore di sfondo in base al valore della cella, ma, in questo articolo, parlerò di come cambiare il colore della casella di testo in base al valore della cella o al valore nella casella di testo.
Cambia il colore della casella di testo in base al valore della cella con codice VBA
Cambia il colore della casella di testo in base al valore nella casella di testo con codice VBA
Cambia il colore della casella di testo in base al valore della cella con codice VBA
Diciamo, se il valore della cella in A1 è maggiore del valore della cella in B1, voglio che la casella di testo sia riempita di colore rosso, al contrario, la casella di testo dovrebbe essere riempita di colore giallo. Si prega di ottenere questo lavoro con i seguenti passaggi:
1. Inserisci una casella di testo facendo clic Costruttori > inserire > Casella di testo (controllo ActiveX), quindi disegna una casella di testo, vedi screenshot:
2. Quindi fare clic con il pulsante destro del mouse sulla casella di testo e selezionare Visualizza codice dal menu contestuale per aprire il file Microsoft Visual Basic, Applications Edition finestra, quindi sostituire il codice originale con il seguente codice VBA nel modulo vuoto:
Codice VBA: cambia il colore della casella di testo in base ai valori della cella:
Private Sub TextBox1_Change()
If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
Me.TextBox1.BackColor = vbRed
Else
Me.TextBox1.BackColor = vbYellow
End If
End Sub
Note:: Nel codice sopra, Casella di testo1 è il nome della casella di testo che hai inserito, A1 ed B1 sono le due celle su cui vuoi cambiare il colore della casella di testo, per favore cambiale secondo le tue necessità.
3. Quindi salvare e chiudere la finestra del codice e uscire dal file Modalità di progettazione, ora, se la cella A1 è maggiore di B1, quando digiti il testo nella casella di testo, verrà riempito di colore rosso e se A1 è inferiore a B1, quando inserisci il valore nella casella di testo, verrà riempito di colore giallo, vedi screenshot:
Cambia il colore della casella di testo in base al valore nella casella di testo con codice VBA
Se si desidera modificare il colore della casella di testo in base al valore nella casella di testo, ad esempio, quando il valore nella casella di testo è compreso tra 1 e 10, il colore pieno della casella di testo è rosso, il colore della casella di testo è verde se il valore è compreso tra 11 e 20, se lo è altri valori, il colore della casella di testo è giallo. Per gestire questa attività, applica il codice VBA seguente.
1. Dopo aver inserito una casella di testo, fai clic con il pulsante destro del mouse e seleziona Visualizza codice dal menu contestuale per aprire il file Microsoft Visual Basic, Applications Edition finestra, quindi sostituire il codice originale con il seguente codice VBA nel modulo vuoto:
Codice VBA: cambia il colore della casella di testo in base al valore nella casella di testo:
Private Sub TextBox1_Change()
On Error Resume Next
Select Case TextBox1.Value
Case 1 To 10:
TextBox1.BackColor = vbRed
Case 11 To 20:
TextBox1.BackColor = vbGreen
Case Else:
TextBox1.BackColor = vbYellow
End Select
End Sub
Note:: Nel codice sopra, Casella di testo 1 è il nome della casella di testo che viene inserita e puoi modificare i valori e il colore di sfondo all'interno del codice con i tuoi.
2. Quindi salvare e chiudere la finestra del codice e uscire dal file Modalità di progettazione, ora, se inserisci il valore tra 1 e 10 nella casella di testo, il suo colore di sfondo diventerà rosso, il valore tra 11 e 20, il colore di sfondo della casella di testo diventerà verde, altri valori, diventerà giallo come mostrato nella seguente schermata:
Articoli correlati:
Come inserire un'immagine nella casella di testo?
Come impostare un valore predefinito in una casella di testo?
Come consentire solo l'inserimento di numeri nella casella di testo?
Come applicare il controllo ortografico nella casella di testo?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!