كيفية انشاء دالة بــ VBA واستعمالها في Excel

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم
والصلاة السلام على أشرف المرسلين سيدنا محمد وعلى آله وصحبه أجمعين
أمـــا بعد :
السلام عليكم ورحمة الله تعالى بركاته

كيفية انشاء دالة بــ VBA واستعمالها في Excel

Microsoft Excel 2007 Arabic
انشاء مثال بسيط باستعمال
Visual Basic Application

قتح اكسال Excel وانقر فوق زر Microsoft Office ، ثم انقر فوق خيارات Excel.
في الفئة شائع، وضمن أفضل خيارات لاستخدام Excel، حدد خانة الاختيار إظهار
علامة التبويب المطور في الشريط، ثم انقر فوق موافق.
حدد علامة التبويب المطور وفي المجموعة تعليمات برمجية، انقر فوق
Visual Basic
انقر على القائمة Insert من القائمة انقر على Module الوحدة
اكتب كود الدالة تالي في Module

Function jamaa(a As Integer, b As Integer) As Integer
jamaa = a + b
End Function

حفظ المصنف بهذا الامتداد (Book1.xlsm) لكي يتم تمكين وحدات الماكرو فيه.
أو نقر فوق زر Microsoft Office ، ثم انقر فوق حفظ باسم (Save as) من القائمة حفظ باسم انقر فوق تنسيقات أخرى
داخل مربع الحوار اتجه الى حفظ بنوع (Save type) من القائمة المنسدلة حدد (Excel Macro WorkBook(*.xlsm))
حفظ المصنف بأي اسم تختارة وفي أي مكان تريد.
حدد علامة التبويب المطور وفي المجموعة تعليمات برمجية، انقر فوق رمز المثلث الاصفر امان الماكرو
وعند فتح نافذة حدد اعدادات الماكرو وفي اعدادات الماكرو اختار تمكين كافة وحدات الماكرو
وضمن اعدادات وحدات الماكرو الخاصة بالمطورين اشر على الثقة في الوصول الى طراز كائن مشروع VBA
ثم انقر فوق موافق.

اذا لم تجد الدالة التي أن شأتها في قائمة الدوال اغلق المستند ثم اعد فتحه مرة اخرى
اكتب في الخلية أ1 رقم 120 وفي الخلية بي1 رقم 80 وفي الخلية سي1 =jamaa(A1;B1) ثم اضغط مفتاح الادخال.

عند الانتهاء من العمل بمستندك فـــقم بتعطيل كافة وحدات الماكرو
اذا كنت لم تثق في بعض المستندات التي قد تفتحها أو يفتحها آخرين يستعملون جهازك فعليك القيام بما يلي
حدد علامة التبويب المطور وفي المجموعة تعليمات برمجية، انقر فوق رمز المثلث الاصفر امان الماكرو
وعند فتح نافذة حدد اعدادات الماكرو وفي اعدادات الماكرو اختار تعطيل كافة وحدات الماكرو مع الاعلام
وفي القالب تكون معطلة