Основы языка программирования VBA (Visual Basic for Application) Офисное программирование
Создание проекта программы на VBA состоит из 2 этапов: 1. Размещение элементов управления на рабочем листе Excel или на форме пользователя 2. Написание текстов процедур для этих элементов
Основные элементы управления Кнопка - CommandButton Поле со списком - ComboBox Поле - TextBox Надпись - Label
Кнопка Поле со списком Поле Надпись
Элементы управления находятся на вкладке Разработчик
Вкладка Разработчик 1. Оffice 2. Параметры Excel 3. Показывать вкладку «Разработчик» на ленте. 4. Кнопка Вставить
Кнопка
Свойства командных кнопок Caption – название Font – шрифт ForeColor – цвет букв BackColor – цвет фона
Задаются в окне свойств Properties В контекстном меню кнопки выбрать команду Свойства
Объекты VBA Workbooks - рабочая книга, Worksheets - рабочий лист, Cells - ячейки, Range - область
Worksheets(Пример) – рабочий лист с именем Пример Worksheets(Лист 1) – рабочий лист с именем Лист 1
Ячейка A4 – Cells(4, 1) или Range(A4) Ячейка C2 – Cells(2, 3) или Range(C2) Номер строки Номер столбца
Чтобы запустить программу на выполнение надо: 1. Отключить кнопку Режим конструктора на вкладке Разработчик 2. Щелкнуть левой кнопкой мыши по элементу управления Кнопка
1. Включить Режим конструктора на вкладке Разработчик 2. Щелкнуть 2 ЛКМ по элементу управления Кнопка или 1 ПКМ по элементу управления Кнопка и выбрать команду Исходный текст Чтобы изменить текст программы надо:
Сохранять файл необходимо как Книга Excel с поддержкой макросов Файл сохраняется с расширением XLSM, например primer1.xlsm
Вкладка Разработчик / Кнопка Безопасность макросов Отметить кнопку Включить все макросы. Закрыть файл и запустить его снова. Если программы не запускаются после открытия файла, необходимо включить макросы. Для этого:
Запуск редактора VBA 1 способ: 2 ЛКМ по созданной Кнопке 2 способ: 1 ПКМ по созданной Кнопке / Исходный текст 3 способ: Кнопка Visual Basic на ленте Разработчик 4 способ: Alt + F11
Текст программы
Пример Private Sub CommandButton1_Click() Dim S As String s = InputBox(Как Вас зовут?") MsgBox Привет & s End Sub
используется для вывода данных в отдельное окно. Функция MsgBox()
Запуск программы на выполнение Приостановить выполнение Остановить выполнение программы
Ошибка в программе