Bu dosya, bir Userform üzerindeki TextBox nesnelerinin yazı tipi, yazı rengi ve arka plan rengini bir butonla topluca değiştirmeyi gösteren VBA örneğidir. Biçimlendirme kodla yapıldığı için her TextBox'a tek tek müdahale edilmez.
Dosyanın içeriği
- Sayfa1: Boş çalışma sayfasıdır. Veri ve formül içermez; Userform'u açan düğme bu sayfadan çalıştırılır.
- UserForm1: TextBox nesnelerini ve biçimlendirmeyi uygulayan CommandButton1 butonunu barındırır.
- Module1: Userform'u açan kısa bir makro içerir.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.- Düğme1_Tıklat (Module1): UserForm1 formunu açar. Sayfadaki düğmeye atanarak çalıştırılır.
- CommandButton1_Click (UserForm1): Formdaki kontroller arasında dolaşır ve TextBox sayısını sayar. Sıradaki TextBox nesnelerini (TextBox1, TextBox2 ...) adlarıyla seçerek şu biçimi uygular: kalın, italik, 12 punto, Verdana yazı tipi, açık yeşil arka plan ve kırmızı yazı rengi.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Sayfa1 üzerindeki düğmeye tıklayarak UserForm1 formunu açın.
- Formdaki TextBox alanlarına isteğe bağlı metin girin.
- CommandButton1 butonuna tıklayın; TextBox nesnelerinin yazı ve renk biçimi değişir.
- Biçimi değiştirmek için VBA düzenleyicisinde UserForm1 kodundaki Font ve renk değerleri düzenlenir.