comboboxlar ile toplama çıkarma dört işlem

[yasef]

yapabilmem için link verilmesi mümkünmü veya örnek teşekkürler

 

[Orion1]

Merhaba.
Benim nacizane önerim;Combobox'lardaki hatta nesnelerdeki verileri değişkenlere atayın ve 4 işlemi değişkenler ile yapın.Böylece sorun yaşamazsınız.
Değişkenleri ilk satırlarda hatta ilk satırda Dim ile tanıtmanızda fayda vardır.

 

[yasef]

deg atama ile yapamadım

combo1+combo9+combo30+combo44+combo52-combo16-combo23-combo37-combo54 olmuyor

 

[can042]

bir örnek

sayın yasef örneğe göre kendi combobox ve texboxlarınızı geliştirebilirsiniz
Private Sub CommandButton11_Click()
TextBox20.Value = Val(TextBox7.Value) + Val(TextBox11.Value) + Val(TextBox12.Value)
TextBox21.Value = Val(TextBox15.Value) + (Val(TextBox6.Value) / 2)
TextBox22.Value = Val(TextBox7.Value) * Val(TextBox21.Value) * Val(TextBox19.Value)
TextBox23.Value = (Val(TextBox21.Value) + 4) * Val(TextBox11.Value) * Val(TextBox19.Value)
TextBox24.Value = Val(TextBox21.Value) * Val(TextBox12.Value) + Val(TextBox21.Value) * Val(TextBox12.Value) * 0.5 * Val(TextBox19.Value)
TextBox25.Value = Val(TextBox22.Value) + Val(TextBox23.Value) + Val(TextBox24.Value)
TextBox26.Value = Val(TextBox5.Value) * Val(TextBox18.Value)
TextBox27.Value = Val(TextBox26.Value) + Val(TextBox25.Value)
TextBox28.Value = Val(TextBox25.Value) / Val(TextBox20.Value)

End Sub

 

[udentr2002]

merhaba

sezar üstadımın dediği gibi değerlere atayarak yapabilrsiniz bir örnek hazırladım umarım faydası olur

 

[yasef]

butonsuz mümkün mü ve boş olan boxlar hata veriyor

 

[udentr2002]

kodların başına hata mesajı olan aşağıdaki kodu ekleyin
On Error Resume Next


butonsuz mümkünmü derken sonuçta bir olayın ardından gerçekleştirmeniz lazım yani bir butona tıkaldığında işlem yap, bir butona çift tıkladığında işlem yap yada nebileyim bir comboyu seçtiğinde işlem yap gibi siz hangi olayın ardından comboları toplamak istiyorsunuz ona göre kodlar oraya yazılabilir

 

[yasef]

sn udentr call topla ile comboları yönlendirdim sub topla yada kodları girdim butonsuz halloldu gibi görünüyor yardımlarınız için çok teşekkür ederim

 

[udentr2002]

rica ederim yardımım dokundu ise ne mutlu bana

 

[Orion1]

Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton1_Click()
Dim t1 As Double, t2 As Double, t3 As Double, t4 As Double, t5 As Double
If IsNumeric(ComboBox1.Value) Then t1 = ComboBox1.Value
If IsNumeric(ComboBox2.Value) Then t2 = ComboBox2.Value
If IsNumeric(ComboBox3.Value) Then t3 = ComboBox3.Value
If IsNumeric(ComboBox4.Value) Then t4 = ComboBox4.Value
If IsNumeric(ComboBox5.Value) Then t5 = ComboBox5.Value
ComboBox6 = Format(t1 + t2 + t3 + t4 + t5, "#,##0.00")
End Sub

 

[yasef]

Sub Topla()
On Error Resume Next
t1 = CDbl(ComboBox1)
t2 = CDbl(ComboBox2)
t3 = CDbl(ComboBox3)
t4 = CDbl(ComboBox4)
t5 = CDbl(ComboBox5)
ComboBox6 = t1 + t2 + t3 + t4 + t5
End Sub

Private Sub ComboBox1_Change()
Call Topla
End Sub

ve diğer combo changeleri call topla ile butonsuz şekilde çözüldü.