Soru Telefon numaralarını standardize etmek

[seckinb]

Merhabalar

"tbCEP1" textbox'ı içerisine telefon numaralarını giriyoruz.
Ancak her kişi farklı alışkanlıklardan ötürü telefonu 0'lı ya da 0'sız giriyor.
bazen de eksik giriliyor.

Bunu standart 11 haneli ve başında 0 olacak şekilde yazılmasını nasıl sağlayabilirim?

Örn: 05334712586

Private Sub tbCEP1_Change()
tbCEP1.MaxLength = 11
End Sub

şimdilik sadece 11'haneli olmasını sınırlayabildim.

Teşekkürler

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub tbCEP1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If tbCEP1 <> "" And Len(tbCEP1) <> 11 Then
        MsgBox "Hatalı Giriş.", vbCritical
        Cancel = True
    End If
End Sub

 

[Asri]

Alternatif;

Private Sub tbCEP1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  liste = "0123456789"
  gec = ""
  For k = 1 To Len(tbCEP1)
    harf = Mid(tbCEP1, k, 1)
    If InStr(liste, harf) > 0 Then
       gec = gec & harf
    End If
  Next k
  If Left(gec, 1) = "0" Then gec = Mid(gec, 2, Len(gec))
 
  If gec <> "" And Len(gec) <> 10 Then
     MsgBox "Hatalı Giriş.", vbCritical
     Cancel = True
  Else
    tbCEP1 = gec
  End If
End Sub

 

[seckinb]

Elinize sağlık. çok güzel çalışıyor.
bunu TC kimlik numaraları ve doğum yılı için de düzenleyeceğim.

 

[seckinb]

Alternatif;

Private Sub tbCEP1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  liste = "0123456789"
  gec = ""
  For k = 1 To Len(tbCEP1)
    harf = Mid(tbCEP1, k, 1)
    If InStr(liste, harf) > 0 Then
       gec = gec & harf
    End If
  Next k
  If Left(gec, 1) = "0" Then gec = Mid(gec, 2, Len(gec))

  If gec <> "" And Len(gec) <> 10 Then
     MsgBox "Hatalı Giriş.", vbCritical
     Cancel = True
  Else
    tbCEP1 = gec
  End If
End Sub

Burada başında sıfır olmasını istiyor sanırım? biraz daha detaylı gördüğüm kadarıyla.

 

[Asri]

Burada başında sıfır olmasını istiyor sanırım? biraz daha detaylı gördüğüm kadarıyla.

Hayır , başında sıfır var ise onu kaldırıyor.
Başında sıfır istiyorsanız. ' ile pasif yapın. 10 u da 11 yapın.