استخدام دالة if

[alishamary1993]

ارجو توضيح الخطأ باستخدام دالة If
حيث المطلوب هوة اذا كان المدخل كلمة (ماجستير) يتم كتابة ( 55%) وايضا كتابة( ستة اشهر) بالفورم مباشرتاً
حيث بالمكان المخصص لها حيث تم اعتماد على فورم مخصص مسبقا  تم كتابته بالوورد واستدعائه عند التنفيذ بأشارات مرجعية مسبقة

الصور المفرقة توضح الذي قمت بعمله ولكن عندما اكتب الشرط الثاني الدكتوراه لايتم كتابة الشرط الخاص بها او الناتج الذي اريده وانما يتم كتابة الموجود بالشرط الاول فقط مهما كان المدخل 

[ابوخليل]

السلام عليكم

الافضل ان تكون هذه الرتب والميزات في جدول يخصهن

من اجل المرونة في التعديل او التبديل او الزيادة

[alishamary1993]

7 minutes ago, ابوخليل said:

السلام عليكم

الافضل ان تكون هذه الرتب والميزات في جدول يخصهن

من اجل المرونة في التعديل او التبديل او الزيادة

موجودة بالجدول ظمن حقل خاص بكل نقطة سواء الشهادة مثل الماجستير او الدكتوراه وكذلك يوجد حقول خاصة بالنسبة المؤية المذكورة والستة اشهر او سنة 

[Hawiii]

ملاحظات:
- هذه تسمى تعبير إف وليست دالة 
- قد يكون عتدك خطأ املائي فـ دكتوراة بالتاء المربوطة وليس بالهاء.
- استخدم Select case أسهل وأوضح في الاستخدام مثل:
 

  Select Case x.selection.insertafter.الشهادة
    Case "دبلوم عالي"
      '...
    Case "ماجستير"
      '...
    Case "دكتوراة"
      '...
  End Select

 

[alishamary1993]

3 minutes ago, Hawiii said:

ملاحظات:
- هذه تسمى تعبير إف وليست دالة 
- قد يكون عتدك خطأ املائي فـ دكتوراة بالتاء المربوطة وليس بالهاء.
- استخدم Select case أسهل وأوضح في الاستخدام مثل:
 

  Select Case x.selection.insertafter.الشهادة
    Case "دبلوم عالي"
      '...
    Case "ماجستير"
      '...
    Case "دكتوراة"
      '...
  End Select

 

تمام راح اجرب استخدمها واشوف النتيجة 

6 minutes ago, Hawiii said:

ملاحظات:
- هذه تسمى تعبير إف وليست دالة 
- قد يكون عتدك خطأ املائي فـ دكتوراة بالتاء المربوطة وليس بالهاء.
- استخدم Select case أسهل وأوضح في الاستخدام مثل:
 

  Select Case x.selection.insertafter.الشهادة
    Case "دبلوم عالي"
      '...
    Case "ماجستير"
      '...
    Case "دكتوراة"
      '...
  End Select

 

وشكرا على الملاحظات

[alishamary1993]

1 hour ago, Hawiii said:

ملاحظات:
- هذه تسمى تعبير إف وليست دالة 
- قد يكون عتدك خطأ املائي فـ دكتوراة بالتاء المربوطة وليس بالهاء.
- استخدم Select case أسهل وأوضح في الاستخدام مثل:
 

  Select Case x.selection.insertafter.الشهادة
    Case "دبلوم عالي"
      '...
    Case "ماجستير"
      '...
    Case "دكتوراة"
      '...
  End Select

 

اخي الكريم تمت الكتابة مثل الصورة المرفقة ولكن لم يظهر اي ناتج ما السبب؟

[Hawiii]

أخي لا أعرف ما السبب ، أعتقد لو تطرح سؤالك في منتدى الوورد أفضل ، أنا لم أستخدم أكواد الـ VBA للوورد ولا أعرف طريقة الإختيار والإنتقال.
- إذا كل النتائج تخرج على الخيار الأول فهناك خلل في مصدر الشهادة ، فدائما قيمتها "دبلوم عالي"!!
- جرب تبدل الهاء آخر كلمة "دكتوراه" بتاء مربوطة.
- ضع قبل كود case سطر فحص قيمة الشهادة للتأكد من القيمة مثل:
 

MsgBox x.selection.insertafter.الشهادة

Select Case x.selection.insertafter.الشهادة
    Case "دبلوم عالي"
      '...
    Case "ماجستير"
      '...
    Case "دكتوراة"
      '...
  End Select