Тема: Информационные системы «Отдел кадров аптеки». Учебная работа № 430839

Учебная работа № 430839. Тема: Информационные системы «Отдел кадров аптеки»

Выдержка из похожей работы

…….

Информационно-аналитическая система ‘Отдел экспорта’

…..аботы – это создание информационно-аналитической
системы отдел экспорта.
Данная система создается для удобства пользователя, для автоматизации
действий, для экономии времени и сил.
Эта работа содержит 8 листов: лист «Начало», лист “Регистрация поставок”,
«Прейскурант цен», «Фильтр», «Расширенный фильтр», «Итоги», «Сводная таблица»,
«Диаграмма». На каждом листе расположены специальные кнопки, с помощью которых
можно осуществлять те или иные действия, что весьма облегчает задачу при работе
с табличными данными.
Задание
Исходная информация содержится в двух таблицах:
«Регистрация поставок» (код товара, наименование товара; страна,
импортирующая товар; объём поставляемой партии; стоимость партии (функция ВПР))
– 40 строк. Одна страна может импортировать разные товары.
«Прейскурант цен» (код товара, наименование товара, цена за единицу
товара) – не более 7-ми строк.
Составить список товаров, пользующихся наибольшим спросом за рубежом,
найти страну, экспортирующую товары на наибольшую сумму. Составить ведомость
импортируемых товаров по каждой стране.
Предложить свой вариант сбора информации и анализа данных.
Основная
часть
Первоначально мы оказываемся на титульном листе:
Оформление листа происходит с помощью добавления объекта WordArt, автофигур, заливки и шрифтов.
 
Рисунок
1 «Лист «Начало»»
Титульный лист содержит 10 кнопок: 7 кнопок – переходов, с помощью
которых можно перейти на лист «Регистрация поставок», «Прейскурант цен»,
«Фильтр», «Расширенный фильтр», «Сводная таблица», «Итоги», «Диаграмма» и
кнопки «об авторе», «Регистрация», «Выход»
Используемые
макросы:
Макрос для перехода на лист «Прейскурант Цен»
Sub Макрос1()
‘ Макрос1 Макрос
‘ Макрос записан 03.05.2008 (-)
Sheets(“Прейскурант цен”).Select.SmallScroll
Down:=-9(“A1:C1”).SelectSub
Макрос для перехода на лист «Начало»
Sub Макрос2()
‘ Макрос2 Макрос
‘ Макрос записан 03.05.2008 (-)
Sheets(“Начало”).Select(“A1”).Select
End Sub
Макрос для перехода на лист «Расширенный фильтр»
Sub Макрос3()
‘ Макрос3 Макрос
‘ Макрос записан 03.05.2008 (-)
Sheets(“Расширенный фильтр”).Select(“A4”).Select
End Sub
Макрос для перехода на лист «Итоги»
Sub Макрос4()
‘ Макрос4 Макрос
‘ Макрос записан 03.05.2008 (-)
Sheets(“Итоги”).Select.Shapes(“WordArt
2”).Select(“A1”).SelectSub
Макрос для перехода на лист «Регистрация поставок»
Sub Макрос5()
‘ Макрос5 Макрос
‘ Макрос записан 03.05.2008 (-)
Sheets(“Регистрация поставок”).Select(“A1:D1”).Select
End Sub
Макрос для перехода на лист «Фильтр»
Sub Макрос6()
‘ Макрос6 Макрос
‘ Макрос записан 03.05.2008 (-)
Sheets(“Фильтр”).Select(“A1”).Select
End
Кнопка «Об авторе». При ее нажатии, на экране появляется окно.
Данное окно создавалось в UserForm1 с помощью панели инструментов: кнопки – «надпись».
Кнопка «Выход». Нужна для осуществления выхода из Excel. При ее нажатии появляется диалоговое окно:
Рисунок
2 «Кнопка выхода»
Если пользователь нажмет кнопку «Да», то произойдет выход из Excel, а если кнопку «Нет», то появится
следующее диалоговое окно:
Рисунок
3 «Кнопка выхода»
 
Sub выход()
‘
‘ выход
Макрос
‘ Макрос
записан 01.05.08 (r)
…