Come cambiare il colore della casella di testo in base al valore in Excel?

In Excel, possiamo applicare la funzione Formattazione condizionale per cambiare 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 il codice VBA

Cambia il colore della casella di testo in base al valore nella casella di testo con il codice VBA

Cambia il colore della casella di testo in base al valore della cella con il codice VBA

Supponiamo che, se il valore della cella in A1 è maggiore del valore della cella in B1, voglio che la casella di testo sia riempita di rosso, al contrario, la casella di testo dovrebbe essere riempita di giallo. Esegui questa operazione seguendo i passaggi seguenti:

1. Inserisci una casella di testo facendo clic su Sviluppatore > Inserisci > Casella di Testo (Controllo ActiveX) e poi disegna una casella di testo, vedi screenshot:

2. Quindi fai clic con il tasto destro sulla casella di testo e seleziona Visualizza Codice dal menu contestuale per aprire la finestra Microsoft Visual Basic for Applications, quindi sostituisci il codice originale con il seguente codice VBA nel modulo vuoto:

Codice VBA: Cambia il colore della casella di testo in base ai valori delle celle:

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

Nota: Nel codice sopra, TextBox1 è il nome della casella di testo che hai inserito, A1 e B1 sono le due celle in base alle quali vuoi cambiare il colore della casella di testo, cambiale secondo necessità.

3. Quindi salva e chiudi la finestra del codice ed esci dalla Modalità Progettazione, ora, se la cella A1 è maggiore di B1, quando digiti del testo nella casella di testo, sarà riempita di rosso, e se A1 è minore di B1, quando inserisci un valore nella casella di testo, sarà riempita di giallo, vedi screenshot:

Cambia il colore della casella di testo in base al valore nella casella di testo con il codice VBA

Se desideri cambiare 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 di riempimento della casella di testo è rosso, il colore della casella di testo è verde se il valore è compreso tra 11 e 20, se ci sono altri valori, il colore della casella di testo è giallo. Per gestire questa attività, applica il seguente codice VBA.

1. Dopo aver inserito una casella di testo, fai clic con il tasto destro su di essa e seleziona Visualizza Codice dal menu contestuale per aprire la finestra Microsoft Visual Basic for Applications, quindi sostituisci 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

Nota: Nel codice sopra, Textbox1 è il nome della casella di testo che hai inserito e puoi cambiare i valori e il colore di sfondo all'interno del codice a tuo piacimento.

2. Quindi salva e chiudi la finestra del codice ed esci dalla Modalità Progettazione, ora, se inserisci un valore compreso tra 1 e 10 nella casella di testo, il suo colore di sfondo diventerà rosso, il valore compreso tra 11 e 20, il colore di sfondo della casella di testo diventerà verde, per altri valori, diventerà giallo come mostrato nello screenshot seguente:

Articoli correlati:

Come inserire un'immagine in una casella di testo?

Come impostare un valore predefinito in una casella di testo?

Come permettere solo l'inserimento di numeri in una casella di testo?

Come applicare il controllo ortografico in una casella di testo?