أكاديمية الصقر للتدريب
موضوع بعنوان :الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
الكاتب :عبدالجيد


الدرس الرابع من سلسة دروس vba اكسيل
بعنوان

إضافة أكواد الـ VBA في ملف الإكسل

Add+VBA+Code+2+your+workbook+00

 

إظهار القائمة Developer [ نسختي 2007 و 2010 ]

إذا كانت القوائم الظاهرة لديك لا تشتمل على القائمة Developer فإنك بحاجة لتفعيل أمر إظهار القائمة لأن الوضع الإفتراضي أنها تكون مخفية، ولإظهارها لابد من الوصول لإعدادت البرنامج (الإختصار Alt+F+I)

بعد تفعيل القائمة Developer ستجد أنه أصبح لديك قائمة جديدة كالتالي

Add+VBA+Code+2+your+workbook+01

الإنتقال إلى محرر الأكواد Visual Basic Editor

بعد إظهار القائمة Developer يمكننا الأن الإنتقال لمحرر الأكواد Visual Basic Editor ويختصر في VBE وذلك من خلال الأمر Visual Basic في Developer » Code » Visual Basic أو من خلال إستخدام (الإختصار ALT+F11)

في حالة إستخدامك لنسخة 2003 يمكنك الوصول لل VBE من خلال القائمة Tools » Macro » Visual Basic Editor

بذلك سننتقل لمحرر الأكواد كما في الشكل التالي

Add+VBA+Code+2+your+workbook+02

لا تقلق من هذه الواجهة الجديدة فبإذن الله سيتم إعداد موضوع خاص عن عناصر واجهة ال Visual basic Editor

إضافة الكود و إستخدامه

الأن وصلنا لمحرر الأكواد ولم يتبق لنا إلا إضافة الكود الذي لدينا ومن ثم تشغيله، ولإضافة الكود لابد من التعرف على المواضع التي يمكن إضافة الكود بها

Add+VBA+Code+2+your+workbook+03

لإضافة الكود في أحد المواضع (الكائنات Objects) السابقة نقوم بالنقر المزدوج Double Click عليها ليظهر لنا الموضع الذي سندرج الكود به وهو النافذة Code

لاحظ أن الوضع الإفتراضي للملف في بيئة VBE يشتمل على كائن لكل شيت في الملف Sheet1 , Sheet2 بالإضافة لكائن خاص بالملف ككل وهو ThisWorkbook لكننا هنا لن نُضيف الكود في هذه الكائنات بل سنقوم بإضافتها في كائن مستقل يُسمى بالوحدة النمطية Module.

لإضافة وحدة نمطية Moduleجديدة ننتقل للقائمة Insert ونختار Module بذلك سيتم إضافة Module جديد في الملف الحالي

الأن بالنقرالمزدوج Double Click على الوحدة النمطية الجديدة سيتم تفعيل نافذة الكود Code وبها ندرج الكود المراد إستعماله

Sub UnhideAll()
‘ Unhide all sheets at once
Dim WS As Worksheet
For Each WS In Worksheets
WS.Visible = True
Next
End Sub

الكود السابق يقوم بإظهار جميع الشيتات المخفية Unhide مرة واحدة.

الأن نعود مرة اخرى للإكسل بواسطة الإختصار (alt+q)

لتنفيذ الكود نذهب لمربع الحوار Macros من خلال الضغط على (الإختصار Alt+F8) ثم نقوم بتحديد الكود الذي نريد تشغيله ثم نضعط على Run.

الأن نقوم بحفظ الملف بالإمتداد المناسب الذي يمكننا من حفظ الكود في الملف

والى درس جديد ان شاء الله
كان معكم
م/عبدالجيد محمد
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب