Курсовая работа: Создание и обработка базы данных

Выделяем диапазон ячеек, в которых хранятся данные (столбцы «Дата выдачи» и «Дата списания»), щелкаем на значке «Мастер диаграмм». На экране появляется окно мастера диаграмм.

Далее нажимаем кнопку «Готово» и получаем диаграмму:

2. Макросы

2.1 Общие сведения

Макрос представляет собой программу, написанную на языке VisualBasicForApplication, созданную либо программистом, либо макроредактором, т.е. автоматически.

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

2.2 Построение Макроса «Диаграмм»

Нужно создать макрос графика средней глубины рек, впадающих в Карское море.

Нужно в начальной таблице выбрать Сервис-Макрос – Начать запись и присвоить ему имя Макрос1. Далее выбираем Данные - Сортировка. В первом окне: название куда впадают и ОК. Получаем:

Затем, выбираем Данные-Итоги и заполняем окна:

Нажимаем ОК. получаем:

Затем сворачиваем окна. Выбираем мастер диаграмм – круговую - далее ряд. Выделяем диапазон данных и получаем диаграмму:

Затем Сервис – Макрос - Закончить запись. Теперь можно выводить эту диаграмму намного легче. Нужно всего лишь зайти в Сервис-Макрос-Макросы и выбрать Макрос 1.График высвечивается автоматически.

Программа: «Окно Visual Basic »

SubМакрос 1()

'' Макрос 1 Макрос

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

''Range("H12").Select

Range("A1:G11").Sort Key1:=Range("F2"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal

Selection.Subtotal GroupBy:=6,Function:=xlAverage, TotalList:=Array(4),_

Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Charts.Add

ActiveChart.ChartType = xl3DPie

ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("D6:D16"), PlotBy:= _