Создание макросов в excel
Цель работы:
Изучить работу с макросами в Excel.
Создать макрос построения графиков функций.
Теоретическая часть
Макрос-это записанная последовательность команд (программа), которая может быть выполнена пользователем. Как правило, макросы используются для автоматизации стандартных, часто повторяемых операций.
В Microsoft Office встроена среда программирования Visual Basic for Application (VBA). В этой среде можно создавать собственные процедуры для любого приложения MsOffice. Однако, для создания макроса знать VBA совсем не обязательно. В Ms Office встроена программа, позволяющая автоматически переводить в команду VBA любое действие пользователя (нажатие клавиши, ввод данных в ячейку и др. подобные), а последовательность этих действий образует макрос.
Для создания макроса необходимо в меню Excel найти Макросы/Запись макроса (рис. 2.5.1).
Рис. 2.5.1. Работа с макросами
В диалоговом окне ввести имя макроса без пробелов, определить область видимость макроса, т.е. где он будет сохранен, задать описание макроса и комбинацию клавиш для запуска этого макроса (при необходимости). Все выполняемые действия будут записаны в макрос, по этому не следует выполнять лишних действий. По умолчанию при записи макроса используются абсолютные ссылки, то есть, макрос всегда обрабатывает те же ячейки, которые обрабатывались при его записи (рис. 2.5.2).
Рис. 2.5.2. Работа с макросами
Чтобы использовать относительные ссылки необходимо нажать кнопку Относительная ссылка на панели инструментов. Для остановки записи макроса необходимо в меню выполнить команду Макросы/Остановить запись. Когда запись макроса закончена из меню Макросы/Макросы можно удалить или изменить макрос.
Варианты заданий
Варианты заданий для работы приведены в таблице 2.5.1.
Задания
на рабочем листе создать таблицу вида:
a |
b |
c |
x начальное |
шаг по х |
5 |
3 |
1 |
0,3 |
1,5 |
Записать процедуру построения графика в макрос. Построить график функции y=-ах4+bx-с c заданными коэффициентами и заданным шагом для 10 точек.
Удалить построенный график с рабочего листа. Изменить значения коэффициентов а,b,с.
Запустить макрос. Макрос должен построить график с заданными коэффициентами на заданном интервале с заданным шагом. График строится на том рабочем листе, для которого записан макрос.
Открыть макрос для изменения в редакторе Visual Basic for Application. скопировать получившийся макрос в текущем модуле. Изменить имя макроса в копии, например: Sub НовыйМакрос()
внести в текст макроса следующие изменения:
в начало макроса добавить строку: S = ActiveSheet.Name ‘ эта команда запоминает в S имя активного рабочего листа
заменить обращение к «Лист1» на переменную S, например, строки: ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("B5:B20")"), PlotBy:=xlColumns ActiveChart.SeriesCollection(1).XValues = "=Лист1!R5C1:R20C1" ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
заменить на строки: ActiveChart.SetSourceData Source:=Sheets(S).Range("B5:B20"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=" & S & "!R5C1:R20C1" ActiveChart.Location Where:=xlLocationAsObject, Name:=S
В результате изменений НовыйМакрос должен строить график на любом активном листе. Построить на трех различных листах графики функции с различными коэффициентами по варианту с помощью отредактированного макроса.
Таблица 2.5.1