telefon formatı

[heft]

Merhaba
Sitede aradım fakat istediğim gibi birşey bulamadım.Şöyleki,
Textbox1 e
123 girildiğinde 0 (123)
1234 girildiğinde 0 (123) 4
12345 girildiğinde 0 (123) 45
123456 girildiğinde 0 (123) 456
1234567 girildiğinde 0 (123) 456 7
12345678 girildiğinde 0 (123) 456 78
123456789 girildiğinde 0 (123) 456 78 9
1234567890 girildiğinde 0 (123) 456 78 90

aynı şekilde silindiğinde de takar teker aynı formatı algılasın.

 

[peleryn]

İstediğinizin hepsi değil ama bir kısmını ekli dosyada yaptım.Umarım yardımcı olur.

 

[Necdet]

Merhaba,

Sayın peleryn'in kodlarında ufak değişiklik ve eklemeler yaptım.

Umarım şaşırmadan yazmışımdır.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo Son
TextBox1 = CLng(Replace(Replace(Replace(TextBox1, "(", ""), ")", ""), " ", ""))
If Len(TextBox1.Value) = 3 Then
        TextBox1 = Format(TextBox1, "0 (000)")
ElseIf Len(TextBox1.Value) = 4 Then
        TextBox1 = Format(TextBox1, "0 (000) 0")
ElseIf Len(TextBox1.Value) = 5 Then
    TextBox1 = Format(TextBox1, "0 (000) 00")
ElseIf Len(TextBox1.Value) = 6 Then
        TextBox1 = Format(TextBox1, "0 (000) 00 0")
ElseIf Len(TextBox1.Value) = 7 Then
    TextBox1 = Format(TextBox1, "0 (000) 00 00")
ElseIf Len(TextBox1.Value) = 8 Then
    TextBox1 = Format(TextBox1, "0 (000) 00 00 0")
ElseIf Len(TextBox1.Value) = 9 Then
    TextBox1 = Format(TextBox1, "0 (000) 000 00 0")
ElseIf Len(TextBox1.Value) = 10 Then
    TextBox1 = Format(TextBox1, "0 (000) 000 00 00")
End If
Son:
End Sub

 

[heft]

teşekkürler

 

[onurcan1979]

Merhaba,

Sayın peleryn'in kodlarında ufak değişiklik ve eklemeler yaptım.

Umarım şaşırmadan yazmışımdır.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo Son
TextBox1 = CLng(Replace(Replace(Replace(TextBox1, "(", ""), ")", ""), " ", ""))
If Len(TextBox1.Value) = 3 Then
        TextBox1 = Format(TextBox1, "0 (000)")
ElseIf Len(TextBox1.Value) = 4 Then
        TextBox1 = Format(TextBox1, "0 (000) 0")
ElseIf Len(TextBox1.Value) = 5 Then
    TextBox1 = Format(TextBox1, "0 (000) 00")
ElseIf Len(TextBox1.Value) = 6 Then
        TextBox1 = Format(TextBox1, "0 (000) 00 0")
ElseIf Len(TextBox1.Value) = 7 Then
    TextBox1 = Format(TextBox1, "0 (000) 00 00")
ElseIf Len(TextBox1.Value) = 8 Then
    TextBox1 = Format(TextBox1, "0 (000) 00 00 0")
ElseIf Len(TextBox1.Value) = 9 Then
    TextBox1 = Format(TextBox1, "0 (000) 000 00 0")
ElseIf Len(TextBox1.Value) = 10 Then
    TextBox1 = Format(TextBox1, "0 (000) 000 00 00")
End If
Son:
End Sub

merhaba üstad bu paylaştığın tlf formatı güzelde bunu makro çalışırken TextBox ta 0(5**) *** ** ** görünüp tlf no girildikçe silinen ve yazılan tlf no bu formata göre kalan. bir yazılım formülü oluşturula bilirmi hem 11 rakamı sabitleyecek hemde forma dışına çıkmayacak şekilde bir ayar yapıla bilirmi?

 

[onurcan1979]

If Len(TextBox24) = 2 Then TextBox24.Text = TextBox24.Text & "."
If Len(TextBox24) = 5 Then TextBox24.Text = TextBox24.Text & "."

sanırım anlaşılmadı sorunum. şimdi yukarıdaki kodu ben tarih formatı olarak kullanıyorum makro çalışırken formda TextBox24 de veri girerken sadece rakam yazarken kendisi otamatik noktalama işlemini yapıyor ve gösteriyor bu şekli tlf formatına nasıl dönüştüre bilirim? TextBox sa telefon numarası girerken 0(555) 555 55 55 gibi görünmesini istiyorum bana bu konuda yardımcı olabilecek arkadaşlar varmı?

 

[onurcan1979]

sanırım bu şekilde tlfon formatı olmuyor olsaydı eminim yardım edecek üstatlar çıkardı!