TextBox Nesnesine Yazılan Numaraları Telefon Biçimine Dönüştürme

Bu dosya, bir UserForm üzerindeki TextBox nesnesine yazılan telefon numarasını yazım sırasında (###) ### ## ## biçimine dönüştüren makro örneğidir. Kullanıcı yalnızca rakamları girer; parantez ve boşluklar kod tarafından eklenir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Veri içermeyen sayfadır. Üzerinde UserForm'u açan düğme yer alır.
• UserForm1: Telefon numarasının girildiği TextBox1 nesnesini barındıran formdur.
• Module1: Düğmeye bağlı, formu açan makroyu içerir.

Makrolar​

• Düğme1_Tıklat (Module1): UserForm1 formunu açar. Sayfadaki düğmeye tıklandığında çalışır.
• TextBox1_Change (UserForm1): TextBox içeriği her değiştiğinde çalışır ve üç işlem yapar. İçerik 15 karaktere ulaştığında metni ilk 15 karakterle sınırlar. Karakter sayısı 10'dan azsa metindeki boşlukları siler; böylece silme ve düzeltme sırasında biçim bozulmaz. Karakter sayısı 10 veya daha fazlaysa metni Format fonksiyonuyla (###) ### ## ## kalıbına çevirir.

Kodda dosya silme, dış bağlantı gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayarak UserForm1 formunu açın.
3. TextBox'a telefon numarasını boşluk ve parantez kullanmadan, 10 hane olarak yazın.
4. Onuncu rakam girildiğinde numara otomatik olarak (###) ### ## ## biçiminde görüntülenir.
5. Kendi formunuzda kullanmak için TextBox1_Change olayındaki kodu ilgili TextBox'ın kod sayfasına kopyalayın ve nesne adını buna göre değiştirin.