Как сделать диалоговое окно в excel

MsgBox

К настоящему моменту мы использовали окно MsgBox, чтобы выводить информацию на экран.

Sub delete_B2 () Range ("B2"). ClearContents MsgBox "Содержание ячейки B2 удалено!" End Sub

В этом случае MsgBox вызывается только с одним аргументом. См. код ниже:

Сейчас мы создадим диалоговое окно, которое будет просить подтверждение для удаления, прежде чем две инструкции будут выполнены. Далее есть три аргумента, которые мы будем использовать:

MsgBox ([TEXT], [BUTTONS], [TITLE]) Text: текст диалогового окна Buttons: выбор кнопок (yes, no, cancel и т.п.) + другие опции Title: заголовок диалогового окна Sub delete_B2() If MsgBox("Are you sure that you wish to delete the contents of B2 ?", vbYesNo, "Confirm") = vbYes Then Range("B2").ClearContents MsgBox "The contents of B2 have been deleted !" End If End Sub

Результат:

Private Sub warning (var_text As String) MsgBox "Caution:" & var_text & "!" End Sub Sub macro_test () If Range ("A1") = "" Then warning "пустая ячейка" ElseIf Not IsNumeric (Range ("A1")) Then warning "нецифровое значение" End If End Sub

vbYesNo отмечает, что кнопками диалогового окна являются "Yes" и "No", а vbYes представляет кнопку "Yes":

If MsgBox("Text", vbYesNo, "Title") = vbYes Then 'Если кнопка Yes нажата... Варианты использования второго аргумента в MsgBox Constant Numerical Value Description vbOKOnly 0 ok - dialog boxes

vbOKCancel 1 ok - dialog boxes

vbAbortRetryIgnore 2 abort - dialog boxes

vbYesNoCancel 3 yes - dialog boxes

vbYesNo 4

vbRetryCancel 5 retry - dialog boxes

vbCritical 16 critical - dialog boxes

vbQuestion 32 question - dialog boxes

vbExclamation 48 exclamation - dialog boxes

vbInformation 64 information - dialog boxes

Здесь пример MsgBox, который будет продолжать отображаться каждый раз при цикле, пока пользователь будет жать Yes:

Sub humor() Do If MsgBox("Do you like the Moonexcel site ?", vbYesNo, "Survey") = vbYes Then Exit Do ' => Ответ Yes = Да, мы хотим выйти из цикла End If Loop While 1 = 1 ' => Бесконечный цикл MsgBox ";-)" End Sub Варианты использования второго аргумента в MsgBox

Для отображения новой ленты вы можете использовать функцию Chr с аргументом 10, которая отвечает за перенос строки, например:

MsgBox "Example 1" & Chr (10) & "Example 2" & Chr (10) & Chr (10) & "Example 3"

получим следующий результат:

InputBox

InputBox запрашивает пользователя ввести значение в диалоговое окно, например:

Sub example () Dim result As String result = InputBox ("Text?", "Title") 'Переменной присваивается значение, введенное в InputBox If result <> "" Then 'Если значение любое, но не "", тогда результат будет отображен MsgBox result End If End Sub

Получим следующий результат: