Zablokowanie możliwości wprowadzenie więcej niż jednego określonego znaku to TextBoxa, excel


Zablokowanie możliwości wprowadzenie więcej niż jednego określonego znaku to TextBoxa

Poniższy kod uniemożliwia wprowadzenie po raz drugi i kolejny określonego
znaku (zmienna 'znak') do TextBoxa:

Private Sub TextBox1_Change()

    znak = "a"
''znak' ktory moze byc wprowadzony tylko 1 raz
    licz = 0

    For i = 1 To Len(TextBox1)

        'sprawdza ile razy wystepuje 'znak'
        If Mid(TextBox1, i, 1) = znak Then
            licz = licz + 1
        End If

    Next i

    'jezeli znak wystepuje juz 1 raz i wprowadzony znak to 'znak' - usuwa go
    If licz > 1 And Right(TextBox1, 1) = znak Then
        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
    End If

End Sub
 

Otrzymałem także, pocztą elektroniczną zaproponowane przez czytelnika prostsze i czytelniejsze rozwiązanie:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 

If Chr(KeyAscii) = "a" Then
    If InStr(1, TextBox1.Text, "a") > 0 Then
  
      KeyAscii = 0
    End If
End If
 

End Sub

A także kod umożliwiający wprowadzenie każdego ze znaków tylko jeden raz:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   

    If InStr(1, TextBox1.Text, Chr(KeyAscii)) > 0 Then
        KeyAscii = 0
    End If
End Sub



Wyszukiwarka

Podobne podstrony:
Wiecej niz C Wprowadzenie do bibliotek Boost morecp
Wiecej niz C Wprowadzenie do bibliotek Boost 2
Wiecej niz C Wprowadzenie do bibliotek Boost morecp
Wiecej niz C Wprowadzenie do bibliotek Boost
Wiecej niz C Wprowadzenie do bibliotek Boost
Wiecej niz C Wprowadzenie do bibliotek Boost morecp
Fundusze obligacji, które zarabiają więcej niż inne
28 Struktura magii Ksztaltowanie ludzkiej psychiki czyli wiecej niz NLP Czesc 1 magia
wiecej niz wyciszenie, My i nasze problemy, depresja i zajęcia na oddziale dziennym szpitala
SZAFRAN TO WIĘCEJ NIŻ?NNA PRZYPRAWA
Blog, wiecej niz internetowy pamietni
pokój to coś więcej niż brak wojennych działań, Katecheza, 5 PIERWSZYCH SOBOT 1
Zbawienie to cos wiecej niz szostka w Duzego Lotka, KONSPEKTY KSM
Powiedzieć więcej niż się wie
Pantenol więcej niż ulga przy oparzeniach
Więcej niż Prawo Przyciągania
Na państwo płacimy 2,5 krotnie więcej niż Amerykanie
Gronkowska Ogród i dużo więcej niż tylko ogród
Oświadczenie o niepobieraniu świadczeń na więcej niż 1 kierunku, Studia FiR, Sem 1, Stypendium

więcej podobnych podstron