Come modificare il valore in base al colore della cella in Excel?

Questo articolo parla della modifica automatica del valore della cella in base al colore di sfondo in Excel. Ad esempio, se le celle si riempiono con il colore di sfondo rosso nella selezione, popola queste celle con il numero 1 e, per le celle con colore di sfondo blu, inserisci il numero 0.

Modifica il valore in base al colore della cella con il codice VBA

Modifica il valore in base al colore della cella con il codice VBA

Sorprendente! Utilizzo di schede efficienti in Excel come Chrome, Edge, Firefox e Safari!
Risparmia il 50% del tuo tempo e riduci migliaia di clic del mouse ogni giorno!

È possibile eseguire il codice VBA sottostante per modificare il valore in base al colore della cella in Excel. Si prega di fare quanto segue.

1. Selezionare l'intervallo di cui si desidera modificare i valori in base al colore di sfondo, quindi premere altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli, quindi copia e incolla il codice VBA sottostante nella finestra del modulo.

Codice VBA: modifica il valore in base al colore della cella in Excel

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. premi il F5 chiave per eseguire il codice, quindi puoi vedere tutti i globuli rossi nell'intervallo selezionato sono riempiti con il numero 1 e le celle blu sono riempite con il numero 0 come mostrato nell'immagine sottostante.

I migliori strumenti per la produttività in ufficio

	Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
	Super ricerca: VLookup a criteri multipli  |   VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
	Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
	Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
	Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule   |  Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle   |  Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
	I 15 migliori set di strumenti:  12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze in Excel con Kutools for Excele sperimenta l'efficienza come mai prima d'ora. Kutools for 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...

Leggi di più... Download gratuito...

---

Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

• 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!

Leggi di più... Download gratuito...