textboxlardaki verileri toplamanın kısa yolu

[Altay3555]

Private Sub TextBox156_Enter() 'DaBT-İPA-Hib aşı toplamı
TextBox156 = CInt(TextBox1) + CInt(TextBox24) + CInt(TextBox36) + CInt(TextBox48) + CInt(TextBox60) + CInt(TextBox72) + CInt(TextBox84) + CInt(TextBox96) + CInt(TextBox108) + CInt(TextBox120) + CInt(TextBox132) + CInt(TextBox144)
End Sub

12 satır 12 sütun ve birde toplam sütunu...
textbox156.157.158.....1 den başlayıp 12 şer atlayan textboxlardaki verileri toplayacak..ben yukarıdaki gibi yaptım,1 metre tuttu...
kısa yolu varmı...
hadi yok diyelim her,
P...S....Tx157....
..........
End Sub
her seferinde bunların arasına mı yazacağım yoksa,bir tane bölüm açıp alt alta mı yazacağım...
selamlar..

 

[fedeal]

Private Sub TextBox156_Enter()
textbox156=""
for i=1 to 144 step 12
textbox156=val(textbox156)+controls("textbox" & i )
next
end sub

yada

Private Sub TextBox156_Enter()
textbox156=""
for i=1 to 144 step 12
textbox156=val(textbox156)+val(controls("textbox" & i ))
next
end sub

yada

Private Sub TextBox156_Enter()
textbox156=""
a=controls("textbox" & i ).text
for i=1 to 144 step 12
textbox156=val(textbox156.text)+val(a)
next
end sub

denemedim olabilir diye düşünüyorum.

 

[Altay3555]

hocam iki formül de olmadı galiba...
144 ler de 1 er 1 er arttığından 145 den başlatmama rağmen yine de olmadı..
birde 12 şer değilde
1...24.36.48.60.72
2...25.37.49.61.73
1den 24 e hoplamış ondan sonra 12 şer gidiyor.aradaki Textboxlarım kaybolmuş.

 

[fedeal]

durumu doğru anladımmı
textbox156=textbox1+textbox24+textbox36.............
1 ila 144 arasında 12 şer atlayan bir dizi sadece 12 olmayacak
aynı şekil
textbox157=textbox2+textbox25+textbox37.........
gibi devammı ediyor.
eğer öyleyse for döngüsü işinizi kesin görür şöyle ki;

for i=1 to 144 step 12
if i=12 then goto atla
textbox156.text= val(textbox156.text) + controls("textbox" & i ).text
textbox157.text= val(textbox157.text) + controls("textbox" & i+1 ).text
textbox158.text= val(textbox158.text) + controls("textbox" & i +2).text
'...............
atla:
next