Note: The other languages of the website are Google-translated. Back to English
English English

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


È 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 > Modulo, 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

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (11)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Quali modifiche al codice sarebbero necessarie se si desiderasse applicarlo al colore del testo di una cella, anziché al colore della cella?
Questo commento è stato fatto dal moderatore sul sito
Sto cercando di dare a una cella un nome in base al colore all'interno di un foglio di lavoro. cioè se una cella è rossa allora viene chiamata "nome", se è arancione allora prende i nomi "cognome" ecc.



Quale codice dovrebbe essere modificato per avere l'intervallo come l'intero foglio/scheda e un nome anziché un valore?
Questo commento è stato fatto dal moderatore sul sito
Excel sembra bloccarsi ogni volta che provo a eseguire il codice VBA. Sembra un busto.
Questo commento è stato fatto dal moderatore sul sito
Buona giornata,
Il codice funziona bene nel mio caso. Mi dici la tua versione di Excel? Grazie per il tuo commento.
Questo commento è stato fatto dal moderatore sul sito
Sono nella stessa barca, provo a eseguirlo ma il codice sembra bloccarsi. Excel 2016.
Questo commento è stato fatto dal moderatore sul sito
è possibile modificare questo codice in base alla regola di formattazione condizionale delle celle?
Questo commento è stato fatto dal moderatore sul sito
Il codice funziona bene per me, ma avrei bisogno di riscrivere il codice per adattarlo ai colori specifici per il mio documento. Ma non so che codice hanno "i miei colori", qualcuno che sa dove può trovare codici per altri colori?
Questo commento è stato fatto dal moderatore sul sito
Come lo esegui, corro ma sembra che non accada nulla
Questo commento è stato fatto dal moderatore sul sito
Puoi sostituire i colori in valori semplicemente usando la funzione Trova e sostituisci. Vai alla funzione di formato sul lato destro della finestra di dialogo Trova e sostituisci e quindi sotto "Riempi" puoi selezionare il colore che hai. Quindi su "sostituisci con" scrivi semplicemente il valore che desideri.
Questo commento è stato fatto dal moderatore sul sito
Mi sono imbattuto in questo colpo fortunato che è stato utile ma non so dove trovare una directory completa!
http://cdn-0.access-excel.tips/wp-content/uploads/2015/08/excel_vbcolor_10.png 
Questo commento è stato fatto dal moderatore sul sito
C'è un modo per farlo, ma farlo passare automaticamente attraverso più file?
Per il contesto, i questionari sono stati inviati a un paio di centinaia di strutture, la loro risposta MC selezionata corrisponde a un colore che indica il punteggio (ad es. verde è buono, rosso è cattivo) e cambia il contenuto della cella (con un processo come in questo thread) in qualcosa che R o un altro software potrebbe leggere e quindi utilizzarlo per generare rapporti automatici. Potrei esaminare ciascuno di questi file con questa macro (o un'idea completamente diversa), ma ciò richiederebbe molto tempo.
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite