Hoe verander je de vormkleur op basis van een celwaarde in Excel?
Het veranderen 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, wordt de vormkleur rood; als A1 groter is dan 100 en kleiner dan 200, wordt de vormkleur geel; en wanneer A1 groter is dan 200, wordt de vormkleur groen, zoals in de volgende schermafbeelding te zien is. Om de kleur van de vorm te veranderen 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 kan u helpen om de vormkleur te wijzigen op basis van een celwaarde. Volg de onderstaande stappen:
1. Klik met de rechtermuisknop op het werkbladtabblad waarvan u de vormkleur wilt wijzigen, en selecteer vervolgens Weergave Code in het contextmenu. In het venster Microsoft Visual Basic for Applications dat verschijnt, kopieert en plakt u de volgende code in het lege Module-venster.
VBA-code: Wijzig vormkleur 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. En wanneer u vervolgens een waarde invoert in cel A1, zal de vormkleur veranderen met de celwaarde zoals u hebt gedefinieerd.
Opmerking: In de bovenstaande code is A1 de celwaarde waarop uw vormkleur zal worden gebaseerd, en Oval 1 is de vormnaam van uw ingevoegde vorm. U kunt deze naar behoefte aanpassen.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen