В верхней строке модуля (окна программного кода записать опцию Option Explicit

Добавьте в Практическое задание по организации ввода / вывода информации (п. 3.1) объявление используемой переменной типа string.

4.2. Практическое задание по простейшим арифметическим вычислениям

Создать процедуру «Корзина».

Объявить 4 переменные типа double: USD, EUR, RUR, Корзина.

4.2.3. Присвоить переменным USD, EUR, RUR первоначальные значения с помощью оператора присваивания «=», например:

USD = 9000

4.2.4. Ввести формулу для расчета курса белорусского рубля к корзине валют:

Корзина = (USD*EUR*RUR)^(1/3)

4.2.5. Вывести значение корзины на экран в формате: «Корзина валют: _________».

4.3. Практическое задание по простейшим арифметическим вычислениям с вводом / выводом информации

Доработать предыдущий пример следующим образом: значения курсов валют USD, EUR, RUR необходимо последовательно запросить у пользователя и присвоить введенные пользователем значения данным переменным.

5. Взаимодействие с таблицами Excel

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

Для доступа к листам активной рабочей книги применяется коллекция объектов Sheets (в случае работы с несколькими рабочими книгами, в программной коде также необходимо явно указывать соответствующую рабочую книгу). С помощью данной коллекции можно обратиться к нужному нам рабочему листу:

Sheets(«Наименование листа»)

Данный оператор возвращает объект типа Worksheet – рабочий лист, который в свою очередь имеет свойства Cells и Range (область) типа Range (объект область), позволяющие выбрать конкретные ячейки рабочего листа:

Cells(<номер строки>, <номер столбца>)

Range(«< адрес ячейки >»)

Range(«< диапазон ячеек >»)

Например, для ввода числа 34 в ячейку «A7» листа «Лист1» необходима команда:

Sheets(«Лист1»).Cells(7, 1).Value = 34 или

Sheets(«Лист1»).Range(«A7»).Value = 34

Для считывания значения ячейки «A7» листа «Лист1» применяется команда:

x = Sheets(«Лист1»).Cells(7, 1).Value или

x = Sheets(«Лист1»).Range(«A7»).Value

С помощью свойства Range также можно обратиться к диапазону ячеек. Например, для заполнения диапазона ячеек «A1:E10» цифрой 9 применяется следующая команда:

Sheets(«Лист1»).Range(«A1:E10»).Value = 9

5.1. Практическое задание по простейшим арифметическим вычислениям с адресацией ячеек

5.1.1. Создайте на листе Excel следующую таблицу:

Доработать Практическое задание по простейшим арифметическим вычислениям с вводом / выводом информации (п. 4.3), чтобы в результате выполнения программы значения валют и величины корзины заносились в соответствующие ячейки листа Excel.

Поиск по сайту: