Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: TextBox  (gelezen 1550 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 224
  • Geslacht: Man
  • Oplossing.be
TextBox
« Gepost op: 05 januari 2024, 09:18:52 »
Hoi,

Klein vraagje
ik gebruik dit in een tekstbox

Private Sub TextBox15_Change()
With TextBox15
        If .Text = "-" Then
            .BackColor = vbCrimson
        Else
            .BackColor = vbGreen
        End If
    End With
End Sub

Werkt perfect als er - in de TextBox komt dan kleurt die groen

maar is het mogelijk als er in de zelfde TextBox een + komt dat deze een andere kleur krijgt

Alvast weer super bedankt
Excel 365 NL

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 224
  • Geslacht: Man
  • Oplossing.be
Re: TextBox
« Reactie #1 Gepost op: 05 januari 2024, 10:23:27 »
Gevonden

Private Sub TextBox15_Change()
With TextBox15
        If .Text = "-" Then
            .BackColor = vbGreen
        Else
        If .Text = "+" Then
            .BackColor = vbMagenta
        End If
        End If
    End With
    End Sub

Even puzzelen maar opgelost
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.178
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: TextBox
« Reactie #2 Gepost op: 05 januari 2024, 10:24:03 »
Sunnybat,

je kan meerdere voorwaarden toevoegen met  ElseIf:

Private Sub TextBox15_Change()
With TextBox15
        If .Text = "-" Then
            .BackColor = vbCrimson
        ElseIf .Text = "+" Then
            .BackColr = vbMagenta
        Else
            .BackColor = vbGreen
        End If
    End With
End Sub

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 224
  • Geslacht: Man
  • Oplossing.be
Re: TextBox
« Reactie #3 Gepost op: 05 januari 2024, 11:12:38 »
@SoftAid

werkt ook perfect  :thumbsup:

ga deze maar gebruiken
Excel 365 NL

 


www.combell.com