logo

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



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





10-02-2018 12:42 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 387
الدولة : مصر
الجنس :
تاريخ الميلاد : 15-2-1986
الدعوات : 2
قوة السمعة : 2972
الاعجاب : 4
موقعي : زيارة موقعي

الجملة If … Then … Else هى جمله شرطية تتأكد من تحقق شرط معين وفى حالة تحقق هذا الشرط يتم تنفيذ عملية معينة وفى حالة عدم تحقق هذا الشرط يتم تنفيذ عملية أخرى.


الشكل العام يكون كالتالى





If الشرط Then
' العملية التى سيتم تنفيذها عند تحقق الشرط
Else
' العملية التى سيتم تنفيذها فى حالة عدم تحقق الشرط
End if</pre>


[p]تمرين 1:
نرغب فى التحقق من أن قيمة الخلية B3 أكبر من 25 أم لا، وفى حالة أنها أكبر من أو تساوى 25 يتم كتابة Allowed فى الخلية المجاورة C3 وإذا كانت أقل من 25 يتم كتابة Not Allowed فى الخلية المجاورة C3
لذلك سيكون الكود كالتالى





1
2
3
4
5
6
7
</pre>

[p]
Sub CheckAge()
If Range("B3").Value &gt;= 25 Then
Range("C3").Value = "Allowed"
Else
Range("C3").Value = "Not Allowed"
End If
End Sub</pre>

[p]تفسير الكود السابق


  • السطر الأول و الأخير هما بادئة ونهاية الماكرو الذى سنكتب به الكود، وتم تسمية الماكرو بـ (CheckAge)
  • السطر الثانى يقوم بمقارنة القيمة التى بالخلية B3 بالقيمة 25
  • السطر الثالث يعمل على أدراج Allowed فى الخلية C3 إذا تحقق الشرط B3>= 25
  • السطر الخامس يعمل على أدراج Not Allowed فى الخلية C3 إذا لم يتحقق الشرط B3>= 25
  • السطر السادس يعمل على إخبار الإكسل أننا إنتهينا من الجملة IF

الأن عليك أن تتأكد من صحة الكود السابق (واجب!)


ملاحظات :
الهدف من هذا المثال هو التعرف على كيفية التعامل مع الجملة الشرطية If … Then … Else
يمكننا إستخدام الدالة IF للقيام بنفس الوظيفة؛ وإذا لاحظت أن هناك تشابه فى طريقة عمل الجملة الشرطية If … Then … Else و الدالة IF


=IF(C3>=25,”Allowed”,”Not Allowed”)


تمرين 2:
نرغب فى كتابة كود يقوم بإخفاء / إظهار ال Gridlines (الشبكة التى توضح حدود الخلايا)


فكرة الكود :


  • سنجعل الكود يتعرف على الوضع الحالى لل Gridlines
  • فإذا كانت ال Gridlines مفعلة True فيجب على الكود أن يقوم بإلغائها False
  • أما إذا كانت ال Gridlines غير مفعلة False فيجب على الكود أن يقوم بتفعيلها True

إذن الكود سيكون كالتالى





[p]
If ActiveWindow.DisplayGridlines = False Then
ActiveWindow.DisplayGridlines = True
Else
ActiveWindow.DisplayGridlines = False
End If</pre>
الى هنا انتهى الدرس
على موعد ان شاء الله فى جديد
مع تحيات أخوكم عبدالجيد أبومحمد وابراهيم

أثارت هذه المشاركة إعجاب: أباالحسن،



look/images/icons/i1.gif الجملة If … Then … Else الشرطية
  10-02-2018 11:46 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
جزاك الله خيرا استاذ عبدالجيد
واصل بلا فواصل 123




look/images/icons/i1.gif الجملة If … Then … Else الشرطية
  22-02-2018 09:33 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيك أخي العزيز عبد الجيد
يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط ..
وفقك الله لما يحبه ويرضاه

أثارت هذه المشاركة إعجاب: أباالحسن،



look/images/icons/i1.gif الجملة If … Then … Else الشرطية
  24-02-2018 07:30 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 387
الدولة : مصر
الجنس :
تاريخ الميلاد : 15-2-1986
الدعوات : 2
قوة السمعة : 2972
الاعجاب : 4
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: YasserKhalil بارك الله فيك أخي العزيز عبد الجيد
يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط ..
وفقك الله لما يحبه ويرضاه
استاذ ياسر لوحضرتك عندك اى ملاحظات على التنسيق بموضوعاتى ممكن تقوم بتنسيقها واكون شاكر لحضرتك




look/images/icons/i1.gif الجملة If … Then … Else الشرطية
  24-02-2018 09:53 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
موضوع التنسيق أمره بسيط .. قم بمشاهدة الفيديو الذي قدمه أخونا إسلام لكيفية إدراج موضوعات بالمنتدى ..
أنا عن نفسي لا أقوم بتنسيقات كثيرة .. أقوم بكتابة الموضوع ثم في النهاية أنسق تنسيقات بسيطة جداً ثم أخيراً أضع الأكواد مستخدماً الأقواس المخصصة لذلك




look/images/icons/i1.gif الجملة If … Then … Else الشرطية
  15-05-2018 12:48 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس :
تاريخ الميلاد : 29-5-1982
الدعوات : 1
قوة السمعة : 469
الاعجاب : 0
تسلم ايدك استاذنا بارك الله فيك




look/images/icons/i1.gif الجملة If … Then … Else الشرطية
  15-05-2018 02:14 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 486
الجنس :
الدعوات : 2
قوة السمعة : 1149
الاعجاب : 7
بارك الله فيك استاذنا الكريم وجزاك الله كل خير




اضافة رد جديد اضافة موضوع جديد




الكلمات الدلالية
الجملة ، Then ، Else ، الشرطية ،









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

الساعة الآن 04:39 PM