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

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

وبعد حل أستاذى " يحيى حسين " يمكن أستحدام هذه الصيغة أيضا =VLOOKUP($A1,INDIRECT("'" & COLUMNS($B1:B1) & "'!$A$1:$B$6"),2,0) تقبلوا تحياتى

ضع هذه المعادلة فى " E4 " {=LOOKUP(99^99,IF(A8:A26>0,A8:A26))} وهى معادلة صفيف أى لابد من الضغط على "CTRL+SHIFT+ENTER " لتحقق المطلوب تقبل تحياتى

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

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

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

الحمد لله أخى أما بخصوص المسافة يمكن إستخدام دالة " TRIM " كالأتى : =IF(OR(TRIM(LEFT(TRIM(B2),FIND(" ",TRIM(B2))))=TRIM(LEFT(TRIM(C2),FIND(" ",TRIM(C2)))),TRIM(LEFT(TRIM(B2),FIND("^",SUBSTITUTE(TRIM(B2)," ","^",2)))=TRIM(LEFT(TRIM(C2),FIND("^",SUBSTITUTE(TRIM(C2)," ","^",2)))))),"نعم","لا") تقبل تحياتى

شكرا أخى الحبيب وهذا كثير علية جدا وكل سنة وحضرتك طيب وهذه معادلة عادية بعيدا عن الأكواد أتمنى تحقق ماتريد =IF(OR(LEFT(B2,FIND(" ",B2))=LEFT(C2,FIND(" ",C2)),LEFT(B2,FIND("^",SUBSTITUTE(TRIM(B2)," ","^",2)))=LEFT(C2,FIND("^",SUBSTITUTE(TRIM(C2)," ","^",2)))),"نعم","لا") للمرة المليون أخى حاذر من الأحرف " كالهمزة على الألف " أ " ، " ا " - والياء "ى" ، "ي " - والتاء المربوطة " ة " والهاء " ه " فهى تغير الأختيار تماما تقبل تحيات أخيك

أولا - مرحبا بك أخا عزيزا فى منتدى أوفيسنا ثانيا - ياريت يتم تغيير أسم ظهورك للعربية حتى يسهل التواصل بينك وبين زملائك تتبع هذا الرابط أخى ستجد به ماتريد http://www.officena.net/ib/index.php?showtopic=51690 تقبل تحياتى

رغم شدة مشاغلى وعدم قدرتى على تتبع المنتدى إلا إننى عند مشاهدة طلبك لم أستطع التأخير ، عن الأجابة وخاصا لصعوبة مقارنة الأسماء وخاصا العربية وأرجو من حضرتك عند إستخدام هذه الدالة وهى دالة معرفة أن تحرص كل الحرص من حيث حالة الأحرف لأنى لاحظت على سبيل المثال كتابتك لأسم " أية " مرة هكذا ، ومرة أخرى هكذا " أيه " وبالطبع نتيجة المعادلة ستكون خطأ المعادلة إلى حضرتك المعادلة وهى دالة معرفة " UDF " Function CompNames(Rng1 As Range, Rng2 As Range) As String If Rng1 = Rng2 And Rng1.Value = "" Then CompNames = "" Exit Function End If n1 = Split(UCase(Rng1)) n2 = Split(UCase(Rng2)) CompNames = "لا" For c1 = 0 To UBound(n1) For c2 = 0 To UBound(n2) If n1(c1) = n2(c2) Then CompNames = "نعم" Exit Function End If Next c2 Next c1 End Function - المعادلة =CompNames(B2,C2) تقبل تحيات أخيك

أولا- كل سنة والجميع بألف خير ثانيا وبعد حلول ونشاط أختى الغالية " أم عبد الله " ، جزاها الله خيرا هذه طرق أخرى من ملايين الطرق ضع هذه المعادلة فى "B1 " =INT(A1) ثم من " FORMATT CELLS " إختر " DATE " وإذا أردت فصل الوقت ضع فى " C1 " إحدى هذه المعادلات ومن تنسيق " FORMATT CELLS " إختر " TIME " =A1-D1 =MOD(A1,1) =A1-INT(A1) تقبلوا تحياتى

أولا - كل سنة وحضرتك طيب أخى الحبيب " محمد الريفى " ثانيا - شكرا أخى الحبيب على المتابعة ، وحلك الجميل لأنى فعلا نسيت طلب أخى " WAEL " لأن طلبة أبتعد عن الصفحة الأولى للمنتدى ثالثا هذا حل أخر بجانب حل أخى " محمد الربفى " لعله المطلوب وبه العديد من المعادلات الجديدة يمكن الأستفادة منها للأخوة الزملاء وكل سنة وجميع الزملاء و؟أساتذة هذا الصرح بألف خير لأنى عذرا سأتغيب فترة عن المنتدى لمشاغل خاصة تقبلوا تحياتى: مقارنة جدولين.rar

بعد إذن أخى الحبيب " سليم " أنظر أخى الحبيب لهذا الحل لعله المطلوب ، على حسب مافهمت بالطبع لأننى دائما بطلب من صاحب السؤال وضع تصور على نتيجة سؤالة حتى يكون بينة للزميل الذى سيقوم بالأجابة ويكون أسرع وأدق فى الأجابة تقبلوا : تحياتى الجمع فى خلية واحدة.rar

شكرا لكل من أشاد بالعمل وأرجو أن يكون به الأفادة لكل الزملاء تقبلوا تحياتى

غير مدى الكود أخى " أحمد " ليكون هكذا Range("b6:f400").Select تقبل تحياتى

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

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

بعد حل الأخت الفاضلة " أم عبد الله " هنا فى المرفق العديد من الطرق أرجو أن يكون بها ماتريد تقبلوا : تحياتى Book11.rar

ضع هذه المعادلة فى " C2 " وأسحبها لأسفل =SUBSTITUTE(B2,MID(B2,FIND("-",B2)-1,LEN(B2)),"") وهذه أيضا =SUBSTITUTE(B2,RIGHT(B2,LEN(B2)-FIND("-",B2)+1),"") وهذه أيضا =REPLACE(B2,FIND("-",B2),LEN(B2),"") وهذه أيضا =LEFT(B2,FIND(" -",B2)) المرفق وبه الأربع معادلات وكلهم يحققون ماتريد فأختر ماشئت تقبل : تحياتى حذف رقم من نص.rar

بارك الله فيك أستاذى وتقبل الله منا ومنكم صالح الأعمال ، وجزاك الله خيرا تقبل تحيات : تلميذك

بارك الله لك ، وتقبل الله منك ، وحج مبرور وذنب مغفور بإذن الله ودعائك هذا يعادل الدنيا ومافيها شكرا أخى على المتابعة وردك تقبل : تحيات أخيك

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

الحمد لله أخى أن حققت المعادلة طلبك أما نسخها فهذا أمر سهل المعادلة كالتالى: =INDEX($A$2:$A$26, MATCH(MIN(IF($A$2:$A$26>=$B$2, $A$2:$A$26-$B$2, "")), IF($A$2:$A$26>=$B$2, $A$2:$A$26-$B$2, ""), 0)) أولا - المعادلة أخى معادلة صفيف أى بعد نسخها وتحديد النطاق الذى ستقوم الدالة بجلب القيمة الأعلى والأقل لقيمة التى حددتها تقف بمؤشر الماوس وتضغط كليك "يمين ضغطة واحدة حتى يظهر مؤشر الكتابة فى نهاية المعادلة وتضغط على " CTRL+SHIFT+ENTER " معا ليظهر هذان القوسان " {} " فى بداية ونهاية المعادلة 1- أما مكون الدالة فهو كالتالى المدى " $A$2:$A$26 " هو العمود الذى يحتوى على البيانات 2- " $B$2 " هى عبارة عن الخلية الذى تحتوى على الرقم الذى تريد البخث عنه داخل العمود السابق وكده تكون المعادلة تم توضيحها تقبل تحياتى

تفضل أخى المطلوب تقبل تحياتى جلب القيمة الأقرب.rar

عفوا على أى أساس أخى أفترضت هذا الرقم " 26 " وماهى المعايير لأختيار هذا الرقم ياريت مزيدا من الإيضاح