Vba: كيفية إضافة سطر جديد إلى مربع الرسالة (مع مثال)

يمكنك استخدام عبارة vbNewLine في VBA لإضافة سطر جديد إلى مربع رسالة.

فيما يلي طريقتان شائعتان لاستخدام هذا البيان:

الأسلوب 1: إضافة سطر جديد إلى مربع الرسالة

 Sub MsgBoxAddLine()
MsgBox "This is the first line " & vbNewLine & "This is the second"
End Sub

الطريقة الثانية: إضافة عدة أسطر جديدة إلى مربع الرسالة

 Sub MsgBoxAddLine()
MsgBox "This is the first line " & vbNewLine & vbNewLine & "This is the second"
End Sub

توضح الأمثلة التالية كيفية استخدام عبارة vbNewLine عمليًا.

مثال 1: إنشاء مربع رسالة بدون أسطر جديدة

يمكننا استخدام الصيغة التالية لإنشاء مربع رسالة يحتوي على جملة طويلة بدون أسطر جديدة:

 Sub MsgBoxAddLine()
MsgBox "This is the first line and I wish I could add a second line because this sentence is getting really long"
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أن الجملة الموجودة في مربع الرسالة تبدأ ببساطة بسطر جديد بمجرد وصولها إلى طول معين.

المثال 2: إنشاء مربع رسالة يحتوي على سطر جديد

يمكننا استخدام الصيغة التالية لإنشاء مربع رسالة يقوم بإنشاء سطر جديد بعد السلسلة “هذا هو السطر الأول”:

 Sub MsgBoxAddLine()
MsgBox "This is the first line " & vbNewLine & "This is the second"
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

باستخدام تعليمات vbNewLine ، تمكنا من بدء سطر جديد في مربع الرسالة.

المثال 3: إنشاء مربع رسالة يحتوي على عدة أسطر جديدة

يمكننا استخدام الصيغة التالية لإنشاء مربع رسالة يقوم بإنشاء سطرين جديدين بعد السلسلة “هذا هو السطر الأول”:

 Sub MsgBoxAddLine()
MsgBox "This is the first line " & vbNewLine & vbNewLine & "This is the second"
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

باستخدام عبارة vbNewLine مرتين، تمكنا من إدراج سطرين جديدين في مربع الرسالة.

أدى هذا بشكل فعال إلى إنشاء سطر فارغ بين السلسلتين في مربع الرسالة.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية العثور على آخر سطر مستخدم
VBA: كيفية العثور على آخر عمود تم استخدامه
VBA: كيفية إدراج أسطر متعددة