- •Предисловие
- •1. Основы программирования в Microsoft Office
- •1.2. Что такое язык VBA
- •1.3. Макрорекордер: быстрое создание макросов
- •1.4. Четыре способа запуска макроса
- •2.1. Общие сведения
- •2.3.1. Как открыть редактор кода и как он устроен
- •2.3.2. Список объектов и список событий
- •2.3.3. Закладки и разделение окна редактирования
- •2.3.4. Как редактор помогает писать код
- •2.4. Работа со справкой
- •3. Синтаксис и программные конструкции VBA
- •3.1. Основы синтаксиса
- •3.2. Операторы
- •3.3. Переменные и типы данных
- •3.4. Константы
- •3.5. Операторы условного и безусловного перехода
- •3.5.2. Оператор Select Case
- •3.5.3. Оператор GoTo
- •3.6. Работа с циклами
- •3.7. Массивы
- •3.8. Процедуры и функции
- •3.8.1. Виды процедур
- •3.8.2. Область видимости процедур
- •3.8.3. Объявление процедур
- •3.8.4. Передача параметров
- •3.8.5. Вызов и завершение работы процедур
- •3.9. Встроенные функции языка VBA
- •3.9.1. Что такое встроенные функции
- •3.9.2. Функции преобразования и проверки типов данных
- •3.9.3. Строковые функции
- •3.9.4. Функции для работы с числовыми значениями
- •3.9.5. Функции для работы с датой и временем
- •3.9.6. Функции для форматирования данных
- •3.9.7. Функции для организации взаимодействия с пользователем
- •3.9.9. Функции для работы с массивами
- •3.9.10. Функции для работы с файловой системой
- •3.9.11. Другие функции VBA
- •4. Работа с объектами и объектные модели
- •4.1. Что такое классы и объекты
- •4.2. Создание и удаление объектов
- •4.3. Методы объекта
- •4.4. Свойства объекта
- •4.6. Просмотр объектов
- •4.7. Объектные модели
- •5. Формы, элементы управления и события
- •5.1. Для чего нужны формы
- •5.2. Создание форм и самые важные свойства и методы форм
- •5.3. Элементы управления
- •5.3.1. Что такое элемент управления
- •5.3.2. Элемент управления Label
- •5.3.3. Элемент управления TextBox
- •5.3.4. Элемент управления ComboBox
- •5.3.5. Элемент управления ListBox
- •5.3.7. Элементы управления OptionButton и Frame
- •5.3.8. Элемент управления CommandButton
- •5.3.9. Элементы управления ScrollBar и SpinButton
- •5.3.10. Элементы управления TabStrip и MultiPage
- •5.3.11. Элемент управления Image
- •5.3.12. Применение дополнительных элементов управления
- •6. Отладка и обработка ошибок в программе
- •6.1. Типы ошибок
- •6.2.1. Тестирование
- •6.2.2. Переход в режим паузы
- •6.2.3. Действия в режиме паузы
- •6.2.4. Окно Immediate
- •6.2.5. Окно Locals
- •6.2.6. Окно Watches
- •6.3. Перехват и обработка ошибок времени выполнения
- •7. Работа с помощником
- •8. Работа с панелями инструментов и меню
- •9.1. Зачем нужно работать с базами данных
- •9.2. Что такое ADO
- •9.3. Объект Connection и коллекция Errors
- •9.4. Подключение к таблице на листе Excel
- •9.5. Объект Recordset и коллекция Fields
- •9.5.1. Открытие Recordset
- •9.5.3. Перемещение по Recordset
- •9.5.4. Коллекция Fields и объекты Field
- •9.5.5. Сортировка и фильтрация данных
- •9.5.6. Изменение записей на источнике при помощи объекта Recordset
- •9.5.7. Прочие свойства и методы объекта Recordset
- •10. Программирование в Word
- •10.1. Зачем программировать в Word
- •10.3. Объект Application
- •10.3.1. Как работать с объектом Application
- •10.3.2. Свойства, методы и события объекта Application
- •10.4. Коллекция Documents и объекты Document
- •10.4.1. Как работать с коллекцией Documents
- •10.4.2. Свойства и методы коллекции Documents
- •10.4.3. Работа с объектом Document, его свойства и методы
- •10.5. Объекты Selection, Range и Bookmark
- •10.5.1. Работа с объектом Selection
- •10.5.2. Свойства и методы объекта Selection
- •10.5.3. Работа с объектом Range, его свойства и методы
- •10.5.4. Объект Bookmark
- •10.6. Другие объекты Word
- •10.6.1. Коллекция AddIns и объекты AddIn
- •10.6.2. Объект AutoCorrect
- •10.6.3. Коллекция Languages и объект Language
- •10.6.4. Объект Options
- •10.6.5. Объекты Find и Replacement
- •10.6.6. Объекты Font и ParagraphFormat
- •10.6.7. Объект PageSetup
- •10.6.8. Объекты Table, Column, Row и Cell
- •10.6.9. Объект System
- •10.6.10. Коллекция Tasks и объект Task
- •10.6.11. Коллекция Windows и объект Window
- •11. Программирование в Excel
- •11.1. Зачем программировать в Excel
- •11.2. Объект Application
- •11.3. Свойства и методы объекта Application
- •11.4. Коллекция Workbooks и объект Workbook, их свойства и методы
- •11.5. Коллекция Sheets и объект Worksheet, их свойства и методы
- •11.6. Объект Range, его свойства и методы
- •11.7. Коллекция QueryTables и объект QueryTable
- •11.9. Работа с диаграммами (объект Chart)
- •11.10. Другие объекты Excel
- •12. Программирование в Access
- •12.1. отличительные особенности создания приложений в Access
- •12.2. Основные этапы создания приложений в Access
- •12.4. Макрокоманды и объект DoCmd
- •12.5. Работа с формами Access из VBA (объект Form)
- •12.6. Свойства, методы и события форм
- •12.7. Работа с отчетами (объект Report)
- •13. Программирование в Outlook
- •13.1. Зачем программировать в Outlook
- •13.2. Некоторые особенности программирования в Outlook
- •13.4. Объект Namespace
- •13.5. Коллекция Folders и объект MAPIFolder
- •13.7. Другие объекты Outlook
- •14. Программирование в PowerPoint
- •15. Программирование в Project
- •15.1. Основы программирования в Project Professional. Объект Application
58 |
Глава 3 |
при использовании диапазона (0 To 5) включаются и границы диапазона (в данном случае 0 и 5).
3.5.3. Оператор GoTo
Оператор GoTo — это оператор безусловного перехода, когда ход выполнения программы без проверки каких-либо условий перепрыгивает на метку в коде. Пример использования GoTo может выглядеть так:
GoTo EngineNotStarted
...
EngineNotStarted:
MsgBox "Едем на метро"
...
Здесь EngineNotStarted: — это метка, для нее используется имя (выбираемое по правилам назначения имен для переменных), которое оканчивается двоеточием. Эта метка может находиться как до, так и после оператора GoTo. В любом случае, при выполнении оператора GoTo ход выполнения "перепрыгнет" на указанную в GoTo метку.
Иногда использование GoTo очень удобно, например, когда нам нужно добиваться от пользователя ввода правильного значения неизвестное число раз. Однако использовать GoTo категорически не рекомендуется, потому что код становится трудночитаемым. Чаще всего GoTo можно заменить на конструкцию Do While...Loop (см. разд. 3.6) или на вызов функции из самой себя.
Задание для самостоятельной работы 3.2: Работа с операторами условного перехода
Подготовка:
1.Создайте новую книгу Excel и сохраните ее как C:\LabCondConstructions.xls.
2.Откройте редактор Visual Basic в Excel и создайте в этой книге новый стандартный модуль.
3.Введите в этом модуле следующий код:
Public Sub IfThenSub() Dim nResult As Integer
nResult = MsgBox("Нажмите кнопку", vbYesNo, "Окно сообщения") ThisWorkbook.Worksheets(1).Range("A1").Value = _
"Вы нажали кнопку: " & nResult ThisWorkbook.Worksheets(1).Range("A1").Columns.AutoFit
End Sub
Синтаксис и программные конструкции VBA |
59 |
4.Запустите этот код на выполнение и убедитесь, что он выполняется без ошибок. Этот код должен вставлять в ячейку A1 первого листа вашей книги текстовое значение вида "Вы нажали кнопку: 6", в зависимости от того, какая кнопка была нажата в окне сообщения.
Получить информацию о том, какие значения при нажатии какой кнопки возвращаются из окна сообщения, можно при помощи справки по функции
MsgBox().
ЗАДАНИЕ 3.2, А:
Измените код этой процедуры таким образом, чтобы вместо чисел в ячейку вписывалось строковое значение нажатой кнопки (например, "Вы нажали кнопку: Да"). Используйте при этом синтаксическую конструкцию
If...Then...Else.
Ответ к заданию 3.2, А:
Итоговый код для вашей процедуры может быть таким:
Public Sub IfThenSubAnswer()
Dim nResult As Integer
nResult = MsgBox("Нажмите кнопку", vbYesNo, "Окно сообщения") If nResult = vbYes Then
sResult = "Да"
ElseIf nResult = vbNo Then sResult = "Нет"
Else
sResult = "Неизвестная кнопка" End If
ThisWorkbook.Worksheets(1).Range("A1").Value = "Вы нажали кнопку: " _ & sResult
ThisWorkbook.Worksheets(1).Range("A1").Columns.AutoFit End Sub
ЗАДАНИЕ 3.2, Б:
Замените в вашей процедуре строку:
nResult = MsgBox("Нажмите кнопку", vbYesNo, "Окно сообщения")
на:
nResult = MsgBox("Нажмите кнопку", vbAbortRetryIgnore, "Окно сообщения")
Измените вашу процедуру таким образом, чтобы она вставляла в ячейку A1 значения "Прервать", "Повторить" или "Пропустить", в зависимости от того, какая кнопка в окне сообщения была нажата. Используйте при этом синтаксическую конструкцию Select Case.
60 |
Глава 3 |
Ответ к заданию 3.2, Б:
Итоговый код для вашей процедуры может быть таким:
Private Sub SelectCaseAnswer()
nResult = MsgBox("Нажмите кнопку", vbAbortRetryIgnore, "Окно сообщения")
Select Case nResult Case vbAbort
sResult = "Отменить" Case vbRetry
sResult = "Повторить" Case vbIgnore
sResult = "Пропустить" Case Else
sResult = "Неизвестная кнопка" End Select
ThisWorkbook.Worksheets(1).Range("A1").Value = "Вы нажали кнопку: " _ & sResult
ThisWorkbook.Worksheets(1).Range("A1").Columns.AutoFit End Sub
3.6. Работа с циклами
Циклы используются в ситуациях, когда нам нужно выполнить какое-либо действие несколько раз. Первая ситуация — мы знаем, сколько раз нужно выполнить определенное действие, в этом случае используется конструкция
For...Next:
For iCounter = 1 to 10
MsgBox "Счетчик: " & iCounter
Next
Чтобы указать, насколько должно прирастать значение счетчика, используется ключевое слово Step:
For iCounter = 1 to 10 Step 2
MsgBox "Счетчик: " & iCounter
Next
Можно и уменьшать исходное значение счетчика:
For iCounter = 10 to 1 Step -2
MsgBox "Счетчик: " & iCounter
Next
Синтаксис и программные конструкции VBA |
61 |
Для безусловного выхода из конструкции For...Next используется команда
Exit For:
VStop = InputBox("Введите значение останова")
VInput = CInt(VStop)
For iCounter = 1 to 10
MsgBox "Счетчик: " & iCounter
If iCounter =VInput Then Exit For
Next
Очень часто в VBA требуется сделать какое-нибудь действие со всеми элементами коллекции или массива — перебрать все открытые документы, все листы Excel, все ячейки в определенном диапазоне и т. п. Для того чтобы пройти циклом по всем элементам коллекции, используется команда
For Each...Next:
For Each oWbk in Workbooks
MsgBox oWbk.Name
Next
При использовании этого приема можно очень просто найти и получить ссылку на нужный нам объект:
For Each oWbk in Workbooks
If oWbk.Name = "Сводка.xls" Then
Set oMyWorkBook = oWbk
Exit For
End If
Next
В этом случае мы проходим циклом по всем элементам коллекции Workbooks (т. е. по открытым рабочим книгам в Excel), для каждой книги проверяем ее имя и, если нашли книгу с именем "Сводка.xls", получаем на нее ссылку и выходим из цикла. Коллекция рабочих книг — это специальная коллекция, которая умеет производить поиск в себе по имени элемента, поэтому, в принципе, можно было обойтись такой строкой:
Set oMyWorkBook = Workbooks("Сводка.xls")
Но для многих других коллекций без конструкции For Each...Next не обойтись.
Еще одна ситуация: когда мы не знаем точно, сколько раз должна быть выполнена та или другая команда — это зависит от какого-либо условия. В этом случае используются конструкции Do While...Loop и Do Until...Loop.
Конструкция Do While...Loop означает: выполнять какое-либо действие до тех пор, пока условие истинно:
62 |
Глава 3 |
Do While MyVar < 10
MyVar = MyVar + 1
MsgBox "MyVar = " & MyVar
Loop
Применений на практике — множество: пройти по всему набору записей, пока они не закончатся, требовать от пользователя ввести подходящее значение, пока он наконец не введет его, и т. п.
Если вы случайно запустили в своей программе бесконечный цикл, нажмите на клавиши <Ctrl>+<Break>. Откроется окно, аналогичное представленному на рис. 3.1, в котором вы сможете продолжить выполнение (кнопка Continue), завершить его (End) или открыть ваш код в отладчике (Debug).
Рис. 3.1. Выполнение макроса остановлено по <Ctrl>+<Break>
Второй вариант — Do Until...Loop. Все выглядит точно так же, за одним исключением: цикл будет выполняться до тех пор, пока условие ложно.
Do Until MyVar >= 10
MyVar = MyVar + 1
MsgBox "MyVar = " & MyVar
Loop
Можно переписать цикл так, чтобы условие проверялось после завершения цикла:
Do
MyVar = MyVar + 1
WScript.Echo "MyVar = " & MyVar
Loop While MyVar < 10
В этом случае цикл будет выполнен, по крайней мере, один раз. Немедленный выход из цикла можно произвести по команде Exit Do.