Excel VBA: створення нового рядка в MsgBox (6 прикладів)

Hugh West

20-06-2023 Макроси & Excel VBA
  • Поділитися Цим
Hugh West

Ми часто використовуємо MsgBox в VBA показувати повідомлення після виконання кодів. Іноді один рядок не може правильно відображати висновок, тоді нам потрібно додати нові рядки Отже, з цієї статті ви дізнаєтеся 6 корисні макроси для додавання нового рядка в MsgBox за допомогою Excel VBA.

Завантажити Практичний посібник

Ви можете завантажити безкоштовний шаблон Excel за посиланням і потренуватися самостійно.

Створення нового рядка в MsgBox.xlsm

6 Приклади створення нового рядка в MsgBox за допомогою Excel VBA

1. використання vbNewLine для додавання нового рядка в MsgBox за допомогою Excel VBA

Тут ми будемо використовувати vbNewLine в Макрос VBA додати рядок в MsgBox. Я покажу! Привіт! " у першому рядку та " Ласкаво просимо до ExcelWIKI" у другому рядку.

Сходинки:

  • Преса Alt + F11 для відкриття Вікно VBA .
  • Тоді клацнути наступним чином, щоб вставити модуль: Вставити ➤ Модуль .

  • Після цього введіть у нього наступні коди 
 Sub NewLine_vbNewLine() MsgBox "Hello!" & vbNewLine & "Welcome to ExcelWIKI" End Sub

  • Тоді повернутися назад до твого аркуш і клацнути наступним чином, щоб відкрити Макроси діалогове вікно: Розробник ➤ Макроси .

  • Виберіть в "Урядовому кур'єрі". Назва макросу як зазначено в коди .
  • Наостанок, просто натисніть Біжи .

А тепер подивись, vbNewLine показує обсяг виробництва в два рядка .

Читати далі: VBA для створення декількох рядків у тілі листа в Excel (2 способи)

2. використання vbCrLf для створення нового рядка в MsgBox за допомогою VBA в Excel

Тепер використаємо ще одну константу VBA - vbCrLf створити новий рядок в MsgBox Він також додасть новий рядок між двома послідовними рядками.

Сходинки:

  • По-перше, слідкуйте за перші два кроки з першого способу вставити модуль в VBA
  • Тоді писати наступне коди в ньому... 
 Sub NewLine_vbCrLf() MsgBox "Hello!" & vbCrLf & vbCrLf & "Welcome to ExcelWIKI" End Sub

  • Далі слідуйте за посиланням четвертий крок з першого способу для відкриття Діалогове вікно макросу .
  • Виберіть пункт Назва макросу і натисніть Біжи .

Константа vbCrLf додав нова лінія з лінія розриву теж.

Читати далі: Як додати рядок у комірку Excel (5 простих способів)

3. вставте vbLf для додавання нового рядка в MsgBox за допомогою Excel VBA

Використаємо ще одну константу - vbLf щоб додати новий рядок в MsgBox в Excel VBA.

Сходинки:

  • Слідкуйте за перші два кроки з першого способу вставити модуль в VBA
  • До зустрічі, писати наступне коди в ньому... 
 Sub NewLine_vbLf() MsgBox "Hello!" & vbLf & "Welcome to ExcelWIKI" End Sub

  • Далі слідуйте за четвертий крок з першого способу для відкриття Діалогове вікно макросу .
  • Далі оберіть пункт Назва макросу як зазначено в кодексах та пресі Біжи .

І незабаром після цього ви отримаєте бажаний результат.

Читати далі: Як додати новий рядок за допомогою формули CONCATENATE в Excel (5 способів)

4. Застосування Chr для створення нового рядка в MsgBox за допомогою VBA в Excel

Тут ми будемо використовувати дві константи VBA-. Chr(13) & Chr(10) щоб додати рядки.

Сходинки:

  • Почніть з дотримання перші два кроки з першого способу вставити модуль в VBA
  • Тоді писати наступне коди в ньому... 
 Sub NewLine_Chr() MsgBox "Hello!" & Chr(13) & Chr(10) & "Welcome to ExcelWIKI" End Sub

  • Після цього слідують четвертий крок з першого способу для відкриття Діалогове вікно макросу .
  • Далі оберіть призначену Назва макросу і натисніть Біжи .

Подивіться, що ми отримали однаковий результат.

5. додавання нового рядка в макрос в Excel VBA

У попередніх методах ми не розривали рядок у коді, а тут будемо розривати і додавати рядки всередині кодів.

Сходинки:

  • По-перше, слідкуйте за перші два кроки з першого способу вставити модуль в VBA
  • Наступний, писати наступне коди в ньому... 
 Sub NewLine_within_Macro() MsgBox "Hello!" & vbCrLf & vbCrLf & _ "Welcome to ExcelWIKI" End Sub

  • Пізніше, слідкуйте за четвертий крок з першого способу для відкриття Діалогове вікно макросу .
  • Потім просто виберіть Назва макросу і натисніть Біжи .

Тепер бачите, що макрос має додано новий рядок зберігання лінія розриву між рядків.

Читати далі: Як зробити розрив рядка в Excel (4 способи)

6. вбудувати VBA для додавання нових рядків у MsgBox за допомогою кнопки

У нашому останньому методі ми вирішимо задачу трохи по-іншому. Ми задамо кнопка додати рядки в MsgBox .

6.1 Кнопка для однієї лінії

Спочатку ми зробимо кнопку для додавання одного рядка. Для цього я створив набір даних, який представляє собою три комірки для введення Прізвище та ім'я , Адреса і Номер телефону Коли ми натиснемо на кнопку кнопка він перевірить комірки і якщо отримує порожню комірку тоді буде показати повідомлення для цієї камери.

  • Натисніть наступним чином: Розробник ➤ Вставити а потім вибрати в "Урядовому кур'єрі". прямокутна коробка від Розділ "Елементи управління формою .

  • Незабаром після цього ви отримаєте знак плюс під курсором, клацніть лівою кнопкою миші мишкою і перетягування на аркуш для встановлення розмір кнопки .

  • Тоді клацніть правою кнопкою миші ваш миша на кнопка та оберіть Редагувати текст від контекстне меню для встановлення назва кнопки .

  • Тип в "Урядовому кур'єрі". Ім'я і клацніть в будь-якому місці аркуша.

  • Знову клацніть правою кнопкою миші ваш миша на кнопка та оберіть Призначити макрос від контекстне меню щоб встановити Макрос .

  • На даний момент, дайте Назва макросу і натисніть Новий .

  • Тоді тип наступне коди - 
 Private Sub SingleLine_Button() Dim WS As Worksheet Set WS = Sheets("Single Line") If WS.Range("C4").Value = "" Then MsgBox "Введіть прізвище!" End If If WS.Range("C5").Value = "" Then MsgBox "Введіть адресу!" End If If WS.Range("C6").Value = "" Then MsgBox "Введіть номер телефону!" End If End Sub

Розподіл кодів

  • По-перше, я створив Підпроцедура SingleLine_Button .
  • Потім оголошується змінна WS як Робочий аркуш .
  • Потім використали три Звітність за МСФЗ перевірити камери, якщо комірка заповнена значенням тоді це буде ігнорувати його і якщо отримує порожню комірку потім покаже відповідне повідомлення через MsgBox .
  • Пізніше, просто повернутися назад до твого аркуш і клацнути в "Урядовому кур'єрі". кнопка .

Як зазначено в доповіді Прізвище та ім'я порожнє, тому в ньому відображається повідомлення про помилку.

  • Преса ГАРАЗД. і тоді він перевірить друге поле.

Другий поле пусте Тож це теж. додано новий рядок для повідомлення про це .

Тут я заповнив перше поле і натиснув на кнопку, і бачу, що воно пропустило це поле і перейшло до друге поле щоб показати повідомлення.

6.2 Кнопка для декількох рядків

Призначивши цю кнопку, ми зможемо додавати кілька рядків одночасно у вікні повідомлення.

  • По-перше, виконати перші 6 кроків з попереднього розділу щоб додати кнопка і призначити макрос .

  • Тоді тип наступне коди у макро- та 
 Sub Multiple_Line_Button() Dim WS As Worksheet Set WS = Sheets("Multiple Line") Dim Last_Name, Address, Phone, Error_msg As String Last_Name = Len(WS.Range("C4")) Address = Len(WS.Range("C5")) Phone = Len(WS.Range("C6")) If Last_Name = 0 Then Error_msg = "Будь ласка, введіть Прізвище!" End If If Address = 0 Then Error_msg = Error_msg & vbNewLine & "Будь ласка, введіть адресу!" End If If Phone = 0Then Error_msg = Error_msg & vbNewLine & "Будь ласка, введіть номер телефону!" End If If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Увага!" Exit Sub End If End Sub

Розподіл кодів

  • Тут я створив Підпроцедура Багаторядкова_кнопка .
  • Потім оголошуються деякі змінні WS Як Робочий аркуш і Прізвище_Ім'я , Адреса , Телефон , Error_msg Як
  • Пізніше використовувався Лен і Діапазон для встановлення полів.
  • Нарешті, використано Якщо заяви перевірити, чи є заповнені поля чи ні Якщо воно заповнене, то пропустить його, а якщо ні, то буде показувати повідомлення через MsgBox .
  • Нарешті, просто повернення на аркуш і клацнути в "Урядовому кур'єрі". кнопка .

І бачимо, що він показує три лінії для три поля як і всі вони порожній .

Я заповнив перше поле а тепер бачите, він показує повідомлення тільки для наступні 2 поля .

Читати далі: Як помістити кілька рядків у комірку Excel (2 простих способи)

Висновок

Сподіваюся, описаних вище процедур буде достатньо для створення нового рядка в MsgBox за допомогою Excel VBA. Не соромтеся задавати будь-які питання в розділі коментарів і, будь ласка, дайте мені зворотний зв'язок.

Попередній пост Як видалити пробіли в Excel (6 простих способів)
Наступний пост Як порахувати кількість символів у комірці в Excel (найпростіші 6 способів)

Г’ю Вест — досвідчений тренер і аналітик Excel із понад 10-річним досвідом роботи в галузі. Він має ступінь бакалавра з бухгалтерського обліку та фінансів і ступінь магістра з ділового адміністрування. Г’ю має пристрасть до викладання та розробив унікальний підхід до викладання, який легко зрозуміти та дотримуватися. Його експертне знання Excel допомогло тисячам студентів і професіоналів у всьому світі вдосконалити свої навички та досягти успіху в кар’єрі. У своєму блозі Г’ю ділиться своїми знаннями зі світом, пропонуючи безкоштовні навчальні посібники з Excel та онлайн-навчання, щоб допомогти окремим особам і компаніям повністю розкрити свій потенціал.