كيفية كتابة وحدات الماكرو. VBA Excel: نماذج من البرامج. وحدات الماكرو في Excel. ماذا يسجل الماكرو؟
تماما كما هو الحال في التطبيقات الأخرى مايكروسوفت أوفيس، هناك شيء مثير للاهتمام مثل الماكرو. باختصار، الماكرو عبارة عن سلسلة من الإجراءات قابلة للبرمجة. يمكنك إنشائه بطريقتين:
1. استخدام عنصر القائمة المقابل؛
2. يدويا.
الطريقة الأولى بسيطة للغاية ولا تتطلب مهارات برمجة خاصة. ولكن قبل البدء في إنشاء ماكرو، تحتاج إلى تعديل إعدادات الأمان الخاصة بك. انتقل إلى ملف/خيارات/مركز التوثيق/إعدادات مركز التوثيق/إعدادات الماكرو. هنا تحتاج إلى الاختيار تمكين كافة وحدات الماكرو.
الآن أصبح كل شيء جاهزًا، وننتقل مباشرةً إلى إنشاء الماكرو. افتح علامة التبويب مطورو اضغط .
ستظهر نافذة تحتاج فيها إلى تحديد اسم الماكرو وتعيين مفتاح للتشغيل السريع وكذلك تحديد الكتاب الذي تريد حفظ الماكرو فيه.
بعد الضغط على الزر نعميبدأ تسجيل الماكرو. سيتم تسجيل كل ما تفعله. على سبيل المثال، يمكنك إنشاء جدول وتحريره - قم بتعيين العدد المطلوب من الصفوف والأعمدة وعرضها. ثم، لإيقاف التسجيل، تحتاج إلى الضغط على الزر المناسب.
الآن، لتشغيل الماكرو الخاص بنا، نحتاج إلى الانتقال إلى علامة التبويب مطوريضعط وحدات الماكرو.
في النافذة التي تظهر، ابحث عن الماكرو الذي أنشأناه وانقر عليه ينفذ. يمكنك أيضًا استخدام مجموعة المفاتيح التي أدخلناها عند إنشاء الماكرو.
لا توجد مزايا كثيرة لهذه الطريقة في إنشاء وحدات الماكرو. في معظم الحالات، يمكن استخدام هذا الماكرو فقط في المصنف الحالي وفي موقف معين. يعد استخدام ماكرو مكتوبًا باستخدام لغة برمجة أكثر كفاءة البصرية الأساسية. ومع ذلك، فإن إنشاء مثل هذا الماكرو يتطلب مهارات معينة. يعتبر مثال لإنشاء ماكرو في VBA.
يمكن لوحدات الماكرو توسيع قدرات Excel بشكل كبير. إنها تعمل على أتمتة عمليات العمل وتتولى معظم الأعمال الروتينية للمستخدم. كل ما عليك فعله هو أن تتعلم كيفية استخدام وحدات الماكرو وسوف تزيد إنتاجيتك عشرة أضعاف!
لا تحتاج حتى إلى أن تكون مبرمجًا أو تعرف لغة برمجة VBA لإنشاء برامج الماكرو الخاصة بك باستخدام أداة تسجيل الماكرو.
تحتاج أولاً إلى تمكين لوحة المطور. للقيام بذلك، في قائمة "ملف"، افتح مجموعة الخيارات "خيارات". في نافذة "خيارات Excel" التي تظهر، افتح مجموعة "تخصيص الشريط". انتبه إلى العمود الأيمن من الإعدادات تحت نفس الاسم "تخصيص الشريط". فيه قم باختيار خيار "المطور" كما هو موضح في الشكل أدناه:
أصبح لدينا الآن إمكانية الوصول إلى علامة تبويب "المطور" الجديدة على الشريط بكل أدواتها لأتمتة العمل في Excel وإنشاء وحدات الماكرو.
استخدام VBA ووحدات الماكرو في Microsoft Excel
وحدات الماكرو هي تطبيقات داخلية تعتني بجميع الأعمال الروتينية، مما يجعل الحياة أسهل للمستخدم. يمكن لكل مستخدم إنشاء ماكرو دون معرفة لغات البرمجة. لهذا الغرض، يوجد مسجل ماكرو، يتم تشغيله باستخدام زر "تسجيل ماكرو".
في هذا الوضع، يسجل مسجل الماكرو جميع إجراءات المستخدم في Excel، ويترجم تلقائيًا تعليمات VBA البرمجية إلى لغة البرمجة. بعد اكتمال التسجيل، نتلقى برنامجًا جاهزًا يقوم بنفسه بتنفيذ الإجراءات التي قام بها المستخدم أثناء التسجيل.
كيفية تسجيل ماكرو جاهز في إكسيل؟ بسيط جدا:
باستخدام برامج الماكرو، يمكنك زيادة إنتاجية المستخدم عشرات المرات. ولكن لكي تستخدم تسجيل وحدات الماكرو المخصصة بنسبة 100%، يجب عليك اتباع قواعد بسيطة تؤثر بشكل كبير على جودتها وقت التسجيل وكفاءتها عند تنفيذها.
كيفية العمل مع وحدات الماكرو في Excel
5 نصائح بسيطة تساعدك على إنشاء وحدات ماكرو بدون برمجة. استخدم هذه النصائح البسيطة لإنشاء برامج ماكرو عالية الجودة تلقائيًا بسرعة وسهولة:
1 تصحيح الأسماء في وحدات الماكرو.
قم بتسمية وحدات الماكرو الخاصة بك بأسماء قصيرة ولكن ذات معنى. بمجرد أن تتقن ذلك، بمرور الوقت، سيتعين عليك إنشاء الكثير من وحدات الماكرو. عند تحديدها في مربع الحوار، يسهل العثور عليها باستخدام عناوين قصيرة وذات معنى. يمنحك VBA القدرة على تقديم وصف للاسم. تأكد من استخدامه.
يجب أن يبدأ اسم الماكرو بأحرف ولا يمكن أن يحتوي على مسافات أو رموز أو علامات ترقيم. بعد الحرف الأول، يمكنك استخدام المزيد من الأحرف أو الأرقام أو الشرطات السفلية، ولكن الحد الأقصى لطول الاسم هو 80 حرفًا.
2 استخدم عناوين الخلايا النسبية (وليست المطلقة).
العنوان المطلق للخلية هو الموقع الدقيق للمؤشر عند كتابة معلومات حول موقعه على عناوين الماكرو مع رابط ثابت لخلية معينة في وقت التسجيل. تحد العناوين المطلقة من إمكانيات الماكرو في حالة إضافة/حذف البيانات على ورقة Excel أو إذا أصبحت قائمة البيانات أكبر. لا تربط الأدوات النسبية المؤشر بعنوان خلية محدد.
افتراضيًا، يتم تمكين وضع Excel في الوضع المطلق، ولكن يمكنك تغيير ذلك عن طريق تمكين زر الارتباطات النسبية الموجود أسفل زر تسجيل ماكرو في شريط أدوات علامة تبويب المطور:
3 ابدأ التسجيل دائمًا باستخدام المؤشر الموجود في A1
يتم دائمًا العد المطلق للخلايا من موضع البداية (عنوان الخلية A1) - إلى عنوان المؤشر مع بياناتك. إذا قمت بحفظ الماكرو الخاص بك في مصنف ماكرو شخصي (يوصى بذلك)، فيمكنك استخدام برنامجك على أوراق أخرى تحتوي على بيانات مماثلة. بغض النظر عن مكان وضع المؤشر عند بدء تسجيل الماكرو! حتى لو كان موجودًا بالفعل في الخلية A1، فإن أول ماكرو يتم تسجيله بعد الضغط على المفاتيح يجب أن يكون Ctrl + Home.
مثال: تخيل أنك تصلك كل شهر عشرات الطاولات من جميع الفروع. أنت مطالب بتنظيم البيانات وحساب المقاييس لإنتاج تقرير شهري آخر. يمكنك تسجيل ماكرو لتنفيذ كافة هذه الوظائف، بما في ذلك فتح كافة الأوراق وضمها إلى جدول تحرير وسرد واحد.
4 تحرك دائمًا باستخدام مفاتيح الاتجاه أثناء تسجيل الماكرو
استخدم مفاتيح الأسهم للتحكم في المؤشر (Ctrl + Up، وما إلى ذلك). ضع المؤشر بحيث يمكنك إضافة البيانات أو تغييرها أو حذفها داخل الجدول حسب الحاجة.
يعد استخدام الماوس للتنقل أكثر صعوبة ولا يمكن الاعتماد عليه عند التسجيل. عندما يتعلق الأمر بوحدات الماكرو، فمن الأفضل استخدام الماوس فقط لإظهار القوائم.
5 إنشاء وحدات ماكرو لمهام صغيرة محددة
احتفظ بوحدات الماكرو الخاصة بك لمهام صغيرة ومحددة. كلما زاد عدد التعليمات البرمجية في الماكرو، كلما كان تشغيله أبطأ، خاصة إذا كان مطلوبًا تنفيذ العديد من الوظائف أو حساب العديد من الصيغ في جدول بيانات كبير.
إذا قمت بتشغيل كل عملية على حدة، فيمكنك عرض النتائج بسرعة للتحقق من دقة تنفيذها.
إذا كان من المستحيل تقسيم ماكرو طويل إلى تطبيقات قصيرة، ولكنك بحاجة إلى التحقق من وظائفه خطوة بخطوة ("تصحيح الأخطاء"). اضغط على المفتاح F8 في كل مرة تريد فيها الانتقال إلى الخطوة التالية في المهمة. تتوقف عملية تنفيذ البرنامج عندما ترى خطأ. يمكنك إصلاح الخطأ الذي يسهل العثور عليه باستخدام "التصحيح" أو كتابته بطريقة جديدة.
إذا لم تكن قويا في البرمجة، ولكن في نفس الوقت، تحتاج إلى تنفيذ بعضبالنسبة لمهمة تتجاوز الوظائف والأوامر القياسية لبرنامج MS Excel، يمكنك البحث عن حل على الإنترنت. من المرجح أن يأتي الحل في شكل كود VBA الذي تحتاج إلى نسخه ولصقه في المصنف الخاص بك، ثم بطريقة ما اجعل هذا الكود يعمل لصالحك، في هذه المقالة سأخبرك بكيفية القيام بذلك.
دعونا ننظر إلى مثالين:
1. ابحث عن الأمر واستخدمه
على سبيل المثال، نحتاج إلى أمر من شأنه إدراج الرقم "1" في الخلايا المحددة. نقوم بتشغيل محرك البحث، ونكتب عبارة البحث، ونحصل على النتائج، ونبدأ في التصفح، ونبحث عن الكود شيء من هذا القبيل:
Sub Insertion1() Dim q As Object On Error استئناف المجموعة التالية q = الخلايا لكل q في التحديد q = 1 التالي q End Sub
حدد هذا الرمز (بدون ترقيم الأسطر، بدءًا من الكلمة الفرعية) و اضغط السيطرة + C. انتقل إلى مصنف MS Excel الخاص بك واضغط على اختصار لوحة المفاتيح البديل+F11سيتم فتح نافذة محرر VBA:
في النافذة اليسرى "Project - VBA Project" نختار (انقر بالماوس) مصنفنا الذي نحتاج إلى إدراج الماكرو فيه، على سبيل المثال، "VBAProject (Book2)":
في عنصر القائمة "إدراج"، حدد "الوحدة النمطية":
في النافذة اليسرى "Project - VBA Project" يجب أن يكون لديك مجلد جديد "Modules" وفيه كائن جديد "Module1":
حرك المؤشر إلى حقل الإدخال "الكبير" الأيمن وانقر فوق السيطرة+V، يتم لصق الماكرو المنسوخ في الوحدة النمطية:
يمكن إدراج وحدات الماكرو في MS Excel في الأماكن التالية:
- في الوحدة، يقومون عادةً بإدخال رمز وحدات الماكرو، والذي سيتم تشغيله عندما يضغط المستخدم على زر (كما هو الحال، على سبيل المثال، في حالتنا) أو رمز الوظائف (الصيغ)؛
- في ورقة العمل، يتم عادةً إدراج رمز وحدات الماكرو، والذي يجب أن يتم تشغيله تلقائيًا اعتمادًا على إجراءات المستخدم أو التغييرات في البيانات في الورقة (تم تغيير البيانات، ويتم تنفيذ الماكرو)؛
- عادةً ما يتم إدراج رمز الماكرو في المصنف، والذي يجب تشغيله تلقائيًا اعتمادًا على الإجراءات التي يتم تنفيذها على المصنف (الملف). على سبيل المثال، ماكرو يتم تشغيله عند فتح مصنف أو إغلاقه، أو عند حفظه؛
- يمكن أن تكون وحدات الماكرو أيضًا جزءًا من نموذج المستخدم.
عادةً ما يحدد الشخص الذي يقوم بنشر التعليمات البرمجية المكان الذي يجب إدراجه فيه، في وحدة نمطية أو ورقة عمل أو مصنف.
لإدراج رمز في ورقة عمل، حدد الورقة المناسبة في النافذة اليسرى لمحرر VBA، وانقر عليها نقرًا مزدوجًا بزر الفأرة الأيسر، وحرك المؤشر إلى حقل الإدخال الأيمن والصق الرمز.
لإدراج رمز في كتاب، حدد "هذا الكتاب":
لنتمرن. الصق الكود المنشور أدناه في "الورقة1".
ورقة عمل فرعية خاصة_تغيير (هدف ByVal كنطاق) عند حدوث خطأ، انتقل إلى If Target = 2 ثم VBA.MsgBox ("Cell " & Target.Address & " = 2") End If a: Exit Sub End Sub
يعرض هذا الماكرو رسالة معلومات إذا قمت بإدخال "2" في أي خلية ورقة.
ارجع إلى المصنف، وانتقل إلى "الورقة 1" وأدخل الرقم "2" في الخلية "A1" وانقر فوق يدخل، وبعد ذلك يجب أن تشاهد الرسالة التالية:
إذا رأيت هذه الرسالة، فهذا يعني أنك فعلت كل شيء بشكل صحيح. إذا لم يكن الأمر كذلك، فقد قمت بإدخال الرمز في مكان ما في المكان الخطأ، حاول مرة أخرى.
عند لصق التعليمات البرمجية، عليك توخي الحذر عند لصقها. يمكن القيام بذلك من خلال النظر إلى ما هو مكتوب في عنوان نافذة محرر VBA:
2. ابحث عن الوظيفة واستخدمها
نجد على الإنترنت رمز VBA الخاص بوظيفة تحسب، على سبيل المثال، عدد الكلمات في الخلية:
الوظيفة العامة عدد الكلمات في الخلية (الخلية كنطاق) Dim q كمتغير Application.Volatile q = VBA.Split(Application.WorksheetFunction.Trim(Cell.Value)، " ") عدد الكلمات في الخلية = UBound(q) + 1 نهاية وظيفة
انسخ الرمز واضغط على مجموعة المفاتيح البديل+F11سيتم فتح محرر VBA:
أضف وحدة نمطية جديدة إلى مصنفك والصق الكود المنسوخ في هذه الوحدة:
أغلق محرر VBA وانتقل إلى المصنف الخاص بك. قم بإنشاء ورقة جديدة (اختياري) في خلية أ1أدخل النص "غسلت أمي الإطار". نذهب إلى الخلية التي نريد الحصول على النتيجة (عدد الكلمات)، في قائمة "الصيغ"، انقر فوق الزر "إدراج وظيفة":
في نافذة "إدراج وظيفة" التي تفتح، في حقل "الفئة"، حدد "محدد من قبل المستخدم"
في قائمة الوظائف المتاحة، حدد "عدد الكلمات في الخلية"، وانقر فوق "موافق":
أدخل الوسائط المطلوبة وانقر على "موافق":
نحصل على النتيجة:
مهم:
إذا لم تقم بحفظ المصنف الذي قمت بإدراج الماكرو فيه باعتباره "مصنفًا ممكّنًا لوحدات الماكرو"، فسيتم حذف كافة الوحدات النمطية التي تحتوي على وحدات ماكرو وسيتعين عليك القيام بكل هذا العمل مرة أخرى.
إذا رأيت علامات حمراء بدلاً من بعض النصوص عند إدراج ماكرو في وحدة نمطية. ???????? "
هذا يعني أن لديك مشكلة في الترميز، والتي تحدث عند نسخ النص السيريلي من بعض المتصفحات. للتغلب على هذه المشكلة، حاول لصق الكود المنسوخ في ورقة MS Excel فارغة كنص Unicode. للقيام بذلك، انتقل إلى مصنف MS Excel، وحدد أو أنشئ ورقة فارغة، وانتقل إلى الخلية "A1" واضغط على اختصارات لوحة المفاتيح السيطرة + البديل + V. يجب أن تظهر قائمة "لصق خاص"، حدد نص Unicode وانقر فوق "موافق".
يجب لصق الكود في ورقة العمل بدون علامات الاستفهام:
بعد ذلك، انسخ الرمز الملصق في الورقة مرة أخرى والصقه في الوحدة.
إذا لم تشاهد نافذة "Project - VBA Project" في محرر VBA، فانتقل إلى علامة تبويب القائمة "عرض" وحدد "Project Explorer" من القائمة أو اضغط على اختصار لوحة المفاتيح السيطرة + ر:
يعتقد الكثير من الناس أن وحدات الماكرو في Excel صعبة للغاية، ولكن هذا غير صحيح. ستجد في هذه المقالة بعض الأمثلة المثيرة للاهتمام والبسيطة لكيفية أتمتة مهامك اليومية في Excel. الماكرو هو برنامج Visual Basic مصمم لأتمتة المهام في Microsoft Office. في الأمثلة الخاصة بي، أستخدم Excel 2010، ولكن يمكنك بسهولة استخدام Excel 2007.
قم بإنشاء ماكرو باستخدام أمر "تسجيل ماكرو".
يمكن الوصول إلى الماكرو المسجل باستخدام الأمر عرض وحدات الماكرو(وحدات الماكرو) الموجودة في علامة التبويب منظر(عرض) في القائمة المنسدلة وحدات الماكرو(وحدات الماكرو). سوف يظهر صندوف حوار دقيق(ماكرو) حيث يمكنك تحديد ما تحتاجه. انقر نقراً مزدوجاً فوق اسم الماكرو لتنفيذ البرنامج.
بالإضافة إلى ذلك، يمكنك ربط ماكرو بزر. لهذا:
- على علامة التبويب ملف(ملف) انقر خيارات(الخيارات)> شريط أدوات الوصول السريع(شريط أدوات الوصول السريع).
- في الميدان اختر الأوامر من(اختر الأوامر من) حدد جميع الأوامر(جميع الفرق).
- ابحث عن فريق زر الخيارات(زر)، نحتاج إلى الذي ينتمي إلى القسم التحكم في النموذج(ضوابط النموذج). حدده وانقر فوق يضيف(يضيف). ثم اضغط نعملإغلاق خيارات Excel.
- حدد الأمر الذي أضفته للتو إلى شريط أدوات الوصول السريع وارسم الخطوط العريضة للزر في ورقة عمل Excel.
- تعيين ماكرو لكائن.
ملحوظة:إذا قمت بتمكين علامة التبويب مطور(المطور)، فيمكنك الوصول إلى عناصر التحكم في النموذج منه. للقيام بذلك، انتقل إلى علامة التبويب مطور(المطور) اضغط على الأيقونة إدراج(إدراج) وحدد العنصر المطلوب من القائمة المنسدلة.
لا أعرف كيفية عرض علامة التبويب مطور(مطور)؟ إكسل 2007: انقر على الزر مكتب > خيارات اكسل(خيارات إكسل) > شائع(أساسي) وحدد المربع المجاور للخيار إظهار علامة تبويب المطور في الشريط(أظهر علامة التبويب "المطور" على الشريط). إكسل 2010: انقر فوق علامة التبويب ملف(ملف) > خيارات(الخيارات)> تخصيص الشريط(تخصيص الشريط) وفي القائمة اليمنى قم بتمكين علامة التبويب مطور(مطور).
لحلقة
في المثال التالي سترى كيفية استخدام الحلقة ل. دورة ليسمح لنا بتكرار الحلقة بقيم مختلفة. دعونا نرى كيف يمكننا ملء الأرقام من 1 قبل 5 الخلايا أ1:أ5.
للقيام بذلك، في علامة التبويب مطور(المطور) انقر البصرية الأساسية. انقر نقرًا مزدوجًا على كائن من القائمة كائنات مايكروسوفت إكسل، حيث يجب حفظ الماكرو. أدخل هذا الرمز:
Sub Macro1 () لـ n = 1 إلى 5 خلايا (n، 1) = n التالي n End Sub
حفظ الملف. لتشغيل الماكرو، اذهب منظر > وحدات الماكرو > عرض وحدات الماكرو(عرض > وحدات الماكرو > وحدات الماكرو)، حدد اسم الماكرو المطلوب من القائمة وانقر يجري(يجري).
يعرض الكود التالي العبارة " مرحبا بالعالم"في نافذة رسالة Windows.
Sub MacroName() MsgBox("Hello World!") End Sub
في المثال التالي نقوم بإنشاء رسالة مع الاختيار نعم(نعم او لا(لا). إذا قمت بتحديد الخيار نعم(نعم)، فسيتم حذف قيمة الخلية.
Sub MacroName() Dim Answer As String Answer = MsgBox("هل أنت متأكد أنك تريد حذف قيم الخلية؟"، vbQuestion + vbYesNo، "حذف الخلية") إذا كانت الإجابة = vbYes ثم ActiveCell.ClearContents End If End Sub
دعونا نتحقق من هذا الرمز. حدد الخلية وقم بتشغيل الماكرو. ستظهر لك هذه الرسالة :
إذا ضغطت نعم(نعم)، سيتم حذف القيمة الموجودة في الخلية المحددة. و إذا لا(لا) – سيتم حفظ القيمة.
إذا التصميم
في Microsoft Excel، يمكنك أيضًا استخدام البناء لو. في هذا الكود، سنقوم بتلوين الخلايا حسب قيمتها. إذا كانت قيمة الخلية أكبر من 20 ، فسيتحول الخط إلى اللون الأحمر، وإلا فإنه سيتحول إلى اللون الأزرق.
Sub MacroName() Dim CellValue كعدد صحيح CellValue = ActiveCell.Value إذا كانت CellValue > 20 ثم باستخدام Selection.Font .Color = -16776961 ينتهي بـ Else مع Selection.Font .ThemeColor = xlThemeColorLight2 .TintAndShade = 0 ينتهي بـ End إذا End Sub
لاختبار هذا الرمز، حدد خلية بالقيمة أكثر من 20:
عند تشغيل الماكرو، سيتغير لون الخط إلى اللون الأحمر:
إذا تم استيفاء الشرط الثاني، فسيتحول الخط إلى اللون الأزرق:
تصميم القضية
يمكنك أيضًا استخدام البناء قضيةلربط تنفيذ الإجراء بظهور قيمة معينة في الخلية. يعرض المثال التالي رسالة يعتمد محتواها على العمر المحدد للشخص.
Sub MacroName() Dim CellValue As Integer CellValue = ActiveCell.Value حدد الحالة CellValue الحالة من 60 إلى 200 MsgBox "الشخص كبير في السن" الحالة من 30 إلى 59 MsgBox "الشخص بالغ" الحالة من 18 إلى 29 MsgBox الحالة "الشخص شاب" 0 إلى 17 MsgBox "الشخص طفل" حالة أخرى MsgBox "العمر غير معروف" End Select End Sub
لاختبار هذا المثال، يجب عليك تحديد خلية ذات قيمة وتشغيل الماكرو. إذا كانت قيمة الخلية المحددة، على سبيل المثال، هي 44 ، فتظهر هذه الرسالة.
وحدات الماكرو لا غنى عنها. يمكن تعريف الماكرو على أنه سلسلة من الأوامر (بالتسلسل)، والتي يمكن أن تكون عبارة عن نقرات أو ضغطات على المفاتيح أو حتى أسطر صغيرة من التعليمات البرمجية مع وظائف أكثر تقدمًا. تتم كتابة هذه التسلسلات إلى وحدة VBA وتنفيذها حسب الحاجة.
الميزة الرئيسية للماكرو هي توفير الوقت الذي يوفره، لأنه يقوم بأتمتة ما يجب القيام به يدويًا في عدة خطوات. مفيد جدًا عندما تحتاج إلى تنفيذ نفس مجموعة المهام عدة مرات.
يمكن إنشاء الماكرو بطريقتين مختلفتين:
- استخدام مسجل الماكرو:في هذا الإجراء، يقوم Excel بحفظ كل إجراء سيكون جزءًا من ماكرو، ثم يقوم كاتب الماكرو بتحويل تلك الإجراءات إلى أوامر Visual Basic for Applications (VBA).
- باستخدام فبا:إذا كنت تعرف القليل عن البرمجة أو حتى تعرف VBA، فيمكنك إنشاء وحدات الماكرو الخاصة بك بنفسك. للقيام بذلك، ما عليك سوى استخدام محرر VBA الموجود في أحدث الإصدارات من Microsoft Excel.
كما ذكرنا سابقًا، هناك العديد من الأشياء التي يمكنك القيام بها باستخدام وحدات الماكرو، ولكن بعضها يختلف عن البعض الآخر لأنها أكثر شيوعًا في العمل اليومي. تحقق من 10 وحدات ماكرو لمساعدتك في جداول البيانات الخاصة بك.
1) عرض الرسالة
ما عليك سوى لصق أمر MsgBox في الماكرو الخاص بك. كما في المثال التالي:
MsgBox "نص الرسالة"
يمكن إدراج هذا السطر من التعليمات البرمجية في أي ماكرو، وهو أمر مفيد للغاية في الحالات التي تحتاج فيها إلى إصدار تحذيرات لمستخدم جدول البيانات الذي يعمل فيه الماكرو.
2) قم بتشغيل الماكرو عند فتح الورقة
في بعض الحالات، يجب فتح الماكرو مع ورقة العمل. في هذه الحالة، ما عليك سوى تحميل الماكرو باستخدام المعلمة Auto_Open(). تحقق من المثال
فتح تلقائي فرعي ()
MsgBox "لمعرفة كل شيء عن برنامج Excel، اذهب إلى www.https://luz.vc/"
نهاية الفرعية
في المثال أعلاه، سيتم عرض رسالة بعد فتح جدول البيانات. لا تنس تمكين وحدات الماكرو في برنامج Excel الخاص بك.
3) ورقة عمل بالتاريخ والوقت الحاليين
يمكنك كتابة التاريخ والوقت الحاليين على الورقة. يقوم المثال التالي بإدراج هذه البيانات في الخلية A1، راجع
الكتابة الفرعية DataEora()
النطاق ("A1") = الآن
نهاية الفرعية
4) قم بتنفيذ نفس الإجراء لكل خلية محددة.
في مرحلة ما، تحتاج إلى تنفيذ إجراء على الخلايا التي حددها المستخدم. للقيام بذلك، قم بإنشاء ماكرو كما في المثال أدناه.
فرعي لـ doSpeedCell()
لكل خلية في Selection.Cells
MsgBox
التالي
نهاية الفرعية
5) نفس الشيء على جميع الخلايا المحددة
يمكنك القيام بنفس الماكرو من قبل، ولكن بطريقة أكثر اكتمالا قليلا، أي أنه لن يتم تنفيذ الإجراء خطوة بخطوة. في المثال أدناه، تتم كتابة "Hello" على كافة الخلايا.
فرعي لـ doSomethingAllAsCells()
Selection.Cells.Value = "Hello"!}
نهاية الفرعية
يمكنك إجراء الكثير من التغييرات على التعليمات البرمجية، مثل تغيير لون النص وحجم الخط ونوع الخط والمزيد.
6) تحديد الصيغ في كل خلية
صيغة التحقق الفرعية ()
إذا كان Range("A1") HasFormula = True إذن
MsgBox "توجد صيغة"
أكثر
MsgBox "ليست صيغة"
إنهاء إذا
نهاية الفرعية
7) تغيير لون الخلية عند تحريك الماوس
يمكنك أيضًا توفير قدر أكبر من التفاعل مع مستخدمي جداول البيانات. ومن الناحية المثالية، يهدف التفاعل إلى تسهيل صيانة المعلومات وتصورها. يعد الماكرو الموجود أدناه مثالاً لكيفية عرض الجداول الخاصة بك للخلايا بنفس درجة اللون عندما يقوم الماوس بتمرير البيانات التي تربط تلك الخلايا.
ورقة عمل فرعية خاصة_SelectionChange (هدف ByVal كنطاق)
ديما خط المنزل كمجموعة
يتراوح
خافت Line2 طالما
Cells.Interior.ColorIndex = xlNone
Line2 = الهدف.الصف
تعيين بداية السطر = النطاق ("A" وLine2، الهدف)
تلوين الخلية المحددة في العمود 5
تعيين الخط = النطاق (الخلايا (الهدف. الصف، 1)، الخلايا (الهدف. الصف، 5))
مع الحاكم
.Interior.ColorIndex = 12
انتهت ب
8) تغيير الألوان بالداخل والخطوط
يقوم هذا الماكرو بتغيير الألوان داخل الخلايا وعند مصدرها حسب حرف الخلايا.
Sub Colorir_interior_letra()
بالنسبة لـ N = 1 للنطاق ("O65536"). النهاية (xlUp).الصف
حدد نطاق المقياس ("O" وN)
الحالة "أ"
النطاق ("O" و N).Interior.ColorIndex = 3
النطاق ("O" و N).Font.ColorIndex = 1
الحالة "ب"
النطاق ("O" وN).Interior.ColorIndex = 4
النطاق ("O" و N).Font.ColorIndex = 2
الحالة "ج"
النطاق ("O" وN).Interior.ColorIndex = 5
النطاق ("O" و N).Font.ColorIndex = 3
الحالة "د"
النطاق ("O" وN).Interior.ColorIndex = 7
النطاق ("O" و N).Font.ColorIndex = 12
حالة أخرى
النطاق ("O" وN).Interior.ColorIndex = 6
النطاق ("O" و N).Font.ColorIndex = 4
إنهاء التحديد
التالي ن
9) الحديث الكلي
لقد اعتقدت بالفعل أنه سيكون من المثير للاهتمام أن يكون لديك جدول بيانات يحتوي على البيانات الموجودة فيه، وهذا بالضبط ما يفعله هذا الماكرو. في المثال أدناه، يحتوي الجدول على كلمات تنتقل من الخلية A1 إلى A5، ولكن يمكنك اختيار التباعد الذي يناسبك، لذا قم ببساطة بتغيير A1:A5 الموجود في الكود أدناه إلى التباعد الذي تفضله.
ExcelFalling الفرعي ()
النطاق ("A1: A5").
