Лабораторная работа. Занятие 1. VBA.

Задание 1:

Ввести с клавиатуры 2 числа. Увеличить большее из низ на 1, если числа равны, вывести соответствующее сообщение.

Блок-схема решения задачи:

Порядок выполнения программной реализации задачи:

1.Запустить MS Excel, создать пустую рабочую книгу.

2. В ячейки таблицы В1 и В2 занести числовые данные.

3. Войти в пункт меню Разработчик – Visual Basic - (Alt+F11).

Если вкладка меню Разработчик отсутствует, то ее необходимо добавить в меню Файл ® Параметры ® Настроить л енту

4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”.

5. В появившееся окно необходимо ввести программный код решения задачи.

6. Сохранить произведенные изменения в формате «книга Excel с поддержкой макросов», закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel.

7. Используя команду меню Разработчик – Макросы, открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить.

8. Проверить правильность работы макроса.

9. Тестирование программного кода.

Вести в ячейки другие числа, например, 7 и 9. Удалить значение и ячейки для вывода результата. Перейти в окно редактора макроса и открыть код. Установить курсор перед оператором IF, затем выбрать пункт меню Debug ® Toggle Breakpoint (точка остановки выполнения программного кода). Точку прерывания можно установить на любой строке программного кода.

Запустим программный код выбрать пункт меню Run ® Run Sub

Программа прекратит выполняться в точке прерывания. Если навести курсор на переменную x или y, то увидим значение, которое содержится в этой переменной.

Нажав клавишу F8 программный код будет выполняться пошагово. Т.к. веденные числа не равны, то первое условие не будет выполняться и программа перейдет на проверку следующего условия.

Следующие условие также не будет выполняться и программа перейдет на последнюю ветку условия Else (в противном случае), выполнив команду этого условия.

После выполнения всех строк кода в ячейку В4 будет выведен результат.

Задание 2: Вывести таблицу умножения для указанного пользователем числа.

Порядок выполнения:

1.Запустить MS Excel, создать пустую рабочую книгу.

2. В ячейку таблицы A1 ввести текст “Таблица умножения на: ”, в ячейку A2 целое число.

3. Войти в пункт меню Разработчик – Visual Basic.

4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”.

5. В появившемся окне набрать текст программы, представленной ниже:

6.Сохранить произведенные изменения, закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel.

7. Используя команду меню Разработчик – Макросы, открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить.

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

Задание 3: Подсчитать количество положительных четных чисел среди десяти, вводимых пользователем.

Порядок выполнения:

1.Запустить MS Excel, создать пустую рабочую книгу.

2. В ячейки таблицы A1: A10 занести числовые данные..

3. Войти в пункт меню Разработчик – Visual Basic.

4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”.

5. В появившемся окне набрать текст программы, представленной ниже:

6.Сохранить произведенные изменения, закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel.

7. Используя команду меню Разработчик – Макросы, открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить.

8. Проверить правильность работы макроса.

Самостоятельно:

Написать программу для решения системы уравнений:

Значение Х вводится произвольно в ячейку B1, результат вычисления Y вывести в ячейку B9.