تعد منصة برمجة VBA^{(VBA programming)} التي تعمل في جميع منتجات Microsoft Office تقريبًا واحدة من أقوى الأدوات التي يمكن لأي شخص استخدامها لتحسين استخدام هذه المنتجات.

سيوضح لك دليل VBA للمبتدئين كيفية إضافة قائمة Developer إلى تطبيق Office الخاص بك ، وكيفية الدخول إلى نافذة محرر VBA ، وكيف تعمل عبارات ^(VBA)VBA والحلقات الأساسية بحيث يمكنك البدء في استخدام VBA في Excel و Word و Powerpoint و Outlook و OneNote .

يستخدم دليل VBA هذا أحدث إصدار من منتجات Microsoft Office . إذا كان لديك إصدار سابق ، فقد ترى بعض الاختلافات الطفيفة عن لقطات الشاشة.

كيفية تمكين واستخدام محرر VBA^{(How To Enable & Use The VBA Editor)}

في أي من منتجات Office المستخدمة في هذا الدليل ، قد تلاحظ أنه ليس لديك قائمة Developer المشار إليها . قائمة المطور متاحة فقط في Excel و Word و Outlook و Powerpoint . لا يقدم OneNote أداة لتحرير ^(OneNote)تعليمات VBA^(VBA) البرمجية من داخل التطبيق ، ولكن لا يزال بإمكانك الرجوع إلى OneNote API للتفاعل مع OneNote من برامج Office الأخرى . 

ستتعرف على كيفية القيام بذلك في دليل Advanced VBA القادم الخاص بنا .

• لتمكين قائمة Developer في أي منتج مكتبي ، حدد قائمة File وحدد Options من قائمة التنقل اليسرى. 
• سترى قائمة الخيارات^(Options) المنبثقة. حدد تخصيص الشريط^{(Customize Ribbon)} من قائمة التنقل اليسرى.

تتضمن القائمة اليمنى جميع القوائم وأوامر القوائم المتوفرة في تطبيق Office هذا . القائمة الموجودة على اليمين هي تلك المتوفرة حاليًا أو المفعلة.

• يجب أن ترى Developer في القائمة الموجودة على اليسار ، ولكن لن يتم تنشيطه. ما عليك سوى^(Just) تحديد مربع الاختيار لتنشيط قائمة Developer .

• إذا كنت لا ترى المطور^(Developer) متاحًا على اليمين ، فقم بتغيير أوامر اختيار^{(Choose commands)} اليسار من القائمة المنسدلة إلى جميع الأوامر^{(All Commands)} . ابحث عن Developer من القائمة وحدد Add>> في الوسط لإضافة تلك القائمة إلى الشريط^(Ribbon) .
• حدد " موافق^(OK) " عند الانتهاء.
• بمجرد تنشيط قائمة Developer ، يمكنك العودة إلى نافذة التطبيق الرئيسية وتحديد Developer من القائمة العلوية. 
• ثم حدد عرض الرمز^{(View Code)} من مجموعة عناصر التحكم^(Controls) في الشريط لفتح نافذة محرر VBA .

• سيؤدي هذا إلى فتح نافذة محرر VBA حيث يمكنك كتابة الرمز الذي ستتعلمه في الأقسام القليلة التالية.

• حاول إضافة قائمة Developer إلى عدد قليل من تطبيقات Office التي تستخدمها كل يوم. بمجرد أن تشعر بالراحة عند فتح نافذة محرر VBA ، تابع إلى القسم التالي من هذا الدليل.

نصائح عامة حول برمجة VBA للمبتدئين^{(General VBA Programming Tips for Beginners)}

ستلاحظ عند فتح محرر VBA ، أن خيارات التنقل في اللوحة اليمنى تبدو مختلفة من تطبيق Office إلى آخر.

هذا لأن الكائنات المتاحة حيث يمكنك وضع التعليمات البرمجية لـ VBA تعتمد على الكائنات الموجودة في التطبيق. على سبيل المثال ، في Excel ، يمكنك إضافة التعليمات البرمجية لـ VBA إلى كائنات المصنف أو الورقة. في Word ، يمكنك إضافة رمز VBA إلى المستندات. ^(VBA)في Powerpoint ، فقط للوحدات النمطية.

لذا ، لا تتفاجأ بالقوائم المختلفة. إن بنية وصياغة التعليمات البرمجية لـ VBA هي نفسها عبر جميع التطبيقات. ^(VBA)الاختلاف الوحيد هو الكائنات التي يمكنك الرجوع إليها والإجراءات التي يمكنك اتخاذها على هذه الكائنات من خلال التعليمات البرمجية لـ VBA .

قبل أن نغوص في الكائنات والإجراءات المختلفة التي يمكنك القيام بها عبر كود VBA ، دعنا أولاً نلقي نظرة على بنية VBA الأكثر شيوعًا وبناء الجملة التي يمكنك استخدامها عند كتابة التعليمات البرمجية لـ VBA .

أين أضع كود فبا^{(Where To Put VBA Code)}

عندما تكون في محرر VBA ، تحتاج إلى استخدام مربعي القائمة المنسدلة أعلى نافذة التحرير لاختيار الكائن الذي تريد إرفاق الكود به ، والوقت الذي تريد تشغيل الكود.

على سبيل المثال ، في Excel ، إذا اخترت Worksheet and Activate ، فسيتم تشغيل الكود عند فتح ورقة العمل. 

تتضمن إجراءات ورقة العمل الأخرى التي يمكنك استخدامها لتشغيل التعليمات البرمجية لـ VBA عندما تتغير ورقة العمل ، وعندما تكون مغلقة (غير نشطة) ، وعندما يتم تشغيل حساب ورقة العمل ، والمزيد.

عند إضافة رمز VBA في المحرر ، تأكد دائمًا من وضع رمز VBA الخاص بك على الكائن واستخدام الإجراء الصحيح الذي تريد استخدامه لتشغيل هذا الرمز.

بيانات VBA IF^{(VBA IF Statements)}

تعمل جملة IF في VBA تمامًا كما تعمل في أي لغة برمجة أخرى.

ينظر الجزء الأول من عبارة IF إلى ما إذا كان الشرط أو مجموعة الشروط صحيحة. يمكن ضم هذه الشروط بواسطة عامل التشغيل AND أو OR لربطها معًا.

قد يكون أحد الأمثلة هو التحقق مما إذا كان التقدير في جدول بيانات أعلى أو أدنى من تقدير "النجاح" ، وتعيين حالة النجاح أو الفشل لخلية أخرى.

If Cells(2, 2) > 75 Then Cells(2, 3) = “Pass” Else Cells(2, 3) = “Fail”

إذا كنت لا تريد العبارة بأكملها في سطر واحد ، فيمكنك تقسيمها إلى عدة أسطر عن طريق إضافة رمز "_" في نهاية السطور.

If Cells(2, 2) > 75 Then _
Cells(2, 3) = “Pass”  Else _
Cells(2, 3) = “Fail”

يمكن أن يؤدي استخدام هذه التقنية في كثير من الأحيان إلى تسهيل قراءة التعليمات البرمجية وتصحيحها.

VBA للحلقات التالية^{(VBA For Next Loops)}

عبارات IF رائعة للمقارنات الفردية ، مثل المثال أعلاه للنظر في خلية واحدة. ولكن ماذا لو كنت تريد إجراء تكرار عبر نطاق كامل من الخلايا وتنفيذ نفس عبارة IF على كل منها؟

في هذه الحالة ، ستحتاج إلى حلقة FOR . 

للقيام بذلك ، ستحتاج إلى استخدام طول النطاق ، والحلقة عبر هذا الطول بعدد الصفوف التي تحتوي على بيانات.

للقيام بذلك ، تحتاج إلى تحديد متغيرات النطاق والخلية ، والتكرار خلالها. ستحتاج أيضًا إلى تحديد عداد حتى تتمكن من إخراج النتائج إلى الصف المناسب. لذلك سيكون رمز VBA الخاص بك يحتوي على هذا السطر أولاً.

خافت rng كنطاق ، خلية بصف نطاق ^{(Dim rng As Range, cell As Range)}
خافت عداد كعدد صحيح^{(Dim rowCounter as Integer)}

حدد حجم النطاق على النحو التالي. 

Set rng = Range(“B2:B7”)
rowCounter = 2

أخيرًا ، يمكنك إنشاء حلقة FOR الخاصة بك للتنقل عبر كل خلية في هذا النطاق وإجراء المقارنة.

For Each cell In rng
   If cell.Value > 75 Then _
   Cells(rowCounter, 3) = "Pass" Else _
   Cells(rowCounter, 3) = "Fail"

   rowCounter = rowCounter + 1

Next cell

بمجرد تشغيل برنامج VBA النصي^{(VBA script)} ، سترى النتائج في جدول البيانات الفعلي.

VBA أثناء التكرارات^{(VBA While Loops)}

تتكرر حلقة while Loop أيضًا عبر سلسلة من العبارات ، تمامًا مثل حلقة FOR ، لكن شرط استمرار الحلقة يظل شرطًا صحيحًا.^(FOR)

على سبيل المثال ، يمكنك كتابة نفس حلقة FOR أعلاه ، مثل حلقة WHILE ، ببساطة باستخدام متغير rowCounter على النحو التالي.

While rowCounter < rng.Count + 2
   If Cells(rowCounter, 2) > 75 Then _
   Cells(rowCounter, 3) = "Pass" Else _
   Cells(rowCounter, 3) = "Fail"
   rowCounter = rowCounter + 1
Wend

ملاحظة: rng.Count + 2 حد الإنهاء لأن عداد الصف يبدأ عند 2 ويجب أن ينتهي في الصف 7 حيث تنتهي البيانات. ومع ذلك ، فإن عدد النطاق (B2: B7) هو 6 فقط ، وستنتهي الحلقة while فقط عندما يصبح العداد أكبر من العداد - لذلك يجب أن تكون قيمة الصف الأخير للعداد 8 (أو rng.Count + 2) .^(GREATER)

يمكنك أيضًا إعداد حلقة while كما يلي:

While rowCounter <= rng.Count + 1

يمكنك فقط زيادة عدد النطاق (6) في 1 ، لأنه بمجرد وصول متغير rowCounter إلى نهاية البيانات (الصف 7) ، يمكن أن تنتهي الحلقة.

VBA تفعل بينما تفعل حتى الحلقات^{(VBA Do While and Do Until Loops)}

الحلقات Do while and Do until متطابقة تقريبًا مع حلقات while ، لكنها تعمل بشكل مختلف قليلاً.

• تتحقق حلقة while Loop^{(While Loop)} مما إذا كان الشرط صحيحًا في بداية الحلقة.
• يتحقق Do-while Loop^{(Do-While Loop)} مما إذا كان الشرط صحيحًا بعد تنفيذ العبارات في الحلقة.
• يتحقق Do-until Loop^{(Do-Until Loop)} مما إذا كان الشرط لا يزال خاطئًا بعد تنفيذ الحلقة.

في هذه الحالة ، ستعيد كتابة حلقة while أعلاه على النحو التالي ، كحلقة Do-while.

Do
   If Cells(rowCounter, 2) > 75 Then _
   Cells(rowCounter, 3) = "Pass" Else _
   Cells(rowCounter, 3) = "Fail"
   
   rowCounter = rowCounter + 1
Loop While rowCounter < rng.Count + 2

في هذه الحالة ، لا يتغير المنطق كثيرًا ، ولكن إذا كنت تريد التأكد من إجراء مقارنة المنطق بعد تشغيل جميع العبارات (السماح لهم جميعًا بالتشغيل بغض النظر عن مرة واحدة على الأقل) ، فحينئذٍ أو فعل-حتى حلقة هي الخيار الصحيح.

VBA حدد بيانات الحالة^{(VBA Select Case Statements)}

النوع الأخير من البيان المنطقي الذي ستحتاج إلى فهمه لبدء هيكلة كود VBA الخاص بك هو عبارات ^(VBA)Select Case .

بالنظر إلى المثال أعلاه ، لنفترض أنك تريد أن يكون لديك طريقة تقدير لا تنجح فقط. بدلاً من ذلك ، تريد تعيين درجة بالحرف من A إلى F.

يمكنك القيام بذلك باستخدام عبارة Select Case التالية :

For Each cell In rng
   
   Select Case cell

   Case 95 To 100
      Cells(rowCounter, 3) = "A"
   Case 85 To 94
      Cells(rowCounter, 3) = "B"
   Case 75 To 84
      Cells(rowCounter, 3) = "C"
   Case 65 To 74
      Cells(rowCounter, 3) = "D"
   Case 0 To 64
      Cells(rowCounter, 3) = "F"
   End Select

   rowCounter = rowCounter + 1

Next cell

يبدو جدول البيانات الناتج بعد تشغيل برنامج VBA النصي مثل الجدول أدناه.

أنت الآن تعرف كل ما تحتاج إلى معرفته لبدء استخدام VBA في تطبيقات Microsoft Office .

The Best VBA Guide (For Beginners) You’ll Ever Need

The VBA programming platform that runs throughout nearly all Microsoft Office products is one of the most powerful tools anyone can use to enhance their use of those products.

This VBA guide for beginners will show you how to add the Developer menu to your Office application, how to enter the VBA editor window, and how basic VBA statements and loops work so that you can get started using VBA in Excel, Word, Powerpoint, Outlook, and OneNote.

This VBA guide uses the latest version of Microsoft Office products. If you have an earlier version you may see some slight differences from the screenshots.

How To Enable & Use The VBA Editor

In any of the Office products used in this guide, you may notice that you don’t have the referenced Developer menu. The developer menu is only available in Excel, Word, Outlook, and Powerpoint. OneNote doesn’t offer a tool to edit VBA code from inside the application, but you can still reference the OneNote API to interact with OneNote from other Office programs. 

You’ll learn how to do this in our upcoming Advanced VBA guide.

• To enable the Developer menu in any office product, select the File menu, and select Options from the left navigation menu. 
• You’ll see an Options menu pop-up. Select Customize Ribbon from the left navigation menu.

The left list includes all available menus and menu commands available in that Office application. The list on the right are those that are currently available or activated.

• You should see Developer in the list on the right, but it will not be activated. Just select the checkbox to activate the Developer menu.

• If you don’t see Developer available on the right, then change the left Choose commands from dropdown to All Commands. Find Developer from the list and select Add>> in the center to add that menu to the Ribbon.
• Select OK when you’re done.
• Once the Developer menu is active, you can go back to your main application window and select Developer from the top menu. 
• Then select View Code from the Controls group in the ribbon to open the VBA editor window.

• This will open the VBA editor window where you can type the code you’ll learn in the next few sections.

• Try adding the Developer menu to a few of the Office applications you use every day. Once you’re comfortable opening the VBA editor window, continue on to the next section of this guide.

General VBA Programming Tips for Beginners

You’ll notice when the VBA editor opens, the navigation options in the left panel look different from one Office application to the other.

This is because the available objects where you can place VBA code depend on what objects there are in the application. For example, in Excel, you can add VBA code to workbook or sheet objects. In Word, you can add VBA code to documents. In Powerpoint, only to modules.

So, don’t be surprised by the different menus. The structure and syntax of the VBA code is the same across all applications. The only difference are the objects you can reference and the actions you can take on those objects through the VBA code.

Before we dive into the different objects and actions you can take on them via VBA code, let’s first look at the most common VBA structure and syntax you can use when you write VBA code.

Where To Put VBA Code

When you’re in the VBA editor, you need to use the two dropdown boxes at the top of the editing window to choose which object you want to attach the code to, and when you want the code to run.

For example, in Excel, if you choose Worksheet and Activate, the code will run whenever the worksheet is opened. 

Other worksheet actions you can use to trigger your VBA code include when the worksheet changes, when it’s closed (deactivated), when the worksheet calculation is run, and more.

When you add VBA code in the editor, always make sure to place your VBA code on the object and using the correct action that you want to use to trigger that code.

VBA IF Statements

An IF statement works in VBA just like it works in any other programming language.

The first part of the IF statement looks at whether a condition or set of conditions is true. These conditions can be joined by an AND or OR operator to link them together.

One example would be to check if a grade in a spreadsheet is above or below a “passing” grade, and assigning the pass or fail status to another cell.

If Cells(2, 2) > 75 Then Cells(2, 3) = “Pass” Else Cells(2, 3) = “Fail”

If you don’t want the entire statement on a single line, you can split it into multiple lines by adding a “_” symbol at the end of the lines.

If Cells(2, 2) > 75 Then _
Cells(2, 3) = “Pass”  Else _
Cells(2, 3) = “Fail”

Using this technique can often make code much easier to read and debug.

VBA For Next Loops

IF statements are great for single comparisons, like the example above of looking at a single cell. But what if you want to loop through an entire range of cells and do the same IF statement on each?

In this case you’d need a FOR loop. 

To do this, you’d need to use the length of a range, and loop through that length by the number of rows that contain data.

To do this, you need to define the range and cell variables, and loop through them. You’ll also need to define a counter so you can output the results to the appropriate row. So your VBA code would first have this line.

Dim rng As Range, cell As Range
Dim rowCounter as Integer

Define the range size as follows. 

Set rng = Range(“B2:B7”)
rowCounter = 2

Finally, you can create your FOR loop to step through every cell in that range and do the comparison.

For Each cell In rng
   If cell.Value > 75 Then _
   Cells(rowCounter, 3) = "Pass" Else _
   Cells(rowCounter, 3) = "Fail"

   rowCounter = rowCounter + 1

Next cell

Once this VBA script is run, you see the results in the actual spreadsheet.

VBA While Loops

A While Loop also loops through a series of statements, just like the FOR loop, but the condition of the looping to continue is a condition remaining true.

For example, you could write the same FOR loop above, as a WHILE loop, by simply using the rowCounter variable as follows.

While rowCounter < rng.Count + 2
   If Cells(rowCounter, 2) > 75 Then _
   Cells(rowCounter, 3) = "Pass" Else _
   Cells(rowCounter, 3) = "Fail"
   rowCounter = rowCounter + 1
Wend

Note: the rng.Count + 2 terminating limit is required because the row counter starts at 2 and needs to end on row 7 where the data ends. However, the count of the range (B2:B7) is only 6, and the While loop will only end once the counter is GREATER than the counter – so the last rowCounter value needs to be 8 (or rng.Count + 2).

You could also set up the While loop as follows:

While rowCounter <= rng.Count + 1

You can only increment the range count (6) by 1, because once the rowCounter variable reaches the end of the data (row 7), the loop can finish.

VBA Do While and Do Until Loops

Do While and Do Until loops are nearly identical to While loops, but work slightly different.

• The While Loop checks whether a condition is true at the beginning of the loop.
• The Do-While Loop checks whether a condition is true after executing the statements in the loop.
• The Do-Until Loop checks whether a condition is still false after executing the loop.

In this case you would rewrite the While loop above as follows, as a Do-While loop.

Do
   If Cells(rowCounter, 2) > 75 Then _
   Cells(rowCounter, 3) = "Pass" Else _
   Cells(rowCounter, 3) = "Fail"
   
   rowCounter = rowCounter + 1
Loop While rowCounter < rng.Count + 2

In this case the logic doesn’t change very much, but if you want to make sure the logic comparison takes place after all of the statements are run (allowing them all to run no matter what at least once), then a Do-While or Do-Until loop is the right option.

VBA Select Case Statements

The final type of logical statement you’ll need to understand to start structuring your VBA code are Select Case statements.

Given the example above, let’s say you want to have a grading method that isn’t just pass fail. Instead, you want to assign a letter grade from A through F.

You could do this with the following Select Case statement:

For Each cell In rng
   
   Select Case cell

   Case 95 To 100
      Cells(rowCounter, 3) = "A"
   Case 85 To 94
      Cells(rowCounter, 3) = "B"
   Case 75 To 84
      Cells(rowCounter, 3) = "C"
   Case 65 To 74
      Cells(rowCounter, 3) = "D"
   Case 0 To 64
      Cells(rowCounter, 3) = "F"
   End Select

   rowCounter = rowCounter + 1

Next cell

The resulting spreadsheet after this VBA script runs looks like the one below.

Now you know everything you need to know to start using VBA in your Microsoft Office applications.

Related posts

• دليل VBA متقدم لبرنامج MS Excel

• أفضل 13 اختصارًا للوحة المفاتيح لـ Microsoft Teams

• كيفية إنشاء VBA ماكرو أو برنامج نصي في Excel

• ما هو Microsoft Publisher؟ دليل المبتدئين

• كيفية إصلاح إشارة مرجعية خطأ غير معرف في Word

• كيفية تغيير الخط الافتراضي في تطبيقات Office

• احصل على Outlook Email Stats باستخدام StatView

• كيفية إنشاء وتشغيل ماكرو في Word

• كيفية إنشاء مستندات PDF في Microsoft Office

• قم بإدراج رمز نقطي في منتصف جملة في Word

• كيفية حذف الأسطر الفارغة في Excel

• كيفية تغيير حجم الشريحة في PowerPoint من أجل عروض تقديمية أفضل

• لن يتم فتح Microsoft Outlook؟ 10 طرق لإصلاح

• إصلاح خطأ عدم تطابق علامة نهاية العلامة عند فتح ملفات DOCX

• كيفية إضافة أرقام الشرائح إلى عرض تقديمي في PowerPoint

• كيفية استخدام تحليل ماذا لو في Excel

• كيفية تصدير رسائل البريد الإلكتروني الخاصة بك من Microsoft Outlook إلى CSV أو PST

• 7 بدائل لبرنامج PowerPoint يمكنك استخدامها عبر الإنترنت

• كيفية استخدام Flash Fill في Excel

• كيفية إصلاح أخطاء # N / A في صيغ Excel مثل VLOOKUP