السلام عليكم ورحمة الله وبركاته
اريد جمع الارقام الموجودة بال_ ListBox
مثل اللي في الصورة
الله يبارك فيكم هل القى الحل عندكم
اريد جمع الارقام الموجودة بال_ ListBox
Dim mSumValue As Double
Dim i As Integer
'======================
For i = 0 To List1.ListCount - 1
mSumValue = mSumValue + Val(List1.List(i))
Next
MsgBox mSumValue
الله يبارك في أخي kazabra
ويوفقك زبط معي من الكود اللي وضعته شكرا لك