رضا الخشن قام بنشر نوفمبر 13, 2013 مشاركة قام بنشر نوفمبر 13, 2013 السلام عليكم و رحمة الله و بركاته في الملف المرفق ، جدول مسجل به مبيعات كل عميل من أصناف مختلفة مطلوب عمل معادلة في آخر الجدول في آخر عمود كل صنف تحسب " عدد العملاء المُباع لهم هذا الصنف بدون تكرار " و جزاكم الله خيرا الملف بالمرفقات Application.rar رابط هذا التعليق شارك More sharing options...
عطاء الله قام بنشر نوفمبر 13, 2013 مشاركة قام بنشر نوفمبر 13, 2013 و عليكم السلام ورحمة الله وبركاته أخي رضا الخشن هذا حل مؤقت لضيق الوقت حسب ما فهمت منك والله أعلم Book1.rar رابط هذا التعليق شارك More sharing options...
رضا الخشن قام بنشر نوفمبر 13, 2013 الكاتب مشاركة قام بنشر نوفمبر 13, 2013 أخي الكريم عطاء الله ، أشكر لك مجهودك في الوصول إلى النتيجـة لكني أريدها معادلة واحدة فقط حيث أن لدي أكثر من 25 صنف لم أرسلهم في الجدول المرفق إختصاراً و لدي أكثر من 12 منطقة أخرى سيتم التطبيق عليهـا و كما تفضلتم بالذكر أنه حل حؤقت لضيق الوقت ، فنرجو عندما يتسع الوقت لحل آخر بمعادلة واحدة أن تتفضل علينا بإقتراحــــة . جزاكم الله خيرا على إهتمامكم ، و دمتم في حفظ الله رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر نوفمبر 13, 2013 مشاركة قام بنشر نوفمبر 13, 2013 الاخ رضا هذه محاولة بسيطه منى ارجو ان يكون هذا هو المطلوب Book1(2).rar رابط هذا التعليق شارك More sharing options...
رضا الخشن قام بنشر نوفمبر 14, 2013 الكاتب مشاركة قام بنشر نوفمبر 14, 2013 السلام عليكم و رحمـة الله و بركاته الأخ الفاضل / ابراهيم ابوليلة الحل الذي تفضلتم به لا يختلف عن الحل السابق من إيجاد وسائط لحل المشكلة ، ألا يوجد معادلة واحدة لإتمام هذا الأمر يمكن صياغتها داخل الخلية لإعطاء نفس النتيجـــة ؟ رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 14, 2013 مشاركة قام بنشر نوفمبر 14, 2013 السلام عليكم هذه دالة معمولة بالكود ضعها في موديل 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) واسحبها على باقي الاعمدة واخبرني بالنتيجة تحياتي رابط هذا التعليق شارك More sharing options...
رضا الخشن قام بنشر نوفمبر 14, 2013 الكاتب مشاركة قام بنشر نوفمبر 14, 2013 هي دي ; النتائج صحيحـــة في كل الأصناف حفظكم الله و دُمتم بخير .. رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر نوفمبر 14, 2013 مشاركة قام بنشر نوفمبر 14, 2013 اخى واستاذنا عبداالله مجهود كبير يأتى بعمل عظيم بارك الله فيك رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 14, 2013 مشاركة قام بنشر نوفمبر 14, 2013 الحمد لله رب العالمين تقبلوا تحياتي وشكري السلام عليكم رابط هذا التعليق شارك More sharing options...
عطاء الله قام بنشر نوفمبر 14, 2013 مشاركة قام بنشر نوفمبر 14, 2013 بارك الله فيك استاذ على هذا الكود إختصار لدمج المعادلات تحياتي رابط هذا التعليق شارك 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.