تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع عالم الاوفيس

استخدام الدالة IF الشرطية فى اليوزرفورم لحساب تقديرات الطلاب فى الاكسل

تعتبر الدالة If  لشرطية من اهم الدوال الموجودة داخل تطبيق الاكسيل لما تقوم بة من عمل رائع فى اختبار الشروط والمعايير التى نريد ان ناخذ نتيجة منطقية منها اما TRUE  او  FALSE

درس جديد من دورس مكتبة اكواد اكسل Excel VBA 
وفية نقوم بالاجابة على سؤال احد الاصدقاء وهو كيفية استخدام الدالة IF فى  اليوزرفورم لحساب التقديرات  الخاصة الطلاب اما ناجح او راسب از وهذا من خلال المثال التالى 

لنفرض ان عندنا يوزفورم UserForm مثل هذا الشكل 

كيف نفعل  ذلك 

يتم الدخول الى تبويب المطور Developer  ومن  ثم ندخل على شاشة محرر الاكواد Visual Basic Editor 
ونضغط  على الزر الموجود معنا ليفتح نافذة الكود الكود الخاصة بهذا الزر command buttone
ونكتب فية الكود التالى 

Private Sub CommandButton1_Click()

If TextBox6.Value <= 5 Then

TextBox7.Text = "راسب"

ElseIf TextBox6.Value = 6 Then

TextBox7.Text = "لوحة شرف"

ElseIf TextBox6.Value <= 7 Then

TextBox7.Text = "تشجيع"

ElseIf TextBox6.Value >= 9 Then

TextBox7.Text = "امتياز"

End If

وفى هذا الكود ننختبر اذا  كانت قيمة التكست بوكس Textbox6 والتى تساوى قيمة الاجمالى العام اقل من او تساوى 5 درجات 

اجعل لى قيمة تقدير الطالب راسب والتى هى موجودة فى7 Textbox

ويتم استخدام الدالة Else IF لاستكمال باقى الشروط المطلوبة فى ملف العمل اى انة اذا كانت قيمة الاجمالى العام تساوى 6 اجعل تقدير الطالب لوحة شرف اما اذا كانت اقل من او تساوى 7 اجعل لى تقدير الطالب تشجيع وفى الاخر اذا كانت درجات الطالب اكبر من او تساوى 9 يصبح تقدير الطالب امتياز 

وبذلك نكون قد انتهينا من شرح الكود المستخدم فى هذا الدرس