Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kan ik de tekstvakkleur veranderen op basis van de waarde in Excel?

In Excel kunnen we de functie Voorwaardelijke opmaak toepassen om de achtergrondkleur te wijzigen op basis van de celwaarde, maar in dit artikel zal ik bespreken hoe de tekstvakkleur kan worden gewijzigd op basis van de celwaarde of waarde in het tekstvak.

Wijzig de tekstvakkleur op basis van de celwaarde met VBA-code

Wijzig de tekstvakkleur op basis van de waarde in het tekstvak met VBA-code


pijl blauwe rechterbel Wijzig de tekstvakkleur op basis van de celwaarde met VBA-code


Laten we zeggen dat, als de celwaarde in A1 groter is dan de celwaarde in B1, ik wil dat het tekstvak wordt gevuld met rode kleur, integendeel, het tekstvak moet worden gevuld met een gele kleur. Voer deze taak alstublieft uit met de volgende stappen:

1. Voeg een tekstvak in door op te klikken ontwikkelaar > bijvoegsel > Tekstvak (ActiveX-besturingselement)en teken een tekstvak, zie screenshot:

doc tekstvak kleur op basis van waarde 1

2. Klik vervolgens met de rechtermuisknop op het tekstvak en selecteer Bekijk code uit het contextmenu om de te openen Microsoft Visual Basic voor toepassingen venster en vervang dan de originele code door de volgende VBA-code in de lege module:

VBA-code: tekstvakkleur wijzigen 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

doc tekstvak kleur op basis van waarde 2

Notes: In de bovenstaande code, TextBox1 is de tekstvaknaam die u hebt ingevoegd, A1 en B1 zijn de twee cellen waarvan u de tekstvakkleur wilt wijzigen op basis van, wijzig deze naar uw behoefte.

3. Sla vervolgens het codevenster op en sluit het en verlaat het OntwerpmodusAls nu cel A1 groter is dan B1, wanneer u tekst in het tekstvak typt, wordt deze gevuld met rode kleur en als A1 kleiner is dan B1, wordt bij het invoeren van waarde in het tekstvak de gele kleur opgevuld, zie screenshot:

doc tekstvak kleur op basis van waarde 3


pijl blauwe rechterbel Wijzig de tekstvakkleur op basis van de waarde in het tekstvak met VBA-code

Als u de tekstvakkleur wilt wijzigen op basis van de waarde in het tekstvak, bijvoorbeeld als de waarde in het tekstvak tussen 1 en 10 ligt, is de gevulde kleur van het tekstvak rood, de tekstkleur groen als de waarde tussen 11 en 20 ligt, als andere waarden, de tekstvakkleur is geel. Gebruik de onderstaande VBA-code om met deze taak om te gaan.

1. Nadat u een tekstvak hebt ingevoegd, klikt u er met de rechtermuisknop op en selecteert u Bekijk code uit het contextmenu om de te openen Microsoft Visual Basic voor toepassingen venster en vervang dan de originele code door de volgende VBA-code in de lege module:

VBA-code: tekstvakkleur wijzigen op basis van waarde in 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

doc tekstvak kleur op basis van waarde 4

Notes: In de bovenstaande code, Textbox1 is de naam van het tekstvak waarin u bent ingevoegd en u kunt de waarden en achtergrondkleur binnen de code wijzigen in de uwe.

2. Sla vervolgens het codevenster op en sluit het en verlaat het OntwerpmodusAls u nu de waarde tussen 1 en 10 invoert in het tekstvak, wordt de achtergrondkleur rood, de waarde tussen 11 en 20, de achtergrondkleur van de tekstvakkleur groen, andere waarden, deze wordt geel als volgt:

doc tekstvak kleur op basis van waarde 5


Gerelateerde artikelen:

Hoe voeg ik een afbeelding in een tekstvak in?

Hoe een standaardwaarde in een tekstvak instellen?

Hoe kunnen alleen cijfers in het tekstvak worden ingevoerd?

Hoe spellingcontrole in tekstvak toe te passen?


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen 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.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Stefan · 1 years ago
    Nevermind, I figured it out. Instead of making the event which triggers the change "Textbox1_GotFocus()", I made it "Worksheet_SelectionChange(ByVal Target As Range)". Now any time the value in one of the cells changes, the textbox color changes automatically.
  • To post as a guest, your comment is unpublished.
    Stefan · 1 years ago
    For me, when trying to change the textbox color value based on two cell values, the textbox only updates if you type something into the textbox. I need it to update automatically. Guess I'll just have to learn VBA to figure out why.
  • To post as a guest, your comment is unpublished.
    Justin · 2 years ago
    Can someone provide an example workbook so I can see this working? I keep trying but to no avail. Thanks