أساسيات VBA إكسل : كيفية استخدام الماكرو Macro في الاكسل

 

كيفية استخدام الماكرو Macro في الاكسل | شرح اساسيات الماكرو 

في هذه التدوينة سنتناول كيفية البدأ في استخدام الماكرو في الاكسيل, بفضل مسجل الماكرو  سنستطيع القيام بمهام معينة بسهولة و بدون اضاعة الوقت.

البدأ باستخدام الماكرو:

أولا سنبدأ بمثال سهل، سنقوم بالعمليات التالية:

• مسح محتوى العمودين A و C
• نقل محتويات العمود B إلى العمود A
• نقل محتويات العمود D إلى العمود C.

للقيام بذلك ، ننقر فوق سجل الماكرو   كما هو موضح في الصورة أدناه :

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

قام الاكسيل بتسجيل العمليات الخاصة بك وترجمتها إلى رمز VBA 

 رمزVBA

من خلال أدوات الترميز التي تمت إضافتها إلى محرر Visual Basic (VBA، يمكنك إنشاء Visual Basic أفضل لوحدات الماكرو للتطبيقات بنسبة تصل إلى 50٪. مجموعة من 20 منشئي الشفرات المتخصصة تدعم الإنشاء السريع للكود الأكثر استخداماً. إن استخدام المنشئات يقلل من حجم الكتابة، ويجعل الكود أكثر تناسقاً وإكمالاً ويقلل من الأخطاء. استخدمه مع تطبيقات Access و Excel و Word وتطبيقات دعم VBA الأخرى. يتضمن رمز المستكشف والبحث عن الكلمات الرئيسية.

لرؤية الماكرو الخاص بك ، افتح المحرر او اضغط على تعديل من خلال فتح الماكرو (Alt + F11)  :

 

هذا الرمز يتوافق مع العمليات الخاصة بك التي قمت بتسجيلها.

 

سنتوقف لبضع لحظات على الكود الذي تم إنشاؤه:

Sub Macro1() ' ' Macro1 Macro ' ' Columns("A:A").Select Selection.ClearContents Columns("C:C").Select Selection.ClearContents Columns("B:B").Select Selection.Cut Destination:=Columns("A:A") Columns("D:D").Select Selection.Cut Destination:=Columns("C:C") Columns("C:C").Select End Sub

Sub و End Sub يقومتن بتحديد بداية ونهاية الماكرو ، ماكرو 1 يتوافق مع اسم هذا الماكرو:

Sub Macro1() End Sub

سنقوم الآن بتعديل اسم هذا الماكرو وإعطائه اسمًا أكثر وضوحًا. للقيام بذلك ، ببساطة نقوم بتغيير ماكرو 1 بواسطة manipulationsDesColonnes يجب ألا يحتوي الاسم على مسافات:

Sub manipulationsDesColonnes()

النص باللون الأخضر (النص المسبوق بعلامة اقتباس أحادية) هو تعليق ، ولا يؤخذ في الاعتبار عند تنفيذ الكود:

' ' Macro1 Macro ' '

تساعد التعليقات عندما يكون لديك الكثير من التعليمات البرمجية أو لا تنفذ سطورًا معينة من التعليمات البرمجية دون حذفها.

 Sub manipulationsDesColonnes()

'Mon premier commentaire ! Columns("A:A").Select Selection.ClearContents Columns("C:C").Select Selection.ClearContents Columns("B:B").Select Selection.Cut Destination:=Columns("A:A") Columns("D:D").Select Selection.Cut Destination:=Columns("C:C") Columns("C:C").Select End Sub

رسم زر في الاكسيل 

الآن نريد تشغيل هذا الماكرو بالضغط على زر.

أدخل زر بالنقر فوق إدراج  زر :

ارسم الزر الخاص بك ثم حدد الماكرو الخاص بك:

 

عند النقر فوق الزر ، سيتم تنفيذ الماكرو: