Hoe kunt u de tekstvakkleur wijzigen op basis van een waarde in Excel?

In Excel kunnen we de functie Voorwaardelijke opmaak gebruiken om de achtergrondkleur te wijzigen op basis van een celwaarde, maar in dit artikel zal ik het hebben over hoe u de kleur van een tekstvak kunt wijzigen op basis van een celwaarde of een waarde in het tekstvak.

Tekstvakkleur wijzigen op basis van celwaarde met VBA-code

Tekstvakkleur wijzigen op basis van waarde in tekstvak met VBA-code

Tekstvakkleur wijzigen op basis van celwaarde met VBA-code

Stel dat, als de celwaarde in A1 groter is dan de celwaarde in B1, ik wil dat het tekstvak wordt gevuld met de kleur rood. Omgekeerd moet het tekstvak worden gevuld met de kleur geel. Voer deze taak uit met de volgende stappen:

1. Voeg een tekstvak in door te klikken op Developer > Insert > Text Box (ActiveX Control), en teken vervolgens een tekstvak, zie onderstaande schermafbeelding:

2. Klik vervolgens met de rechtermuisknop op het tekstvak en selecteer View Code in het contextmenu om het Microsoft Visual Basic for Applications-venster te openen. Vervang vervolgens 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

Opmerking: In de bovenstaande code is TextBox1 de naam van het tekstvak dat u hebt ingevoegd, A1 en B1 zijn de twee cellen waarop u de tekstvakkleur wilt wijzigen. Wijzig ze naar uw behoefte.

3. Sla vervolgens het coderaam op en sluit het, en verlaat de Ontwerpmodus. Nu, als cel A1 groter is dan B1, wanneer u tekst typt in het tekstvak, zal het worden gevuld met de kleur rood. Als A1 kleiner is dan B1, bij het invoeren van een waarde in het tekstvak, zal het worden gevuld met de kleur geel, zie onderstaande schermafbeelding:

Tekstvakkleur wijzigen op basis van waarde in tekstvak met VBA-code

Als u de kleur van het tekstvak wilt wijzigen op basis van de waarde in het tekstvak, bijvoorbeeld, wanneer de waarde in het tekstvak tussen 1 en 10 ligt, is de vulkleur van het tekstvak rood. De tekstvakkleur is groen als de waarde tussen 11 en 20 ligt, en als het andere waarden zijn, is de tekstvakkleur geel. Om deze taak uit te voeren, past u de onderstaande VBA-code toe.

1. Nadat u een tekstvak hebt ingevoegd, klikt u er met de rechtermuisknop op en selecteert u View Code in het contextmenu om het Microsoft Visual Basic for Applications-venster te openen. Vervang vervolgens 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

Opmerking: In de bovenstaande code is Textbox1 de naam van het tekstvak dat u hebt ingevoegd, en u kunt de waarden en achtergrondkleur binnen de code naar eigen goeddunken wijzigen.

2. Sla vervolgens het coderaam op en sluit het, en verlaat de Ontwerpmodus. Nu, als u een waarde tussen 1 en 10 invoert in het tekstvak, zal de achtergrondkleur rood worden. Bij een waarde tussen 11 en 20 zal de achtergrondkleur van het tekstvak groen worden, en bij andere waarden zal deze geel worden zoals in de onderstaande schermafbeelding te zien is:

Gerelateerde artikelen:

Hoe voegt u een afbeelding in een tekstvak in?

Hoe stelt u een standaardwaarde in een tekstvak in?

Hoe kunt u ervoor zorgen dat alleen getallen in een tekstvak kunnen worden ingevoerd?

Hoe past u spellingscontrole toe in een tekstvak?