الخالدي

السلام عليكم ورحمة الله وبركاته اشكرك اخي فضل يسعدني المشاركة في مواضيعك وهناك ملاحظة على المعادلة في المشاركة السابقة وهي : يجب ان تكون الفاصلة في {1,2} فاصلة غير منقوطة بصرف النظر عن نوع الفاصلة المستخدمة في معادلات الاكسل واما عن سؤالك الاخير جرب المعادلة التالية: =SUMPRODUCT((A2:A14=I3)*(B2:B14=I4)*(C2:C14>=3)*(C2:C14)) في امان الله

السلام عليكم ورحمة الله وبركاته جرب المعادلة التالية =SUMPRODUCT((A2:A14=I3)*(B2:B14=I4)*(C2:C14={1,2})*(C2:C14)) في أمان الله

السلام عليكم ورحمة الله وبركاته بعد إذنك أخي عبدالله اختي الكريمة الحل المرفق باستخدام التنسيق الشرطي ارجوا ان يكون المطلوب في أمان الله Book1.rar

السلام عليكم ورحمة الله وبركاته بارك الله بالأخ الفاضل عبدالله المجرب لإثراء الموضوع - حل باستخدام المعادلات ادخل المعادلة في الخلية A3 =HYPERLINK("#"&CELL("address";INDEX(A6:A24;MATCH(D3;A6:A24;0)));"اضغط هنا للذهاب إلى التسلسل المطلوب") في أمان الله ارتباط تشعبي بين خلية غير ثابته مع خلية مساوية لها في القيمة.rar

السلام عليكم ورحمة الله وبركاته بارك الله بالإخوة الأفاضل لإثراء الموضوع حل اخر =SUMPRODUCT((A1:F1={"A";"B";"C"})*({90;80;70})) في أمان الله 1.rar

السلام عليكم ورحمة الله وبركاته اعتقد ان طلبك يمكن تحقيقه باستخدام الاكواد اما باستخدام التحقق من الصحة فتحتاج الى استخدام خليتين او باستخدام خلية واحدة لكن مع استخدام القائمة المنسدلة مرتين كما في الملف المرفق في أمان الله قائمة منسدلة متتالية.rar

السلام عليكم ورحمة الله وبركاته أشكرك أخي فضل على دعائك وعلى كلامك الطيب ومشاركاتي في مواضعك أو في المنتدى قليلة بسبب الظروف وان شاء الله تتحسن تلك الظروف والشكر موصل لأخي الزبير لمروره الكريم في أمان الله

السلام عليكم ورحمة الله وبركاته ادخل المعادلة التالية في الخلية F6 واسحبها للأسفل : =IF(OR(E6>=70;SUMPRODUCT(($B6:$D6<$B$5:$D$5)*($B$5:$D$5-$B6:$D6))+E6>=70);"لايختار";"يختار") ارجوا أن يكون المطلوب في أمان الله

السلام عليكم ورحمة الله وبركاته في الملف المرفق حل بمعادلات الأستاذ يحيى حسين بعد إضافة الشروط الجديدة , والمعادلات أكثر سرعة مقارنة بمعادلات الملف المرفق في مشاركتي السابقة ارجوا أن يكون المطلوب في أمان الله suppliers required 3.rar

السلام عليكم ورحمة الله وبركاته في المرفق استخراج البيانات وفقا لمعاير التصفية المتقدمة وباستخدام المعادلات استخدام المعادلة مع جداول كبيرة يسبب بطئ في الملف لذا يستحسن استخدام اكواد في هذه الحالة , وفي حالة كان المطلوب استخراج بيانات لبعض الأعمدة أو تغير مواقع الخلايا وعدم نقل تنسيقات جدول المصدر فيمكن استخدام المعادلة مع كود لتحويلها إلى قيم في أمان الله تصفية متقدمة بالمعادلات.rar

السلام عليكم ورحمة الله مع تغيربسيط في المعادلة السابقة ربما يسهل عليك التعديل لايام محددة 3 ايام =IF(SUMPRODUCT(--(COUNTIF(OFFSET(F65:AJ65;;ROW(INDIRECT("1:"&31-2))-1;;3);"غ")>2))>0;"الاشعار الأول";"") 7 ايام =IF(SUMPRODUCT(--(COUNTIF(OFFSET(F65:AJ65;;ROW(INDIRECT("1:"&31-6))-1;;7);"غ")>6))>0;"الاشعار الثاني";"") 15 يوم =IF(SUMPRODUCT(--(COUNTIF(OFFSET(F65:AJ65;;ROW(INDIRECT("1:"&31-14))-1;;15);"غ")>14))>0;"الاشعار الثالث";"") في امان الله

السلام عليكم ورحمة الله ادخل المعادلة التالية في الخلية E8 واسحبها للاسفل: =IF(SUMPRODUCT(--(COUNTIF(OFFSET(F8:AJ8;;COLUMN(F8:AH8)-COLUMN(F8);;3);"غ")>2))>0;"الاشعار الأول";"") المعادلة تعمل على افتراض ان يوم الغياب هي الخلايا التي تحتوي على الحرف(غ) في امان الله

السلام عليكم ورحمة الله اخي الكريم يسعدني ان تكون المعادلة اعطت النتائج المطلوبة اليك شرح عام ومختصر للمعادلة وليس بالتفصل والسبب الوقت محدود لدي لعدم توفر التيار الكهربائي الا ساعتين في اليوم , فارجوا ان تعذرني المعادلة تتعامل مع عدة نطاقات لذا يجب ان تكون الدوال المستخدمة في المعادلة تقبل ان تكون مدخلاتها ومخرجاتها كصفيف الصفيف يعني مجموعة من القيم (نصوص ,ارقام,مراجع,....) ويمكن تشبيه الصفيف بجدول بيانات يحتوي صفوف او اعمدة اوكلاهما . دوال المعادلة تعمل بالتسلسل التالي: الاسم المعرف Rngs صفيف من النصوص تمثل اسماء النطاقات المطلوب تجميعها وفقا لشروط الدالة INDIRECT تقوم بتحويل النصوص الى مراجع - (نصوص الصفيف Rngs) الى (صفيف من المراجع ) الدالة OFFSET تقوم بتحديد اعمدة معينة من كل صفيف او جدول ( الدالة الاولى تحدد عمود الشرط , الدالة الثانية تحدد عمود التجميع ) بالرغم من ان الدالة INDEX يمكن ان تقوم بنفس العمل - تحديد اعمدة معينة واخراجح النتائج كصفيف - الا انها لا تقيل ادخال المراجع كصفائف. الدالة SUMIF في حال تحقق الشرط تقوم بعملية التجميع (تقوم باستخراج نتائج كل صفيف على حدى ) الدالة SUMPRODUCT تقوم تجميع الصفيف الناتج من الدالة SUMIF واعطا النتيجة النهائية كقيمة مفردة في امان الله

السلام عليكم ورحمة الله جرب المعادلة التالية: اعمل اسم معرف باسم(Rngs) ويشير الى : {"Rng_1";"Rng_2";"Rng_3";"Rng_4";"Rng_5";"Rng_6";"Rng_7";"Rng_8";"Rng_9";"Rng_10";"Rng_11";"Rng_12"} ادخل المعادلة التالية في الخليةE5 =SUMPRODUCT(SUMIF(OFFSET(INDIRECT(Rngs);0;0;;1);$A5;OFFSET(INDIRECT(Rngs);0;4;;1))) اسحب المعادلة للاسفل وعند السحب باتجاه الاعمدة غير الرقم قبل الاخير(رقم4) في المعادلة بما يتوافق ورقم العمود المطلوب لضيق الوقت لم اختبر نتائج المعادلة لذا تأكد من ان المعادلة تعطي نتائج صحيحة في امان الله

السلام عليكم ورحمةالله وبركاته ما شاء الله استاذنا الفاضل خبور عمل ممتاز ودقيق واعتقد ان اجابة السؤال الرقم (14) يمثل عرض الحرف (width) في LabelABC ويحتسب = LabelABC.width / عدد الاحرف في LabelABC 364 / 26 = 14 ثم يتم قسمة موقع الفارة(x) على عرض الحرف (14) لنحصل على موقع الحرف المؤشر عليه بالفارة في LabelABC في امان الله

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

السلام عليكم ورحمة الله جرب الكود التالي Set rngA = Range("K2:K31") Set rngB = Range("B2:B232") rngA.ClearContents For Each celA In rngA xA1 = WorksheetFunction.CountIf(rngB, "<=" &celA.Offset(0, 1)) xA2 = WorksheetFunction.CountIf(rngB, "<" & celA.Offset(0, 2)) xA3 = xA1 - xA2 If xA3 > 0 Then xA4 = WorksheetFunction.RandBetween(1, xA3) xB1 = 0 For Each celB In rngB If celA.Offset(0, 1).Value >= celB.Value And celA.Offset(0, 2).Value <= celB.Value Then xB1 = xB1 + 1 If xB1 = xA4 Then celA.Value = celB.Value End If End If Next celB End If Next celA

السلام عليكم ورحمة الله وبركاته الدالة GETPIVOTDATA تتعامل مع الجداول المحورية شاهد المرفق sales analysis.zip

السلام عليكم ورحمة الله وبركاته لإثراء الموضوع , حل اخر استخدم احدى المعادلات التالية مع تنسيق الخلية التفاف النص لإدراج فاصل اسطر بين الرقم والنص: =CONCATENATE(F7;CHAR(10);E7) لإدراج فاصل اسطر بين الرقم والنص مع إبقاء الارقم بالعربي: =CONCATENATE(CHAR(254);F7;CHAR(10);E7) في امان الله

السلام عليكم ورحمة الله وبركاته الاخوة الافاضل يحياوي طاهر شكرا للثناء الطيب و بارك الله فيكم

السلام عليكم ورحمة الله وبركاته اذا حددت شهر غير شهر يناير المعادلة تعطي نتيجة غير صحيحة عموما جرب احدى المعادلات التالية وارجو ان تعطي نتائج صحيحة : =(YEAR(C2)-YEAR(B2)-1)+IF(MONTH(B2)<=1;1;0)+IF(MONTH(C2)>=1;1;0) او =SUM((MONTH(B2)<=1)+(MONTH(C2)>=1)+YEAR(C2)-YEAR(B2)-1) او =SUMPRODUCT(--(TEXT(B2-DAY(B2)+ROW(INDIRECT("1:" & (C2-(B2-DAY(B2)))));"dd/mm")="01/01")) في امان الله

اخي الفاضل عبدالله المجرب اشكر مرورك الكريم و ثنائك الطيب واعتذر عن التأخير في الرد عليك او المشاركة بالمنتدى وذلك بسبب الظروف في امان الله

السلام عليكم ورحمة الله وبركاته جرب الكود التالي على الورقة النشطة x1 = InputBox(" ادخل نص البحث", "بحث وإضافة") If IsNull(x1) Or x1 = "" Then Exit Sub x2 = InputBox("البحث عن : " & x1 & Chr(13) & Chr(13) & " ادخل نص الإضافة", "بحث وإضافة") If IsNull(x2) Or x2 = "" Then Exit Sub On Error GoTo Error: r1 = "$A$1" r2 = "$A$1" 1: r3 = Cells.Find(What:=x1, After:=Range(r2), LookIn:=xlValues, LookAt:=xlPart).Address s = s + 1 r2 = r3 If s = 1 Then r1 = r3 Else If r1 = r3 Then GoTo 2 x3 = Range(r2).Value x4 = x3 & " " & x2 Range(r2).Replace What:=x3, Replacement:=x4, LookAt:=xlPart GoTo 1 2: MsgBox ("عدد النتائج:" & s - 1) Exit Sub Error: MsgBox ("لايوجد نتائج")

حل اخر باستخدام دالات قواعد البيانات احصاء الفصل 3.rar

السلام عليكم ورحمة الله وبركاته بارك الله بالأستاذ خبور لإثراء الموضوع - حل اخر بدون استخدام عمود اضافي احصاء الفصل 2.rar