Скачиваний:
3
Добавлен:
03.06.2024
Размер:
2.36 Mб
Скачать

Список использованных источников

1. Демин В.М., Кузьмин А.В. Разработка баз данных в системе Microsoft

Access. – М.: Феникс, 2016.

2. Евсеев Г.С., Ильинская Д.М., Турнецкая Е.Л. Базы данных в Microsoft

Access. / Методические указания по выполнению лабораторных работ. –

СПб: ГУАП, 2015.

3. Аграновский А.В., Ильинская Д.М., Турнецкая Е.Л. Обработка данных

средствами электронных таблиц Microsoft Excel. / Методические указания

по выполнению лабораторных работ. – СПб: ГУАП, 2015. 4. Справочная информация по MS Access: https://support.microsoft.com/ru-ru/access (дата посещения 25.03.2023).

4. Справочная информация по MS Excel: https://support.microsoft.com/ru-ru/excel (дата посещения 25.03.2023).

5. Бурнаева Э., Леора С. Обработка и представление данных в MS Excel:. – М.: Лань, 2016.

Приложение а Код макросов

Таблица А.1 – Код макроса «ПродажиЗаТекущийГод»

Sub ПродажиЗаТекущийГод()

ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=2, Criteria1:= _

13, Operator:=11, Criteria2:=0, SubField:=0

End Sub

Таблица А.2 – Код макроса «УбратьФильтры»

Sub УбратьФильтры()

ActiveSheet.ShowAllData

MsgBox "Все фильтры отключены"

End Sub

Таблица А.3 – Код макроса «ФильтрМинЦена»

Sub ФильтрМинЦена()

FilterValue = InputBox("Введите минимальную цену", "Фильтр по цене")

ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=8, Criteria1:=">=" & FilterValue

End Sub

Таблица А.4 – Код макроса «ФильтрПокупатель»

Sub ФильтрПокупатель()

FilterValue = InputBox("Введите имя покупателя для фильтра", "Фильтр по имени покупателя")

ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=9, Criteria1:="=*" & FilterValue & "*"

End Sub

Таблица А.5 – Код макроса «ФильтрТипИзделия»

Sub ФильтрТипИзделия()

FilterValue = InputBox("Введите тип изделия", "Фильтр по типу изделия")

ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=5, Criteria1:="=*" & FilterValue & "*"

End Sub

Приложение б Код кнопок

Таблица Б.1 – Код кнопки «Продажи за текущий год»

Private Sub CommandButton1_Click()

ПродажиЗаТекущийГод

End Sub

Таблица Б.2 – Код кнопки «Фильтр по Покупателю»

Private Sub CommandButton2_Click()

ФильтрПокупатель

End Sub

Таблица Б.3 – Код кнопки «Фильтр по цене»

Private Sub CommandButton3_Click()

ФильтрМинЦена

End Sub

Таблица Б.4 – Код кнопки «Фильтр по типу изделия»

Private Sub CommandButton4_Click()

ФильтрТипИзделия

End Sub

Таблица Б.5 – Код кнопки «Убрать фильтры»

Private Sub CommandButton5_Click()

УбратьФильтры

End Sub

Таблица Б.6 – Код кнопки «Открыть форму»

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Соседние файлы в папке Курсовая Турнецкая