Cum se schimbă valoarea pe baza culorii celulei din Excel?
Acest articol vorbește despre modificarea automată a valorii celulei pe baza culorii sale de fundal în Excel. De exemplu, dacă celulele se umple cu culoare de fundal roșu în selecție, atunci populează aceste celule cu numărul 1, iar pentru celulele de culoare albastră de fundal, completează numărul 0.
Schimbați valoarea pe baza culorii celulei cu codul VBA
Schimbați valoarea pe baza culorii celulei cu codul VBA
Puteți rula codul VBA de mai jos pentru a modifica valoarea pe baza culorii celulei din Excel. Vă rugăm să faceți următoarele.
1. Selectați intervalul de care aveți nevoie pentru a modifica valorile pe baza culorii de fundal, apoi apăsați Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați și lipiți codul VBA de mai jos în fereastra Module.
Cod VBA: modificați valoarea pe baza culorii celulei din 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. apasă pe F5 tasta pentru a rula codul, apoi puteți vedea toate celulele roșii din intervalul selectat sunt umplute cu numărul 1, iar celulele albastre sunt umplute cu numărul 0, după cum se arată în imaginea de mai jos.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!