ممكن المساعده فى كود لجمع الارقام الموجبة فقط فى عمود من قائمة listbox واظهار الناتج في خانة textbox

[الصفتى]

السادة الخبراء الافاضل

ارغب فى كود لجمع الارقام الموجبة فقط فى عمود من قائمة listbox واظهار الناتج في خانة textbox

[أ / محمد صالح]

لك حلان

* أسهلهما استعمال sumifs لحساب مجموع الخلايا في الشيت والتي تنطبق عليها شروط العرض في القائمة وأيضا أكبر من صفر.

* والحل الثاني أثناء تعبئة القائمة بالعناصر items يمكن إنشاء متغير وليكن mysum لجمع القيم التي فوق الصفر من العمود المطلوب

السؤال نظري بدون ملف ولذلك الإجابة نظرية

بالتوفيق 

[lionheart]

Private Sub UserForm_Initialize()
    Rem 1 = Second Column In ListBox
    Const cToSum As Integer = 1
    Dim arr(1 To 6, 1 To 3) As String, i As Long, j As Long, t As Long, d As Double
    For i = 1 To 6
        For j = 1 To 3
            t = Application.WorksheetFunction.RandBetween(-1, 1)
            If t = 0 Then t = 1
            arr(i, j) = i * j * t
        Next j
    Next i
    With ListBox1
        .Clear
        .ColumnCount = UBound(arr, 2)
        .List = arr()
    End With
    With ListBox1
        For i = 0 To .ListCount - 1
            If .List(i, cToSum) > 0 Then d = d + .List(i, cToSum)
        Next i
        TextBox1.Value = d
    End With
End Sub

 

[الصفتى]

شكر ا لكم اساتذتنا الكرام و لقد وجدت حل ثالث و هو

Dim M As Long
Dim Sum As Double

Sum = 0
With Listfind
For M = 0 To Listfind .ListCount - 1
If CDbl(Listfind .List(M,10)) > 0 Then Sum = Sum + Listfind .List(M,10)
Next M
End With

UserForm1.TextBox6.Value = Sum

 

[lionheart]

The same idea my bro (not new solution at all) . Look carefully at my code at the last part.

[أ / محمد صالح]

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

الكودين المقدمين تطبيق لأحد الحلين المقدمين في مشاركتي

وهو  الحل الثاني

في ١٥‏/١٠‏/٢٠٢١ at 05:26, أ / محمد صالح said:

* والحل الثاني أثناء تعبئة القائمة بالعناصر items يمكن إنشاء متغير وليكن mysum لجمع القيم التي فوق الصفر من العمود المطلوب

 

[الصفتى]

جزاكم الله خيرا و نفع بكم

[أ / محمد صالح]

جميعا بإذن الله تعالى