جمع قيم بشرط في Label في فورم

[محمد الورفلي1]

السلام عليكم اريد الجمع بشرط

يتم جمع جميع القيم لكل شخص

مثلاً

الاسم          القيمة

محمد1      =     5

محمد2      =      3

محمد1     =      1

محمد2      =    4

محمد1      =      2

في الليبل في الفورم يتم جمع كل القيم لكل شخص

الليبل الذي يخص محمد1 = 8

 

 

10.rar

[سليم حاصبيا]

جرب هذا الملف

 

10 salim1.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي سليم ..حل جميل وممتاز

لي تعليق بسيط بخصوص استخدام الحلقات التكرارية مرتين .. لما لا يتم عمل حلقة تكرارية واحدة فقط بهذا الشكل

Private Sub UserForm_Activate()
    Dim i As Integer

    For i = 6 To 10
        Me.Controls("label" & i - 5).Caption = Range("l" & i - 3)
        Me.Controls("label" & i).Caption = Evaluate(Application.WorksheetFunction.SumIf(Range("B2:B11"), Me.Controls("label" & i - 5).Caption, Range("C2:C11")))
    Next i
End Sub

 

[محمد الورفلي1]

السلام عليكم

شكراً على الحلول  الجميلة في حالة كان لدي عشر ين  اسماء مختلفة من محمد 1    الي محمد20 ماذ اغير في الكود حتى يتم جمع القيم لكل شخص

Private Sub UserForm_Activate()
    Dim i As Integer

    For i = 6 To 10
        Me.Controls("label" & i - 5).Caption = Range("l" & i - 3)
        Me.Controls("label" & i).Caption = Evaluate(Application.WorksheetFunction.SumIf(Range("B2:B11"), Me.Controls("label" & i - 5).Caption, Range("C2:C11")))
    Next i
End Sub

 

[ياسر خليل أبو البراء]

Private Sub UserForm_Activate()
    Dim i As Integer

    For i = 1 To 20
        Me.Controls("label" & i).Caption = Range("l" & i + 2)
        Me.Controls("label" & i + 10).Caption = Evaluate(Application.WorksheetFunction.SumIf(Range("B2:B21"), Me.Controls("label" & i).Caption, Range("C2:C21")))
    Next i
End Sub

 

[محمد الورفلي1]

السلام عليكم بعد المحاولات

تم التوصل الي الحل

وهذا الملف لعدد 10 لتعم الفائدة

 

شكراً  للاستاذ سليم والاستاذ ياسر

 

10.2.rar

تم تعديل أغسطس 9, 2017 بواسطه محمد الخازمي