جمال عبد السميع

ياريت أخى توضح ماهى النتيجة المرجوة من هذا الجدول أوبمعنى أدق ماهى النتيجة التى تتوقعها عن هذا الجدول حتى تتضح الصورة أكثر تقبل تحياتى

أخى الحبيب " فضل " شكرا على أطرائك الرائع لى والحمد لله أن حققت أحدى المعادلات لطلبك وهذا هو الغرض الأساسى لأى شخص يقوم بالأجابة على طلب أى زميل قد يفهم البعض بعض طلبات الزملاء بشكل غير دقيق أو بشكل غير صحيح فى بعض الأحيان لكن الحمد لله أن هناك كثير من الزملاء يتداركوا الأمر لذلك أعتقد إن لك فى ذمتى معادلة فأنظر إلى هذه المعادلة لعلها تحقق أيضا ماتريد =IF(AND($X6="دور ثان",SUM((E6<$E$5)*($E$5-E6),(I6<$I$5)*($I$5-I6),(M6<$M$5)*($M$5-M6),(Q6<$Q$5)*($Q$5-Q6),(U6<$U$5)*($U$5-U6),W6)<$W$5),"يختار","لايختار") تقبلوا تحباتى

أستاذى الفاضل " ياسر خليل " شكرا جزيلا أستاذى على هذه الكلمات التى تفوقنى بكثير وشكرا أيضا على مجهودك الرائع فى المنتدى جعله الله فى ميزان حسناتك

لاأدرى أخى هل هذه المداخلة تحصنى أم لا ؟ على العموم إذا كانت هذه المداخلة تحصنى !!!!!!!!!!! فلايمكن أخى مسح الأعمدة المساعدة ولكن الغرض من التنسيق هو إخفائها للشكل العام ليس إلا أم بحصوص معادلة " أستاذى عبد الله بقشير " فهى دالة معرفة " أى هى دالة تم برمجتها عن طريق الكود " VBA " وليست دالة من دوال الأوفيس . بمعنى أدق هى دالة عبارة عن كود ولكن المتحكم فى تنفيذها " مجموعة من الشروط " وليس " زر " أو تنفيذها بشكل تلقائى كوضع الكود فى حدث الصفحة ويتم الوصول عن طريق الضغط على " ALT+F11 " وستجدها داخل " module " أرجو أن يكون ردى به الأجابة التى تريدها تقبل تحياتى

أخى الحبيب " فضل " يمكن أن توفر على نفسك هذا كله وتختصر أنت معادلاتك عن طريق عمل جدول لإجماليات المواد تستطيع عن طريقة إستخراج الأتى 1- الشهادات 2- الراسب والناجح 3 - الترتيب .....................الخ تقبل تحياتى

جرب هذه المعادلة فى الخلية " Y6 " وأسحبها لأسفل لعلها تكون المطلوبة =IF(SUM(U6,Q6,M6,I6,E6)<$W$4/2,"يختار","لايختار") وهذه لو أضفنا شرط الدور الثانى . =IF(AND(SUM(U6,Q6,M6,I6,E6)<$W$4/2,$X6<>"ناجح"),"يختار","لايختار") تقبل تحياتى

ممكن حاجة مثل هذه تحقق المطلوب أخى ويمكن بالطبع إخفاء الأعمدة عن طريق تظليل العمودان المساعدان ، ثم كليك يمين عليهم والذهاب إلى "FORMAT CELLS " ثم " CUSTOM " وفى " TYPE " يتم وضع " ;;; " ثم " OK " تقبل تحياتى 2 ترتيب أوائل.rar

أولا- مرحبا بك أخى فى منتدى أوفيسنا ثانيا - ضع هذه المعادلة فى العمود " H3 " وأسحبها لأسفل =LARGE($A$1:$A$23,ROW(A1)) ثم ضع هذه امعادلة فى العمود "فى العمود "I3 " وأسحبها لأسفل وهذه المعادلة معادلة صفيف أى لابد من الضغط على " CTRL+SHIFT+ENTER " معا لتحقق المطلوب {=INDEX($C$1:$C$26, MATCH($H3, $A$1:$A$26*NOT(COUNTIF($I$2:I2, $C$1:$C$26)),0))} تقبل تحياتى ترتيب أوائل.rar

بعد إذن أستاذى " ياسر " هذه طريقة أخرى أتمنى أن تحقق المطلوب =IF(SUMPRODUCT(0+(F10:O10<$F$7:$O$7/2)),0,SUM(F10:O10)) وهذه صيغة صفيف أى لايكفى الضغط على " enter " لتعطى النتيجة الصحيحة ولكن لابد من الضغط على " ctrl+shift+enter " لتكوين هذان القوسان فى نهايات المعادلة " {} " {=AND(F10:O10>=$F$7:$O$7/2)*SUM(F10:O10)} ,وهذه أيضا معادلة صفيف ستحقق المطلوب {=IF(SUM(--(F10:O10<F7:O7/2))>0,0,SUM(F10:O10))} تقبلوا : تحياتى مجموع الدرجات.rar

شكرا أستاذى الحبيب تقبل الله منا ومنك صالح الأعمال ، وأتمنى من كل قلبى أن يكون بها الأفادة تقبل تحياتى

وممكن هذه أخى ولكنها معادلة صفيف أى لابد من الضغط على "CTRL+SHIFT+ENTER" {=SUM(IF(($B$9:$B$31>=$F$1)*($B$9:$B$31<=$F$2)*($A$9:$A$31=$B2),$F$9:$F$31))} {=SUM(IF($A$9:$A$62=$B2,IF($B$9:$B$31>=$F$1,IF($B$9:$B$31<=$F$2,$F$9:$F$31))))} لتكوين هذان القوسان الظاهريين فى الصيغة تقبل تحياتى

شكرا أخى الحبيب ، وجزيت عنى خير الجزاء لكلماتك الطيبة والرائعة فى حقى والشكر موصول للأستاذ الرائع " ياسر خليل " ذو النشاط الملحوظ الذى أضفى على المنتدى روحا جميلة من الأعمال الرائعة ، وهذا ليس بغريب لأنه من زمن العمالقة الجميل وهذه الطريقة الثانية للحل ، وهنا عدد الكلمات غير محدود =REPLACE(SUBSTITUTE(REPLACE(TRIM(MID(SUBSTITUTE(" "&$A1," ",REPT(" ",99)),COLUMNS($A:A)*99,99)),2,0,(RIGHT(TRIM(MID(SUBSTITUTE(" "&$A1," ",REPT(" ",99)),COLUMNS($A:A)*99,99)),1)))&"I",RIGHT(TRIM(MID(SUBSTITUTE(" "&$A1," ",REPT(" ",99)),COLUMNS($A:A)*99,99))&"I",2),LEFT(TRIM(MID(SUBSTITUTE(" "&$A1," ",REPT(" ",99)),COLUMNS($A:A)*99,99)),1)),1,1,"") وهذه الصيغة توضع فى الخلية التى نود تجميع الكلمات بها =C1&" "&D1&" "&" "&E1&" "&F1 تقبلوا تحياتى ترتيب حروف كلمات.rar

أخى الحبيب " محمد " شكرا أخى على سؤالك ، وهذا ليس بغريب على أعضاء أوفيسنا ، فهم أفضل مافيه وهى الصحبة الجميلة التى تجمعت على هدف واحد وهو حب الخير للخير ليس غير ذلك ثانيا : أخى الحبيب الحمد لله فالمنتدى ملئ بأساتذتة العظام الذين لديهم المقدرة لسد أى فراغ وأكثر ثالثا : فحضرتك وكثيرين من الزملاء أصبحتم أساتذة الأن يشار لهم بالبنان لاعمالهم الجميلة والرائعة ، وعذرا أخى الحبيب على غيابى لأن لدى من المشاغل الكثير والكثير والتى أتمنى بعدها العودة لأحبائى وأخوتى فى المنتدى مرة أخرى رابعا : أنا عملت فعلا معادلات كثيرة وبطرق عديدة لهذه الفكرة لأنها عجبانى فعلا فأنى أعشق الفوازير فى المعادلات ولو أن من الصعب تواجدها بكثرة فى الحياة العملية وهذه على سبيل المثال معادلة تقوم بترتيب الحرف الأول والأخير لثلاث أسماء فتخيل لو أكثر من ذلك =CHOOSE(LEN(A1)-LEN(SUBSTITUTE(A1," ",""))+1,RIGHT(A1,1)&MID(A1,2,LEN(A1)-2)&LOWER(LEFT(A1,1)),MID(A1,SEARCH(" ",A1)-1,1)&MID(A1,2,SEARCH(" ",A1)-3)&LEFT(A1,1)&" "&RIGHT(A1,1)&MID(A1,SEARCH(" ",A1)+2,LEN(A1)-SEARCH(" ",A1)-2)&MID(A1,SEARCH(" ",A1)+1,1),MID(A1,SEARCH(" ",A1)-1,1)&MID(A1,2,SEARCH(" ",A1)-3)&LEFT(A1,1)&" "&MID(A1,SEARCH("ZZZZZ",SUBSTITUTE(A1," ","ZZZZZ",2))-1,1)&MID(A1,SEARCH(" ",A1)+2,SEARCH("ZZZZZ",SUBSTITUTE(A1," ","ZZZZZ",2))-SEARCH(" ",A1)-3)&MID(A1,SEARCH(" ",A1)+1,1)&" "&RIGHT(A1,1)&MID(A1,SEARCH("ZZZZZ",SUBSTITUTE(A1," ","ZZZZZ",2))+2,LEN(A1)-2-SEARCH("ZZZZZ",SUBSTITUTE(A1," ","ZZZZZ",2)))&MID(A1,SEARCH("ZZZZZ",SUBSTITUTE(A1," ","ZZZZZ",2))+1,1)) وهناك أيضا معادلة أخرى ولكنها طويلة بعض الشئ تقوم على فصل الأسماء وترتيبها مهما كان عددها " وأيضا بشرط أن يكون الحرفان الأول والأخير من كل كلمة هما اللذان يتم ترتيبهما تقبل تحياتى أخى الحبيب " وشكرا مرة ثانية على سؤالكم عنى "

بعد إذن أخى الحبيب " سليم " أستخدم هذا الكود فى حدث الصفحة سيحقق المطلوب تقبل تحياتى Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Select End Sub فعلا أخى " ياسر " معك كل الحق ولكن كنت أرغب فى كتابة الطريقتين لأخى السائل ولكنى وجدت أخى " سليم " قام به فلم يتبقى سوى أن ضع الكود فى حدث الصفحة كطريقة أخرى وأعتقد هى لن تسبب أى مشاكل إلا فى حالة التصحيح فى إحدى الخلايا التى ملأت بالبيانات وهاهى الطريقة الثانية Sub mah() ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Select End Sub تقبل تحياتى وشكرا على الملاحظة

ماشاء الله حلول رائعة لفكرة صعبة للغاية ، بارك الله فى كلا من أخى الحبيب " محمد الريفى " وأخى الحبيب " باسر خليل " ولكن عندما فكرت فى المشاركة ، توقفت عند سؤال للأخ السائل هل دائما إنعكاس الحروف مرتبط بالحرف الأول والأخير ؟؟؟؟؟؟؟؟؟؟؟؟؟ سؤال هام يتوقف علية صعوبة وسهولة المعادلة التى سيتم طرحها وصعوبة وسهولة السؤال ، لإنى أعتقد من المستحيل أن تقوم معادلة أو كود بتوقع ترتيب الحروف لأسم وأحتمالات عكس حروفة تقبلوا تحياتى

أخى الحبيب " الشهابى " أنت والله إللى منور ، وحشتنى ووحشتنى مشاركاتك القيمة بارك الله فيك ، والحمد لله إنك بخير تقبل تحيات : أخيك

جرب هذه المعادلة وأسحبها يمينا وأسفل =SUMPRODUCT(--($K$7:$K$12=$A3)*($L$7:$L$12=B$2),$M$7:$M$12) وهذه لوأردت التخلص من "0" فى الخلية فى حالة عدم وجود نتيجة =IF(SUMPRODUCT(--($K$7:$K$12=$A5)*($L$7:$L$12=C$2),$M$7:$M$12)=0,"",SUMPRODUCT(--($K$7:$K$12=$A5)*($L$7:$L$12=C$2),$M$7:$M$12)) قبل تحياتى مساعدة.rar

وممكن هذه المعادلة أيضا أخى =SUMPRODUCT(0+(MMULT(0+ISNUMBER(SEARCH("*25*",B3:B11)),1))) تقبل تحياتى

أستخدم هذه المعادلة أخى فى الخلية ( M7 ) وأسحبها لأسفل =INDEX($B$3:$E$16,MATCH(K7,$A$3:$A$16),MATCH(L7,$B$2:$E$2,0)) تقبل تحياتى

أحذف الصف الذى تظهر به النتيجة أيضا أخى وإذا كانت الصيغة مرتبطة بترتيب الصفوف زود "1" على الصف ستحل المشكلة وإذا لم يكن أرسل بعض بيانات من الشيت والمعادلة المستخدمة Book1.rar

هذا يحدث أخى نتيجة فقد جزء من البيانات التى تعتمد عليها المعادلة لتحقبق نتائجها ، راجع المعادلة أخى قبل حذف هذا الجزء لأنها من المؤكد مرتبطة به تقبل تحياتى

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

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

جرب أخى عمل تظليل لكامل الجدول المراد نسخة ثم فى الشيت المراد نقل البيانات إلية أعمل كليك يمين ثم " paste special " ثم إختر "formulas" علم على " xml spreadsheet" ثم " ok " جرب ووافينى بالنتيجة

هل هذا الشيت الذى تنقل من المعادلات يخصك لأن واضح جدا أن الشيت الذى تنقل منه البيانات محمى ياريت مرة أحرى ترسل لنا مثال به عبنة من البيانات التى تقوم بنسخها لأن الصورة كما هو واضح أن الشيت الأول به حماية