TextBox Telefon Uyarlaması Acil Yardım

[ileri]

Arkadaşlar Başlıkta Belittigim gibi TextBox a yazdıgımız Sayılar Direk Böğle Gözüküyor Örnk: 2545674 Bunu Telefon Uyarlaması gibi yazmak Mumkünmü otomatikman ayırmak Bütün Forumda Aradım Fkaat Bulmadım Örnk 224)xxx-xx-xx
Bu tip olabilirmi Şimdiden Yardımlarınız İçin Teşekkür ederim

 

[İhsan Tank]

Arkadaşlar Başlıkta Belittigim gibi TextBox a yazdıgımız Sayılar Direk Böğle Gözüküyor Örnk: 2545674 Bunu Telefon Uyarlaması gibi yazmak Mumkünmü otomatikman ayırmak Bütün Forumda Aradım Fkaat Bulmadım Örnk 224)xxx-xx-xx
Bu tip olabilirmi Şimdiden Yardımlarınız İçin Teşekkür ederim

merhaba

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, " 0## ### ## ##")
End Sub

yada

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "0 ( ### ) ### ## ##")
End Sub

deneyiniz

 

[ileri]

Teşekkür Ederim Deniyorum..

 

[İhsan Tank]

Teşekkür Ederim Deniyorum..

rica ederim
iyi çalışmalar :mutlu:

 

[Orion1]

Ekli dosyayı inceleyiniz.
Private Sub ComboBox1_Click()
TextBox1.Text = ComboBox1.Value
End Sub

Private Sub TextBox1_AfterUpdate()
TextBox1.Text = Format(TextBox1.Text, "### ## ##")
End Sub


Private Sub TextBox2_AfterUpdate()
TextBox2.Text = Format(TextBox2.Text, "### ## ##")
End Sub


Private Sub UserForm_Initialize()
TextBox1.Text = Format(6255965, "### ## ##")
TextBox2.Text = Format(8324578, "### ## ##")
End Sub

 

[ileri]

Ekli dosyayı inceleyiniz.
Private Sub ComboBox1_Click()
TextBox1.Text = ComboBox1.Value
End Sub

Private Sub TextBox1_AfterUpdate()
TextBox1.Text = Format(TextBox1.Text, "### ## ##")
End Sub


Private Sub TextBox2_AfterUpdate()
TextBox2.Text = Format(TextBox2.Text, "### ## ##")
End Sub


Private Sub UserForm_Initialize()
TextBox1.Text = Format(6255965, "### ## ##")
TextBox2.Text = Format(8324578, "### ## ##")
End Sub

Teşekkürler Hocam

 

[Orion1]

Teşekkürler Hocam

Rica ederim.