Презентация, доклад по программированию на VBA (Excel) на тему Диалоговые окна

выводить какие либо сообщения или делать запросы. Для того чтобы было возможным осуществлять диалог с пользователем, в программе VBA (Excel) существуют функции:
MsgBox
InputBox.

Также эта функция задает ответную реакцию пользователя на запрос (передает результат щелчка на кнопке ОК, Отмена и т.п.).

- определяет текст, который будет отображаться в окне сообщения (обязательный параметр).

сообщения (необязательный параметр). Возможные значения приводятся в таблице. Для ввода двух параметров кнопок (например, кнопки и значок вида сообщения) константы разделяются оператором Or.

файл и раздел справочной системы (необязательные параметры).

активный лист.

смайлик на активный лист?", vbYesNoCancel Or 32, "Вопрос")
If Otvet = vbYes Then
ActiveCell.FormulaR1C1 = _ ActiveSheet.Shapes.AddShape(msoShapeSmileyFace, 191, 200, 61, 54).Select
ElseIf Otvet = vbCancel Then
Exit Sub
Else
MsgBox "Как хотите. "
End If
End Sub

объявляем переменную Otvet
в третьей - переменной Otvet присваиваем значение окна вывода сообщений ( функция MsgBox), в котором будет делать ся запрос на вставку смайлика на активный лист

выходит окно сообщений с фразой «Как хотите».

их значения

которое позволяет пользователю ввести единственное значение. Например, можно применить окно ввода данных, чтобы предоставить пользователю возможность ввести текст, числа или даже диапазон значений. Для создания окна ввода используются две функции InputBox: одна в VBA, а вторая в Excel.

[, По_умолчанию] [, xpos] [ ,ypos] [, Справка, Раздел])
• Запрос— указывает текст, отображаемый в окне ввода (обязательный параметр).
• Заголовок— определяет заголовок окна ввода (необязательный параметр).
• По_умолчанию— задает значение, которое отображается в окне ввода по умолчанию (необязательный параметр).
• xpos, ypos— определяют координаты верхнего левого угла окна ввода на экране (необязательные параметры).
• Справка, Раздел— указывают файл и раздел в справочной системе (необязательные параметры).

с запятой
x = InputBox("Введите число", "Ввод числа ", , 50,50)
либо указываются непосредственно названия вводимых параметров, после параметра ставится двоеточие и равно, а затем указывается его значение
x = InputBox(prompt:="Введите число", _
Title:=" Ввод числа ", xpos:=45, ypos:=45)

поэтому может понадобиться преобразовать результат в числовое значение.
Текст, отображаемый в окне ввода, может достигать 1024 символов (длина может изменяться в зависимости от ширины используемых символов).

x & " Тип данных: " _
& TypeName(x)
End Sub

InputBox возвращает пустую текстовую строку, поэтому для того чтобы запрограммировать выход из процедуры нажатием кнопки Cancel, надо ввести условную конструкцию If, в которой проверяется истиность условия ввода пустой строки.

Cancel
If x = "" Then
Exit Sub
End If

MsgBox "Переменная " & x & " Тип данных: " _
& TypeName(x)
End Sub

предоставляет три преимущества:
• можно задать тип возвращаемого значения;
• можно указать диапазон листа, обведя мышью ячейки листа;
• производится автоматическая проверка правильности введенных данных.

отображаемый в окне ввода (обязательный параметр).
• Заголовок — определяет заголовок окна ввода (необязательный параметр).
• По_умолчаиию — задает значение, которое отображается в окне ввода но умолчанию
(необязательный параметр).

экране
(необязательные параметры).
• Справка, Раздел— указывают файл и раздел в справочной системе (необязательные параметры).
• Тип— указывает код типа данных, который будет возвращаться методом (необязательный параметр).

(текст)
•1 Булево значение (ИСТИНА ИЛИ ЛОЖЬ)
8 Ссылка на ячейку как объект диапазона
16 Значение ошибки, такое, как # н / д
64 Массив значений

", Type:=1)
MsgBox "Переменная " & x & " Тип данных: " _
& TypeName(x)
End Sub

", _ Title:=" Ввод числа ", Type:=64) Range("A1:C1") = x End Sub

выделенный диапазон был помещен в указанные ячейки

InputBox возвращает False, поэтому для того чтобы запрограммировать выход из процедуры нажатием кнопки Cancel, надо ввести условную конструкцию If, в которой проверяется истинность условия ввода False.

", Type:=1)

' проверка на нажатие Cancel
If x = False Then
Exit Sub
End If

MsgBox "Переменная " & x & " Тип данных: " _
& TypeName(x)
End Sub