textbox

Katılım
13 Temmuz 2005
Mesajlar
134
Excel Vers. ve Dili
ofis xp, 2003
Private Sub TextBox1_Change()
TextBox1 = WorksheetFunction.Proper(TextBox1.Value)
End Sub

kodunu form üzerindeki bütün tektboxlara nasıl uyarlaya bilirim
 

mehmett

Altın Üye
Katılım
18 Mayıs 2005
Mesajlar
2,571
Excel Vers. ve Dili
Excel 2010 Türkçe
Yukarıdaki kodu kopyalayın ve kod sayfasında istediğiniz kadar yapıştırın. Sonra sadece textbox numaralarını değiştirin.

Ã?rnek:

Private Sub TextBox2_Change()
TextBox2 = WorksheetFunction.Proper(TextBox2.Value)
End Sub

Private Sub TextBox3_Change()
TextBox3 = WorksheetFunction.Proper(TextBox3.Value)
End Sub

.
.
 
Katılım
13 Temmuz 2005
Mesajlar
134
Excel Vers. ve Dili
ofis xp, 2003
her textbox için ayrı ayrı değil o formda olan textbok ların hepsine birdenyani her textbox un cahange olayına tek tek yazmaktansa toptan halletmenini yolunu sordum hocam ilginize teşekür ederim
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
ccumhur' Alıntı:
her textbox için ayrı ayrı değil o formda olan textbok ların hepsine birden.....
O zaman Class Module uygulaması yapmanız mantıklı olur.

Sorunuzun cevabı için, ekteki örneği inceleyiniz ...
 
Üst