Редактирование кода макроса
Просмотр кода макроса
По ходу записи макроса 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 увеличился.