Лабы по VBA. лабы. Автоматизация деловых процессов
![]()
|
ЦельМинистерство науки и высшего образования РФ «Российский государственный гидрометеорологический университет» Институт информационных систем и геотехнологий Кафедра Прикладной информатики Лабораторные работы По дисциплине «Автоматизация деловых процессов» Выполнил: студент 3 курса, группы БИ-Б19-2 Малютин А. С. Научный руководитель: к.т.н., старший преподаватель, Петров. Я.А Санкт-Петербург, 2021 Лабораторная работа №1 Цель: ознакомление с редактором Visual Basic. Задача: выполнить практическое задание по созданию процедуры 1)Процедура Начало_VBA ![]() 2) Результат проведения процедуры Начало_VBA ![]() Лабораторная работа №3 Цель: запись последовательности действий пользователя с автоматическим преобразованием их в код VBA Задача: создать один или несколько макросов, при выполнении которых создается форма таблиц, таблица формируется и заполняется данными и формулами для расчета построчных сумм для каждого товара и общей суммы за поставку всех товаров 1) Процедура ШапкаМакрос ![]() Результат проведения процедуры Шапка ![]() 2) Процедура Формулы ![]() 3) Процедура Форматирование ![]() 4)Итоговая таблица при выполнении макросов Шапка, Формулы, Форматирование, ВВодДанных. ![]() Лабораторная работа №4 Цель: изучить способ назначения макроса графическим изображением Задача: выполнить практическое задание Назначили изображению наш макрос ![]() Лабораторная работа №5 Цель: ознакомиться с функцией Msgbox, Inputbox и т.д. Задачи: выполнить практическое задание 1 и 2. Задание 1 Задача: Подсчитать площадь треугольника со сторонами a, b, c по формуле Герона Процедура ![]() Итог процедуры ![]() Задание 2 Процедура ![]() Итог процедуры ![]() ![]() ![]() Лабораторная работа №6 Цель: ознакомиться с инструкциями перехода If…Then…Else и Select Case и инструкцией безусловного перехода GoTo Задача: выполнить практическое задание 1 и 2 Задание 1 Процедура ![]() Задание 2 Процедура ![]() Лабораторная работа № 7 Цель: ознакомиться с инструкциями For …Next, While…Wend, Do…Loop и For each…Next Задача: выполнить практическое задание 1, 2 и 3 Задание 1 1)процедура заполнения таблицы Excel с m строками и n столбцами ![]() 2)Процедура заполнения таблицы Excel + подсчет суммы чисел в ячейках этой таблицы ![]() Задание 2 Процедура подсчета суммы S нечетных чисел L натурально ряда, находящиеся в пределах 0 ![]() ![]() Задание 3 ![]() Лабораторная работа № 8 Цель: ознакомиться с инструкциями безусловного перехода GoTo, обработчик ошибок On Errorи прерывания выполнения блока Exit Задача: выполнить практическое задание 1, 2 и 3 Задание 1 Инструкция GoTo Процедура 1 ![]() Процедура 2 ![]() Задание 2. Пример OnErrorGoTo ![]() Задание 3 Процедура пример Exit ![]() Лабораторная работа №9 Цель: Изучить функции VBA Задача: Выполнить практическое задание 1, 2. Задание 1 1) Функция LTrim, RTrim, Trim ![]() 2) Функция Len ![]() 3) Функция StrComp ![]() 4) Функция InStr ![]() 5) Функция Left, Right, Mid ![]() 6) Функция Date ![]() Задание 2. ![]() ![]() Лабораторная работа № 10 Цель: Научиться работать с формой Задача: выполнить практическое задание 1 и 2. Задание 1 ![]() Код кнопки пуск : ![]() Задание 2 ![]() Код кнопки пуск ![]() |