مجموع قيم عمود في الليست بوكس

[AMIRBM]

 أعزائي الكرام أريد مساعدة في جمع عمود في الليست بوكس مع كل ووضع النتيجة في التكست بوكس

الاحترام والتقدير بارك الله فيكم

جمع عمود في الليست.xlsmFetching info...

الاحترام والتقدير بارك الله فيكم

[lionheart]

Try this code

Private Sub ComboBox1_Change()
    Dim t As Double, i As Long
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .List(i, 1) = ComboBox1.Value Then
                t = t + Val(.List(i, 3))
            End If
        Next i
    End With
    Me.TextBox10.Value = t
End Sub

 

[AMIRBM]

 

بارك الله فيك وجعله الله في ميزان حسناتك

شكرا أستاذ

[AMIRBM]

أستاذ المعذرة من فضلك

الكود لا يعمل بشكل صحيح 

الملف مرفق وشكرا استاذ

جمع عمود في الليست officena 2.xlsmFetching info...

مشككككككككور

[lionheart]

The code is working well on my side

I had a look on the attachment and found that you have changed 3 to 9 in that line

t = t + Val(.List(i, 3))

 

[AMIRBM]

نعم يعمل جيد بارك الله فيك

[AMIRBM]

أستاذ لي سؤال

إذا أردت أجمع عمود أخر مثلا ماذا نغير في الكود 

 

جمع عمود في الليست officena33.xlsmFetching info...

[lionheart]

The second parameter of List property

t = t + Val(.List(i, 3)

so change 3 to the column number but pay attention the column numbers in listbox is 0 based so the first column = 0 and the second column = 1 and so on

[AMIRBM]

أستاذ شكرا على الاهتمام

الكود يعطيني النتيجة صفر 

[AMIRBM]

مشكككككككككككور

[lionheart]

Show us the file and the code you used