Мы часто используем MsgBox в VBA чтобы показать уведомление после выполнения кодов. Иногда одна строка не может показать вывод правильно. Тогда нам необходимо добавлять новые строки Итак, из этой статьи вы узнаете 6 полезные макросы для добавления новой строки в MsgBox с помощью Excel VBA.

Скачать Практическое пособие

Вы можете скачать бесплатный шаблон Excel отсюда и потренироваться самостоятельно.

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 & 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 "Please Insert Last Name!" End If If WS.Range("C5").Value = "" Then MsgBox "Please Insert Address!" End If If If WS.Range("C6").Value = "" Then MsgBox "Please Insert Phone Number!" End If End Sub 

Разбивка кода

• Во-первых, я создал Подпроцедура Однострочная кнопка .
• Затем объявил переменную WS в качестве Рабочий лист .
• Затем использовал три утверждения ЕСЛИ чтобы проверить клетки, если ячейка заполнена значением тогда это будет игнорировать и если получает пустую ячейку затем покажет соответствующее сообщение через MsgBox .

• Позже, только вернуться к вашему лист и нажмите сайт кнопка .

Как Фамилия поле пустое, поэтому отображается уведомление.

• Нажмите OK и затем проверит второе поле.

Второй поле пустое тоже, так что добавил новую строку, чтобы уведомить об этом .

Здесь я заполнил первое поле и нажал на кнопку, и увидел, что он пропустил это поле и перешел к второе поле чтобы показать сообщение.

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 = "Please Insert Last Name!" End If If Address = 0 Then Error_msg = Error_msg & vbNewLine & "Please Insert Address!" End If If Phone = 0Then Error_msg = Error_msg & vbNewLine & "Please Insert Phone Number!" End If If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Important Caution!" Exit Sub End If End Sub 

Разбивка кода

• Здесь я создал Подпроцедура Многострочная кнопка .
• Затем объявил некоторые переменные WS Как Рабочий лист и Фамилия_Имя , Адрес , Телефон , Error_msg Как
• Позже, использовали Лен и Диапазон для установки полей.
• Наконец, используется Если заявления чтобы проверить пустые поля или нет Если он заполнен, то пропустит его, а если нет, то покажет сообщения. MsgBox .

• Наконец, только возврат на лист и нажмите сайт кнопка .

И вижу, что он показывает три линии для три поля как и все они пустой .

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

Читать далее: Как поместить несколько строк в ячейку Excel (2 простых способа)

Заключение

Я надеюсь, что описанные выше процедуры будут достаточно хороши для создания новой строки в MsgBox с помощью Excel VBA. Не стесняйтесь задавать любые вопросы в разделе комментариев и, пожалуйста, дайте мне обратную связь.