Что такое язык VBA (стр. 2 )

Окно Проводника проектов при первой активизации редактора Visual Basic обычно открыто. Если оно случайно было закрыто, то вызвать его можно:

·  нажав на клавиши <Ctrl>+<R>;

·  нажав на кнопку Project Explorer на панели Standard ;

·  воспользовавшись меню View -> Project Explorer.

В окне Project Explorer представлено дерево компонентов вашего приложения VBA.

Самый верхний уровень — это проект (Project), которому соответствует документ Word, рабочая книга Excel, презентация PowerPoint и прочие файлы, с которыми работает данное приложение. Например, если вы открыли редактор Visual Basic из Word, то в Project Explorer будут представлены все открытые в настоящее время файлы Word и еще шаблон Normal. dot. Если редактор Visual Basic открыт из Excel, то в Project Explorer будут открытые книги Excel и специальная скрытая книга PERSONAL. XLS.

Помимо того, что обычно содержится в документах Office (текст, рисунки, формулы и т. п.), каждый проект (который и есть документ) — это одновременно и контейнер для хранения стандартных модулей, модулей классов и пользовательских форм. Добавить в проект каждый из этих компонентов можно при помощи меню Insert или через контекстное меню в Project Explorer.

Стандартные модули — это просто блоки с текстовым представлением команд VBA. В нем может быть только два раздела:

·  раздел объявлений уровня модуля (объявление переменных и констант уровня модуля);

·  раздел методов модуля (расположение процедур и функций).

При работе макрорекордера в Word в проекте Normal. dot или текущем документе (в зависимости от места сохранения макроса) автоматически создается стандартный модуль NewMacros (в Excel — Module1), куда и записываются все создаваемые макрорекордером макросы.

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

·  для удобства экспорта и импорта (из контекстного меню в Project Explorer). Так можно очень удобно обмениваться блоками кода между приложениями VBA (и обычного VB);

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

·  для улучшения читаемости. Если ваше приложение выполняет разные группы задач, то код, относящийся к каждой группе, лучше поместить в свой модуль.

Модули классов позволяют создавать свои собственные классы — чертежи, по которым можно создавать свои собственные объекты. Обычно используются только в очень сложных приложениях. Применяются они в обычных приложениях VBA редко, и здесь рассматриваться не будут.

Пользовательские формы являются одновременно хранилищем элементов управления и программного кода, который относится к ним, самой форме и происходящими с ними событиями. Подробнее про формы будет рассказано в модуле 5.

Еще один важный контейнер в Project Explorer — контейнер References (в Excel его нет), то есть контейнер ссылок. В нем показывается, ссылки на какие другие проекты (документы Word) есть в нашем проекте, и, соответственно, какие "чужие" программные модули мы можем использовать. По умолчанию в каждый проект Word помещается ссылка на Normal (то есть шаблон normal. dot) — и вы в любом файле можете использовать макросы оттуда.

Обратите внимание, что в этом контейнере — только ссылки на другие документы. Про добавление ссылок на другие объектные библиотеки мы поговорим в модуле 4.

Еще одна полезная возможность Project Explorer — возможность настроить свойства проекта. Для этого нужно щелкнуть правой кнопкой мыши по узлу Project (VBAProject в Excel) и в контекстном меню выбрать Project Properties (то же окно можно открыть и через меню Tools -> Project Properties. В этом окне можно:

·  изменить имя проекта. Эта возможность потребуется, если у вас есть ссылки на проект с одинаковыми именами;

·  ввести описание проекта, информацию о файле справки и параметры, которые будут использоваться компилятором;

·  защитить проект, введя пароль. Не зная этот пароль, проект нельзя будет просмотреть или отредактировать.

И все-таки, что обычно приходится делать в окне Project Explorer?

Если вам нужно создать свой макрос вручную, а макросов в данном документе еще нет, то нужно будет щелкнуть правой кнопкой мыши по узлу проекта (строки, выделенной полужирным цветом) и в контекстном меню дать команду Insert -> Module. В проекте будет создан новый модуль и сразу открыт в окне редактора кода. Что делать в этом окне — об этом в следующем разделе этой главы.

Если вы уже создавали макросы в этом проекте (макрорекордером или вручную), то модуль будет уже создан. Его можно будет увидеть под контейнером Modules. Чтобы его открыть в окне редактора кода, достаточно щелкнуть по нему два раза мышью. Там можно будет найти созданные вами средствами макрорекордера макросы.

Внимание! Обязательно подумайте, где вам будет нужен создаваемый код — только в одном документе или во всех документах данного приложения. Если он нужен будет только в одном документе, используйте стандартный программный модуль этого документа. Если во всех, то используйте программные модули проекта Normal (в Word) или PERSONAL. XLS (в Excel).

Если вам нужно создать графическую форму с элементами управления (кнопками, текстовыми полями, ниспадающими списками и т. п.), то нужно щелкнуть правой кнопкой мыши по узлу проекта и в контекстном меню выбрать Insert -> UserForm. Новая форма будет создана и открыта в окне дизайнера форм. Подробнее о работе с этим редактором — в соответствующей главе.

Теперь, когда программный модуль создан (или найден), можно приступать к работе с редактором кода VBA. Об этом — в следующем разделе.

Задание для самостоятельной работы 2: Редактирование макроса

Задание:

Измените созданный вами на самостоятельной работе 1 макрос таким образом, чтобы он запрашивал фамилию ответственного исполнителя. Для этого:

впечатайте первыми строки кода макроса (над первой строкой Selection. TypeText) строки

Dim sInput As String

sInPut = InputBox ("Введите фамилию ответственного исполнителя", "Запрос данных")

замените строку

Selection. TypeText Text :=("Отв. исполнитель ")

(фамилия должна быть Ваша)

на строку:

Selection. TypeText Text:=("Отв. исполнитель " & sInput)

Сохраните измененный макрос, закройте окно редактора кода и убедитесь, что макрос теперь работает по-новому.

Задание для самостоятельной работы 3.1: Работа с переменными и операторами

Подготовка:

·  Создайте новую книгу Excel и сохраните ее как C:\LabVariablesOperators. xls. Введите в ячейки A1, A2 и A3 этой книги любые значения.

·  Откройте редактор Visual Basic в Excel и создайте в этой книге новый стандартный модуль Module1.

·  Введите в этом стандартном модуле следующий код:

Public Sub FromExcelToWord()

MsgBox Range("A1").Text

MsgBox Range("A2").Text

MsgBox Range("A3").Text

Set oWord = CreateObject("Word. Application")

oWord. Visible = True

Set oDoc = oWord. Documents. Add()

oDoc. Activate

oWord. Selection. TypeText "Вставляемый текст"

End Sub

·  Убедитесь, что этот код работает без ошибок.

Этот код выводит в окна сообщений значения ячеек A1, A2 и A3, а затем открывает Word и впечатывает в начало нового документа строку "Вставляемый текст".

Задание:

Измените код этой процедуры таким образом, чтобы вместо строки "Вставляемый текст" выводилось значение ячеек A1, A2 и A3 вместе.

Решение:

Итоговый код может выглядеть так:

Public Sub FromExcelToWordAnswer()

Dim sA1, sA2, sA3, sText As String

sA1 = ThisWorkbook. Worksheets(1).Range("A1").Text

sA2 = ThisWorkbook. Worksheets(1).Range("A2").Text

sA3 = ThisWorkbook. Worksheets(1).Range("A3").Text

sText = sA1 + " " + sA2 + " " + sA3

Set oWord = CreateObject("Word. Application")

oWord. Visible = True

Set oDoc = oWord. Documents. Add()

oDoc. Activate

oWord. Selection. TypeText sText

End Sub

Задание для самостоятельной работы 3.2: Работа с операторами условного перехода

Подготовка:

·  Создайте новую книгу Excel и сохраните ее как C:\LabCondConstructions. xls.

·  Откройте редактор Visual Basic в Excel и создайте в этой книге новый стандартный модуль Module1.

·  Введите в этом стандартном модуле следующий код:

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

·  Запустите этот код на выполнение и убедитесь, что он выполняется без ошибок. Этот код должен вставлять в ячейку A1 первого листа вашей книги текстовое значение вида "Вы нажали кнопку: 6" в зависимости от того, какая кнопка была нажата в окне сообщения.

Задание 1:

Измените код этой процедуры таким образом, чтобы вместо чисел в ячейку прописывалось строковое значение нажатой кнопки (например, "Вы нажали кнопку: Повтор"). Используйте при этом синтаксическую конструкцию IF…THEN…ELSE.

Задание 2:

Замените в вашей процедуре строку

nResult = MsgBox ("Нажмите кнопку", vbYesNo, "Окно сообщения")

на

nResult = MsgBox ("Нажмите кнопку", vbAbortRetryIgnore, "Окно сообщения")

Измените вашу процедуру таким образом, чтобы она вставляла в ячейку A1 значения "Отменить", "Повторить" или "Пропустить" в зависимости от того, какая кнопка была нажата в окне сообщения. Используйте при этом синтаксическую конструкцию Select…Case.