birden fazla textboxa tekbir kod nasıl yazılır

[abhaz]

şu kodu:

Private Sub TextBox1_Change()
TextBox1 = Replace(TextBox1, "i", "İ")
TextBox1 = Replace(TextBox1, "ı", "I")
TextBox1 = StrConv(TextBox1, vbUpperCase)
End Sub

ve şu kodu:

Private Sub TextBox1_Change()
TextBox1 = WorksheetFunction.Proper(TextBox1)
End Sub

birden fazla textboxa nasıl uyarlayabilirim?
(örnekTextbox1,5,9,15,20,28,29,33 gibi)

şimdiden teşekkürler...

 

[akd]

merhaba abbaz
ben toplu olarak bazı şeyleri şöyle yapıyorum
burada textbox1 den 60 kadar textlere 0 yazdıryorum,
kendine göre uygula istersen...
Private Sub CommandButton35_Click()
For a = 1 To 60
UserForm1.Controls("textbox" & a).Text = 0
Next a
End Sub

 

[abhaz]

ama ben tüm textboxlara değil mesela 50 adet textboxun 40'ına yapmak istiyorum, sen sıradan hepsine yapmışsın bunu. mesela 10 adet textboxun 2,4,6,8 ve 10. textboxlarına nasıl yaparız?

 

[Levent Menteşoğlu]

Bunun için ideal çözüm class modül uygulamasıdır. Eğer dosyanızı eklerseniz onun üzerinden gidebiliriz. Aksi takdirde tüm textboxlara aynı kodları yazmanız gerekir.

 

[veyselemre]

Ekteki örneği inceleyin, bu örnekte istenilen textboxların proporties özelliklerinden tag özelliğini Kod_A yapılarak düzenlenmiştir. Bu şekilde farklı kodlar belirleyerek textboxlarıda gruplayabilirsiniz, her gruba ayrı işlemlerde yapabilirsiniz.