Окно просмотра объектов Object Browser
Окно просмотра объектов вызваться командой ViewObjectBrowserили нажатием клавишиF2. Данное окно (Рис. 23) содержит список всех объектов, которые имеются в системе и могут быть использованы при создании проекта.
Рис. 23. Окно ObjectBrowser
Данное окно состоит из трех основных частей.
1. Раскрывающегося списка Project/Library (Проект/Библиотека) в левом верхнем углу окна, в котором можно выбрать различные проекты и библиотеки объектов (например, библиотеки объектовExcel,VBAи т.д.). В данном случае (Рис. 23) отображены все библиотеки (All Libraries).
2. Раскрывающегося списка Classes (Классы), который отображает все классы объектов выбранной библиотеки.
3. Списка Members (Компоненты)отображает все компоненты выбранного класса. При выделении строки в этом списке в нижней части окнаObject Browser отображается дополнительная информация о выбранном компоненте.
Кроме перечисленных элементов, иметься команда Search Text (поиск текста), которая находит нужный класс, справка и другие.
Редактирования макроса, записанного с помощью макрорекордера (на примере msExcel)
Одним из основных способов изучения основ VBAна первых этапах обучения является запись команд с помощью макрорекордера, а затем изучения и редактирование кода записанной операции в окне редактораVBA.
Задание
В
MSExcelдля
быстрого вызова команды по объединению
ячеек и выравниванию расположенных в
них данных по центру служит
кнопка
, расположенная на панели инструментовФорматирование. Некоторым неудобством
от использования данной кнопки является
то, что данные, располагаясь в центре
объединенных ячеек, остаются не
выровненными по вертикали (Рис. 24).
Рис. 24.
Запишем макрос, который бы устранял данный недостаток и вызывался на исполнение с помощью созданной нами кнопки па панели инструментов.
Порядок выполнения
1. Выделим диапазон ячеек с данными, которые необходимо объединить и центрировать и воспользуемся порядком записи макроса, описанным выше (стр.20).
2. Вызываем команду СервисМакросНачать запись и определяем исходные параметры макроса (Рис. 25):
2.1. Имямакроса:Макрос_форматирования;
2.2. Помимо вызова макроса на исполнения с панели инструментов, назначим данному макросу комбинацию клавиш Ctrl+й. Для этого установим курсор в полеСочетание клавиш:введем с клавиатуры букву5й.
2.3. В качестве место хранения макроса выберем Сохранить в: Личная книга макросов, т.е. макрос будет доступен для всех документовExcel.
2.4. В Описании введем «Объединение и центрирование по вертикали и горизонтали».
Рис. 25. Диалоговое окно записи Макроса
3). Начнем запись (Рис. 26), нажав после установления всех параметров на кнопку OK.
Рис. 26. Панель инструментов записи макроса6в MS Excel
4) Применим к выделенному диапазону команду ФорматЯчейкиВыравнивание и установим требуемые параметры -Выравниваниепо горизонтали и вертикали - по центру и объединение ячеек (см. Рис. 27).
5).Остановим запись, нажав на панели записи макроса соответствующую кнопку (см. Рис. 26).
Рис. 27. Диалоговое окно Формата ячейки
6
)
Создадим на панели инструментов кнопку,
которая бы запускалаМакрос_форматирования
на исполнение. Для этого необходимо
выбрать пункт менюСервислибо вызвать контекстное меню к панели
инструментов и выбрать командуНастройка(Рис. 28). В появившемся диалоговом окне
выбрать вкладкуКоманды,
в списке категорий - элементМакросы,
а затем из поляКомандыперемещаем на панель инструментов
(например, на панельФорматирования)
настраиваемую кнопку . . Для того,
чтобы назначить этой кнопке макрос
необходимо щелкнуть по ней правой
кнопкой мыши и в появившемся контекстном
меню выбрать командуНазначить
макрос; из
списка отображенных в появившемся окне
макросов указать нужной (Рис. 29).
7) Проверим работоспособность макроса: выделим нужный диапазон ячеек и щелкнем кнопку вызова макроса на панели инструментов (или нажмем сочетание клавиш Ctrl+й).
Для просмотра или редактирования кода макроса следует выполнить следующую команду: СервисМакрос7. В появившемся окне выделить имя макроса и выбратьИзменить.
Рис. 28. Диалоговое окно Настройки2
Рис. 29. Диалоговое окно Настройки3
В открывшемся окне Visual Basic Editor(редакторVBA) для начала редактирования необходимо в окнеProject(Проект) открыть папкуModules(Модули) и выбрать имя модуля (например»Modulel) — текст макроса отобразится в окне модуля (Рис. 30).
В VBA текст макроса оформляется в виде процедурыSub. Данная процедура создается на основесобытий(например, объединение ячеек и центрирование данных, содержащихся в них) иметодов8.
Рис. 30. Окно редактора VBA
Ниже приведен текст нашего макроса, записанный в VBA-модуле
Sub Макрос_форматирования()
' Макрос_форматирования Макрос
' Объединение и центрирование по вертикали и горизонтали
' Сочетание клавиш: Ctrl+й
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End Sub
Макрос начинается с оператора Sub, за которым следует имя макроса, служащее для его идентификации. Если это имя изменить, соответствующим образом изменится имя макроса в диалоговом окне Macro (Макрос). После имени идет текст макроса, который можно редактировать, а также снабжать комментариями. В начале каждого комментария должен стоять символ апострофа «'». Комментарии можно вставлять в любое место кода макроса; они не влияют на его исполнение. Завершается макрос оператором End Sub.
Между операторами Sub и End Sub находиться тело макроса, которое содержит описание выполняемых команд на языке VBA.
Изменяя код макроса (свойства и методы объектов, их значения) можно добиться изменение работы всего макроса. Например, свойство Orientation(Ориентация) отвечает за ориентацию текста и, изменив значения этого свойства, получим следующий результат (Рис. 31).
|
Orientation=0 |
Orientation=90 |
Рис. 31. Разные значения свойства Orientation
Кроме этого, макрорекордер записывает все параметры выполняемой команды Excel. Так выше представленный код макроса форматирования может быть сокращен следующим образом без потери правильности функционирования:
Sub Макрос_форматирования2()
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = True
End With
End Sub
Для того, чтобы правильно редактировать макрос и создавать его оптимальный код, а также создавать макросы непосредственно из редактора VBEнеобходимо знать основы языкаVBA.