Разработчики программного обеспечения накопив большой опыт разработки приложений пришли к выводу - На всех ласков не будешь. Выход был том, что бы дать пользователю возможность реализовывать некоторую функциональность самим. В современное практически все крупные разработки поставляться с макроязыками. И Excel не исключение. Автоматизировать свои задачи можно используя VBA. А при чем тут макросы? Макросы это устаревшее названия VBA. Когда то в ранних версиях Excel позволял просто записывать последовательность команд на некотором своем языке. Это позже этот язык перерос в VBA. Для работы с макросами у нас ест специальное меню в Сервис - Макрос.
Excel еще с давних времен умеет записывать действия пользователя, потом проигрывать их как магнитофон. Давайте попробуем. Идем в меню Сервис - Макрос - Начать запись. Появиться диалоговое окно начала записи.
В окне есть имя, кто его создал и когда. Если все Вас устраивает жмете ОК. Появиться панелька управления записью.
Сделайте что нибуть в Excel например установите рамку и фон ячейки. Потом остановите запись. В этом окне будет список тех макросов которые присутствуют у Вас в Excel.
При желании Вы можете повторить выполнение макроса над другой ячейкой, тем самым сократив время. Записывать в макросы можно довольно сложные последовательности действий кстати. Еще одна кнопка есть изменить. Эта кнопка позволит нам просмотреть код VBA. Давайте глянем ради интереса.
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 08.08.01 (Каев Артем)
'
'
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub