Запись макроса

Код макроса

Sub ПоискПоСтране()

'

' ПоискПоСтране Макрос

'

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

'

ActiveSheet.Range("$B$2:$K$22").AutoFilter Field:=8, Criteria1:=InputBox("Страна") _

, Operator:=xlAnd

End Sub

При нажатии кнопки «Поиск по стране» запускается макрос

Ввод страны

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

Диаграммы

Запись макроса

Ввод данных

Код макроса

Sub ДиаграммаКолВоПроданныхТелефонов()

'

' ДиаграммаКолВоПроданныхТелефонов Макрос

'

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

'

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:=Range("F3:F27")

ActiveChart.SetSourceData Source:=Range("F3:F27,B3:B27")

ActiveChart.SeriesCollection(1).Name = "=Лист1!$F$2"

End Sub

При нажатии кнопки «Диаграмма кол-во проданных телефонов» запускается макрос

Запись макроса

Ввод данных

Код макроса

Sub ДиаграммаВыручкаОтКаждойМодели()

'

' ДиаграммаВыручкаОтКаждойМодели Макрос

'

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

'

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:=Range("G3:G27")

ActiveChart.SetSourceData Source:=Range("G3:G27,I11,I16,I21,I26:I27")

ActiveChart.SetSourceData Source:=Range("G3:G27")

ActiveChart.SetSourceData Source:=Range("G3:G27,I3:I27")

ActiveChart.SetSourceData Source:=Range("G3:G27")

ActiveChart.SetSourceData Source:=Range("I3:I27")

ActiveChart.SetSourceData Source:=Range("G3:G28")

ActiveChart.SetSourceData Source:=Range("G3:G27")

ActiveChart.SetSourceData Source:=Range("G3:G27,I3:I27")

ActiveChart.SetSourceData Source:=Range("G3:G27")

ActiveChart.SetSourceData Source:=Range("G3:G27,I3:I27")

ActiveChart.PlotArea.Select

ActiveChart.SetSourceData Source:=Range("I3:I27")

ActiveChart.SetSourceData Source:=Range("I3:I27,G3:G27")

ActiveChart.SetSourceData Source:=Range("G3:G27")

ActiveChart.SetSourceData Source:=Range("G3:G27,I3:I27")

ActiveChart.SeriesCollection(1).XValues = "=Лист1!$G$3:$G$27"

ActiveChart.SeriesCollection(1).XValues = "=Лист1!$I$3:$I$27"

ActiveChart.SetSourceData Source:=Range("G3:G27")

ActiveChart.SeriesCollection(1).Name = "=Лист1!$G$2"

ActiveChart.SeriesCollection(1).XValues = "=Лист1!$I$11"

ActiveChart.SeriesCollection(1).XValues = "=Лист1!$I$3:$I$27"

ActiveChart.SeriesCollection(1).XValues = "=Лист1!$B$3:$B$27"

End Sub

При нажатии кнопки «Диаграмма выручка от каждой модели» запускается макрос

2. Работа в MS Access

   1. Разработка связанных таблиц , Создание и редактирование базы данных.

Сведения о фирме

Режим конструктора

Режим таблицы

Телефон

Режим конструктора

Режим таблицы

Схема данных

2. Создание форм

Создаем формы для вода данных через «Мастер форм».

3. Вычисление стоимости телефона в магазине с учетом наценки и подсчет выручки по каждой модели.

Создаем два вычисляемых поля

Стоимость телефона в магазине: ([Оптовая цена]*[Наценка магазина]/100)+[Оптовая цена]

Выручка от каждой модели: [Кол-во проданных телефонов]*[Цена в магазине]

4. Получение информации о телефоне, который дает наибольшую величину прибыли от продаж.

Выручка от каждой модели:

(([Оптовая цена]*[Наценка магазина]/100)+[Оптовая цена])*[Кол-во проданных телефонов]

5. Получение данных о телефонах, указанной пользователем страны с указанием города, в котором изготовлен телефон.

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

Стоимость телефона в магазине: ([Оптовая цена]*[Наценка магазина]/100)+[Оптовая цена]

Выручка по каждой модели: [Кол-во проданных телефонов]*[Цена в магазине]

Заключение

При выполнении курсовой работы я освоил две программы: MS Access и MS Excel. Данные программы позволяют выполнять разнообразные запросы для фильтрования и сортировки данных, составлять отчёты по данным и просматривать их в разных вариантах, создавать формы и использовать их для заполнения, редактирования и просмотра данных. Все поставленные цели выполнены.