Hoe wijzigt u de kleur van een tekstvak in Excel op basis van een celwaarde?
In Excel kunt u de functie Voorwaardelijke opmaak gebruiken om de achtergrondkleur te wijzigen op basis van de celwaarde. In dit artikel leg ik uit hoe u de kleur van een tekstvak kunt aanpassen op basis van een celwaarde of een waarde in het tekstvak zelf.
Wijzig de kleur van een tekstvak op basis van een celwaarde met VBA-code
Wijzig de kleur van een tekstvak op basis van de waarde in het tekstvak met VBA-code
Wijzig de kleur van een tekstvak op basis van een celwaarde met VBA-code
Stel dat wanneer de waarde in cel A1 groter is dan die in cel B1, het tekstvak rood wordt gevuld; in alle andere gevallen moet het tekstvak geel worden gevuld. Voer deze taak uit met de volgende stappen:
1. Voeg een tekstvak in door te klikken op Ontwikkelaar > Invoegen > Tekstvak (ActiveX-besturingselement) en teken vervolgens een tekstvak. Zie de schermafbeelding:
2. Klik daarna met de rechtermuisknop op het tekstvak en selecteer Code weergeven in het contextmenu om het venster Microsoft Visual Basic for Applications te openen, en vervang de oorspronkelijke code door de volgende VBA-code in de lege module:
VBA-code: Wijzig de kleur van een tekstvak op basis van celwaarden:
Private Sub TextBox1_Change()
If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
Me.TextBox1.BackColor = vbRed
Else
Me.TextBox1.BackColor = vbYellow
End If
End Sub
Opmerking: In de bovenstaande code is TextBox1 de naam van het tekstvak dat u hebt ingevoegd, en zijn A1 en B1 de twee cellen waarop u de kleur van het tekstvak wilt baseren. Pas ze aan naar wens.
3. Sluit vervolgens Ontwerpmodus, het codevenster en verlaat de ontwerpmodus. Zodra u tekst typt in het tekstvak, wordt deze rood ingekleurd als cel A1 groter is dan B1; is A1 kleiner dan B1, dan wordt het tekstvak geel ingekleurd bij het invoeren van een waarde. Zie de schermafbeelding:
Wijzig de kleur van een tekstvak op basis van de waarde in het tekstvak met VBA-code
Wilt u de kleur van het tekstvak dynamisch aanpassen op basis van de waarde die erin staat? Bijvoorbeeld: - Waarde tussen 1 en 10 → vulkleur rood - Waarde tussen 11 en 20 → vulkleur groen - Alle andere waarden → vulkleur geel Gebruik dan de onderstaande VBA-code voor deze taak.
1. Nadat u een tekstvak hebt ingevoegd, klikt u er met de rechtermuisknop op en selecteert u Code weergeven in het contextmenu om het venster Microsoft Visual Basic for Applications te openen. Vervang vervolgens de oorspronkelijke code door de volgende VBA-code in de lege module:
VBA-code: Wijzig de kleur van een tekstvak op basis van de waarde in het tekstvak:
Private Sub TextBox1_Change()
On Error Resume Next
Select Case TextBox1.Value
Case 1 To 10:
TextBox1.BackColor = vbRed
Case 11 To 20:
TextBox1.BackColor = vbGreen
Case Else:
TextBox1.BackColor = vbYellow
End Select
End Sub
Opmerking: In de bovenstaande code is Textbox1 de naam van het tekstvak dat u hebt ingevoegd. U kunt de waarden en de achtergrondkleur in de code naar eigen wens aanpassen.
2. Sluit vervolgens Ontwerpmodus, het codevenster en verlaat de ontwerpmodus. Als u nu een waarde tussen 1 en 10 in het tekstvak invoert, wordt de achtergrondkleur rood; bij een waarde tussen 11 en 20 wordt de achtergrondkleur van het tekstvak groen; bij alle andere waarden wordt deze geel, zoals in de volgende schermafbeelding wordt getoond:
<
Gerelateerde artikelen:
Hoe voegt u een afbeelding in een tekstvak in?
Hoe stelt u een standaardwaarde in een tekstvak in?
Hoe staat u alleen cijfers toe als invoer in een tekstvak?
Hoe past u de spellingscontrole toe in een tekstvak?
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