الشهابي

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

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

أخي العزيز / Ahmed Habiba وبعد اذن استاذنا الكبير / يحيى حسين هذه محاولة مني للحل بوضع كود خاص بكل مادة والعفو الدور الثانى.rar

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

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

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

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

أخي العزيز / محمود عبد العزيز أضف السطر التالي في أول الكود Application.ScreenUpdating = False والسطر التالي في آخر الكود Application.ScreenUpdating = True ليصبح الكود بهذا الشكل Private Sub Worksheet_Activate() Application.ScreenUpdating = False Dim MyRng As Range Dim Col As Range Range("b3:b16").EntireRow.Hidden = False For Each Col In Range("b3:b16") If CStr(Col) = "" Or Col.Value = 0 Then If MyRng Is Nothing Then Set MyRng = Col Else _ Set MyRng = Union(MyRng, Col) End If Next If Not MyRng Is Nothing Then MyRng.EntireRow.Hidden = True Application.ScreenUpdating = True End Sub

أخي العزيز / أ محمد عبد الصمد انظر المرفق لعله مطلوبك إن شاء الله الاحصاء.rar

أخي العزيز / محمد لأنباري لوترفق ملف سوف يكون أفضل وحسب ما فهمت يمكنك ذلك بعد نسخ البطاقة المرات المطلوبة حدد صفوف البطاقة الأولى ثم اختر نسخ التنسيق ثم ضع مؤشر الماوس على أرقام الصفوف واضغط مع السحب إلى أسفل حتى البطاقة الأخيرة ليتم نسخ تنسيق البطاقات بنفس تنسيق البطاقة الأولى هذا والله أعلم تقبل تحياتي

أخي العزيز / حسام غباشى ضع المعادلة التالية في الخلية (D2) واسحبها لأسفل وهي : =C2+180 والعفو

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

أخي العزيز / محمود عبد العزيز هذا كود لأستاذنا الكبير عبد الله باقشير وقد قمت بتطبيقه على ملفك في ورقة ( البنك ) حيث يعتمد على الفراغ في صفوف العمود (B) Private Sub Worksheet_Activate() Dim MyRng As Range Dim Col As Range Range("b3:b16").EntireRow.Hidden = False For Each Col In Range("b3:b16") If CStr(Col) = "" Or Col.Value = 0 Then If MyRng Is Nothing Then Set MyRng = Col Else _ Set MyRng = Union(MyRng, Col) End If Next If Not MyRng Is Nothing Then MyRng.EntireRow.Hidden = True End Sub والعفو طلب اضافة دالة+.rar

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

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

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

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

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

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

أخي العزيز / حاتم عيسى حسب ما فهمت ضع المعادلة التالية في الخلية ( L3 ) واسحبها لأسفل =IF(C3=0;0;IF(C3<K3;C3*15/100;IF(C3>K3;K3*15/100;0))) تقبل تحياتي

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

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

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

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

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