- •3 Семестр
- •Оглавление
- •Язык программирования Visual Basic for Application Основные средства и возможности vba Основные элементы vba
- •Основы программирования на vba Типы данных
- •Описание переменных
- •Допустимые имена
- •Инструкция Def Тип
- •Массивы
- •Динамические массивы
- •Функции и процедуры для работы с массивами
- •Константы
- •Тип данных, определенный пользователем
- •Операции vba
- •Приоритеты операций
- •Встроенные функции vba
- •Математические функции
- •Функции проверки типов
- •Функции преобразования форматов
- •Функции обработки строк
- •Функции времени и даты
- •Функции выбора
- •Функции, возвращающие строки
- •Встроенные диалоговые окна
- •Инструкции vba
- •Оператор присвоения
- •Перенос строки
- •Комментарии
- •Расположение нескольких операторов на одной строке
- •Операторы перехода и выбора
- •Операторы повтора
- •Условная компиляция
- •Процедура
- •Переход в подпрограмму и возвращение из подпрограммы
- •Вызов процедуры
- •Рекурсивные процедуры
- •Область определения переменной
- •Время жизни переменной
- •Процедуры обработки ошибок и отладка программ Разработка процедур, предотвращающих появление ошибок
- •Перехват и обработка ошибок
- •Свойства объекта Err
- •Методы объекта Err
- •Отладка программ
- •Ошибки компиляции
- •Ошибки выполнения
- •Логические ошибки
- •Инструкция Option Explicit
- •Пошаговое выполнение программ
- •Точка останова
- •Вывод значений свойств и переменных
- •Работа с файлами Типы файлов в vba
- •Открытие и закрытие файла
- •Ввод данных в файл последовательного доступа
- •Вывод данных из файла последовательного доступа
- •Работа с файлом произвольного доступа
- •Наиболее употребляемые инструкции и функции при работе с файлами
- •Объект FileSearch
- •Элементы управления и пользовательская форма Элементы управления
- •Режим конструктора
- •Установка свойств элемента управления
- •Редактор кода
- •Пользовательская форма UserForm
- •Семейство Controls
- •Создание пользовательской формы
- •Общие свойства элементов управления
- •Соглашения об именах
- •Общие методы и события элементов управления
- •Объект DataObject
- •Надпись
- •Заполнение списка
- •Выбор нескольких элементов из списка
- •Поле со списком
- •Полоса прокрутки и счетчик
- •Переключатель
- •Флажок и выключатель
- •Ссылки на ячейки и диапазоны
- •Набор страниц
- •Набор вкладок
- •Дополнительные элементы управления
- •Последовательность выбора элементов управления
- •Инициализация и отображение диалогового окна
- •Закрытие диалогового окна
- •Отображение встроенных диалоговых окон
- •Открытие документа
- •Объект Application
- •Свойства объекта Application
- •Методы объекта Application
- •События объекта Application
- •Объект Workbook и семейство Workbooks
- •Свойства объекта Workbook и семейства Workbooks
- •Методы объекта Workbook и семейства Workbooks
- •События объекта Workbook и семейства Workbooks
- •Объект Worksheet и семейство Worksheets
- •Свойства объекта Worksheet и семейства Worksheets
- •Методы объекта Worksheet и семейства Worksheet
- •События объекта Worksheet
- •Объекты Range и Selection
- •Адресация ячеек
- •Задание групп строк и столбцов с помощью объекта Range
- •Связь объекта Range и свойства Cells
- •Свойства и методы объекта Range
- •Программирование панели инструментов
- •Объект CommandBar и семейство CommandBars
- •Семейство CommandBarControls и объект CommandBarControl
- •Пример создания панели инструментов пользователя
- •Пример создания строки меню пользователя
- •Создание пользовательской панели инструментов вручную
- •Удаление элемента управления из панели инструментов вручную
- •Удаление пользовательской панели инструментов вручную
- •Назначение вручную макроса кнопке
- •Изменение и создание вручную изображения на кнопке
- •Программирование средств для работы со справочной информацией
- •Структура помощника
- •Типы помощника
- •Свойства объекта Assistant
- •Объект Balloon
Встроенные диалоговые окна
Проектах VBA часто встречаются две разновидности диалоговых окон: окна сообщений и окна ввода. Они встроены в VBA, и если их возможностей достаточно, то можно обойтись без проектирования диалоговых окон. Окно сообщений (MsgBox) выводит простейшие сообщения для пользователя, а окно ввода (inpuBox) обеспечивает ввод информации.
Функция InputBox |
Выводит на экран диалоговое окно, содержащее сообщение и поле ввода, устанавливает режим ожидания ввода текста пользователем или нажатия кнопки, а затем возвращает значение типа string, содержащее текст, введенный в поле. Синтаксис: InputBox (prompt [, title] [, default] [, xpos] _ [, ypos] [, helpfile, context]) Аргументы:
|
Процедура MsgBox |
Выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия кнопки пользователем, а затем возвращает значение типа integer, указывающее, какая кнопка была нажата. Синтаксис: MsgBox(prompt[, buttons] [, title] [, helpfile, context]) Аргументы:
|
Таблица 11.1. Значения аргумента buttons процедуры MsgBox, определяющие отображаемые кнопки в диалоговом окне
Константа |
Значение |
Отображаются кнопки |
vbOKOnly |
0 |
|
vbOKCancel |
1 |
|
vbAbortRetryIgnore |
2 |
|
vbYesNoCancel |
3 |
|
vbYesNo |
4 |
|
vbRetryCancel |
5 |
|
Таблица 11.2. Значения аргумента buttons процедуры MsgBox, определяющие отображаемые информационные значки в диалоговом окне
Константа |
Значение |
Отображаются кнопки |
vbCritical |
16 |
|
vbQuestion |
32 |
|
vbExclamation |
48 |
|
vbInformation |
64 |
Таблица 11.3. Значения аргумента buttons процедуры MsgBox, определяющие основную кнопку в диалоговом окне
Константа |
Значение |
Номер основной кнопки |
vbDefaultButton1 |
0 |
1 |
vbDefaultButton2 |
256 |
2 |
vbDefaultButton3 |
512 |
3 |
vbDefaultButton4 |
768 |
4 |
При написании программ с откликом, в зависимости от того, какая кнопка диалогового окна нажата, вместо возвращаемых значений удобнее использовать следующие константы VBA, которые делают код программы более удобочитаемыми, к тому же, их легко запомнить.
Константа
|
Значение
|
Нажатая кнопка |
vbOK
|
I
|
OK
|
vbCancel
|
2
|
Отмена (Cancel)
|
vbAbort
|
3
|
Прервать (Abort)
|
vbRetry
|
4
|
Повторить (Retry)
|
vblgnore
|
5
|
Пропустить (Ignore)
|
vbYes
|
6
|
Да (Yes)
|
vbNo
|
7
|
Нет (No) |
Приведем пример использования окон сообщений. В результате действия приведенной ниже процедуры ТестОкон появится диалоговое окно пример окна ввода с полем ввода (рис. 11.1). Следуя приглашению в этом диалоговом окне, введем в поле ввода имя, например Андрей. Нажмем кнопку ОК. На экране отобразится диалоговое окно пример окна сообщения с текстом приветствия (рис. 11.2). Если пользователь не введет имя в поле ввода диалогового окна пример окна ввода или нажмет кнопку Отмена, то компьютер выразит свое неудовлетворение действиями пользователя отображением диалогового окна Еще один пример окна сообщения (рис. 11.3).
Рис. 11.1.-Диалоговое окно Пример окна ввода
Рис. 11.2.-Диалоговое окно Пример окна сообщения
Рис. 11.3.-Диалоговое окно Ещё один пример окна сообщения
Private Sub ТестОкон ()
‘
‘ Описание переменной
‘
Dim ИмяКлиента As String
‘
‘ Ввод имени пользователя
‘
ИмяКлиента = InputBox("Введите ваше имя", "Пример окна ввода”)
‘
‘ Реакция программы на ввод имени пользователя
‘
if ИмяКлиента <> “” Then
MsgBox "Привет, " & ИмяКлиента, vblnformation, "Пример окна сообщения"
Else
MsgBox "Невежа, ты забыл ввести свое имя " & ИмяКлиента, vbExclamation,_
"Еще один пример окна сообщения"
End If
End Sub
Приведем еще один пример использования диалоговых окон. Этот пример позволяет отобразить на экране диалоговое окно с тремя кнопками Да, Нет, Отмена и информационным знаком. Клавише <Enter> назначена функция кнопки Да. По нажатию одной из этих кнопок на экране отображается сообщение, подтверждающее нажатие.
Sub ТриКнопки()
Dim Сообщение As String
Dim Кнопка As Integer i
’
' В переменной Сообщение задается структура диалогового окна ’
Сообщение = vbYesNoCancel + vbQuestion + vbbefaultButtonl
‘
‘ В переменную Кнопка вводится целое число, возвращаемое VsgBox при нажатии кнопки
‘
Кнопка= MsgBox("Выбираете Да, Нет или Отмена?", Сообщение, "Еще пример”)
‘
' В зависимости от значения переменной Кнопка,
' на экране отображается соответствующее сообщение
‘
Select Case Кнопка
Case vbYes
MsgBox "Выбрали Да", vblnformation, "Еще пример"
Case vbNo
MsgBox "Выбрали Нет", vblnformation, "Еще пример"
Case vbCancel
MsgBox "Выбрали Отмена", vblnformation, "Еще пример"
End Select
End Sub