Создание форм
Чтобы создать новую пользовательскую форму в VBA необходимо находясь в среде VBA выполнить команду Вставка-Форма (Insert/UserForm) и затем в появившемся окне формы необходимо установить его размеры, название (свойство Caption) и необходимые параметры. Из панели элементов управления выбрать необходимые элементы и разместить их на форме. Исходные данные задаются посредством следующих элементов управления:
Выходные данные отображаются на форму посредством элементов управления поле, поле со списком, список. Соответствующие надписи на форме осуществляются посредством элемента управления надпись (Label). Для выбора действий используются элементы управления флажок (CheckBox), переключатель (OptionButton), выключатель (ToggleButton). Выполнение и завершение макросов осуществляется посредством элемента управления кнопка (CommandButton). Для вставки рисунков используется элемент управления рисунок (Image), для работы с вкладками и страницами используются элементы управления набор вкладок (TabStrip) и набор страниц (Page).
Лабораторная работа №1 Задание 1
1. Создайте новую рабочую книгу Excel.
2. Переименуйте рабочий лист согласно варианту.
3. Заполните таблицу 5 данными и запрограммируйте в ней необходимые вычисления (данные для вычисления выделены полужирным шрифтом).
4. Удалите в таблице все данные, вычисленные по формулам.
5. В меню Сервис->Макрос выберите пункт Начать запись…. Задайте имя макроса.
6. Повторно запрограммируйте формулы таблицы Excel и остановите запись макроса.
7. Командой Сервис->Макрос->Редактор Visual Basic запустите редактор Visual Basic. В окне проектов (Project-VBAProject) раскройте ветвь Modules. В ее составе должен быть один (например, Module1) или несколько модулей. Дважды щелкните левой клавишей мыши по имени модуля. В ответ в правом верхнем окне должен появиться его текст.
8. Изучите текст записанного вами макроса.
9. Удалите данные, вычисленные по формулам, и выполните макрос командой Сервис->Макрос->Макросы->Выполнить.
10. Снова удалите данные, вычисленные по формулам. Перейдите в окно VBA, установите маркер на первом операторе макроса. Выберите пункт Run->Run Sub/User Form->Run и запустите модуль на выполнение. Перейдите в таблицу Excel и убедитесь, что в результате работы макроса формулы в ней восстановились.
Варианты заданий
Номер варианта |
Вид таблицы |
1 |
Ведомость складских остатков: наименование, цена, количество, стоимость (в зависимости от цены и количества), оптовая цена (с учетом скидки), оптовая скидка (в зависимости от процента), оптовая стоимость (в зависимости от оптовой цены и количества), процент скидки |
2 |
Ведомость операций квартплаты: плательщик, вид услуги, полный тариф, начислено, льгота (с учетом процента), процент льготы, к оплате (с учетом льготы), оплачено, задолженность |
3 |
Ведомость операций оплаты за электроэнергию: плательщик, начальное показание, конечное показа-ние, израсходовано (в зависимости от начального и конечного показаний), полный тариф, начислено (с учетом тарифа), льгота (10%), к оплате (с учетом льготы), оплачено, задолженность |
4 |
Журнал учета выполнения лабораторных работ: фамилия и инициалы студента, названия лаборатор-ных работ, дата выполнения работы, оценка защиты, оценка выполнения, рейтинг (с учетом оценок), средний балл в группе, максимальный балл в группе, дата сдачи работы, задолженность (с учетом дат выполнения и сдачи). |
5 |
Индивидуальная выписка для преподавателя по проведенным занятиям для представления на оплату: дата проведения, номера групп, вид занятия, количество часов, часовая ставка - по лабораторным работам, по лекциям, по практическим занятиям, сумма к оплате – за каждый вид занятия и итоговая сумма. |
6 |
Ведомость командировок: фамилия, город, дата убытия, дата прибытия, срок командировки (в зависимости от дат убытия и прибытия), стоимость проезда туда, стоимость проезда обратно, суммарная стоимость проезда, суточные, сумма затрат. |
7 |
Ведомость операций туристического агентства: фамилия, страна, транспортные расходы туда, транспортные расходы обратно, стоимость проживания в сутки, дата заезда, дата убытия, срок проживания, затраты на проживание, затраты на проезд, общие затраты. |
8 |
Ведомость операций риэлтерского агентства: адрес, этаж, жилая площадь, вспомогательная площадь, общая площадь, стоимость квадратного метра, цена помещения (в зависимости от стоимости и общей площади), затраты на ремонт помещения (0,5% от цены), общая стоимость. |
9 |
Ведомость продаж универсама: вид товара, имеющееся количество, цена складская, цена отпускная, объем продажи, остаток (с учетом количества и объема продаж), стоимость товара (по складской цене), стоимость продажи (по отпускной цене), прибыль. |
10 |
Ведомость операций телефонной компании: Ф.И.О. абонента, тариф, дата, время, цена звонка, скидка (%), стоимость звонка (с учетом скидки), оплачено, задолженность. |