Private Sub CommandButton1_Click()
TextBox7 = Val(TextBox5) + Val(TextBox6)
TextBox16 = Val(TextBox9) + Val(TextBox10) + Val(TextBox11) - Val(TextBox12) - Val(TextBox13) - Val(TextBox14) - Val(TextBox15)
TextBox25 = Val(TextBox18) + Val(TextBox19) + Val(TextBox20) + Val(TextBox21) - Val(TextBox22) - Val(TextBox23) - Val(TextBox24)
TextBox52 = Val(TextBox29) + Val(TextBox46) + Val(TextBox47) + Val(TextBox48) - Val(TextBox49) - Val(TextBox50) - Val(TextBox51)
End Sub
Toplama ve çıkarma yapan bir çalışmam,çok fazla sayıda TextBox var...Eklenecek birkaç tane daha var...
Ama kodlar çok uzuyor.
Kısaltma imkanımız varmı..
TextBox7 = Val(TextBox5) + Val(TextBox6)
TextBox16 = Val(TextBox9) + Val(TextBox10) + Val(TextBox11) - Val(TextBox12) - Val(TextBox13) - Val(TextBox14) - Val(TextBox15)
TextBox25 = Val(TextBox18) + Val(TextBox19) + Val(TextBox20) + Val(TextBox21) - Val(TextBox22) - Val(TextBox23) - Val(TextBox24)
TextBox52 = Val(TextBox29) + Val(TextBox46) + Val(TextBox47) + Val(TextBox48) - Val(TextBox49) - Val(TextBox50) - Val(TextBox51)
End Sub
Toplama ve çıkarma yapan bir çalışmam,çok fazla sayıda TextBox var...Eklenecek birkaç tane daha var...
Ama kodlar çok uzuyor.
Kısaltma imkanımız varmı..
