أبوســـارة1973

=SMALL(FILTER(SORT(FILTER(الدرجات!$D$2:$G$840;class_all=B2);4;-1);{0,0,0,1});ROW(INDIRECT("1:"&(ROUND(COUNT(FILTER(SORT(FILTER(الدرجات!$D$2:$G$840;class_all=B2);2;-1);{0,0,0,1}))/4;0)))))

السلام عليكم 

مساء الخير 

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

=AVERAGE(

، حيث إذا تم ذلك حالياً مع الصبغة المذكورة أعلاه يعطي رسالة خطأ ومفادها إنني تجاوزت الحد المسمحوح به من تاخل المعادلات

الأفضل أن يكون الجنيه والقرش في عمود واحد 

مع المحافظة على التنسيق التي ترغب فيه والظاهر في ملفك 

حافز_1.xlsb

حافز2.xlsb

 المشكلة هي أن هذه الدالة لا تقبل البحث عن قيم علي يمين الخلية المرجعية(قيمة البحث)ي

بمعنى يجب أن تكون قيم البحث في العمود الأول من جدول البحث  

آسف على التأخير 

تفضل المطلوب 

اعداد تقارير مدرسية - مع الرأس والتذييل__معدل.xls

تفضل

hide_rows.xls

أرفق الملف أفضل 
لنتمكن من مساعدتك

هذا المطلوب ؟

اعداد تقارير مدرسية - مع الرأس والتذييل.xls

ألف شكر وألف تحية لك أستاذنا الفاضل

سلُمت يداك 

شكراً جزيلا أستاذنا الكبير 

ولكن يقوم الكود بتكرار القيم 

والمطلوب هو ذكر القيمة مرة واحدة فقط ، فلو تكررت مثلاً القيمة 

1B1

في النطاق 

Z8:BM8 

أكثر من مرة يقوم الكود بتسجيلها في النطاق 

Ff8:Y8

مرة واحدة فقط 

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

في الملف المرفق مطلوب فرز القيم الموجودة في النطاق z8:bm8 

في النطاق f8:y8

بحيث تكون القيمة المطلوب فروها تتكون من رقم في البداية ورقم في النهاية مع موجود حرف بينهما

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

ثم مطلوب ترتيب القيم في النطاق 

f8:y8

ترتيباً تصاعدياً 

وهكذا في بقية الأسطر حتى السطر رقم 95

Book_11.xlsx

تفضل المطلوب

mustafa_111.xlsm

إذا كان هذا الحد فقط من النطاق الذي تحتاج إلى ترحيله يمكن أن يحل بهذه الطريقة ،

أما إذا كان النطاق أكبر من ذلك فقم برفع الملف لنرى الطريقة الأفضل لعملية الترحيل

تكرار بالكود (1).xlsm

التربتيب المطلوب على أي أساس ؟ ترتيب أعمدة أو صفوف

=COUNT(A2:A20)

هذه الدالة لمعرفة عدد الخلايا التي تحتوي أرقام 

وإذا أردت عدد الخلايا التي  تحتوي أرقام وحروف ( فيها أي قيمة ) تستخدم الدالة التالية :

=counta(A2:A20)

6 ساعات مضت, أحمد يوسف said:

اهلا بك اخى الكريم فى المنتدى

وعليكم السلام لا يمكن العمل على التخمين يمكنك رفع ملف وشرح المطلوب بالتفصيل

أخي المحترم : طلب العضو واضح ، لماذا نطلب منه رفع ملف ؟ 

تفضل ما طلبت

كود عند الضغط يذهب الى الصفحة.xlsm

السلام عليكم 

يمكن ذلك من خلال الذهاب إلى تنسيق الخلايا بالضغط على الزر الأيمن للفأرة

ثم اختيار تنسيق الخلايا ( Format Cell)

ثم اختيار الخيار الأخير مخصص ( Custom) 

ثم تنسخ النص التالي ( [$-,197]B2yyyy/mm/dd;@ ) وتضعه في مربع Type

يمكن أبضا من خلال إضافة هذا الكود في مودل جديد :

Function Date_Hijri(dtGegDate As Date) As String
VBA.Calendar = vbCalHijri
Date_Hijri = dtGegDate
VBA.Calendar = vbCalGreg
End Function

وبذك تكون لديك دالة خاصة بالتاريخ الهجري 

السلام عليكم 

يمكن ذلك من خلال الذهاب إلى تنسيق الخلايا بالضغط على الزر الأيمن للفأرة

ثم اختيار تنسيق الخلايا ( Format Cell)

ثم اختيار الخيار الأخير مخصص ( Custom) 

ثم تنسخ النص التالي ( [$-,197]B2yyyy/mm/dd;@ ) وتضعه في مربع Type

mustafa_hejri_date.xlsx

34 دقائق مضت, أحمد يوسف said:

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

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

تفضلوا المطلوب بطريقة أخرى ( vba)

mustafa_auto_date_code.xlsm

هل من جديد ؟

=IF(ISNA(VLOOKUP([@ID];France;4;0));IF(ISNA(VLOOKUP([@ID];Spain;4;0));IF(ISNA(VLOOKUP([@ID];UK;4;0));0;VLOOKUP([@ID];UK;4;0));VLOOKUP([@ID];Spain;4;0));VLOOKUP([@ID];France;4;0))

تفضل المطلوب ، يعمل بدقة عالية 

الوضع الحالي أكثر من صفحة ( ثلاث صفحات ) 

أو تقصد شيئا آخر ؟

تم عمل المطلوب:

ولكن يتم الضغط على الزر ( تفعيل مرة  واحدة فقط) ،

وقم بنسخ الزر من شيت رقم 1 إلى بقية الصفحات ،

ثم اضغط على الزر في كل صفحة

mustafa_sara_2.xlsx

الطلب غير واضح 

جرب الملف المرفق 

فيه طلبك ، بالتوفيق

mustafa_sara.xlsm

=IF(ISNA(VLOOKUP([@ID];France;4;0));IF(ISNA(VLOOKUP([@ID];Spain;4;0));IF(ISNA(VLOOKUP([@ID];UK;4;0));0;VLOOKUP([@ID];UK;4;0));VLOOKUP([@ID];Spain;4;0));VLOOKUP([@ID];France;4;0))

تفضل المطلوب ، يعمل بدقة عالية 

IF_IFNA_VLOOKUP.xlsx