Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Справочники

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35788
Главная » Справочники » Функции VBA » Функции загрузки данных

MsgBox

Функция MsgBox

MsgBox(Prompt, [Buttons], [Title], [HelpFile], [Context])

Функция MsgBox выводит на экран диалоговое окно, содержащее сообщение, устанавливая режим ожидания нажатия кнопки пользователем

Возвращаемое значение

Возвращает значение типа Integer, указывающее, какая кнопка была нажата

Ниже перечислены значения, содержащие код нажатой кнопки:

Константа Значение Нажатая кнопка
vbOK 1 OK
vbCancel 2 Отмена (Cancel)
vbAbort 3 Прервать (Abort)
vbRetry 4 Повторить (Retry)
vbIgnore 5 Пропустить (Ignore)
vbYes 6 Да (Yes)
vbNo 7 Нет (No)

Параметры
Функция содержит именованные аргументы
Часть Описание
Prompt Обязательный. Строковое выражение, отображаемое как сообщение в диалоговом окне. Максимальная длина строки составляет приблизительно 1024 символа. Длинный текст разбивается автоматически, но можно задавать разбиение строки явно, используя символы возврата каретки и перевода строки(vbCrLf)
Buttons Необязательный аргумент - целочисленная константа, которая является суммой VB-констант, определяющих ряд характеристик диалогового окна - число и тип кнопок, тип значка, основная кнопка, модальность окна сообщения(см.ниже). Значение по умолчанию равно 0
Title Необязательный. Строковое выражение, отображаемое в строке заголовка диалогового окна. Максимальное число символов для заголовка около 50. Если этот параметр опущен, в строку заголовка помещается имя приложения
HelpFile Необязательный. Строковое выражение, определяющее имя файла Справки, содержащего контекстно-зависимую Справку о данном диалоговом окне. Если этот параметр указан, то необходимо задать также и параметр Context
Context Необязательный. Числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот параметр указан, то необходимо задать также и параметр HelpFile

Константы, используемые в аргументе Buttons для задания вида выводимых кнопок, пиктограмм
Константа Значение Описание
vbOKOnly 0 Отображается только кнопка "OK"
vbOKCancel 1 Отображаются кнопки "OK" и "Отмена" (Cancel)
vbAbortRetryIgnore 2 Отображаются кнопки "Прервать" (Abort), "Повторить" (Retry) и "Пропустить" (Ignore)
vbYesNoCancel 3 Отображаются кнопки "Да" (Yes), "Нет" (No) и "Отмена" (Cancel)
vbYesNo 4 Отображаются кнопки "Да" (Yes) и "Нет" (No)
vbRetryCancel 5 Отображаются кнопки "Повторить" (Retry) и "Отмена" (Cancel)
vbCritical 16 Используется значок "Критическое сообщение"
vbQuestion 32 Используется значок "Предупреждающий запрос"
vbExclamation 48 Используется значок "Предупреждение"
vbInformation 64 Используется значок "Информационное сообщение"
vbDefaultButton1 0 Основной является первая кнопка
vbDefaultButton2 256 Основной является вторая кнопка
vbDefaultButton3 512 Основной является третья кнопка
vbDefaultButton4 768 Основной является четвертая кнопка
vbApplicationModal 0 Модальное окно на уровне приложения: чтобы продолжить работу с текущим приложением, необходимо ответить на данное сообщение
vbSystemModal 4096 Модальное окно на уровне системы: все приложения будут недоступны до тех пор, пока пользователь не ответит на данное сообщение
vbMsgBoxHelpButton 16384 Добавляется кнопка Справка(Help)
VbMsgBoxSetForeground 65536 Аналогично параметру vbApplicationModal
vbMsgBoxRight 524288 Текст выравнивается по правому краю
vbMsgBoxRtlReading 1048576 Задает порядок вывода текста справа налево для арабской системы и иврит

Примечание

Если используется кнопка Отмена(Cancel), то можно вместо нее нажимать на клавишу Esc
В отличие от InputBox окно MsgBox не позиционируется на экране, а всегда располагается в центре экрана

Пример
Dim retval As Integer
retval = MsgBox("А ты посетил сайт http://www.excelworld.ru ?", _
vbQuestion + vbYesNo, "Мир Excel")
Категория
Функции загрузки данных

Счетчики: 11629 | Добавил: Serge_007
Всего комментариев: 3
0   Спам
1    light26   (28.03.2015 16:13)
   А как в часть promt записать текст, который вернул бы (особое внимание прошу обратить на кавычки), например, Для продолжение нажмите "Ок".

0   Спам
2    light26   (28.03.2015 16:20)
   Сформулирую иначе:
Если код записать в виде
Dim retval As Integer
retval = MsgBox("Для продолжения нажмите ОК", vbQuestion + vbYesNo, "Мир Excel")
то в результате в окне MsgBox мы, помимо Мир Excel, кнопок Да и Нет, увидим текст Для продолжения нажмите Ок.
А требуется, чтобы текст был Для продолжения нажмите "Ок"

0  
3    Pelena   (28.03.2015 16:27)
   Так, наверное
retval = MsgBox("Для продолжения нажмите ""ОК""", vbQuestion + vbYesNo, "Мир Excel")

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!