اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

 

اخ

 

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

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

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

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

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

12.rar

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

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

abo_abary_12.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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:

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

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


 


 

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

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

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information