كيفية إضافة سطر جديد في كود vba؟

يوجد في VBA ثلاثة (ثوابت) مختلفة لإضافة فاصل أسطر.

1. vbNewLine
2. vbCrLf
3. vbLf

vbNewLine

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

 Range("A1") = "Line1" & vbNewLine & "Line2"

عند تشغيل هذا الماكرو ، فإنه يقوم بإرجاع السلسلة في سطرين.

تقوم بإرجاع الأحرف 13 و 10 (Chr(13) + Chr(10)). يمكنك أيضًا استخدام الكود بالطريقة التالية لتحقيق نفس النتيجة.

 Range("A1") = "Line1" & Chr(13) & Chr(10) & "Line2"

ولكن عند استخدام vbNewLine فإنك لا تحتاج إلى استخدام وظيفة CHAR.

vbCrLf

يرمز الثابت vbCrLf إلى حرف الإرجاع وتغذية السطر، مما يعني أن Cr يحرك المؤشر إلى بداية السطر بينما يحرك Lf المؤشر إلى السطر التالي.

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

 Range("A1") = "Line1" & vbCrLf & "Line2"

vbLf

يشير الثابت vbLf إلى حرف السطر الجديد، وعندما تستخدمه في سلسلتين، فإنه يُرجع حرف السطر الجديد الذي يضيف سطرًا جديدًا للسلسلة الثانية.

 Range("A1") = "Line1" & vbLf & "Line2"

إضافة سطر جديد في VBA MsgBox

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

 MsgBox "Line1" & vbNewLine & "Line2" MsgBox "Line1" & vbCrLf & "Line2" MsgBox "Line1" & vbLf & "Line2"

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

 MsgBox "Line1" & vbCr & "Line2"

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