Тема 2. Технологии программирования приложений Microsoft Word на языке VBA

Основные сведения. Объекты и методы Word и создание программ для работы с текстовыми документами.

Тема 3. Технологии программирования приложений Microsoft Excel на языке VBA

Объекты и методы Excel и создание программ для работы с таблицами и диаграммами.

Тема 4. Технологии программирования приложений Microsoft Access на языке VBA

Объекты и методы Access и создание программ для работы с базами данных.

Варианты заданий

Вариант 1

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Наличие на начало" и иметь следующий вид:

Код детали	Наименование детали	Остаток на начало	Дата последнего движения	Единицы измерения

Вторая исходная таблица создается на рабочем листе "Приход в течение декады" и имеет вид:

Код детали	Количество прихода	Дата прихода	Номер приходного документа

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

На основе данных исходных таблиц получить на рабочем листе "Наличие после прихода" результатную таблицу следующего вида:

Код детали	Наименование детали	Остаток после прихода	Дата последнего движения	Единицы измерения

Вариант 2

Код детали	Наименование детали	Остаток на начало	Дата последнего движения	Единицы измерения

Вторая исходная таблица создается на рабочем листе "Расход в течение декады" и имеет вид:

Код детали	Количество расхода	Дата расхода	Номер приходного документа

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

На основе данных исходных таблиц получить на рабочем листе "Наличие после расхода" результатную таблицу следующего вида:

Код детали	Наименование детали	Остаток после расхода	Дата последнего движения	Единицы измерения

Вариант 3

Создать три исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Справочник деталей" и иметь следующий вид:

Код детали	Наименование детали	Единицы измерения

Вторая исходная таблица должна быть создана на рабочем листе "Приход в течение декады" и иметь следующий вид:

Код детали	Количество поступило	Дата поступления	Номер приходного документа

Третья исходная таблица создается на рабочем листе "Расход в течение декады" и имеет вид:

Код детали	Количество выдано	Дата выдачи	Номер расходного документа

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

На основе данных исходных таблиц получить на рабочем листе "Приход - расход за декаду" результатную таблицу следующего вида:

Код детали	Наименование детали	Приход за декаду	Расход за декаду	Единицы измерения

Вариант 4

Код детали	Наименование детали	Единицы измерения

Вторая исходная таблица должна быть создана на рабочем листе "Приход в течение месяца" и иметь следующий вид:

Код детали	Количество поступило	Дата поступления	Номер приходного документа

Третья исходная таблица создается на рабочем листе "Расход в течение месяца" и имеет вид:

Код детали	Количество выдано	Дата выдачи	Номер расходного документа

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

На основе данных исходных таблиц получить на рабочем листе "Приход- расход за сутки" результатную таблицу следующего вида:

Код детали	Наименование детали	Приход за сутки	Расход за сутки	Единицы измерения

Дата, на которую предполагается получение результата, должна быть введена в диалоговое окно.

Вариант 5

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Плановая продолжительность работ" и иметь следующий вид:

Наименование работы	Плановая продолжительность (дн)

Вторая исходная таблица должна быть создана на рабочем листе "Сроки выполнения работ" и иметь следующий вид:

Наименование работы	Дата начала работы	Дата окончания работы

На основе данных исходных таблиц получить на рабочем листе "Сведения об опережении – отставании в проведении работ" результатную таблицу следующего вида:

Наименование работы	Отставание (дн)	Опережение (дн)

Отставание и опережение по каждому наименованию работ по рассчитывается по формулам:

Опережение = плановая продолжительность – фактическая продолжительность;

Отставание = фактическая продолжительность – плановая продолжительность.

Фактическая продолжительность рассчитывается, как разность между датами окончания и начала работ.

Вариант 6

Создать три исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Справочник товаров" и иметь следующий вид:

Код товара	Наименование товара	Остаток на начало недели	Единицы измерения

Вторая исходная таблица создается на рабочем листе "Поступление в течение недели" и имеет вид:

Код товара	Дата поступления	Количество поступило	Цена

Третья исходная таблица создается на рабочем листе "Продажи в течение недели" и имеет вид:

Код товара	Дата продажи	Количество продано	Цена

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

На основе данных исходных таблиц получить на рабочем листе "Поступления-продажи за неделю" результатную таблицу следующего вида:

Наименование товара	Остаток на начало недели	Поступило	Продано
Кол-во	На сумму	Кол-во	На сумму

Вариант 7

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Справочник сотрудников" и иметь следующий вид:

Табельный номер	Фамилия, имя, отчество	Должность	Отдел

Вторая исходная таблица создается на рабочем листе "Начисления-удержания" и имеет вид:

Табельный номер	Месяц	Начислено	Удержано

При создании второй таблицы необходимо учесть, что она должна содержать данные нескольких месяцев.

На основе данных исходных таблиц получить на рабочем листе "Платежная ведомость" результатную таблицу, содержащую следующие данные по заданному месяцу:

Отдел	Фамилия, имя, отчество	Сумма к выдаче

Номер месяца должен быть введен в диалоговое окно.

Вариант 8

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Ценник товаров" и иметь следующий вид:

Код товара	Наименование товара	Цена

Вторая исходная таблица создается на рабочем листе "Заказы" и имеет вид:

Код клиента	Код товара	Количество	Дата

При создании второй таблицы необходимо учесть, что она должна содержать данные за месяц, причем один и тот же товар может быть заказан несколькими клиентами или одним и тем же клиентом несколько раз. На основе данных исходных таблиц получить на рабочем листе "Товар" результатную таблицу, содержащую следующие данные о заказанных в течение месяца товарах:

Код товара	Наименование товара	Стоимость

Вариант 9

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Справочник стоимости перевозок" и иметь следующий вид:

Марка автомобиля	Стоимость перевозки 1 ткм (руб)

Вторая исходная таблица создается на рабочем листе "Заказы" и имеет вид:

Государственный номер автомобиля	Марка автомобиля	Масса груза (т)	Расстояние (км)

При создании второй таблицы необходимо учесть, что марка автомобиля может повторяться. На основе данных исходных таблиц получить на рабочем листе "Стоимость перевозок" результатную таблицу, содержащую следующие данные о перевозках автомобилей:

Государственный номер автомобиля	Стоимость перевозки (руб)

Рассчитать стоимость перевозки, как произведение массы груза, расстояния и стоимости перевозки 1 ткм.

Вариант 10

Код товара	Наименование товара	Цена

Вторая исходная таблица создается на рабочем листе "Заказы" и имеет вид:

Код клиента	Код товара	Количество	Дата

При создании второй таблицы необходимо учесть, что она должна содержать данные за декаду, причем в один и тот же день клиент может заказать несколько товаров. На основе данных исходных таблиц получить на рабочем листе "Заказы на дату" результатную таблицу, содержащую данные о заказах, выполненных на заданную дату:

Код клиента	Стоимость

Дата должна быть введена в диалоговое окно.

Вариант 11

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Весовая категория багажа" и иметь следующий вид:

Категория багажа	Весовые параметры багажа	Стоимость оценки багажа (руб)

Вторая исходная таблица должна быть создана на рабочем листе "Сведения о хранении багажа" и иметь следующий вид:

Инвентарный номер	Количество дней хранения	Категория багажа

На основе данных исходных таблиц получить на рабочем листе "Стоимость хранения" результатную таблицу следующего вида:

Инвентарный номер	Стоимость одного дня хранения (руб)	Общая стоимость хранения (руб)

Стоимость одного дня хранения багажа составляет 10 % от стоимости оценки багажа. Рассчитать стоимость одного дня хранения, а также общую стоимость хранения, как произведение стоимости одного дня хранения и количества дней хранения.

Вариант 12

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе " Справочник расценок" и иметь следующий вид:

Код работы	Наименование работы	Расценка (руб. за 1 час)

Вторая исходная таблица должна быть создана на рабочем листе " Справочник заказов" и иметь следующий вид:

Номер заказа	Дата заказа	Код работы	Объем работы в часах

На основе данных исходных таблиц получить на рабочем листе "Стоимости заказов" результатную таблицу следующего вида:

Номер заказа	Стоимость заказа

Вариант 13

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе " Справочник маршрутов" и иметь следующий вид:

Номер маршрута	Наименование маршрута	Продолжительность маршрута ( в днях)	Стоимость 1 дня

. Вторая исходная таблица должна быть создана на рабочем листе " Справочник отправлений" и иметь следующий вид:

Номер маршрута	Дата отправления

При создании второй таблицы необходимо учесть, что наименования маршрутов могут повторяться. На основе данных исходных таблиц получить на рабочем листе "Общие сведения" результатную таблицу следующего вида:

Номер маршрута	Дата возвращения	Общая стоимость

Вариант 14

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Расход горючего " и иметь следующий вид:

Марка автомобиля	Нормативный расход горючего (л/км)

Вторая исходная таблица должна быть создана на рабочем листе " Справочник автомобилей " и иметь следующий вид:

Государственный номер	Марка автомобиля	Пробег	Фактический расход горючего

При создании второй таблицы необходимо учесть, что марка автомобиля может повторяться. На основе данных исходных таблиц получить на рабочем листе "Экономия горючего" результатную таблицу следующего вида:

Государственный номер	Экономия

Рассчитать экономию горючего по формуле:

Экономия = фактический расход – нормативный расход * пробег

Вариант 15

Табельный номер	Фамилия, имя, отчество	Должность	Отдел

Вторая исходная таблица создается на рабочем листе "Начисления-удержания" и имеет вид:

Табельный номер	Месяц	Начислено	Удержано

При создании второй таблицы необходимо учесть, что она должна содержать данные нескольких месяцев. На основе данных исходных таблиц получить на рабочем листе "Справка о заработке сотрудника за три месяца" результатную таблицу, содержащую данные по заданному сотруднику:

Фамилия, имя, отчество	Итого

Вариант 16

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Справочник продукции" и иметь следующий вид:

Наименование Продукции	Группа продукции	Цена, руб. за ед.

Вторая исходная таблица создается на рабочем листе "План выпуска продукции в натуральном выражении" и имеет вид:

Наименование продукции	Количество

На основе данных исходных таблиц получить на рабочем листе "Стоимость продукции" результатную таблицу следующего вида:

Группа продукции	Суммарная стоимость

Вариант 17

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Процентная ставка вклада" и иметь следующий вид:

Категория вклада	Процентная ставка

Вторая исходная таблица должна быть создана на рабочем листе "Сведения о вкладе" и иметь следующий вид:

Номер вклада	Сумма вклада (руб.)	Количество месяцев хранения

На основе данных исходных таблиц получить на рабочем листе "Счет" результатную таблицу следующего вида:

Номер вклада	Сумма на счете (руб.)

Рассчитать Сумму на счете по формуле:

Сумма на счете = Сумма вклада (1+ % годовых / 12 * Количество месяцев хранения)

Вариант 18

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Наличие товаров на складе" и иметь следующий вид:

Код товара	Наименование товара	Цена (руб.шт)	Количество на начало месяца (шт)

Вторая исходная таблица должна быть создана на рабочем листе "Приход – расход за месяц" и иметь следующий вид:

Код товара	Приход за месяц (шт)	Расход за месяц (шт)

При создании второй таблицы необходимо учесть, что Код товара может повторяться. На основе данных исходных таблиц получить на рабочем листе "Остаточная стоимость товаров" результатную таблицу следующего вида:

Код товара	Остаточная стоимость (руб)

Рассчитать остаточную стоимость товаров на складе по следующей формуле:

Остаточная стоимость = (Количество на начало месяца + Приход за месяц – Расход за месяц) * Цена

Вариант 19

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Ценник" и иметь следующий вид:

Код детали	Отпускная цена (руб.)	Себестоимость единицы (руб.)

Вторая исходная таблица должна быть создана на рабочем листе "Продажа деталей" и иметь следующий вид:

Код детали	Дата	Код клиента	Количество (шт.)

При создании второй таблицы необходимо учесть, что код детали может повторяться. На основе данных исходных таблиц получить на рабочем листе "Прибыли от продажи деталей" результатную таблицу следующего вида:

Код детали	Прибыль (руб)

Рассчитать прибыль от продажи деталей по формуле:

Прибыль = (Отпускная цена – Себестоимость)* Количество.

Вариант 20

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Справочник работ" и иметь следующий вид:

Наименование работы	Плановая продолжительность (дн)

Вторая исходная таблица должна быть создана на рабочем листе "Распределение работ по бригадам" и иметь следующий вид:

№ бригады	Наименование работы	Дата начала работы	Дата окончания работы

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

На основе данных исходных таблиц получить на рабочем листе "Сведения о сроках выполнения работ по бригадам" результатную таблицу следующего вида:

№ бригады	Отставание (дн)	Опережение (дн)

Отставание и опережение по каждому наименованию работ по рассчитывается по формулам:

Опережение = плановая продолжительность – фактическая продолжительность;

Отставание = фактическая продолжительность – плановая продолжительность.

Фактическая продолжительность рассчитывается, как разность между датами окончания и начала работ.

Отставание и опережение для каждого номера бригады рассчитывается как суммарное отставание и опережение по всем работам, закрепленным за данной бригадой.

Вариант 21

Создать три исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Справочник сотрудников" и иметь следующий вид:

Табельный номер	Фамилия, имя, отчество	Должность	Отдел

Вторая исходная таблица создается на рабочем листе "Справочник должностей" и имеет вид:

Должность	Оклад

Третья исходная таблица создается на рабочем листе "Табель" и имеет вид:

Табельный номер	Отработанное время (дн)

На основе данных исходных таблиц получить на рабочем листе "Платежная ведомость за месяц" результатную таблицу, содержащую следующие данные:

Отдел	Фамилия, имя, отчество	Сумма

Сумма рассчитывается по формуле:

Сумма = Оклад / Количество раб.дней в месяце * отработанное время.

Количество рабочих дней в месяце должно быть введено в диалоговое окно.

Вариант 22

Табельный номер	Фамилия, имя, отчество	Отдел	Оклад

Вторая исходная таблица создается на рабочем листе "Премия" и имеет вид:

Отдел	% премиии

На основе данных исходных таблиц получить на рабочем листе "Платежная ведомость по отделу" результатную таблицу, содержащую следующие данные по заданному месяцу:

Табельный номер	Фамилия, имя, отчество	Сумма

Сумма рассчитывается по формуле:

Сумма = Оклад + (1+ % премии/100)

Номер отдела должен быть введен в диалоговое окно.

Вариант 23

Табельный номер	Фамилия, имя, отчество	Количество детей

Вторая исходная таблица создается на рабочем листе "Справочник начислений" и имеет вид:

Табельный номер	Начислено

На основе данных исходных таблиц получить на рабочем листе "Платежная ведомость" результатную таблицу, содержащую следующие данные:

Фамилия, имя, отчество	Начислено	Удержано	Сумма к выдаче

Удержано рассчитывается по формуле:

Удержано = (Начислено - МРОТ * Количество детей) * 0,13.

Минимальный размер оплаты труда (МРОТ) должен быть введен в диалоговое окно.

Сумма к выдаче рассчитывается, как разность между Начислено и Удержано.

Вариант 24

Табельный номер	Фамилия, имя, отчество	Дата поступления на работу	Оклад

Вторая исходная таблица создается на рабочем листе "Процент премии за выслугу лет" и имеет вид:

Количество отработанных лет	% премии

На основе данных исходных таблиц получить на рабочем листе "Расчет премии за выслугу лет" результатную таблицу, содержащую следующие данные:

Фамилия, имя, отчество	Сумма премии

Сумма премии рассчитывается по формуле:

Сумма премии = Оклад * (1+ % премии.100).

Количество отработанных данным работником лет рассчитывается по формуле:

Количество отработанных лет = (Дата расчета - Дата поступления на работу) /365

Дата расчета должна быть введена в диалоговое окно.

Вариант 25

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Состав изделия" и иметь следующий вид:

Код изделия	Код детали	Количество деталей в изделии

При создании этой таблицы необходимо учесть, что каждому код изделия может содержать несколько кодов детали, а каждый код детали может содержаться в нескольких изделиях.

Вторая исходная таблица создается на рабочем листе "План выпуска" и имеет вид:

Код изделия	Плановое количество изделий

На основе данных исходных таблиц получить на рабочем листе "Расчет планового количества деталей" результатную таблицу, содержащую следующие данные:

Код детали	Количество деталей

Количество деталей рассчитывается по формуле:

Количество деталей = Плановое количество изделий * Количество деталей в изделии

Вариант 26

Создать три исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Наличие материалов" и иметь следующий вид:

Код материала	Единица измерения	Количество

Вторая исходная таблица создается на рабочем листе "Расход материалов на выпуск" и имеет вид:

Код материала	Код изделия	Расход на выпуск одного изделия

При создании этой таблицы необходимо учесть, что каждый код материала может использоваться при изготовлении нескольких изделий.

Третья исходная таблица создается на рабочем листе "Выпуск изделий" и имеет вид:

Код изделия	Количество выпущенных изделий

На основе данных исходных таблиц получить на рабочем листе "Остатки материалов" результатную таблицу, содержащую следующие данные:

Код материала	Остаток

Остаток рассчитывается по формуле:

Остаток = Количество - Расход на выпуск одного изделия * Количество выпущенных изделий.

Количество рабочих дней в месяце должно быть введено в диалоговое окно.

Вариант 27

Создать три исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Состав изделий" и иметь следующий вид:

Код изделия	Код детали	Количеством деталей в изделии

Вторая исходная таблица создается на рабочем листе "Ценник" и имеет вид:

Код детали	Цена детали

Третья исходная таблица создается на рабочем листе "Стоимость сборки" и имеет вид:

Код изделия	Стоимость сборки

На основе данных исходных таблиц получить на рабочем листе "Расчет цены изделия" результатную таблицу, содержащую следующие данные:

Код изделия	Цена изделия

Цена изделия рассчитывается по формуле:

Цена изделия = Цена детали * Количество деталей в изделии + Стоимость сборки.

Вариант 28

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Справочник работников" и иметь следующий вид:

Табельный номер	Фамилия, имя, отчество	Оклад

Вторая исходная таблица создается на рабочем листе "Результаты работы" и имеет вид:

Табельный номер	Плановый объем работ	Фактически выполненный объем работ

На основе данных исходных таблиц получить на рабочем листе "Расчет премии" результатную таблицу, содержащую следующие данные:

Фамилия, имя, отчество	Премия

Премия начисляется только тем работникам, у которых фактически выполненный объем работ превышает плановый.

Премия рассчитывается по формуле:

Премия = Оклад * (1+ % премии/100).

% премии должен быть введен в диалоговое окно.

Вариант 29

Создать три исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Наличие материалов на складе" и иметь следующий вид:

Код материала	Единица измерения	Количество

Вторая исходная таблица создается на рабочем листе "Поступление материалов" и имеет вид:

Код материала	Количество поступило

Третья исходная таблица создается на рабочем листе "Требования на выдачу материала" и имеет вид:

Код материала	Количество требуется

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

На основе данных исходных таблиц получить на рабочем листе "Ведомость дефицитных материалов" результатную таблицу, содержащую следующие данные:

Код материала	Остаток

Остаток рассчитывается по формуле:

Остаток = Количество + Количество поступило - Количество требуется.

В выходную таблицу должны попасть только те материалы, остаток по которым меньше нуля.

Вариант 30

Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Расценки на выполнение работ" и иметь следующий вид:

Код работы	Расценка

Вторая исходная таблица создается на рабочем листе "Ведомость выполнения работ" и имеет вид:

Табельный номер работника	Код работы	Объем выполненной работы

При создании этой таблицы необходимо учесть, что каждый работник может выполнять несколько видов работ.

На основе данных исходных таблиц получить на рабочем листе "Средняя стоимость работы" результатную таблицу, содержащую следующие данные:

Табельный номер	Средняя стоимость

Средняя стоимость работ, выполненных каждым работником, рассчитывается по формуле:

Средняя стоимость = Расценка * Объем выполненной работы / Количество видов работ, выполненных данным работником.

7. Пример выполнения индивидуального задания

Создать 3 таблицы на разных рабочих листах. Первая таблица содержит информацию о работающих (Табельный номер, Фамилия, Разряд), вторая – справочник по разрядам (Разряд, Оклад) и третья должна содержать сведения о начислении зарплаты (Табельный номер, Фамилия, Коэффициент отработанного времени, Начислено).

Требуется написать программу на языке VBA для заполнения таблиц. Данный пример VBA-кода содержит три процедуры:

- Entertab1 создает и организует заполнение таблицы 1;

- Entertab2 создает и организует заполнение таблицы 2;

- Calculation заполняет таблицу 3 на основе <