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

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

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

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

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

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

Sub ИзменениеШрифтаЦвета()

'

' ИзменениеШрифтаЦвета Макрос

'

' Сочетание клавиш: Ctrl+а

'

With Selection.Font

.Size = 14

.Color = 255

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("B1").Select

Application.Run "Книга1!ИзменениеШрифтаЦвета"

Range("C1").Select

Application.Run "Книга1!ИзменениеШрифтаЦвета"

Range("A1").Select

End Sub

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

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

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

7. Выполните команду Сервис/ Макрос/ Макросы

8. В диалоговом окне Макрос выделите макрос ИзменениеШрифтаЦвета и щёлкните на кнопке Изменить

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

Sub ИзменениеШрифтаЦвета()

'

' ИзменениеШрифтаЦвета Макрос

'

' Сочетание клавиш: Ctrl+а

'

With Selection.Font

.Size = 25

.Color = 255

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("B1").Select

Application.Run "Книга1!ИзменениеШрифтаЦвета"

Range("C1").Select

Application.Run "Книга1!ИзменениеШрифтаЦвета"

Range("A1").Select

End Sub

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

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