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