Seçili TextBox Nesnesinde Çalışan Sayı Takımı

Bu dosya, bir UserForm üzerindeki tuş takımı düğmeleriyle o anda seçili olan TextBox nesnesine sayı yazılmasını gösteren makrolu bir örnektir. Mantık, bankaların ekran tuş takımıyla parola girilen ekranlarına benzer: sayılar klavyeden değil, formdaki düğmelere tıklanarak girilir.

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

Dosyanın içeriği​

• Sheet1: Veri içermez; form buradan çalıştırılır.
• Module1: Formu açan openuf makrosunu barındırır.
• UserForm1: Üç TextBox (TextBox1, TextBox2, TextBox3), üç CommandButton (CommandButton1, CommandButton2, CommandButton3) ve hangi TextBox'ın seçili olduğunu tutan Label1 nesnesini içerir.

Makrolar​

• openuf: UserForm1 formunu açar.
• TextBox1_Enter, TextBox2_Enter, TextBox3_Enter: İmleç ilgili TextBox'a girdiğinde Label1 değerini sırasıyla 1, 2 veya 3 yapar. Böylece seçili kutu hatırlanır.
• CommandButton1_Click, CommandButton2_Click, CommandButton3_Click: Düğmelere tıklandığında sırasıyla "1", "2" ve "3" karakterini, Label1 değerine göre seçili TextBox'ın mevcut içeriğinin sonuna ekler.

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

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile openuf makrosunu çalıştırın; form açılır.
3. Sayı yazmak istediğiniz TextBox'a tıklayın.
4. Tuş takımındaki 1, 2 veya 3 düğmelerine tıklayın; rakamlar seçili kutuya sırayla eklenir.
5. Başka bir TextBox'a geçmek için o kutuya tıklayın; sonraki rakamlar bu kutuya yazılır.

Örnekte yalnızca 1, 2 ve 3 düğmeleri tanımlıdır; diğer rakamlar için aynı yapıda yeni düğmeler eklenip ilgili Click olaylarına benzer kod yazılabilir.