يحيى حسين

السلام عليكم و رحمة الله أخي إضافة لحلول الأخوة جرب المعادلة التالية : =AVERAGE(IF(A2:A15<>"",IF(A2:A15<>0,A2:A15))) و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter

السلام عليكم و رحمة الله و بركاته أخي لتنفيذ طلبك في الخلية E7 ضع المعادلة التالية =LEFT(I7,FIND("-",I7)-1) ثم اسحبها لأسفل و في الخلية D7 ضع المعادلة التالية =SUMIF($I$7:$I$7609,"*"&E7&"*",$H$7:$H$7609) ثم أسحبها لأسفل هذا لتنفيذ طلبك مع تأكيدي على ضرورة أن تكون أرقام الحسابات غير مكرره ============== لكن أخي يوجد بعض الملاحظات على ملفك اـجاه البيانات يجب ان تكون من اليمين لليسار بإتجاه الأحرف الأبجدية في الاكسيل و التي تمثل رؤوس الأعمدة ============== دمت في حفظ الله

السلام عليكم و رحمة الله إضافة لحل الأخ هشام جزاه الله كل خير يمكن استخدام المعادلات =SUMPRODUCT(--MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)) دمتم في حفظ الله

الحمد لله رب العاملين اخي عبدالفتاح فا أنت كما تعلم اني من عشاق المعادلات دعواكم اخي الحبيب الاخ الحبيب الحسامي دائماً مبدع بمداخلاتك و حلولك الرائعة دمتم في حفظ الله

السلام عليكم و رحمة الله أخي في النسخة الجديدة 2007 و 2010 يمكن استخدام الدالة IFERROR لتجنب أي خطأ و الشكر موصول للأخ أبو أحمد دمتم في حفظ الله

جزاك الله كل خير اخي احمد على مجهودك الواضح في هذا المنتدى و الحمد لله

السلام عليكم و رحمة الله يوجد طريقة أخرى إضافة لطريقة الأخ عادل في التعامل مع الأسطر الفارغة لإظهارها و إخفائها و هي سريعة في حدث تفعيل الصفحة الثانية إستخدم الكود التالي : Private Sub Worksheet_Activate() Range("E6:E1000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End Sub حيث سيقوم بإخفاء الأسطر الفارغة في النطاق المحدد و يمكنك تعديل النطاق حسب رغبتك =============== و في حدث تفعيل الصفحة الثانية و بهدف إظهار الأسطر الفارغة إستخدم الكود التالي : Private Sub Worksheet_Activate() Sheets("ورقة2").Range("E6:E1000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False End Sub حيث سيقوم بإظهار أسطر الصفحة رقم 1 الفارغة دمتم في حفظ الله

السلام عليكم و رحمة الله إضافة لحل الاخ احمد جرب المعادلة التالية ضعها في الخلية B6 ثم اسحبها للأسفل =INDEX($C6:$H6,MATCH(TRUE,ISTEXT($C6:$H6),0)) و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter و إذا كنت ترغب في الحصول على آخر قيمة نصية نفس المعادلة السابقة و لكن ضع مكان الصفر الرقم 1 دمتم في حفظ الله

السلام عليكم و رحمة الله لقد سألت عن أعظم دوال الاكسيل و اكثرها إستخداماً و هي بشكلها البسيط تأخذ التالي : =INDEX(array,row_num,column_num) فالمتغير الأول Array هو الجدول موضع البحث الذي سنبحث خلاله و كما تعلم ان الجدول مكون من سطور و أعمده فهذه الدالة تساعدنا لنعرف نقطة تقاطع سطر مع عامود و هما ما يمثلان المتغير الثاني و الثالث فالمتغير الثاني row_num هو رقم السطر داخل الجدول الذي نبحث عنه و المتغير الثالث column_num هو رقم العامود و عند نقطة تقاطعها ستتحقق النتجة فلو أخنا المثال التالي فلمعرفة مبيعات شهر May في المنطقة west سنستخدم المعادلة التالية : =INDEX(A1:D9,6,3) فالنطاق A1:D9 يمثل نطاق كامل الجدول و الرقم 6 يمثل ترتيب الشهر الخامس may في بيانات الجدول في حين ان الرقم ثلاثة يمثل العامود الثالث في الجدول الذي يوجد به كلمة West و ستكون النتيجة طبعاً القيمة 732 ================== و جرت العادة عند استخدام هذه الدالة ان يكون معها الدالة Match فهي الدالة التي تساعدنا على معرفة موضع العنصر تلقائياً بدل من كتابة الأرقام يدوياً ================= أتمنى ان تكون قد اتضحت فكرة الدالة دمتم في حفظ الله

السلام عليكم و رحمة الله أخي يمكنك وضع كود في حدث الصفحة Deactivate بحيث يقوم الاكسيل بإعادة حماية الصفحة بمجرد مغادرتها او جرب الفكرة المستخدمة على الرابط التالي : http://excel4us.com/vb/showthread.php?t=1562 دمت في حفظ الله

السلام عليكم و رحمة الله أكيد أخي كيماس لا بأس بحل ثالث و رابع و خامس فكثرة الحلول بها الفائدة الحقيقة على كل حال يبدو أني فهمت المطلوب بشكل خاطئ فبعدما رأيت حلول الأخوة فهمت انك تريد قائمة بالأرقام بين رقمين بإستثناء الأرقام الموجودة في النطاق الأول و لعمل ذلك عدلت المعادلة أعلاه لتصبح كالتالي =INDEX(ROW(INDIRECT($A$2&":"&$A$10)),SMALL(IF(1-ISNUMBER(MATCH(ROW(INDIRECT($A$2&":"&$A$10)),$A$2:$A$10,0)),ROW(INDIRECT($A$2&":"&$A$10))),ROW(1:1))) و لا تنسى الضغط على Ctrl+Shift+Enter

السلام عليكم و رحمة الله إضافة لحل الأخ هانكوك جزاه الله كل خير هذا كود اخر يلبي نفس طلبك Sub RemoveDuplicate() Dim c As Range, LR As Long LR = Range("A" & Rows.Count).End(xlUp).Row For Each c In Range("A3:A" & LR) If WorksheetFunction.CountIf(Range("A3:A" & c.Row), c.Value) > 1 Then i = i + 1 c.Copy Range("E" & i) End If Next c End Sub دمتم في حفظ الله

السلام عليكم و رحمة الله أخي هذه معادلة عادية لإحتساب الفرق بين تاريخين و استثناء يومي السبت و الجمعه الخلية في E10 فيها تاريخ البداية و الخلية F10 فيها تاريخ النهاية =SUMPRODUCT(--(WEEKDAY(ROW(INDIRECT(E10&":"&F10)))<6)) دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي عادل كود جميل بارك الله فيك و بعد إذنك و ليكون الموضوع أكثر تشويقاً و جمالاً هذا حل آخر بالمعادلات لمن يعشق المعادلات =SUMPRODUCT(--(WEEKDAY(ROW(INDIRECT(E10&":"&F10)))<6)) دمتم في حفظ الله

السلام عليكم و رحمة الله أخي هذا حل بالمعادلات قد يفي بطلبك في الخلية F2 ضع المعادلة التالية : =IFERROR(INDEX($A$2:$A$9,SMALL(IF(1-ISNUMBER(MATCH($A$2:$A$9,$C$2:$C$12,0)),ROW($A$2:$A$9)-ROW($A$2)+1),ROW(1:1))),"") و هي معادلة صفيف فلا تنسى الضغط على Ctrl+Sift+Enter Nr_not_in_the_list-يحيى حسين.rar

السلام عليكم و رحمة الله أخي في الخلية F1 ضع المعادلة التالية : =SUM(IF(FREQUENCY(IF($A$3:$A$1402<>"",MATCH($A$3:$A$1402,$A$3:$A$1402,0)),ROW($A$3:$A$1402)-ROW($A$3)+1)>1,1)) ثم جرب المعادلة التالية ضعها ففي الخلية D3 ثم أسحبها للأسفل : =IF(ROW(1:1)<=$F$1,INDEX($A$3:$A$1402,SMALL(IF(FREQUENCY(IF($A$3:$A$1402<>"",MATCH($A$3:$A$1402,$A$3:$A$1402,0)),ROW($A$3:$A$1402)-ROW($A$3)+1)>1,ROW($A$3:$A$1402)-ROW($A$3)+1),ROW(1:1))),"") و كلاهما معادلات صفيف يجب الضغط على Ctrl +Shift +Enter يحيى حسين.rar

جزاك الله كل خير اخي ياسر دمت في حفظ الله

السلام عليكم و رحمة الله في ملفك في صفحة حجز مواقيت الأقسام في الخلية F8 استخدم المعادلة التالية =IF(ISNA(VLOOKUP(E8,الاسناد!$A$6:$C$20,3,0)),"",VLOOKUP(E8,الاسناد!$A$6:$C$20,3,0)) و كفكرة و طريقة جديدة في إخفاء الأخطاء يمكن استخدام النمط التالي أيضاً : =LOOKUP(REPT(CHAR(237),255),CHOOSE({1,2},"",VLOOKUP(E8,الاسناد!$A$6:$C$20,3,0))) و اذا كنت تستخدم الاكسيل 2007 او 2010 يمكنك استخدام المعادلة التالية =IFERROR(VLOOKUP(E8,الاسناد!$A$6:$C$20,3,0),"") ================ دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته الأخوة عادل و ابو احمد و يحياوي جزاكم الله كل خير على مشاعركم الطيبة دمتم في حفظ الله و رعايته

السلام عليكم و رحمة الله و بركاته إضافة لطريقة الأخ أبو أحمد و بدون الإستعانه بأعمدة إضافية جرب المعادلة التالية و هي معادلة صفيف =E7-D7-SUMPRODUCT(--ISNUMBER(MATCH(A1:A14,ROW(INDIRECT(D7&":"&E7)),0)))-(IF(SUM((--(WEEKDAY(A1:A14)={5,6})))>2,2,0)) و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter

السلام عليكم و رحمة الله أهلا بالأخ الحبيب عادل عذراً على تغيبي و لكني مررت ببعض الظروف الصعبة و منها دخول ابني للمستشفى و أيضاً عملية إبنتي و الحمد لله رب العالمين نسأل الله أن يعينكم و يعين جميع الأخوة على خدمة العلم و المتعلمين و ان تكونوا عوناً للأخوان في كل مكان دمتم في حفظ الله

السلام عليكم ما هي طبيعة الخطأ الناتج عندك و ما هي المعادلة المستخدمة حتى نستطيع إضافة أفكار جديدة لك

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

السلام عليكم و رحمة الله أخي ما يؤثر في عمل الدالة هو وجود الأخطاء و ليس وجود كلمات و لتجنب ذلك جرب معادلة الصفيف التلية =AVERAGE(IF(ISNUMBER(A2:E2),A2:E2)) و لا تنسى الضغط على Ctrl+Shift+Enter ============ و يوجد طريقة أخرى من خلال إستخدام المعالة التالية =AVERAGEIF(A2:E2,"<9.99999999999999E+307")

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