اين اكتب هذا الاجراء

[المثابر]

السلام عليكم

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

لدي هذا الاجراء

Function GetGrade3(mycell)

Dim x As Double

x = mycell.Value

GetGrade3 = "رقم غريب"

If x >= 0 Then GetGrade3 = "راسب"

If x >= 50 Then GetGrade3 = "مقبول"

If x >= 65 Then GetGrade3 = "جيد"

If x >= 75 Then GetGrade3 = "جيد جدا"

If x >= 85 Then GetGrade3 = "ممتاز"

End Function

اين اكتبه وكيف انفذه...ارجو ان توضحوا لي الخطوات

ولكم خالص الشكر والتقدير

[m.hindawi]

بسم الله الرحمن الرحيم

تفتح ملف الاكسل الذي تريد وضع الاجراء فيه

اضغط على زر ALT +F11

تظهر لك شاشة محرر فيجوال بيسك من القائمة INSERT تختار MODULE ستظهر نافذة فارغة تكتب فيها الاجراء او تلصقه فيها

الان اقفل محرر فيجوال بيسك

اصبحت الان الوظيفة جاهزة ستجدها في الدوال

عين اية خلية ثم اختار ادراج دالة

ستظهرنافذة فيها الدوال الموجودة في اكسل اختار معرفة بوااسطة المستخدم

ستجد دالتك تحت اسم

GETGRADE3