Практическая работа № 4 Элементы управления, vba макросы
Цель работы: изучить возможности использования VBA в решении задач
Теоретическая часть
Если при работе с Microsoft Excel для Windows у вас возникла необходимость несколько раз выполнить одну и ту же последовательность действий, то вы можете записать эту последовательность под определенным именем. Записанная под определенным именем последовательность действий называется макросом. Записанный макрос можно вызывать для выполнения из основного меню при помощи кнопки на панели инструментов или на рабочей области, а также комбинации клавиш. Макрос может быть назначен так же графическому объекту.
Задача 4.1.: составление тестовых заданий средствами Excel.
Для того, чтоб начать тест, нам потребуется кнопка СТАРТ, которая применяется для автоматического перехода на Лист2, где будут расположены тесты.
Чтоб ее создать выполняем следующие действия:
1.В меню Вид выберите команду Панели инструментов, а затем – Формы.
(В Excel 2010 откройте вкладку Разработчик (Developer). Если этой вкладки не видно, то нажмите кнопку Офис – Параметры Excel Основные - флажок Отображать вкладку Разработчик на ленте (Office Button - Excel Options - Show Developer Tab in the Ribbon). Найдите необходимый значок (не ActiveX!). Ориентируйтесь по всплывающим подсказкам.)
2.В появившейся вкладке выбираем функцию « Кнопка».
3.На ЛИСТ1 обозначаем область расположения кнопки при помощи нажатия левой клавиши мыши.
4. Для перехода на ЛИСТ2 при нажатии кнопки нам необходимо присвоить макрос нашей созданной кнопке. В появившемся окне диалога Назначить макрос объекту вписываем имя макроса «СТАРТ» и нажимаем кнопку Ок.
6.На ЛИСТ1 для создания нужного нам макроса необходимо в меню Сервис выбрать команду Макрос, а затем- Начать запись.
7.В открывшемся окне диалога Запись макроса в поле Имя макроса вводим название нашего макроса (СТАРТ) и нажимаем ОК. Запись макроса началась.
8.Переходим на Лист2 и останавливаем запись макроса- заходим в меню Сервис, выбираем команду Макрос, а затем- Остановить запись.
9. Чтоб переименовать кнопку, необходимо при нажатии правой кнопки мыши выбрать в появившемся окне команду Изменить текст.
Кнопка «СТАРТ» готова, при ее нажатии автоматически переходим на ЛИСТ2.
Затем на ЛИСТ2 создаем тестовые вопросы и ответы.
Можно выделить следующие этапы создание теста:
Продумывание способа оформления вопросов. Составление вопросов.
Выбор способа ввода ответа и оформление ответа.
Выбор способов оценивания и подведения итогов.
1 этап
Для оформления вопросов необходимо создать бланки.
При создании бланков необходимо ввести, например, в ячейку В7 слово “Вопрос”, а в ячейку В19- “Ответ”. Выглядеть это будет так:
При этом для оформления бланка используются операции:
заливки ячеек;
объединения ячеек.
После того как мы закончили вводить слово “Вопрос” в ячейку В7, то ниже необходимо выделить диапазон ячеек при помощи левой клавиши мыши, куда мы и будем наш вопрос записывать. После того, как мы зафиксировали выбранный нами диапазон ячеек, нужно при помощи нажатия правой кнопки мыши в открывшимся окне выбрать команду Формат ячеек, затем в окне диалога Выравнивание выбираем с помощью мыши Выравнивание по горизонтали - по центру, Выравнивание по вертикали - по центру, Отображение - объединение ячеек. Выглядеть это будет так:
Затем нажмите кнопку Ок. То же самое проделываем и с объединением ячеек под словом “Ответ”, так как нам еще необходимо будет его там записать.
После создания бланка его можно скопировать столько раз, сколько вопросов в тесте.
2 этап
Программа Excel позволяет создавать тесты со свободным ответом (когда человеку, который тестируется, не дается варианта ответа) и с выборочным ответом (когда этому же человеку предлагаются варианты ответов, из которых он выбирает правильный).
При создании теста со свободным ответом создается группа ячеек для ввода ответа.
При создании тестов с выборочным ответом выполняется следующая последовательность действий:
В меню Данные выберите команду Проверка.
В появившемся окне Проверка вводимых значений выбирается в поле Тип данных - Список, а в поле Источник необходимо самостоятельно записать варианты ответов через точку с запятой ( ; ) для нашего вопроса самостоятельно:
Результатом выполнения операций будет список с выборочными ответами, из которых человек, который тестируется, должен будет выбрать один ответ:
3 этап
Для подведения итогов тестирования можно предусмотреть специальный лист, на котором будут подведены итоги ответов. Для этой цели можно использовать логическую функцию ЕСЛИ.
На ЛИСТ3 необходимо выделить любую ячейку, нажатием левой клавиши мыши, например, ячейку С5. Затем в меню Вставка выберите команду Функция. В появившемся окне Мастер функций выберите значение в поле ЕСЛИ и нажмите Ок. Во вновь появившемся окне Аргументы функции в поле Лог_выражение нужно записать наше истинное логическое выражение и чему оно должно быть равно. Для этого переходим на ЛИСТ2 и выделяем с помощью мыши диапазон ячеек, в котором вписан ответ-этот диапазон затем автоматически записывается в поле Лог_выражение. После того, как диапазон ячеек вписан, необходимо самостоятельно записать через равно ( = ), чему этот диапазон будет равен. В нашем случае, правильным ответом на вопрос “Какова ПДК валового содержания свинца в почве?” будет 32 мг/кг.
В поле Значение_если истина указывается реплика на правильный ответ (можно записать “верно”), а в поле Значение_если_ложь – указывается реплика на неправильный ответ (“неверно”). Нажмите кнопку Ок.
В ячейке, которую мы прежде выделили, теперь будет записано “верно” или “неверно”, в зависимости от того, правильный ли ответ стоит в этой ячейке или нет.
Для общего подведения итогов и подсчета количества набранных баллов можно использовать функцию СЧЕТЕСЛИ - при создании большого количества вопросов и ответов на них.
На ЛИСТ3 выделите любую ячейку, например, С13. Затем в меню Вставка выберите команду Функция. В появившемся окне Мастер функций выберите значение в поле СЧЕТЕСЛИ и нажмите Ок. В появившемся окне Аргументы функции в поле Диапазон нужно записать диапазон ячеек, из которых будет подсчитываться количество верных и неверных ответов. Для этого необходимо выделить при помощи мыши ту область значений на ЛИСТ3, где необходимо подсчитать количество верных ответов и она автоматически появится в поле Диапазон. Затем в поле Критерий запишите реплику на правильный ответ (например, “верно”). И нажмите Ок.
Теперь в той ячейке, которую мы выделяли, будет записано количество верных ответов.
Используя команду скрыть столбцы, назначением макросов – создайте тесты по «Математическому моделированию» с оригинальным интерфейсом и максимальной степенью защиты.
Для этого рекомендуется, чтобы итоговая оценка появлялась после нажатия кнопки закончить, Для того, чтобы не было непрерывной связи с количеством правильных ответов в макросах можно использовать Специальную вставку поле Значения. Так же Вы можете использовать появление надписей разных цветов тест пройден. Кнопка же начать тест эти надписи может убирать.
В редакторе Visual Basic for Applications посмотрите исходный текст макроса, определите, какие команды приводят к выполнению тех или иных операций.
Самостоятельно пройдите несколько раз написанную Вами программу. Исправьте возможные ошибки.