أكاديمية الصقر للتدريب

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


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





الجملة If … Then … Else الشرطية

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



10-02-2018 12:42 صباحا
عبدالجيد
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 387
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-2-1986
الدعوات : 2
يتابعهم : 158
يتابعونه : 37
قوة السمعة : 2958
موقعي : زيارة موقعي
 offline 

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

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

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

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

1
2
3
4
5
6
7
Sub CheckAge()
If Range("B3").Value >= 25 Then
    Range("C3").Value = "Allowed"
    Else
    Range("C3").Value = "Not Allowed"
End If
End Sub

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

  • السطر الأول و الأخير هما بادئة ونهاية الماكرو الذى سنكتب به الكود، وتم تسمية الماكرو بـ (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

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

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

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

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

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

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

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

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

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




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


 










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

الساعة الآن 04:15 مساء