ТЕМА14. Программирование расчетов по стоимости перевозки товаров

Используя VBA, решить задачу автоматизации вычисления стоимости перевозки товаров по видам транспорта. Для хранения исходных данных использовать таблицы СУБД MS Access. В качестве интерфейса использовать формы MS Excel и (или) загрузку данных из рабочего листа MS Excel. Результаты выгрузить в рабочий лист MS Excel.

Код товара	Стоимость перевозки (всего)	В том числе	Средняя стоимость	Процент
		Автотранспорт	Железнодорожный транспорт	Авиатранспорт








Итого:

Формулы для расчета:

1. Графа 2=СУММ(графа 3:графа 5)

2. Итог графы 2=СУММ(графа 2)

3. Графа 6=СРЗНАЧ(графа 3: графа 5)

4. Графа 7=графа 2/итог графы 2*100%

Задание:

1. У каких товаров стоимость перевозки авиатранспортом составляет от 6000 до 8500 рублей

2. У каких товаров суммарная стоимость перевозки максимальна

3. Сколько товаров имеют среднюю стоимость более 6000 рублей.

4. Построить гистограмму распределения стоимости перевозки для каждого вида транспорта.

ТЕМА 15. Программирование анализа доходов

Требуется автоматизировать решение задачи заполнения ведомости доходов железных дорог. В качестве средства автоматизации рекомендуется использовать VBA; для хранения исходных данных - таблицы СУБД MS Access; в качестве интерфейса - формы MS Excel и (или) загрузку данных из рабочего листа MS Excel. Результаты выгрузить в рабочий лист MS Excel.

Номер жел. дор.	Обмен перевозок	Удельный вес	Доходная ставка за 10 т/км	Средняя дальность перевозок	Сумма доходов

			20,3
			30,3
			20,5
			18,5
			21,4
			20,7
			32,4
			28,7
Итого:

Формулы для расчета:

1. Итог графы 2=СУММ(графа 2)

2. Графа 3=графа 2/ Итог графы 2*100%

3. Графа 6=графа 2* графа 4/10*графа 3

4. Итог графы 6=СУММ(графа 6)

Задание:

1. У какой железной дороги объем перевозок больше 4000 рублей.

2. У какой железной дороги средняя дальность перевозок максимальна.

3. Чему равна сумма доходов железной дороги номер 1012 и номер 2110.

4. Построить круговую диаграмму, характеризующую сумму доходов каждой железной дороги.

ТЕМА 16. Программирование расчетов по заработной плате

Необходимо, используя VBA, автоматизировать процесс расчета зарплаты работников отдела за три месяца работы. Для хранения исходных данных использовать таблицы СУБД MS Access. В качестве интерфейса рекомендуется использовать формы MS Excel и (или) загрузку данных из рабочего листа MS Excel. Результаты выгрузить в рабочий лист MS Excel.

№ п/п	Ф. И. О.	Январь	Февраль	Март	Всего	Средняя зарплата	Удельный вес

	Серова А.И.	3200,00	3800,00	4200,50
	Карлова С.А.	5000,80	4800,00	5100,00
	Дутов В.Г.	5400,00	5800,00	6200,00
	Сомов П.М.	6800,00	6100,00	6500,00
	Битов М.С.	6000,00	6000,00	6400,00
	Иванова С.Г.	5400,00	5000,00	5000,00
	Цветов А.А.	5800,00	5700,00	6500,00
	Итого:
	Средняя зарплата отдела

Формулы для расчета:

1. Графа 6=СУММ(графа 3:графа 5)

2. Графа 7=СРЗНАЧ(графа 3:графа 5)

3. Графа 8=Графа 6/итог графы 6*100%

4. Итог графы 3=СУММ(графа 3)

5. Ср. значение графы 3=СРЗНАЧ(графа 3)

Задание:

1. У каких работников суммарная зарплата за 3 месяца максимальна.

2. У каких зарплата за январь превышает зарплату за февраль.

3. Чему равна средняя зарплата Карловой С.А. и Сомова П.М.

4. Построить гистограмму распределения зарплаты для каждого работника за 3 месяца.

ТЕМА 17. Программирование анализа движения пассажирских самолетов

Необходимо, используя VBA, автоматизировать процесс анализа движения пассажирских самолетов из аэропорта Новосибирск - Северный. Для хранения исходных данных рекомендуется использовать таблицы СУБД MS Access; в качестве интерфейса - формы MS Excel и (или) загрузку данных из рабочего листа MS Excel. Результаты выгрузить в рабочий лист MS Excel.

Номер рейса	Самолет	Количество пассажиров	Аэропорт назначения	Цена билета (руб.)	Стоимость за рейс

ПК 622	ЯК 40		Кызыл
СЛ 2029	АН-24		Надым
СЛ 2001	АН-24		Нижневартовск
СП 5006	АН-24		Нижневартовск
СП5051	АН-24		Новый Уренгой
СП2017	АН-24		Новый Уренгой
СЛ 2027	АН-24		Ноябрьск
СЛ 2031	АН-24		Салехард
СЛ 2025	АН-24		Стрежевой
СЛ 2039	АН-24		Сургут
СП 5002	АН-24		Томск
СП 2015	АН-24		Ханты-Мансийск
Итого:

Формулы для расчета:

1. Графа 6=графа 3*графа 5

2. Итог графы 6=СУММ(графа 6)

3. Графа 7=графа 6/Итог графы 6*100%

Задание:

1. У какого номера рейса цена за билет минимальна.

2. В каких городах стоимость рейса составляет от 150000 до 250000 рублей.

3. Чему равна цена билета рейса СЛ 2027 и СП 5002.

4. Построить круговую диаграмму, характеризующую стоимость за рейс.

Вариант 18. Программирование экономического расчета розничной цены на кондиционеры

Задача заключается в автоматизации процесса экономического расчета розничной цены на кондиционеры из Японии. В процессе решения задачи рекомендуется использовать VBA; для хранения исходных данных - таблицы СУБД MS Access; в качестве интерфейса - формы MS Excel и (или) загрузку данных из рабочего листа MS Excel. Результаты выгрузить в рабочий лист MS Excel.

№	Модель	Длина (см.)	Ширина (см.)	Высота (см.)	Цена розничная (у.е.)	Цена розничная (в руб.)	Объем (см. куб.)	Размер скидки

	FTY256VI
	FTY356VI
	FTY456VI
	FTY606VI
	LS-P0960HL
	LS-S1260HL
	LS-D2462HL