Применение MS Excel для практических расчетов (информационно-аналитическая система магазина по продаже посуды)
Автор работы: Пользователь скрыл имя, 23 Января 2013 в 15:32, курсовая работа
Краткое описание
Исходная информация содержится в двух таблицах:
1. «Цены» (№ п/п, код товара, наименование фрукта, цена за 1 шт) – 7 строк.
2. «Продажи» (№ п/п, код товара, дата продажи, ФИО продавца (не более 5-ти фамилий), наименование посуды (функция ВПР), количество проданной посуды (шт), общая стоимость посуды (функция ВПР))- 40 строк. Одним продавцом могут быть проданы разные видов фруктов.
Получить отчет о выручке каждого продавца, с указанием количества и стоимости проданного товара. Получить отчеты по датам продаж и видам посуды.
Содержание
Введение 3
Лист 1. Титульный лист 4
Листы 2-3. Исходные данные 9
Лист 4. «Сортировка» 12
4.1. Сортировка по столбцам «ФИО продавца» и «Наименование» 13
4.2. Сортировка в особом порядке по полю «Наименование» 15
4.3. Отмена сортировки 19
Лист 5. «Автофильтр» 20
5.1. Использование автофильтра 21
Лист 6. «Расширенный фильтр» 23
6.1. Фильтрация по наименованию 23
6.2. Фильтрация по ФИО двух продавцов 25
6.3. Фильтрация по диапазону количество 26
6.4. Фильтрация по дате и фамилии 27
6.5. Отмена фильтрации 29
Лист 7. «Итоги» 32
7.1. Итоги по ФИО продавца 32
7.2 . Итоги по наименованию фруктов 33
7.3. Отмена итогов 35
Лист 8. «Функции» 37
8.1. Функция ДМАКС 37
8.2 Функция ДМИН 38
8.3. Функция ДСРЗНАЧ 39
8.4. Функция БДСУММ 40
8.5. Функция БСЧЕТ 41
8.6. Отмена функций 42
Лист 9. «Сводная таблица» 44
Лист 10. «Сводная диаграмма» 46
Лист 11. «Отчеты» 47
Прикрепленные файлы: 1 файл
курсовая информ.doc
— 5.97 Мб (Скачать документ)
- Установить курсор в ячейку E2 и нажать клавишу Delete
- Выбрать команду Вставка/Функция. В появившемся окне в категории «Ссылки и массивы» выбрать функцию ИНДЕКС.
- В появившемся окне ввести следующие параметры:
- Установить курсор в ячейку A10, выбрать команду Данные/Фильтр/
Расширенный фильтр и в появившемся окне ввести следующие параметры:
- Выбрать команду Сервис/Макрос/Останови
ть запись.
Для ячейки С2 в строке
ActiveCell.FormulaR1C1 = "=INDEX(R[-1]C[6]:R[5]C[6],R[
Необходимо добавить текст «If Range("C6") <> 1 Then», в результате получим
If Range("C6") <>
1 Then ActiveCell.FormulaR1C1 = "=INDEX(R[-1]C[6]:R[5]C[6],R[
Для ячейки D2 в строке
ActiveCell.FormulaR1C1 = "=INDEX(R[-1]C[6]:R[2]C[6],R[
Необходимо добавить текст «If Range("D6") <> 1 Then », в результате получим
If Range("D6") <> 1 Then ActiveCell.FormulaR1C1
= "=INDEX(R[-1]C[6]:R[2]C[6],R[
Для ячейки E2 в строке
ActiveCell.FormulaR1C1 = "=INDEX(R[-1]C[6]:R[4]C[6],R[
Необходимо добавить текст «If Range("E6") <> 1 Then », в результате получим
If Range("E6") <> 1 Then ActiveCell.FormulaR1C1
= "=INDEX(R[-1]C[6]:R[4]C[6],R[
Полный текст полученной процедуры после внесения изменений:
Sub отчеты()
Range("C2").Select
Selection.ClearContents
If Range("C6") <> 1 Then ActiveCell.FormulaR1C1
= "=INDEX(R[-1]C[6]:R[5]C[6],R[
Range("D2").Select
Selection.ClearContents
If Range("D6") <> 1 Then ActiveCell.FormulaR1C1
= "=INDEX(R[-1]C[6]:R[2]C[6],R[
Range("E2").Select
Selection.ClearContents
If Range("E6") <> 1 Then ActiveCell.FormulaR1C1
= "=INDEX(R[-1]C[6]:R[4]C[6],R[
Range("A10").Select
Range("A10:G40").
Range("A1:G2"), Unique:=False
End Sub
Для отмены фильтрации
данных создается процедура «отменить_
Sub отменить_все()
Range("C6") = "1"
Range("D6") = "1"
Range("E6") = "1"
Application.Run "отчеты"
Range("A1").Select
End Sub
Для кнопки «Титульный лист» назначаем ранее созданный макрос «лист_титульный_лист», для кнопки «Отменить все» макрос «отменить_все». Для трех созданных полей со списками назначаем одинаковый макрос «отчеты».
Модулю, в котором записаны все программы для работы с листом «отчеты» задаем имя «№6_отчеты».
Для скрытия вспомогательных данных на листе выделяем диапазоны A1:G2 и I1:K7 и задаем белый цвет шрифта символов.