180 textbox da toplama

[burak80li]

Arkadaşlar merhaba

Userform üzerinde textbox1 den textbox180 e kadar text kutularım var. Ben istiyorum ki bunlara rakamları yazdıkça textbox 181 de toplama yapsın. mesela textbox1 e 5 girdiğimde textbox181 5 olsun, textbox7 ye 121 girince de 126 olsun. Yani herhangi bir commandbutton falan olmadan direk toplama yapsın otomatik. Sanırım çok zor birşey değil ama beceremedim ya. şunu istemiyorum ama textbox181=textbox1+textbox2+....
Dizi oluşturarak yapılsın istihyorum. mümkündür değil mi?

 

[Levent Menteşoğlu]

Bu istediğiniz ancak classmodül ile olur. Aşağıdaki linkleri inceleyin.

Userform üzerinden toplama ve çıkarma yapmak

textboxlara sayı yazınca toplamı label1 de versin

 

[burak80li]

Levent bey ilgilendiğiniz için teşekkür ederim.

"textboxlara sayı yazınca toplamı label1 de versin" konusunu bana uygun buldum. İnceledim. dosyayı da indirdim tam istediğim gibi çalışıyor. Fakat anlamadığım bir kaç satırı sormak istiyorum.

1- SendKeys "{bs}" ne demek? arattım google da buldum birşeyler gerçi ama. eğer textbox nümerik değilse boşluk bırak mı demek?
2-class modülünün ilk satırındaki Public WithEvents txt As MSForms.TextBox ne manaya geliyor?
3-ReDim Preserve txt(6) ne manaya geliyor?

 

[Korhan Ayhan]

Selamlar,

1- Bu ifade en son yazılan karakter sayısal değilse backspace tuşuna otomatik olarak bas ve yazılan karakteri sil demektir.

2- Bu satır ile formunuza eklediğiniz TextBoxlar (txt) ismiyle tanımlanmaktadır. Sizin 180 adet TextBox için ayrı ayrı kod yazmamanızı sağlamaktadır.

3- Formunuzun üzerindeki TextBox sayısını ifade etmektedir. Siz bu bölüme 180 yazacaksınız.

 

[burak80li]

Selamlar,

1- Bu ifade en son yazılan karakter sayısal değilse backspace tuşuna otomatik olarak bas ve yazılan karakteri sil demektir.

2- Bu satır ile formunuza eklediğiniz TextBoxlar (txt) ismiyle tanımlanmaktadır. Sizin 180 adet TextBox için ayrı ayrı kod yazmamanızı sağlamaktadır.

3- Formunuzun üzerindeki TextBox sayısını ifade etmektedir. Siz bu bölüme 180 yazacaksınız.

Size de selam,
Korhan bey çok öz ve anlaşılır bir açıklama olmuş. Ancak o userformda sanki 6 değil 4 textbox var. Neden 6 denmiş acaba
Teşekkür ederim. İyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Sanırım Levent bey düzeltmeyi unutmuş. Siz 4 olarak düzeltin yine çalışacaktır.

 

[burak80li]

Çok teşekkür ederim Korhan bey. Levent bey ile sizin verdiğiniz bilgiler çok işime yaradı.

 

[burak80li]

yA afedersiniz bir şey daha soracağım .
Diyelim ki bir kaç label daha ekleyeceğim ve birine textbox1 den textbox 35 e kadar birinde textbox 36 dan 48 e .... kadar toplamalar yaptıracağım.
Hepsine ayrı ayrı class mı oluşturmak lazım bu durumda..

 

[Korhan Ayhan]

Selamlar,

Hayır ayrı classlar oluşturmanıza gerek yok. Levent beyin örnek dosyasındaki kodu aşağıdaki şekilde kullanabilirsiniz.

Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
If IsNumeric(txt) = False [COLOR=red]And txt <> "" Then[/COLOR]
SendKeys "{bs}"
Exit Sub
End If
For a = 1 To 35
deg1 = UserForm1.Controls("textbox" & a)
If deg1 = "" Then deg1 = 0
toplam1 = CDbl(deg1) + toplam1
Next
UserForm1.Label1 = Format(toplam1, "#,##0.00")
For a = 36 To 48
deg2 = UserForm1.Controls("textbox" & a)
If deg2 = "" Then deg2 = 0
toplam2 = CDbl(deg2) + toplam2
Next
UserForm1.Label2 = Format(toplam2, "#,##0.00")
End Sub

 

[burak80li]

Eyvallah Korhan hocam. Sordum anında cevap aldım. Çok teşekkür ederim. İnşaallah bir gün de benim size yararım dokunur. Excel de olmaz herhalde ama

 

[burak80li]

Sevgili arkadaşlar şu kodları çalıştırıyorum fakat ufak bir sorun var. O da şu ki: textboxlara değerleri yazar yazmaz label de toplamını görüyoruz. Ancak textboxlardan birinin içindeki değeri silince label daha önceki haliyle kalıyor ve textbox ın değerini "0" olarak algılamıyor. Nedendir acaba?

....
......
For a = 1 To 19 '-- idari işlerde yapılan toplamı hesaplıyoruz şimdi de..Ve bunu label 156 ya yazdırıyoruz.
Range("R" & i).Select
deg1 = GirisForm.Controls("textbox" & a)
If deg1 = "" Then deg1 = 0
toplam1 = CDbl(deg1) * Val(ActiveCell.Offset(21 - i, a - 1)) + toplam1
GirisForm.Label156 = "İdari işlerde harcanan toplam vakit: " & Format(toplam1, "#,##0.0")
Next

......
......

 

[burak80li]

Sevgili arkadaşlar şu kodları çalıştırıyorum fakat ufak bir sorun var. O da şu ki: textboxlara değerleri yazar yazmaz label de toplamını görüyoruz. Ancak textboxlardan birinin içindeki değeri silince label daha önceki haliyle kalıyor ve textbox ın değerini "0" olarak algılamıyor. Nedendir acaba?

Kimse yardımcı olamayacak mı acaba? Uğraştım ama düzeltemiyorum bunu

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodda gerekli güncellemeyi yaptım (kırmızı renkli bölüm). İncelermisiniz.

 

[burak80li]

Korhan hocam yine imdadıma sen yetiştin ya. Teşekkür ederim eline sağlık.

 

[pimking]

konu çok eski ama dosyayı indiremedim tekrar upload yapmanız mümkünmü ilk sayfadı kodu class olarak yazdım ama çalışmadı eksik yaptığım bir şeyler var kesinlikle