مطلوب دالة حساب بدون تكرار

[رضا الخشن]

السلام عليكم و رحمة الله و بركاته 

 

في الملف المرفق ، جدول مسجل به مبيعات كل عميل من أصناف مختلفة 

 

مطلوب عمل معادلة في آخر الجدول في آخر عمود كل صنف تحسب " عدد العملاء المُباع لهم هذا الصنف بدون تكرار " 

 

و جزاكم الله خيرا 

 

الملف بالمرفقات 

Application.rar

[عطاء الله]

و عليكم السلام ورحمة الله وبركاته

أخي رضا الخشن هذا حل مؤقت لضيق الوقت حسب ما فهمت منك والله أعلم

 

Book1.rar

[رضا الخشن]

أخي الكريم عطاء الله ، 

 

أشكر لك مجهودك في الوصول إلى النتيجـة لكني أريدها معادلة واحدة فقط حيث أن لدي أكثر من 25 صنف لم أرسلهم في الجدول المرفق إختصاراً و لدي أكثر من 12 منطقة أخرى سيتم التطبيق عليهـا و كما تفضلتم بالذكر أنه حل حؤقت لضيق الوقت ، فنرجو عندما يتسع الوقت لحل آخر بمعادلة واحدة أن تتفضل علينا بإقتراحــــة .

 

جزاكم الله خيرا على إهتمامكم ، و دمتم في حفظ الله 

[إبراهيم ابوليله]

الاخ رضا

هذه محاولة بسيطه منى

ارجو ان يكون هذا

هو المطلوب

Book1(2).rar

[رضا الخشن]

السلام عليكم و رحمـة الله و بركاته 

 

الأخ الفاضل / ابراهيم ابوليلة 

 

الحل الذي تفضلتم به لا يختلف عن الحل السابق من إيجاد وسائط لحل المشكلة ، ألا يوجد معادلة واحدة لإتمام هذا الأمر يمكن صياغتها داخل الخلية لإعطاء نفس النتيجـــة ؟

[عبدالله باقشير]

السلام عليكم

 

هذه دالة معمولة بالكود ضعها في موديل

Option Explicit

Function kh_Cont(RngName As Range, RngCont As Range)
Dim Obj As Object
Dim Txt As String
Dim iCont As Long, R As Long
'''''''''''''''''''''''''''''
Set Obj = CreateObject("Scripting.Dictionary")
'''''''''''''''''''''''''''''
iCont = RngCont.Rows.Count
'''''''''''''''''''''''''''''
For R = 1 To iCont
    If Val(RngCont.Cells(R, 1)) Then
        Txt = RngName.Cells(R, 1)
        If Not Obj.Exists(Txt) Then
            Obj.Add Txt, R
        End If
    End If
Next
kh_Cont = Obj.Count
'''''''''''''''''''''''''''''
Set Obj = Nothing
End Function

وضعها هكذا في الخلية  F39

=kh_Cont($C$2:$C$33;F2:F33)

واسحبها على باقي الاعمدة

 

واخبرني بالنتيجة

 

تحياتي

[رضا الخشن]

هي دي ; النتائج صحيحـــة في كل الأصناف 

 

حفظكم الله و دُمتم بخير ..

[إبراهيم ابوليله]

اخى واستاذنا

عبداالله

مجهود كبير

يأتى بعمل عظيم

بارك الله فيك

[عبدالله باقشير]

الحمد لله رب العالمين

تقبلوا تحياتي وشكري

السلام عليكم

[عطاء الله]

بارك الله فيك استاذ على  هذا الكود  إختصار لدمج المعادلات

تحياتي