Процедура Msgbox. Виведення інформації

Синтаксис:

MsgBox prompt[, buttons] [, title]

Процедура MsgBox призначена для виведення на екран вікна повідомлень, яке містить у собі:

• текст повідомлення, який задається обов’язковим параметром prompt; –Може складатися з декількох рядків. Для перенесення на новий рядок можна використовувати функцію CHR(13

• заголовок вікна, якщо опущений, то в заголовок виводиться ім’я додатку (Microsoft Excel) задається параметром Title;

• піктограму задається параметром buttons

• набір кнопок задається параметром buttons

Параметр buttons- формується з декількох частин, які можна складати. Ми розглянемо тільки дві з них, які визначають набір кнопок у вікні та іконку.

Buttons= button+icon

Для завдання набору кнопок (button) використовуються такі константи:

Константа VBA	Значення	Кнопки
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 (”Повторити” та ”Відмінити”.

Для завдання іконок (icon) використовуються такі константи:

Константа VBA	Значення	Іконки
vbCritical	16	Критичне повідомлення.
vbQuestion	32	Запитання попередження.
vbExclamation	48	Повідомлення попередження
vbInformation	64	Інформаційне повідомлення

Функція InputBox. Введення інформації

Синтаксис:

InputBox(prompt[, title] [, default] [, xpos] [, ypos])

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

• текст (пояснення, які дані потрібно ввести)– задається аргументом prompt ;

• поле, в яке вводиться необхідна інформація, її можна задати по замовчанню аргументом default

• дві кнопки OK та Cancel – при натисканні на кнопку OK функція повертає значення, яке було введено в поле вводу, а при виборі Cancel– пустий рядок;

Пояснимо призначення аргументів.

Prompt – задає текст (запрошення до вводу). Цей аргумент є обов’язковим, а всі інші можна не задавати. Може складатися з декількох рядків. Для перенесення на новий рядок можна використовувати функцію CHR(13)

Title – задає заголовок вікна, якщо опущений, то в заголовок виводиться ім’я додатку (Microsoft Excel)

Default – задає рядок у полі вводу, якщо опущений, то поле вводу пусте

xpos, ypos – координати на екрані лівої верхньої границі вікна

Для того, щоб вивести на екран вікно діалогу, мал.15

мал.15

треба написати таку програму:

Public Sub Перша_програма()

dat = InputBox("Введіть дату","Моя програма","1 вересня")

End Sub

Після того натиснемо кнопку «ОК», змінній Now буде присвоєно значення: «1 вересня», тобто dat ="1 вересня".

Якщо другий і третій аргумент буде опущено, то функція InputBox і вікно діалогу будуть мати такий вигляд:

Option Explicit

Public Sub Друга_програма()

Dim x As Integer

x = InputBox("Введіть число ")

End Sub

Як бачимо в заголовку вікна ім’я додатку- Microsoft Excel, поле для введення пусте в нього треба ввести число, наприклад 5, а потім натиснути OK. Змінній х буде присвоєно значення 5.

Напишемо простеньку програму, що через вікно діалогу вводить два цілих числа х та у, знаходить їх суму результат виводить у вікно повідомлення.

P ublic Sub Сума_двох_чисел()

Dim x As Integer, y As Integer

x = InputBox("Введіть число x")

y = InputBox("Введіть число y")

Sum = x + y

MsgBox "Сума x+y=" & Sum, vbInformation, "Результат"

End Sub