Ekteki Dosyada 2 konu ile ilgili soru

[yasef]

combobox ile listbox süz ve çarp+toplama işlemini formule etmek

 

[algil]

Merhaba

Textboxlar ile işlem için aşağıdaki kodları kullanabilirsiniz. Yalnız ondalık sayı kullanacaksanız; ondalık ayracı olarak "." kullanmalısınız.

Private Sub TextBox1_Change()
If TextBox2 = Empty Or TextBox1 = Empty Then Exit Sub
TextBox3 = Val(TextBox1) * Val(TextBox2)
End Sub
Private Sub TextBox2_Change()
If TextBox2 = Empty Or TextBox1 = Empty Then Exit Sub
TextBox3 = Val(TextBox1) * Val(TextBox2)
End Sub
Private Sub TextBox3_Change()
If TextBox3 = Empty Or TextBox4 = Empty Then Exit Sub
TextBox5 = Val(TextBox3) + Val(TextBox4)
End Sub
Private Sub TextBox4_Change()
If TextBox3 = Empty Or TextBox4 = Empty Then Exit Sub
TextBox5 = Val(TextBox3) + Val(TextBox4)
End Sub