أبو چيداء قام بنشر أكتوبر 24, 2015 مشاركة قام بنشر أكتوبر 24, 2015 المطلوب في المرفقات Book2.zip رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر أكتوبر 25, 2015 الكاتب مشاركة قام بنشر أكتوبر 25, 2015 المطلوب معادلة countifsبدون تكرار المشارك رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 25, 2015 مشاركة قام بنشر أكتوبر 25, 2015 تفضل الحل مع بعض التنسيقات القائمة المنسدلة مطاطة (تستجيب لأي تعديل أو زيادة في الاسماء و لا تطهر الاسم المكرر الا مرة واحدة) تستطيع زيادة البيانات مع اسماء محتلفة report.zip 1 رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر أكتوبر 28, 2015 الكاتب مشاركة قام بنشر أكتوبر 28, 2015 (معدل) شكرالك اخي سليم ولكن لينك المرفقات لا يعمل ارجو تحميل المرفق مرة اخري تم تعديل أكتوبر 28, 2015 بواسطه أبو چيداء رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 28, 2015 مشاركة قام بنشر أكتوبر 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)) تقبل تحياتي 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 28, 2015 مشاركة قام بنشر أكتوبر 28, 2015 تم معالجة الامر Book2 salim.zip 1 رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر أكتوبر 29, 2015 الكاتب مشاركة قام بنشر أكتوبر 29, 2015 شكرا لك استاذي ومعلمي سليم وجزاك الله عنا خيرا شكرا لك استاذي ياسر وجزاك الله عنا خيرا رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر نوفمبر 16, 2015 الكاتب مشاركة قام بنشر نوفمبر 16, 2015 من فضلكم استذتنا المعادلة تعمل بشكل جيد ولكني اجعلها تعمل علي اكثر من 50000 صف وتجعل الشيت بطىء جدا عندما اكتب اي شي او اعمل فلتر في 50000 صف لذلك كم فضلكم هذا البطىء ليس له حل رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 16, 2015 مشاركة قام بنشر نوفمبر 16, 2015 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 رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر نوفمبر 17, 2015 الكاتب مشاركة قام بنشر نوفمبر 17, 2015 شكرا لك اخي ياسر ولكني في اي حدث اضع هذا الكود رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 17, 2015 مشاركة قام بنشر نوفمبر 17, 2015 ضع الكود في موديول عادي .. يمكنك الإطلاع على رابط الموضوع التالي لمعرفة المزيد من التفاصيل حول كيفية البدء من هنا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.