Файл: Программирование на VBA.pdf

сначала открыть модуль, содержащий этот макрос.

Задание 1. Откройте модуль в Excel, содержащий макрос

FormatArialBoldl2.

Для этого:

üнажмите Alt+F11, чтобы активизировать Редактор VB, если он еще не

открыт;

üвыберите команду View/Project Explorer (Вид/Окно проекта), чтобы отобразить Project Explorer;

üпросмотрите дерево-список в Project Explorer, чтобы найти модуль, который вам необходимо отобразить. Если опция просмотра папок в Project Explorer включена, вы найдете все модули проекта в папке Modules вашего проекта;

üдважды щелкните на модуле, который вам необходим; Редактор VB отображает этот модуль в Code Window (Окно программы).

После того как вы отобразите модуль, можете использовать список Procedure (Процедура) в Code Window для получения определенного макроса в этом модуле.

Замечание 1. Когда вы записывали макрос FormatArialBoldl2 в Excel 2003 во время изучения первой части, вы сохранили его в рабочей книге Personal.xls. Если это был первый макрос, какой вы когда-либо записали и сохранили в Personal.xls, Excel сохранил макрос FormatArialBoldl2 в модульном листе с именем Module1. Если бы вы затем записали другой макрос в том же самом сеансе работы, Excel также сохранил бы его в том же самом модуле (Module1). Если вы выходили из Excel между временем записи вами макроса FormatArialBoldl2 и временем записи другого макроса, Excel сохранил последний макрос в другом модуле (скорее всего, в Module2).

Использование инструмента Object Browser

Вместо поиска по всему тексту во всех модулях определенного макроса вы можете использовать инструмент, называемый Object Browser, чтобы найти этот макрос, вывести на экран или редактировать в Excel.

Задание 2. Найдите макрос FormatArialBoldl2 в Excel с помощью Object Browser.

Для этого:

üнажмите Alt+F11, чтобы открыть Редактор VB

üвыберите View/Project Explorer (Вид/Окно проекта) для отображения

Project Explorer;

üв Project Explorer выделите проект VBA VBAProject (PERSONAL.XLS), в

котором вам необходимо найти макрос FormatArialBoldl2;

üвыберите команду View/Object Browser (Вид/Просмотр объектов).

Редактор VB отобразит диалоговое окно Object Browser (рис. 5);

üубедитесь, что в раскрывающемся списке Project/Library

(Проект/Библиотека) выделен элемент <AII Libraries> (<Все библиотеки>). Окно

21

Object Browser отображает все имеющиеся модули и объекты в списке Classes

(Классы);

Project/Library

Search Text

Search

Рис. 5

üвведите имя макроса FormatArialBoldl2, который вам необходимо найти,

вполе Search Text (Образец поиска);

Рис. 6

22

ü щелкните на кнопке Search (Поиск) в окне Object Browser. Object Browser выполняет поиск текста, который вы ввели в окно Search Text, в вашем проекте VBA (а также в других открытых в данный момент библиотеках);

После выполнения поиска меняется вид окна Object Browser: оно отображает список Search Results (рис. 6). Если Object Browser обнаружил макросы, совпадающие с текстом в окне Search Text (Образец поиска), они отображаются в списке Search Results (Результаты поиска). В противном случае,

вэтом списке отображается сообщение No items found (Элементы не найдены).

üЩелкните на макросе в списке Search Results, затем – на кнопке View Definition (Описания) в окне Object Browser. Редактор VB открывает Code Window

(Программы) для модуля, содержащего этот макрос, и отображает исходный код макроса (листинг 1).

Листинг 1 – Текст макроса FormatArialBold12

1Sub FormatArialBold12()

2'

3' FormatArialBold12 Макрос

4' Макрос записан 12.11.2007 (Titov) Форматирует текст диапазона: Arial, Bold, 12

5'

6

7'

8With Selection.Font

9.Name = "Arial"

10.FontStyle = "полужирный"

11.Size = 12

12.Strikethrough = False

13.Superscript = False

14.Subscript = False

15.OutlineFont = False

16.Shadow = False

17.Underline = xlUnderlineStyleNone

18.ColorIndex = xlAutomatic

19End With

20End Sub

Замечание 2. Исходный код макроса в реальных модулях не включает номер каждой строки; в этом учебно-методическом пособии во всех листингах приведены номера строк, чтобы было легче обозначать и обсуждать отдельные строки в различных листингах-примерах.

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

üнажмите Alt+F11, чтобы открыть Редактор VB;

üвыберите View/Project Explorer (Вид/Окно проекта), чтобы отобразить

Project Explorer;

üв Project Explorer выделите проект VBA, в котором вам необходимо

23

найти макрос;

üвыберите команду View/Object Browser (Вид/Просмотр объектов).

Редактор VB отображает диалоговое окно Object Browser;

üвыделите имя вашего проекта в раскрывающемся списке Project/Library окна Object Browser. Если только вы не изменили имени вашего проекта, он называется VBAProject в Excel;

üвыделите модуль в списке Classes (Классы). Окно Object Browser отображает теперь все макросы в выделенном модуле в списке Members of <object> (Компонент <объект>). Точный заголовок этого списка изменяется в зависимости от объекта, выделенного в списке Classes;

üвыделите макрос, исходный код которого вам необходимо увидеть, в

списке Members of