ما اغلب از MsgBox در VBA برای نمایش اعلان پس از اجرای کدها استفاده می کنیم. گاهی اوقات یک خط نمی تواند خروجی را به درستی نشان دهد. سپس باید خطوط جدید اضافه کنیم . بنابراین از این مقاله، 6 ماکروهای مفید برای افزودن یک خط جدید در MsgBox با استفاده از Excel VBA را خواهید آموخت.

دانلود کتاب تمرین تمرین

می توانید قالب رایگان اکسل را از اینجا دانلود کنید و خودتان تمرین کنید.

6 مثال برای ایجاد خط جدید در MsgBox با استفاده از Excel VBA

1. استفاده از vbNewLine برای افزودن خط جدید در MsgBox با استفاده از Excel VBA

در اینجا، ما از vbNewLine در VBA Macro برای افزودن یک خط در استفاده می کنیم. MsgBox. من " سلام! " را در خط اول و " به ExcelWIKI خوش آمدید" در خط دوم نشان خواهم داد.

مراحل:

• Alt + F11 را فشار دهید تا پنجره VBA باز شود.
• سپس روی به صورت زیر کلیک کنید تا یک ماژول را وارد کنید: Insert ➤ Module .

• بعد، کدهای زیر را در آن تایپ کنید-

4212

• سپس برگردید به صفحه و روی به شرح زیر کلیک کنید تا باز شود ماکروها کادر گفتگو: برنامه‌نویس ➤ ماکرو .

• ماکرو را انتخاب کنید نام همانطور که در کدها مشخص شده است.
• در نهایت، فقط Run را فشار دهید.

اکنون نگاه کنید، vbNewLine خروجی را در دو نشان می دهدخطوط .

بیشتر بخوانید: VBA برای ایجاد چندین خط در متن ایمیل در اکسل (2 روش)

2. از vbCrLf برای ایجاد خط جدید در MsgBox استفاده از VBA در اکسل

اکنون از ثابت دیگری از VBA – vbCrLf برای ایجاد یک خط جدید در اکسل استفاده می کنیم. MsgBox . همچنین یک خط جدید بین دو خط متوالی اضافه می کند.

مراحل:

• ابتدا، دو مرحله اول از روش اول را دنبال کنید. برای درج یک ماژول در VBA
• سپس کدهای زیر را در آن بنویسید-

5199

• بعد، مرحله چهارم از روش اول را دنبال کنید تا کادر محاوره ای ماکرو باز شود.
• انتخاب کنید نام ماکرو را فشار دهید و Run را فشار دهید.

ثابت vbCrLf <1 را اضافه کرده است>یک خط جدید با یک خط شکاف نیز.

بیشتر بخوانید: نحوه اضافه کردن خط در سلول اکسل (5 روش آسان)

3. vbLf را برای افزودن خط جدید در MsgBox با استفاده از Excel VBA وارد کنید

بیایید از یک ثابت دیگر استفاده کنیم- vbLf برای افزودن خط جدید در MsgBox در Excel VBA.

مراحل:

• برای درج یک ماژول در VBA دو مرحله اول از روش اول را دنبال کنید
• بعداً، کدهای زیر را در آن بنویسید-

7024

• سپس مرحله چهارم از روش اول را دنبال کنید برای باز کردن کادر محاوره ای ماکرو .
• بعداً، نام ماکرو را انتخاب کنید.همانطور که در کدها ذکر شد و Run را فشار دهید.

و به زودی خروجی مورد نظر را دریافت خواهید کرد.

بیشتر بخوانید: نحوه اضافه کردن خط جدید با فرمول CONCATENATE در اکسل (5 روش)

4. Chr را برای ایجاد خط جدید در MsgBox با استفاده از VBA در اکسل اعمال کنید

در اینجا، از دو ثابت VBA- Chr(13) & Chr(10) برای افزودن خطوط.

مراحل:

• با دنبال کردن دو مرحله اول از روش اول شروع کنید برای درج یک ماژول در VBA
• سپس کدهای زیر را در آن بنویسید-

9889

• بعد از آن مرحله چهارم را از روش اول دنبال کنید تا کادر محاوره ای ماکرو را باز کنید.
• سپس نام ماکرو را اختصاص داده و Run را فشار دهید.

ببینید که ما همان خروجی را داریم.

5. افزودن خط جدید در ماکرو در اکسل VBA

در روش‌های قبلی، ما خط را در کد شکسته‌ایم. در اینجا، ما خطوط را در کدها شکسته و اضافه می کنیم.

مراحل:

• ابتدا، دو مرحله اول از روش اول را دنبال کنید. برای درج یک ماژول در VBA
• بعد، کدهای زیر را در آن بنویسید-

5539

اکنونببینید، که ماکرو یک خط جدید اضافه کرده است با نگه داشتن یک خط شکاف بین خطوط.

بیشتر بخوانید: چگونه در اکسل شکستن خط انجام دهیم (4 روش)

6. VBA را برای افزودن خطوط جدید در MsgBox با استفاده از دکمه جاسازی کنید

در آخرین روش ما، کار را به روشی متفاوت انجام خواهیم داد. یک دکمه برای اضافه کردن خطوط در MsgBox تنظیم می کنیم.

6.1 دکمه برای تک خط

ابتدا، ما دکمه ای برای اضافه کردن یک خط ایجاد می کنم. برای آن، من یک مجموعه داده ساخته ام که نشان دهنده سه سلول برای دادن ورودی نام خانوادگی ، آدرس ، و شماره تلفن است. وقتی روی دکمه کلیک می کنیم، سلول ها را بررسی می کند و اگر یک سلول خالی دریافت کرد سپس پیام را برای آن سلول نشان می دهد.

• روی به صورت زیر کلیک کنید: Developer ➤ Insert و سپس جعبه مستطیلی<2 را انتخاب کنید> از بخش Form Controls .

• به زودی، یک ورود به همراه وارد خواهید شد نشانگر خود، کلیک چپ ماوس خود را و بر روی برگ بکشید تا اندازه دکمه را تنظیم کنید.

• سپس راست کلیک کنید موس خود را بر روی دکمه و ویرایش متن<2 را انتخاب کنید> از منوی زمینه برای تنظیم نام دکمه .

• تایپ <2 نام و در هر نقطه از برگه کلیک کنید.

• دوباره راست کلیک کنید <1 خود را>ماوس روی دکمه و Assign Macro را از منوی زمینه برای تنظیم Macro انتخاب کنید.

• در این لحظه، یک نام ماکرو بدهید و جدید را فشار دهید.

• سپس تایپ کدهای زیر –

9150

Code Breakdown

• ابتدا، من یک Sub Procedure SingleLine_Button ایجاد کردم.
• سپس یک متغیر WS را به عنوان <اعلام کردم. 1>کاربرگ .
• سپس از سه عبارت IF برای بررسی سلولها استفاده کرد، اگر سلول با مقدار پر شده باشد ، آن را نادیده خواهد گرفت. و اگر یک سلول خالی دریافت کرد ، پیام مربوطه از طریق MsgBox نشان داده می شود.

• بعداً، فقط برگردید به صفحه و روی دکمه کلیک کنید.

از آنجایی که قسمت نام خانوادگی خالی است، به همین دلیل پیام اعلان را نشان می دهد.

• OK را فشار دهید و سپس فیلد دوم را بررسی می کند. .

دومین فیلد خالی است نیز بنابراین یک n اضافه کرد خط ew برای اطلاع دادن به آن .

در اینجا، اولین فیلد را پر کردم و روی دکمه کلیک کردم و دیدم که از آن فیلد رد شده و برای نمایش پیام به فیلد دوم پرید.

دکمه 6.2 برای چند خط

با اختصاص دادن با این دکمه، ما قادر خواهیم بود چندین خط را همزمان در کادر پیام اضافه کنیم.

• ابتدا، 6 مرحله اول را دنبال کنید.بخش قبلی برای اضافه کردن یک دکمه و اختصاص ماکرو .

• سپس <1 کدهای زیر را در ماکرو تایپ کنید-

6370

Code Breakdown

• در اینجا، من یک Sub procedure Multiple_Line_Button ایجاد کردم.
• سپس برخی از متغیرها را تعریف کردم WS As کاربرگ و نام_خانوادگی ، آدرس ، تلفن ، Error_msg As
• بعداً استفاده شد Len و Range برای تنظیم فیلدها.
• در نهایت، از عبارات If برای بررسی اینکه آیا فیلدها خالی هستند یا نه استفاده کرد. . اگر پر شد، از آن پرش می‌شود و اگر نه، پیام‌ها را از طریق MsgBox نشان می‌دهد.

• در نهایت، فقط برگردید به برگه و روی دکمه کلیک کنید.

و ببینید که سه خط برای سه فیلد نشان داده می‌شود. همه خالی هستند .

من اولین فیلد را پر کردم و اکنون ببینید، فقط پیام هایی برای نشان می دهد 2 فیلد بعدی .

بیشتر بخوانید: نحوه قرار دادن چندین خط در سلول اکسل (2 روش آسان)

نتیجه‌گیری

امیدوارم رویه‌هایی که در بالا توضیح داده شد برای ایجاد یک خط جدید در MsgBox با استفاده از Excel VBA به اندازه کافی خوب باشند. هر گونه سوالی را در بخش نظرات بپرسید و لطفاً بازخورد خود را به من بدهید.