اخواني علموني

إنشئ مربع نص اسمه x ومربع نص آخر اسمه text2

وفى حدث بعد التحديث لمربع نص x ضع الكود التالي :

Select Case x
Case Is <= 500
text2 = "50 ريال"
Case 500 To 1000
text2 = "60 ريال"
Case 1000 To 1500
text2 = "70 ريالً"
Case 1500 To 2000
text2 = "75 ريال"
End Select

أشرف خليل

ملحوظة .. غير كلمة ريال إلى التقدير المطلوب حسب الدرجات المعطاه

فى الدرس الرابع من دروس برمجة الاكسل

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

http://www14.brinkster.com/mtarafa/VBExcel.htm

و لاحظ أن if فى الاكسل تستبدل ب iif فى الاكسس

و ذلك بالنسبة لاستخدام الدالة فقط ( الحالة الاولي فى المثال - دالة فقط بدون كود)

اما بقية الطرق التي تستخدم الكود فلا يوجد فرق

السلام عليكم ورحمة الله وبركاته

بالنسبة لدرس الرابع لا يعمل يظهر شاشة افتتاحية فقط

وشكرا على جهودك

لقد جربت الرابط و دخلت

عموما يمكنك الدخزل عليه مباشرة من هنا

الدرس الرابع

مع الاسف حتى الان لا يعمل معي

الأخ : fasal1383

الرابط الذي وضعه الأخ المشرف محمد طاهر يعمل كما ينبغي

وقد قمت بنسخ هذه الأكواد منه التي تخص الدرس الرابع

________________

وهذه الدالة تعتمد علي تطبيق قاعدة IF , THEN مع استخدام خيارات ELSEIF و ELSE

و هنا يتم اختبار الحالات بترتيب وضع الشروط الي أن تتحقق حالة فيتم تسجيل فيمة الدالة و لكن لا يتم تسجيل قيمة جديد للدالة الا عند نجاح الاختبار ، و تكون حالات الاختبار حالات فريدة أي أنه لا يصح كون القيمة المختبرة تحقق أكثر من شرط ، وهذه الطريقة تمتاز عن الطريقة السابقة بقلة وقت الاختبار حيث أنه فى الحالة السابقة كان من الممكن أن تنجح القيمة المختبرة فى تحقيق أكثر من شرط ( أي أنها أكبر من صفر و أكبر من خمسين و أكبر من 65 - القيمة 68 مثلا ) ، و بالتالي تيم تسجيل القيمة أكثر من مرة. و هذا م لا يحدث هنا كما سنشاهد سويا

_____________

 

Function GetGrade4(mycell)



Dim x As Double



x = mycell.Value



If x >= 0 And x < 50 Then



GetGrade4 = "راسب"



ElseIf x > 50 And x <= 65 Then



GetGrade4 = "مقبول"



ElseIf x > 65 And x <= 75 Then



GetGrade4 = "جيد"



ElseIf x > 75 And x <= 85 Then



GetGrade4 = "جيد جدا"



ElseIf x > 85 Then



GetGrade4 = "ممتاز"



Else



GetGrade4 = "رقم غريب"



End If



End Function

=================

(((تفسير لهذه الدالة كما هو في الدرس الرابع)))

اذا كانت القيمة بين صفر و أقل من أو يساوي 50 يكون ناتج المعالة "راسب "

و لا يمكن أن يحقق أي من الشروط التالية

و ان كانت القيمة بين 50 و أقل من أو يساوي 65 يكون ناتج المعالة "مقبول "

و لا يمكن أن يحقق أي من الشروط التالية أو السابقة

... و هكذا الي أن نصل الي الحالة قبل الأخيرة و فيها اخترنا أنه اذا كان الرقم أكبر من 85 يكون الناتج ممتاز

أما عن الشق الأخير فهو اذا كان الرقم غير كل ما ذكر سابقا ( و هو هنا أن تكون الدرجة بالسالب ) فاخترنا أن يكون ناتج المعادلة

( رقم غريب )

=========================

وتقبل تحياتي

اشكرك واقدر لك اهتمامك واتمنا ان يسعدك الله في الدنيا والاخر

اخي سعودي اين اضع الكود ارجو تحديده بالدقة

يا أخي أنا قمن بنسخ الكلام كله من الدرس الرابع كما هو أما إن أردت أن تجعله على برنامجك فأخبرني عن اسم الحقل الذي يسجل في المجموع وأيضا اسم الحقل الذي تريد أن تخرج فيه جملة (ممتاز ) أو ( جيد ) وغيرها .. حتى أتمكن أو يتمكن غيري من إعطاؤك الدالة حسب ما هو موجود عندك ونخبرك أين تضعها

وتقبل تحياتي