Редактирование кода макроса

Просмотр кода макроса

По ходу записи макроса Excel запоминает действия пользователя и одновременно преобразует их в код VBA. Чтобы увидеть полученный код, выполните следующие действия:

1. Выберите команду Сервис/ Макрос/ Макросы. Отобразится диалоговое окно Макрос.

2. Выделите макрос МойПервыйМакрос и щёлкните на кнопке Изменить. Откроется окно редактора Microsoft Visual Basic, показанное на рис. 5.3.

Первая строка макроса Sub МойПервыйМакрос () - представляет собой начало процедуры выполнения макроса и его имя. Следующие строчки, в начале которых стоит одиночная кавычка, являются комментариями, поясняют отдельные строки макроса.

Рис. 3.3 Окно редактора Microsoft Visual Basic

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

Редактировать код можно в редакторе Visual Basic. Попробуем изменить код макроса:

1. Выделите строку, которая начинается с .Name.

2. Удалите эту строку, нажав клавишу Delete.

3. Продолжайте удалять строки, пока не останется следующий фрагмент программы:

Sub МойПервыйМакрос()

'

' МойПервыйМакрос Макрос

' Макрос записан 02.07.2001 (Serg)

'

With Selection.Font

.Size = 18

.ColorIndex = 3

End With

End Sub

4. Закройте окно редактора Visual Basic и вернитесь в свою рабочую книгу.

5. В ячейке Е1 введите слово «Тест».

6. Не снимая выделения с ячейки Е1, выполните макрос МойПервыйМакрос. Вы увидите, что макрос работает точно также, как и до удаления строк кода.

7. Вернитесь в Редактор VBA.

8. Измените размер шрифта с 18 пунктов на 24. Код макроса должен выглядеть следующим образом:

Sub МойПервыйМакрос()

'

' МойПервыйМакрос Макрос

' Макрос записан 02.07.2001 (Serg)

'

With Selection.Font

.Size = 24

.ColorIndex = 3

End With

End Sub

10. Закройте окно редактора Visual Basic и вернитесь в рабочую книгу

11. Выделите ячейку А1 и выполните макрос МойПервыйМакрос. Вы заметите, что шрифт в ячейке А1 увеличился.

Дата добавления: 2014-11-20