Hoe wijzigt u de vormkleur in Excel op basis van een celwaarde?
Het wijzigen van de vormkleur op basis van een specifieke celwaarde kan een interessante taak zijn in Excel. Bijvoorbeeld: als de celwaarde in A1 kleiner is dan 100, is de vormkleur rood; als A1 groter is dan 100 en kleiner dan 200, is de vormkleur geel; en wanneer A1 groter is dan 200, is de vormkleur groen, zoals in de onderstaande schermafbeelding wordt weergegeven. Om de kleur van de vorm te wijzigen op basis van een celwaarde, introduceert dit artikel een methode voor u.
Vormkleur wijzigen op basis van celwaarde met VBA-code
Vormkleur wijzigen op basis van celwaarde met VBA-code
De onderstaande VBA-code helpt u de vormkleur dynamisch aan te passen op basis van een celwaarde. Volg hiervoor deze eenvoudige stappen:
1. Klik met de rechtermuisknop op het bladtabblad waarvan u de vormkleur wilt wijzigen en selecteer vervolgens Code weergeven in het contextmenu. Plak in het venster van Microsoft Visual Basic for Applications dat verschijnt de volgende code in het lege Module-venster.
VBA-code: Vormkleur wijzigen op basis van celwaarde:
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. Zodra u een waarde invoert in cel A1, verandert de vormkleur automatisch op basis van de door u gedefinieerde celwaarde.
Opmerking: In de bovenstaande code is A1 de celwaarde waarop de vormkleur is gebaseerd, en Ovaal 1 de naam van de ingevoegde vorm. U kunt deze naar wens aanpassen.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins