Wpis z mikrobloga

Mirki programiści #vba, może potraficie mi pomóc, bo sam nie mogę tego problemu rozwiązać. Mam w #excel formularz. W formularzu TextBox'a. Jak zrobić żeby np co 10 znaków wprowadzonych do Box'a pojawiał się średnik np 1234567890;1234567890;1234567890,.... ?
  • 11
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@mrpandominik:
Private Sub TextBox1_Change()
idx = InStrRev(Me.TextBox1.text, ";")
Length = Len(Me.TextBox1.text)
If (idx = Length - 10) Or Length = 10 Then
Me.TextBox1.text = Me.TextBox1.text
  • Odpowiedz
@mrpandominik: No co ci mogę powiedzieć, u mnie działa. ( ͡° ͜ʖ ͡°)
I możesz z ifa wywalić "or length = 10", w zasadzie to nie jest do niczego potrzebne.
A, i backspace nie będzie w tym textboxie działał, bo po skasowaniu średnika automatycznie pojawi się nowy.
  • Odpowiedz
@Lubie_Budyn: Następnym razem się poprawię. Dziękuję za to że chciało Ci się to przemyśleć mimo, że wykorzystałem rozwiązanie @croppz. Kurde, w takich chwilach wraca mi wiara w ludzi. Siedzę nad problemem godzinę. Piszę na wypoku i po kilku minutach jest rozwiązanie. Niesamowite...
  • Odpowiedz