
Как сделать диалоговое окно в 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Результат:
vbYesNo отмечает, что кнопками диалогового окна являются "Yes" и "No", а vbYes представляет кнопку "Yes":
If MsgBox("Text", vbYesNo, "Title") = vbYes Then 'Если кнопка Yes нажата... Варианты использования второго аргумента в MsgBox Constant Numerical Value Description vbOKOnly 0
















Здесь пример 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 запрашивает пользователя ввести значение в диалоговое окно, например:
Sub example () Dim result As String result = InputBox ("Text?", "Title") 'Переменной присваивается значение, введенное в InputBox If result <> "" Then 'Если значение любое, но не "", тогда результат будет отображен MsgBox result End If End SubПолучим следующий результат:
Третий аргумент может быть использован для установки значения по умолчанию:
InputBox ("Text?", "Title", "Default value")Результат следующий:











Читать далее:

Легкие прически в школу на короткие волосы подростку

Голова куклы для причесок и макияжа

Крем-мыло для сухой кожи своими руками

Светильник из солёного теста своими руками

Замена масла в двигателе своими руками у форд 8