عدم تكرار المشاركين وذكرهم في التقرير مرة واحدة فقط

[أبو چيداء]

المطلوب في المرفقات

Book2.zip

[أبو چيداء]

المطلوب معادلة countifsبدون تكرار المشارك

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

تفضل الحل مع بعض التنسيقات

القائمة المنسدلة مطاطة (تستجيب لأي تعديل أو زيادة في الاسماء و لا تطهر الاسم المكرر الا مرة واحدة)

تستطيع زيادة البيانات مع اسماء محتلفة 

 

report.zip

[أبو چيداء]

 

شكرالك اخي سليم ولكن لينك المرفقات لا يعمل ارجو تحميل المرفق مرة اخري

تم تعديل أكتوبر 28, 2015 بواسطه أبو چيداء

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

أخي الكريم أبو جيداء

ضع معادلة الصفيف التالية في الخلية H5 ثم اسحبها عبر الصفوف والأعمدة

لا تنسى بعد إدراج المعادلة الضغط على Ctrl + Shift + Enter

=SUM(IF(FREQUENCY(IF($B$2:$B$12=$G5,IF($C$2:$C$12=H$4,MATCH($A$2:$A$12,$A$2:$A$12,0))),ROW($A$2:$A$12)-ROW($A$2)+1),1))

تقبل تحياتي

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

تم معالجة الامر

Book2 salim.zip

[أبو چيداء]

شكرا لك استاذي ومعلمي سليم وجزاك الله عنا خيرا

شكرا لك استاذي ياسر وجزاك الله عنا خيرا

[أبو چيداء]

من فضلكم استذتنا المعادلة تعمل بشكل جيد ولكني اجعلها تعمل علي اكثر من 50000 صف وتجعل الشيت بطىء جدا عندما اكتب اي شي او اعمل فلتر في 50000 صف لذلك كم فضلكم هذا البطىء ليس له حل

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

Sub TestRun()
    With Range("H5:I6")
        .FormulaArray = "=Report(A2:C12)"
        .Value = .Value
    End With
End Sub

Function Report(Param As Range)
    Dim Coll As New Collection, CollDummy As New Collection
    Dim Rng As Range, ArrIn, ArrHeaderH, ArrHeaderV, ArrOut(), V
    Dim I As Long, J As Long, Str1 As String

    ArrIn = Param.Value
    Set Rng = Application.Caller
    ArrHeaderH = Rng.Offset(-1).Resize(1).Value
    ArrHeaderV = Rng.Offset(, -1).Resize(, 1).Value
    ReDim ArrOut(1 To Rng.Rows.Count, 1 To Rng.Columns.Count)

    For I = 1 To UBound(ArrIn, 1)
        Str1 = Trim(UCase(ArrIn(I, 2))) & Chr(2) & Trim(UCase(ArrIn(I, 3)))
        On Error Resume Next
        Set CollDummy = Nothing
        Coll.Add Key:=Str1, Item:=CollDummy
        Coll(Str1).Add Key:=Trim(UCase(ArrIn(I, 1))), Item:=Empty
        On Error GoTo 0
    Next I

    For I = 1 To UBound(ArrOut, 1)
        For J = 1 To UBound(ArrOut, 2)
            On Error Resume Next
            ArrOut(I, J) = Coll(Trim(UCase(ArrHeaderV(I, 1))) & Chr(2) & Trim(UCase(ArrHeaderH(1, J)))).Count
            On Error GoTo 0
        Next J
    Next I
    Report = ArrOut
End Function

أخي الكريم أبو جيداء

إليك الكود التالي عله يساهم في حل مشكلتك ويسرع من التعامل مع هذا الكم من البيانات

 

 

Count Unique From Three Columns YasserKhalil.rar

[أبو چيداء]

شكرا لك اخي ياسر ولكني في اي حدث اضع هذا الكود

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

ضع الكود في موديول عادي ..

يمكنك الإطلاع على رابط الموضوع التالي لمعرفة المزيد من التفاصيل حول كيفية البدء

من هنا