اولا يتم عمل الدوال الخاصة والتي تسمي Defined Functions "VBA Function in Excel " من خلال فيجول بيسك ابليكشن
نبدأ اولا فتح فيجول بيسك ابليكشن "VBA"Visual Basic Editor عن طريق
Tools > Macro > Visual Basic Editor or ALT+F11
ثم بعد ذلك نحتاج لفتح موديول لكتابة المعادلة فيه عن طريق
Insert > Module
وبهذا تم فتح موديول ولكنه فارغ نريد اولا انا نختار اسما للمعادلةوليكن مثلا Area
والمعادلة هي AREA = LENGTH x WIDTH
وجملة اعلان دالة هي function وهي تعني عن بدء كتابة دالة جديدة ثم يتبعها اسم الدالة ثم انتر
ستلاحظ هذا الشكل امامك بداية الدالة ونهاية الدالة وفي المنتصف يتم كتابة الدالة نفسها
شروط كتابة اسم الدالة
1- ان يبدا بحرف لا برقم
2-الا يزيد عن 255 حرف
3-الا يتخلل الاسم علامات او مسافلا فيما عدا الشرطة السفلية
وستلاحظ ان اسم الدالة يتبع بقوسين وسوف يتم وضع الاسماء الخاصة بالمعاملات بين القوسين هذين المعامل الأول Length والمعمل الثاني Width ونوعهم Double ويمكن كتابة المعاملات من غير تحديد نوعهم
()Function Area
End Function
فيكون الشكل هكذا بعد كتابة المعاملات
Function Area(Length As Double, Width As Double)
End Function
ونكتب بعد ذلك الدالة فيكون الشكل هكذا
Function Area(Length As Double, Width As Double)
Area = Length * Width
End Function
الأن انتهينا من أعداد الدالة الان حان معاد أختبارها
من معالج الدالات fx
اختار user defined ستجد الدالة موجودة Areaأختارها واشتغل بها
ارجو ان يكون الدرس مفيد
ولقد ارفقت لكم دالة خاصة تقوم بعمل قاعدة If
_________.zip