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

تنزيل Practice Workbook

يمكنك تنزيل قالب Excel المجاني من هنا والممارسة بنفسك.

6 أمثلة لإنشاء سطر جديد في MsgBox باستخدام Excel VBA

1. استخدم vbNewLine لإضافة سطر جديد في MsgBox باستخدام Excel VBA

هنا ، سنستخدم vbNewLine في VBA Macro لإضافة سطر في MsgBox. سأعرض " مرحبًا! " في السطر الأول و " مرحبًا بك في ExcelWIKI" في السطر الثاني.

الخطوات:

• اضغط على Alt + F11 لفتح نافذة VBA .
• ثم انقر فوق على النحو التالي أدخل وحدة: أدخل ➤ الوحدة .

• في وقت لاحق ، اكتب الرموز التالية فيه-

3753

• ثم ارجع إلى الورقة و انقر فوق كما يلي لفتح مربع حوار وحدات الماكرو : المطور ➤ وحدات الماكرو .

• حدد الماكرو اسم كما هو محدد في أكواد .
• أخيرًا ، فقط اضغط على تشغيل .

ألقي نظرة الآن ، يعرض vbNewLine الإخراج في اثنانالأسطر .

اقرأ المزيد: VBA لإنشاء خطوط متعددة في نص البريد الإلكتروني في Excel (طريقتان)

2. استخدم vbCrLf لإنشاء سطر جديد في MsgBox باستخدام VBA في Excel

الآن سنستخدم ثابتًا آخر من VBA - vbCrLf لإنشاء سطر جديد في MsgBox . سيضيف أيضًا سطرًا جديدًا بين السطرين المتتاليين.

الخطوات:

• أولاً ، اتبع أول خطوتين من الطريقة الأولى لإدراج وحدة نمطية في VBA
• ثم اكتب الرموز التالية فيها-

4440

• بعد ذلك ، اتبع الخطوة الرابعة من الطريقة الأولى لفتح مربع حوار الماكرو .
• حدد اسم الماكرو واضغط تشغيل .

الثابت vbCrLf أضاف سطر جديد مع خط فجوة أيضًا.

اقرأ المزيد: كيفية إضافة سطر في خلية Excel (5 طرق سهلة)

3. أدخل vbLf لإضافة سطر جديد في MsgBox باستخدام Excel VBA

لنستخدم ثابتًا آخر- vbLf لإضافة سطر جديد في MsgBox في Excel VBA.

الخطوات:

• اتبع الخطوات الأوليين من الطريقة الأولى لإدراج وحدة نمطية في VBA
• لاحقًا اكتب الرموز التالية فيها-

1443

• ثم اتبع الخطوة الرابعة من الطريقة الأولى لفتح مربع حوار الماكرو .
• لاحقًا ، حدد اسم الماكرو كما هو مذكور في الرموز واضغط على تشغيل .

وبعد فترة وجيزة ستحصل على الإخراج المطلوب.

اقرأ المزيد: كيفية إضافة سطر جديد باستخدام صيغة CONCATENATE في Excel (5 طرق)

4. تطبيق Chr لإنشاء سطر جديد في MsgBox باستخدام VBA في Excel

هنا ، سنستخدم ثابتين من VBA- Chr (13) & amp؛ Chr (10) لإضافة سطور.

الخطوات:

• ابدأ باتباع أول خطوتين من الطريقة الأولى لإدراج وحدة في VBA
• ثم اكتب الرموز التالية فيها-

7011

• بعد ذلك اتبع الخطوة الرابعة من الطريقة الأولى لفتح مربع حوار الماكرو .
• ثم حدد قم بتعيين اسم الماكرو واضغط على تشغيل .

انظر أننا حصلنا على نفس الإخراج.

5. أضف سطرًا جديدًا داخل الماكرو في Excel VBA

في الطرق السابقة ، لم نكسر السطر في الكود. هنا ، سنقوم بتقسيم وإضافة خطوط داخل الرموز.

الخطوات:

• أولاً ، اتبع أول خطوتين من الطريقة الأولى لإدراج وحدة في VBA
• التالي ، اكتب الرموز التالية في ذلك-

1754

• لاحقًا ، اتبع الخطوة الرابعة من الطريقة الأولى لفتح مربع حوار الماكرو .
• ثم حدد فقط اسم الماكرو واضغط على تشغيل .

الآنانظر ، أن الماكرو أضاف سطرًا جديدًا مع الحفاظ على خط فجوة بين السطور.

قراءة المزيد: كيفية عمل فاصل أسطر في Excel (4 طرق)

6. قم بتضمين VBA لإضافة خطوط جديدة في MsgBox باستخدام الزر

في طريقتنا الأخيرة ، سنقوم بالمهمة بطريقة مختلفة قليلاً. سنقوم بتعيين زر لإضافة خطوط في MsgBox .

6.1 زر لخط واحد

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

• انقر فوق كما يلي: المطور ➤ أدخل ثم حدد المربع المستطيل من قسم عناصر التحكم في النموذج .

• بعد فترة وجيزة ، ستحصل على علامة الجمع في المؤشر ، انقر بزر الماوس الأيسر الماوس الخاص بك و اسحب على الورقة لتعيين حجم الزر .

• ثم انقر بزر الماوس الأيمن على الماوس على الزر وحدد تحرير النص من قائمة السياق لتعيين اسم الزر .

• اكتب الاسم وانقر في أي مكان على الورقة.

• مرة أخرى انقر بزر الماوس الأيمن فوق الخاص بك الماوس على الزر وحدد تعيين ماكرو من قائمة السياق لتعيين ماكرو .

• في هذه اللحظة ، أدخل اسم ماكرو واضغط جديد .

• ثم اكتب الرموز التالية -

3902

Code Breakdown

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

• لاحقًا ، فقط ارجع إلى الورقة و انقر فوق الزر .

نظرًا لأن الحقل اسم العائلة فارغ ، فهذا هو سبب ظهور رسالة الإعلام.

• اضغط على موافق ثم يتحقق من الحقل الثاني .

الحقل الثاني فارغ أيضًا لذا أضاف n ew سطر لإعلامه .

هنا ، ملأت الحقل الأول ونقرت على الزر ، ونرى أنه تخطى هذا الحقل و قفز إلى الحقل الثاني لإظهار الرسالة.

6.2 زر لخطوط متعددة

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

• أولاً ، اتبع الخطوات الست الأولى منالقسم السابق لإضافة زر وتعيين ماكرو .

• ثم اكتب الرموز التالية في الماكرو-

9699

Code Breakdown

• هنا ، قمت بإنشاء إجراء فرعي Multiple_Line_Button .
• ثم أعلنت بعض المتغيرات WS كـ ورقة العمل و اسم العائلة ، العنوان ، الهاتف ، Error_msg كـ
• لاحقًا ، استخدم Len و Range لتعيين الحقول.
• أخيرًا ، استخدم إذا كانت العبارات للتحقق مما إذا كانت الحقول فارغة أم لا . إذا تم ملؤه ، فسيتم تخطيه ، وإذا لم يكن كذلك ، فسيتم عرض الرسائل من خلال MsgBox .

• أخيرًا ، فقط إرجاع إلى الورقة و انقر فوق الزر .

ونرى أنه يعرض ثلاثة أسطر للحقول الثلاثة كما هي كلها فارغة .

لقد ملأت الحقل الأول والآن انظر ، إنه يعرض فقط رسائل لـ الحقلين التاليين .

اقرأ المزيد: كيفية وضع خطوط متعددة في خلية Excel (طريقتان سهلتان)

الاستنتاج

آمل أن تكون الإجراءات الموضحة أعلاه جيدة بما يكفي لإنشاء سطر جديد في MsgBox باستخدام Excel VBA. لا تتردد في طرح أي سؤال في قسم التعليقات ويرجى إعطائي ملاحظات.