Cum se schimbă culoarea formei pe baza valorii celulei din Excel?
Schimbarea culorii formei pe baza unei valori specifice a celulei poate fi o sarcină interesantă în Excel, de exemplu, dacă valoarea celulei din A1 este mai mică de 100, culoarea formei este roșie, dacă A1 este mai mare de 100 și mai mică de 200, culoarea formei este galbenă, iar când A1 este mai mare de 200, culoarea formei este verde, după cum se arată în următoarea captură de ecran. Pentru a schimba culoarea formei pe baza valorii unei celule, acest articol vă va introduce metoda.
Schimbați culoarea formei pe baza valorii celulei cu codul VBA
Schimbați culoarea formei pe baza valorii celulei cu codul VBA
Codul VBA de mai jos vă poate ajuta să schimbați culoarea formei pe baza unei valori a celulei, procedați după cum urmează:
1. Faceți clic dreapta pe fila de foaie pe care doriți să schimbați culoarea formei, apoi selectați Afișați codul din meniul contextual, în fereastra pop-out Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți următorul cod în spațiul gol Module fereastră.
Cod VBA: Modificați culoarea formei pe baza valorii celulei:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
2. Și atunci când introduceți valoarea în celula A1, culoarea formei va fi modificată cu valoarea celulei așa cum ați definit.
notițe: În codul de mai sus, A1 este valoarea celulei pe care s-ar schimba culoarea formei în funcție de, iar valoarea Oval 1 este numele formei formei inserate, le puteți schimba în funcție de nevoile dvs.
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!
