محمد الريفى

السلام عليكم ورحمة الله وبركاته زكاة العلم نشره (برجاء مشاركة الجميع) بالتأكيد احتجت ان ترتب مجموعة ارقام وليكن مبيعات الاصناف. وأردت ان تعرف ما هو الصنف الاول مبيعا والثاني والثالث والرابع وهكذا.. والصيغ المعروضة لكم تفي بهذا الغرض تماما في الاكسيل موجودة الدالة RANK واضفنا اليكم دالة اخرى تقبلوا تحياتي محمد الريفي RANK.rar

اخى العزيز الصديق بارك الله فيك تقبل تحياتى واحترامى جزانا الله واياكم خيرا بارك الله فيك

وعليكم السلام ورحمة الله وبركاته اخى الاكبر ابايوسف دائما تشرفنى وتسعدنى بمرورك تقبل تحياتى وتقديرى استاذى واخى الحبيب ابوالبراء لاحرمنى الله منك ومن مرورك وتشجيعيك تقبل تحياتى وتقديرى

ربنا يبارك فى حضرتك يسعدنى دائما مرورك على موضوعاتى المتواضعه تقبل منى خالص التحية والتقدير

دائما صاحب واجب ودائما سباق فى الخير لاحرمنى الله منك اخى الحبيب جزاكم الله عنى خيرا وبارك فيك تقبل تحياتى وشكرى اللهم واياكم بارك الله فيك اخى العزيز جلال الجمال

فكرة البرنامج: عمل برنامج اكسيل يستوعب الكثير من البيانات باقل مساحه وبدون عناء فى استخدام الصيغ والمعادلات او الاكواد فى VBA وفى نفس الوقت يعرض العديد من التقارير . وهذا النموذج من البرنامج مجرد فكره ويمكن اعداد برامج شبيه له كما يناسب احتياجك . لاتنسونا بصالح دعاؤكم تحميل وشرح البرنامج http://excelfinancial1.blogspot.com.eg/2016/04/dashbord-sales.html تحميل ملف التطبيق sales.rar

بارك الله فيك اخى حسام وواحشنى جدا والله واستاذى واخى فى الله ابوالبراء اما عن الدالة textjion فى دالة موجوده فى اصدار اوفيس 365 فقط وليس موجوده فى اى اصدارات اخرى ايضا قامت ميكرسوفت بعمل 2 تحديث للاكسيل فى 2016 تحديث فى اواحر يناير وتحديث فى شهر مارس وواضح ان ميكروسوفت هتعمل تحديثات بشكل مستمر ومش هتدى نسح كامله زى زمان يعنى تغيير فى سياستها هيخنوقنا علشان نجبر ونشترى البرنامج بس ده بعينهم وبالنسبة للدالة textjion فانها لم تقم بالمطلوب فى نفس المثال لانها لن تستطيع تخطى الفراغات تقبل منى خالص التحية والاحترام

بسم الله ماشاء الله ربنا يبارك فيكم ويجزيكم خير حلول رائعه من اساتذه المنتدى سامحنى استاذى ابوالبراء فاننى (احبط ) احيانا نتيجة لعدم التفاعل -------. واليكم فهذه حلول متواضعه بجانب حلولكم والحقيقة كان هذا سؤال من احد الناس فوجدت انه يستاهل التفكير فاحببت ان اطرحه واشاركه معكم حتى نبدع جميعا واتمنى من الجميع تقديم المزيد والمزيد من الحلول الحل الاول =IF(MID(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1)="/", REPLACE(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1,""), CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1)) الحل الثانى =A1& IF(AND(A1<>"",COUNTA(B1:E1)),"/","")& B1 & IF(AND(B1<>"",COUNTA(C1:E1)),"/","") & C1 & IF(AND(C1<>"",COUNTA(D1:E1)),"/","") & D1 & IF(AND(D1<>"",COUNTA(E1)),"/","") & E1 الحل الثالث دالة UDF وليست من اعدادى بل منقوله =ConcatRange(A1:F1,"/") Option Explicit Function ConcatRange(R As Range, Optional sDelim As String = " ") As String 'If no delimiter specified, delimiter will be a space Dim C As Range Dim V As Variant Dim COL As Collection Dim I As Long Set COL = New Collection For Each C In R If C <> "" Then COL.Add C.Text Next C ReDim V(0 To COL.Count - 1) For I = 0 To UBound(V) V(I) = COL(I + 1) Next I ConcatRange = Join(V, sDelim) End Function Concatenate%20formula.rar

السلام عليكم ورحمة الله وبركاته ارجو ان نقدم جميعا حلولا متنوعه لهذه الحالة " المطلوب ربط الخلايا بعلامة / وترك او تخطى الخلايا الفارغة " بمعادلات او اكواد او اى طريقة حل

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ----------------------------- الحالة الحالية لاوفيسنا ارى اننا فى مجتمع اوفيسنا نهمل كل ماهو حديث فى الاكسيل ونركز فقط على حل الاسئلة و طرح موضوعات حول المعادلات وال VBA فقط ونهمل كل ماهو حديث بل ومازال البعض يعمل على الاصدارات القديمه وخصوصا 2003 ولايرغب فى التحديث ابدا ودائما مانهمل الحديث على سبيل المثال لا الحصر اصدار EXCEL 2016 والجديد فى هذا الاصدار لغة DAX PIVOT TABLE Manage Data Model Power Pivot Power Query Power View Power Map Power Bi ايضا لانهتم بالرسوم والمخططات البيانية والتقنيات المتقدمه لها ايضا لانهتم بالمزايا المتقدمه وربط ملفات العمل بالانترنت ....الخ ------------------------------------------------- ارى اننا مازالنا نركز على الصيغ وال VBA ونهمل كل ماهو حديث ولانتطرق اليه ارىد ان لايزعج رايى احدا وخصوصا اننى اعلم انه سيزعج البعض واعتذر اليهم مقدما --------------------------------------------------- وبما اننى حاولت عرض المشكلة عليكم وحان دور مقترحات الحلول وابدا بالاتى -ان ياخذ كل عضوا واساتذة فى مجتمع اوفيسنا موضوعا من الموضوعات الحديثه التى ذكرت بعضا منها ويتناوله فى شكل دروس مكتوبة او مرئية اى كانت الوسيله المهم البداية ثم يطرح لها نقاشات واسئلة وتمارين كنظام ورش العمل - التنوع فى حلول الاسئلة باستخدام المزايا الحديثه وليس التركيز فقط على الصيغ وال VBA وارجو من الجميع وضع رايه ومقترحه ------------------------------------------------------ خاتمة كان هذا تقديم تشخيص لحالة اراها واحلم بان يتغير الى الحاله الافضل حتى لانكون فى مؤخرة العالم بل فى المقدمه وان لانكون مجرد مستخدمين فقط للاكسيل بل محترفين فى الاكسيل واشكركم جميعا لسعة صدركم تقبلوا منى خالص التحية والاحترام اخوكم فى الله محمد الريفى

اخى ابو عبدالواحد هل جربت ميزة الجداول المحوريه او pivottable صدقنى هي فى غاية السهوله وبها امكانيات تفوق المعادلات والاكواد بكثير بالاضافه اى انها خفيفه جدا البيع بالتقسيط2.rar

استاذى المكرم // ابوالبراء اعزك الله وجزاكم خير ا بعدد كل حرف كتبته فى اوفيسنا وجزاك عنا جميع الجنه تقبل خالص تحياتى وحبى وتقديرى لك

جرب اخى الكريم هذا حل اخر ب advanced fillter البيع بالتقسيط2.rar

الافضل فى عمل شيت منفصل يمكن بنفس المعادله مع بعض التغييرات البسيطه

اتفضل استاذنا الحبيب ابوالبراء اليك حلا متواضعا بسيطا بجانب ماقدمه الاساتذه تقبلوا منى تحياتى {=INDEX($A$1:$A$10;SMALL(IF(LARGE(LEN($A$1:$A$10);ROW($A1))=LEN($A$1:$A$10);ROW($A$1:$A$10);"");1))}

{=IFERROR(INDEX(C$3:C$15;SMALL(IF($A$3:$A$15=$A$1;ROW($A$3:$A$15)-ROW($A$2);"");ROW($A1)));"")} اليك اخى الكريم الحل بمعادلة صفيف البيع بالتقسيط2.rar

بعد اذن اخى الحبيب الاستاذ ياسر العربى جرب هذا الحل واخبرنى بماحدث فهذه الرساله تعنى انه تم تغيير امتداد الملف الى نوع اخر ولا يستطيع اصدار الاكسيل الموجود على الجهاز فتحه واتمنى لم ان تجد حلا لهذه المشكلة الشائعه والمعقده . واذا تم حل لمشكلتك ان شاء الله ساقوم بعمل موضوع بالتفصيل يشرح الاسباب والحلول

اعزك الله استاذى وحبيبى فى الله ابوالبراء مشاغل الحياه بعدتنى عن اخوتى واحبابى فى اوفيسنا بل وحتى فى الاكسيل . واتمنى ان اكون بشكل دائم فى وسط اساتذتى واخوتى فى اوفيسنا واليك اخى واستاذى سليم حسب مافهمت منك اعددت معادلة بنفس الفكره التى طرحتها سابقا مع بعض التغيير ارجو ان اكون قد فهمت بشكل صحيح {=IFERROR(INDEX($A$1:$A$25,LARGE(IF($A$1:$A$25<>"",ROW($A$1:$A$25),""),ROW($A1))),"")} rev.rar

اتفضل اخى واستاذى ياسر اليك حلا اخر {=INDEX($A$1:$A$6,LARGE(ROW($A$1:$A$6),ROW($A1)))}

انا لله وانا اليه راجعون البقاء لله اسال الله ان يلهمك الصبر وان يعوضك بذرية صالحه

ياريت ترفع الملف مره تانية لانى كل ما ادخل احمل تظهر لى الرساله دى مش فاهم لى عفوا هناك مشكله . الصفحه التي تحاول الدخول اليها غير متاحه لحسابك . كود الخطاء : 2C171/1 اتصل بنا

حتى تكون النتائج صحيحة لابد ان تكون المعادله هكذا اذا اردت ان ترجع النتائج بشكل افقى وليس راسى =SUM(--(IFERROR(WEEKDAY(IF((ROW(1:50000)>=$B$3)*(ROW(1:50000)<=$B$4);ROW(1:50000);"");16);"")=COLUMN(A$1)))

ماشاء الله فكرة المعادلة عبقرية واليك استاذى معادله اخرى زيادة فى الخير {=SUM(--(IFERROR(WEEKDAY(IF((ROW(1:50000)>=$B$3)*(ROW(1:50000)<=$B$4);ROW(1:50000);"");16);"")=ROW($A1)))} sum_of_weekdays.rar

اتمنى ان يفيدك هذا الموضوع تابع التفاصيل من الرابط

شرح الحل المقدم اولا:تم عمل قائمة منسدلة فى العمود نوع المورد وهذا رابط يوضح اليك طريقى عمل القائمة المنسدلة اضغط لعرض المزيد ثانيا :تم اعداد معادلة صفيف لفرز المحلى والتصدير فى العمود فى n3 و o3 والبحث عن البيان المرتبط بالقائمة المنسدلة فقط {=IFERROR(INDEX($B$2:$B$31;SMALL(IF($A$2:$A$31=N$2;ROW($A$2:$A$31)-1;"");ROW(1:100)));"")} ثالثا : تم اعداد قائمة منسدلة ووضع هذه المعادله فىها =INDEX($N$3:$O$19;;MATCH($H2;$N$2:$O$2;0)) رابعا : فى عمود المديونية تم اعداد معادلة للبحث عن عن القيم بشرط القوائم المنسدلة {=IFERROR(VLOOKUP($H2;IF(($A$2:$A$31=$H2)*($B$2:$B$31=$I2);$A$2:$C$31;"");3;0);"")} هذا شرح مختصر وارجو ان اكون قد وفقت فى ايصال المعلومه تقبلوا منى جميعا تحياتى