رجب جاويش

أختى الفاضلة / أم عبد الله شكرا جزيلا على هذه الكلمات الطيبة والمرور العطر وجزاك الله كل خير

أخى الحبيب / محمد فى حالة التكرار جرب المعادلة الآتية فى التنسيق الشرطى =B5=SUMPRODUCT(--(SMALL(ABS(History-$B$2);1)=ABS(History-$B$2));(History/SUMPRODUCT(--(SMALL(ABS(History-$B$2);1)=ABS(History-$B$2))))) Worksheet 2.rar

أخى الحبيب / قنديل الصياد شكرا جزيلا على مرورك العطر وجزاك الله كل خير

أخى الحبيب / محمد جزاك الله كل خير هذه هى المعادلة المستخدمة فى التنسيق الشرطى =B5=SUMPRODUCT(--(SMALL(ABS(History-$B$2);1)=ABS(History-$B$2));(History))

السلام عليكم تفضل أخى ما تريد Worksheet.rar

أخى الحبيب / جمال عبد السميع .. أبو محمود لا تحرمنا من ابداعاتك وأعمالك الجميلة

السلام عليكم الأخ الحبيب الخلوق ذو الابتسامه الرائعة أ/جمال الفار ألف مليون مبروك على الترقية المستحقة وجزاك الله خيراً على مجهودك الكبير في هذا المنتدى الرائع ونسأل الله عز وجل أن يجعل أعمالك في ميزان حسناتك

أولا : الأخت الفاضلة / أم عبد الله تميز وابداع بارك الله فيكى ثانيا : أخى الحبيب / جمال عبد السميع الأجيال القديمة يا أخى الحبيب ( مع انك من شباب المنتدى المجددين والمبدعين ) لا يستطيع أحد الاسغناء عنها وخير مثال أستاذ الأجيال الأستاذ عبد الله باقشير هل تتخيل شكل المنتدى بدون ابداعاته وأعماله القيمة التى تزداد قيمة بمرور الوقت أخى الحبيب أعانك الله على مشاغلك ولا تحرم أخوتك فى المنتدى من مساعدتك وابداعاتك التى ينتظرها الجميع وأنا منهم ثالثا : هه معادلة أخرى منى لاثراء الموضوع لايجاد الأرقام المحصورة بين الرقمين فقط الأرقام المحصورة بين رقمين.rar

السلام عليكم بعد اذن أخى الفاضل / أحمد النجار هذا حل أخر لاثراء الموضوع أعلى وأقل ثلاث نسب.rar

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

السلام عليكم أخى الفاضل / أحمد النجار تسلم ايديك ولاثراء الموضوع هذا حل آخر Book1.rar

أخى الحبيب / محمد يجب توسيع المدى داخل الكود الى المدى المطابق للبيانات فالمدى الموجود فى الكود ("D3:D27") و ("A2:D27") ومدى البيانات من ("D3:D43") و ("A2:D43")

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

أخى الحبيب / محمد أرجو ارفاق ملف لما تريده فى الترتيب لزيادة التوضيح

بخير والله أخى الحبيب سعيد بالتواصل مرة أخى الحبيب مع الأخوة والأحباب

أخى الحبيب / أبو حنين رجعنا للأيام الخوالى توارد الخواطر فى نفس اللحظة تقبل أرق تحياتى

أخى الحبيب / محمد فى حالة التنسيق الشرطى تكون معادلة التنسيق كالآتى =AND($A1<>"";$A1<10) تنسيق.rar

تفضل أخى اخفاء واظهار.rar

بالإضافة الى حل أخى الحبيب / محمود هذا كود يقوم بعمل المطلوب Sub ragab() Range("B2:B1000").ClearContents For x = 2 To [A1000].End(xlUp).Row For xx = 1 To UBound(Split(Cells(x, 1), ",")) + 1 d = Split(Cells(x, 1), ",")(xx - 1) T = Application.WorksheetFunction.CountIf(Range(Cells(1, 30), Cells(xx, 30)), d) If T < 1 Then Cells(xx, 30) = d myCount = myCount + 1 End If Next Cells(x, 2) = myCount Range(Cells(1, 30), Cells(xx, 30)) = "" myCount = 0 Next End Sub عدد الأرقام الفريدة.rar

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

أخي الحبيب / جمال عبد السميع جزاك الله كل خير وكل عام و أنت و كل الأسرة و الأمة الإسلامية بخير

أخى الحبيب / جمال الفار حمد لله على سلامتك أخى الحبيب وعوداً حميداً . جزاك الله خيراً على هذا البرنامج الرائع وعلى جميع أعمالك بالمنتدى.

السلام عليكم ورحمة الله وبركاته المنتدى نور بالأخ والأستاذ الفاضل ذو الابتسامة المميزة أخونا الفاضل / جمال الفار :fff: الحمد لله على سلامتك وعودا حميدا

أخى الحبيب / محمد 28 لا أجد من الكلمات ما يعبر عن صدق وجمال كلماتك الرقيقة العطرة فجزاك الله كل خير اخى الحبيب أنا لم أعدل على شيت الابتدائى من فترة فلو هناك تعديل أخر غير ذلك اخبرنى وأنا أعدله ان شاء الله وسف يتم تعديل كشوف المناداه ان شاء الله

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