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

[مخمود فتحي]

الاخوة الاعزاء محتاج كود تجميع يجمع القيم داخل الليست بوكس

مع الشكر

 

[كمال على طارق]

مخمود فتحي  ارفع من فضلك الملف به فورم موضح به المطلوب بكل دقة ,فلا يمكن العمل على التخمين ولا يوجد وقت لأحد لتصميم ملف لك على الجاهز وذلك تجنباً لإهدار وقت كل من يطلع على مشاركتك دون جدوى أو أهمية !!!!

[lionheart]

Try

Private Sub CommandButton1_Click()
    Dim mySum As Double, i As Long
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            mySum = mySum + Val(.List(i, 1))
        Next i
    End With
    Me.TextBox1.Value = mySum
End Sub