JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

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

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




استخدام الدالة 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 يصبح تقدير الطالب امتياز 
وبذلك نكون قد انتهينا من شرح الكود المستخدم فى هذا الدرس 




الاسمبريد إلكترونيرسالة