إظهار كل 15 شهادة التالية والسابقة

[كعبلاوى]

كل عام وأنتم والامة الاسلامية فى أرجاء العالم بخير

ارجوا من أساتذتى المشرفين على الموقع 

تفعيل الماكرو لاظهار كل 15 شهادة 

 وجزاكم الله عنا كل خير

12.rar

[ابو عبدالبارى]

 

اخ

 

16 ساعات مضت, كعبلاوى said:

كل عام وأنتم والامة الاسلامية فى أرجاء العالم بخير

ارجوا من أساتذتى المشرفين على الموقع 

تفعيل الماكرو لاظهار كل 15 شهادة 

 وجزاكم الله عنا كل خير

12.rar

اخى الكريم كعبلاوى

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

abo_abary_12.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم أبو عبد الباري وكل عام وأنت بخير

لي سؤال : اطلعت على الكود الذي تفضلت به ووجدت هذا السطر :

If Cells(1, 13) > Cells(1, 15) Then

هنا يتم اختبار قيمة الخلية M13 إذا ما كانت أكبر من الخلية O13 ، ولكن لاحظت أن الخلية O13 فارغة ، أعتقد أن الرقم 15 يمكن أن يكون 14 ، حيث أن المقارنة يجب أن تتم على أكبر عدد للطلاب والموجود في الخلية N13 .. ولكن عند التعديل لا يعمل بشكل سليم .. صراحة أحاول فهم المنطق ولكن عقلي متوقف

هلا أوضحت لنا هذه الجزئية؟

 

عموماً حاولت التعديل في الكود ، وهذه محاولة متواضعة مني

Sub UP()
    If Cells(1, 13) + 14 >= Cells(1, 14) Then Cells(1, 13) = Cells(1, 14): Exit Sub

    If Cells(1, 13) <= Cells(1, 14) Then
        Cells(1, 13) = Cells(1, 13) + 14
    End If
End Sub

Sub DOWN()
    If Cells(1, 13) - 14 <= 0 Then Exit Sub

    Cells(1, 13) = Cells(1, 13) - 14
End Sub

تقبل وافر تقديري واحترامي

 

[كعبلاوى]

كل الشكر والتقدير والاحترام لك استاذي الفاضل ابو عبد البارى

 ابدعت والكلمات  لا توصف حقك لك جزيل شكرى

 

 

[ابو عبدالبارى]

في ٨‏/٧‏/٢٠١٦ at 10:32, ياسر خليل أبو البراء said:

بارك الله فيك أخي الكريم أبو عبد الباري وكل عام وأنت بخير

لي سؤال : اطلعت على الكود الذي تفضلت به ووجدت هذا السطر :

If Cells(1, 13) > Cells(1, 15) Then

هنا يتم اختبار قيمة الخلية M13 إذا ما كانت أكبر من الخلية O13 ، ولكن لاحظت أن الخلية O13 فارغة ، أعتقد أن الرقم 15 يمكن أن يكون 14 ، حيث أن المقارنة يجب أن تتم على أكبر عدد للطلاب والموجود في الخلية N13 .. ولكن عند التعديل لا يعمل بشكل سليم .. صراحة أحاول فهم المنطق ولكن عقلي متوقف

هلا أوضحت لنا هذه الجزئية؟

 

عموماً حاولت التعديل في الكود ، وهذه محاولة متواضعة مني

Sub UP()
    If Cells(1, 13) + 14 >= Cells(1, 14) Then Cells(1, 13) = Cells(1, 14): Exit Sub

    If Cells(1, 13) <= Cells(1, 14) Then
        Cells(1, 13) = Cells(1, 13) + 14
    End If
End Sub

Sub DOWN()
    If Cells(1, 13) - 14 <= 0 Then Exit Sub

    Cells(1, 13) = Cells(1, 13) - 14
End Sub

تقبل وافر تقديري واحترامي

 

اخى الكريم ياسر خليل أبو البراء

السلام عليكم لكم تعلمنا منك الكثير وشكرا لمرورك العطر

بالنسبة لسؤالك

الجزئية  تعنى اذاكانت If Cells(1, 13) > Cells(1, 15) Then عدد الشهادات اكبر من الصفر  نفذ الكود التالى  اما بالنسبة للمقارنة بأكبر عدد من الطلبة فلاحظ علامة (< ) أكبر وليست اصغر .......................

وكل عام وانتم بخير

في ٨‏/٧‏/٢٠١٦ at 16:31, كعبلاوى said:

كل الشكر والتقدير والاحترام لك استاذي الفاضل ابو عبد البارى

 ابدعت والكلمات  لا توصف حقك لك جزيل شكرى

 

 

اخى الكريم كعبلاوى

مشكور لكلاماتك الرقيقة وجزاك الله كل خير

[ناصر سعيد]

4 ساعات مضت, ابو عبدالبارى said:

الجزئية  تعنى اذاكانت If Cells(1, 13) > Cells(1, 15) Then عدد الشهادات اكبر من الصفر  نفذ الكود التالى  اما بالنسبة للمقارنة بأكبر عدد من الطلبة فلاحظ علامة (< ) أكبر وليست اصغر .......................

وكل عام وانتم بخير

مادام اكبر من الصفر اذن الكود لن يتوقف .. نريده يتوقف عند اخر رقم جلوس او اخر طالب ويظهر رساله ان لايوجد ارقام اخرى