Textbox' a veri girme/sınırlama hk.

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

Textbox' a veri girme/sınırlama hk.

İleti#1)  mumugul » 28 Ekm 2018 22:20

Merhaba,

Sadece sayı ve virgül girmeyi sınırlayan örnekler var ve istifade ettim.
Ama çift sıfır girilmesini, virgül tekrarı yapmasını vs. nasıl engelleriz?
Yani anlamlı bir sayı girilmesini nasıl sağlarız, yardımcı olur musunuz?

Saygılarımla...
Kullanıcı avatarı
mumugul
Yeni Başlamış
 
Kayıt: 15 Ekm 2018 22:54
Meslek: işçi
Yaş: 48
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Textbox' a veri girme/sınırlama hk.

İleti#2)  mumugul » 28 Ekm 2018 22:42

Merhaba,

Böyle bir çözüm olabilir mi?
Ya da daha kolay bir yolu var mı?

Saygılarımla...

Kod: Tümünü seç
Private Sub TextBox1_Change()
If InStr(TextBox1.Value, ",") And TextBox1.TextLength = 1 Then TextBox1.Value = "0,"
If InStr(TextBox1.Value, "0") And TextBox1.TextLength = 1 Then TextBox1.SelStart = 0: TextBox1.SelLength = 1
If TextBox1 = "" Then TextBox1.Value = "0": TextBox1.SelStart = 0: TextBox1.SelLength = 1
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii >= 48 And KeyAscii <= 57 Then Else KeyAscii = 0
If InStr(TextBox1.Value, ",") And KeyAscii = 44 Then KeyAscii = 0
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = 0: TextBox1.SelStart = 0: TextBox1.SelLength = 1
End Sub
Kullanıcı avatarı
mumugul
Yeni Başlamış
 
Kayıt: 15 Ekm 2018 22:54
Meslek: işçi
Yaş: 48
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Textbox' a veri girme/sınırlama hk.

İleti#3)  Enes Recep BAĞ » 28 Ekm 2018 23:05

Birden fazla virgül girişini engellemek için aklıma gelen;
Kod: Tümünü seç
Private Sub TextBox1_Change()
say = 0
For i 
= 1 To Len(TextBox1)
    If Mid(TextBox1.Value, i, 1) = "," Then
say 
= say + 1
If say 
> 1 Then TextBox1.Value = Mid(TextBox1.Value, 1, Len(TextBox1.Value) - 1)
    End If
Next i
End Sub
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8228
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe