Возвращаемые значения при нажатии кнопки

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

Примеры:

1. Команда:          MsgBox "Случайные числа разыграны!"

выводит на экран диалоговое окно с одной кнопкой ОК и стандартным заголовком Excel:

2. Это же окно с информационным значком и другим заголовком:

MsgBox "Случайные числа разыграны!", _

vbDefaultButton1 + vbInformation, "Случайные числа"

3. Фрагмент кода с диалогом о замене существующего файла:

1)	Path = "C:\St\Случайные числа.xls"
2)	Filename = Dir(Path)
3)	If Filename <> "" Then
4)	'В переменной Сообщение задается структура диалогового окна:
5)	Сообщение = vbYesNo + vbQuestion + vbDefaultButton1
6)	'Выводит сообщение:
7)	Кнопка = MsgBox(("Файл " & Filename & " уже существует. Заменить его?"), Сообщение)
8)	Select Case Кнопка
9)	Case vbYes
10)	MsgBox "Нажата кнопка Да!"
11)	Case vbNo
12)	MsgBox "Нажата кнопка Нет!"
13)	End Select
14)	Else
15)	MsgBox "Файл " & Filename & " не найден!"
16)	End If

Комментарии к программе:

ü 5-ую строку можно записать в следующем виде:

Сообщение = 4 + 32

По субъективному мнению автора эта запись нежелательна, т.к. она не информативна.

ü Аналогично можно было бы записать 9-ю и 11-ю строку (через возвращаемые значения):

Case 6

Case 7

Согласитесь – код совершенно не читабельный!

ü Вместо конструкции Select Case можно было бы воспользоваться управляющей структурой If- Then- Else. Тогда, вместо строк (8) – (13), запишется следующий код:

If Кнопка = vbYes Then         

MsgBox "Нажата кнопка Да!"

Else        

MsgBox "Нажата кнопка Нет!"

End If

Функция InputBox

Функция InputBox выводит диалоговое окно с сообщением, полем ввода и двумя кнопками ОК и Отмена. Значение, возвращаемое InputBox, зависит от того, какую кнопку нажмет пользователь. Если это — ОК, возвращается введенная строка, если — Cancel, то пустая.

Синтаксис

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

Синтаксис функции InputBox содержит следующие именованные аргументы:

Аргумент	Описание
prompt	Сообщение в диалоговом окне. Может состоять из нескольких строк. Для разделения строк можно использовать символ возврата каретки (Chr(13)), перевода строки (Chr(10)) или комбинацию этих символов (Chr(13) & Chr(10))
title	Заголовок диалогового окна
default	Строковое значение в поле ввода, установленное по умолчанию. Если это значение не указано, то поле ввода пусто.

С остальными параметрами познакомьтесь самостоятельно.

Примеры:

1. Следующая команда запрашивает Ваше имя:

Имя = InputBox ("Введите Ваше имя:")

В результате на экране появляется диалоговое окно:

  

После того как Вы введете своё имя и нажмете кнопку ОК, это значение будет присвоено переменной Имя.

Объект Worksheet

Объект Worksheet содержится в объекте Workbook. Этот объект представляет рабочий лист Excel — мощное средство для ввода и изменения данных. Рабочие листы содержат около 400 встроенных функций, позволяющих в мгновение ока про­изводить сложные вычисления. Табличная структура листов делает их идеальным средством для хранения и обобщения данных небольшого объема.