Telefon numarası formatı

[farukcengel]

Merhaba,
Oluşturduğum formda telefon numarası girişi olması gerekmektedir. Telefon numarası box una gelindiğinde;
0 hariç giriş yapılmalı
10 haneli giriş yapılmalı
sadece rakam girilmeli
formatı 0 (###) ### ## ## şeklinde olmalı
bu kriterler dışında bir giriş olursa ya da eksik giriş olursa beep uyarı sesi ve tekrar giriş yap msgbox u açılan bir kod yazmakta yardımcı olur musunuz ?

 

[Necdet]

Merhaba,

Aşağıdaki kodları denir misiniz? Çok detay düşünmedim.

Private Sub TextBox1_Change()
    TextBox1.Value = Trim(TextBox1.Value)
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Not Len(TextBox1.Value) = 10 Or IsNumeric(TextBox1.Value) = False Then
        Cancel = True
    Else
        TextBox1.Value = Format(TextBox1.Value, "0 (000) 000 00 00")
    End If

End Sub

 

[farukcengel]

teşekkürler hocam