الأحد، 6 أكتوبر 2019

اكسل ماكرو| استخدام الدالة IF الشرطية فى اليوزرفورم لحساب تقديرات الطلاب How To Use IF Function Excel VBA

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



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

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





كيف نفعل  ذلك 

يتم الدخول الى تبويب المطور Developer  ومن ندخل على شاشة محرر الاكواد Visual Basic Editor 
ونضغط دوبل كليك على الزر الموجود معنا ليفتح نافذة الكود الكود الخاصة بهذا الزر
ونكتب فية الكود التالى 
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 يصبح تقدير الطالب امتياز 
وبذلك نكون قد انتهينا من شرح الكود المستخدم فى هذا الدرس 
وتسييرا منا على حضراتكم ادرجنا لكم المثال العملى فى ملف عمل لمن يريد تحملية مباشرة من الميديا فاير 


ليست هناك تعليقات:

إرسال تعليق

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة