textbox döngü

[cihangirkara]

arkadaşlar aşağıdaki kod textboxların toplamını alıyor
toplanacak bütün textboxların change olayına bu kod yazılıyor

sorunum şu textboxlar 7 den 26 ya kadar ama aradaki 21,22, nolu textboxlar toplanmayacak

Private Sub TextBox7_Change()
Dim i As Byte, toplam As Double
For i = 7 To 26
If IsNumeric(Controls("TextBox" & i).Value) Then
toplam = toplam + CDbl(Controls("Textbox" & i))
End If
Next
TextBox32 = Format(toplam, "#,##0.00")
End Sub

 

[Orion1]

Aşağıdaki kodu deneyiniz.
Olmazsa Or yerine And yazınız.

Private Sub TextBox7_Change()
Dim i As Byte, toplam As Double
For i = 7 To 26
If i < 21 [B][COLOR="Red"]Or[/COLOR][/B] i > 22 Then
    If IsNumeric(Controls("TextBox" & i).Value) Then
        toplam = toplam + CDbl(Controls("Textbox" & i))
    End If
End If
Next
TextBox32 = Format(toplam, "#,##0.00")
End Sub

 

[cihangirkara]

hocam
textbox22.value=textbox21.value-textbox32.value
21-32=22 olacak
bu yanlışmı doğruysa nereye yazmam gerekir

 

[Orion1]

hocam
textbox22.value=textbox21.value-textbox32.value
21-32=22 olacak
bu yanlışmı doğruysa nereye yazmam gerekir

Bu kodları textbox21 in ve textbox32nin change olayına yazabilirsiniz.
exit olayınıda yazabilirsiniz.Tercih sizindir.

 

[cihangirkara]

Hocam Change Denedİm Olmadi

 

[Orion1]

Hocam Change Denedİm Olmadi

toplatırken sayısal değer kontrolu yaptırdınızmı?
Aşağıdaki kodu deneyiniz.

if isnumeric(textbox21.value) and isnumeric(textbox32.value) then
       textbox22.value=cdbl(textbox21.value)-cdbl(textbox32.value)
end if