Работа с макросами. Использование возможностей VBA для решения задач в Excel

1. Изучите основные приемы работы с макросами, выполнив следующие упражнения:

ü Создайте Макрос с именем Tim, используя пункт меню Сервис / Макрос / Макросы. Назначение макроса Tim: вывод диалогового окна с сообщением о текущем времени;

ü В качестве тела процедуры запишите строку:

MsgBox "Сейчас " & Time(), vbOKOnly + vbInformation, "Текущее время"

ü Запустите макрос, нажав кнопу <Запустить> в диалоговом окне Макрос (пункт меню Сервис / Макрос / Макросы);

ü Используя средства Visual Basic, создайте на листе Макрос кнопку с именем Текущее время для запуска макроса Tim.

2. Изучите различные варианты работы с данными ячеек листа, выполнив следующие упражнения:

2.1 Доступ к ячейкам с помощью объекта

ü Создайте макрос Sum, который вычисляет Сумму данных ячеек А1 и А2 и записывает результат в ячейку А3, используя код программы:

Range("A3").Value = Range("A1").Value + Range("A2").Value

ü Создайте на листе Макросы кнопку с именем Сумма для запуска макроса Sum;

ü Самостоятельно измените макрос Sum таким образом, чтобы выполнялось суммирование данных, находящихся в диапазоне ячеек А1:А5, а результат записывался в ячейку В7, в ячейке А7 необходимо поместить слово Сумма.

2.2 Доступ к содержимому активной ячейки с помощью объекта ActiveCell:

ü Создайте макрос Activ, который будет помещать результат суммирования данных ячеек А1 и А2 в ячейку, активную в текущий момент, используя следующий код программы:

ActiveCell.Value = Range("A1").Value + Range("A2").Value

ü Создайте на листе Макросы кнопку с именем Активная ячейка для запуска макроса Activ.

2.3 Доступ к ячейкам выделенной области листа с помощью объекта Selection:

ü Создайте макрос Selekt, который будет помещать результат суммирования данных ячеек А1 и А2 в указанную ячейку (например, ячейку с координатами 5,6) относительно выделенной области листа, используя следующий код программы:

Selection.Cells(5, 6).Value = Range("A1").Value + Range("A2").Value

ü Создайте на листе Макросы кнопку с именем Активная ячейка для запуска макроса Select.

3. Изучите возможности использования Visual Basic для решения задач, решаемых в Excel, выполнив следующие упражнения:

Самостоятельно разработайте приложение для запуска макроса Tim, созданного выше:

ü для чего в редакторе Visual Basic создайте форму с именем Работа и поместите на нее необходимую кнопку.

ü Используя текст программы макроса Tim, сделайте вашу кнопку рабочей.

ü Создайте на форме кнопку выхода из приложения;

ü Сделайте запуск формы при открытии книги, для чего необходимо написать соответствующий код программы для события Workbook_Open().

Самостоятельно выполните задание:

Разработайте приложение для нахождения площади треугольника по трем сторонам согласно формуле: S = Sqr(p * (p - a) * (p - b) * (p - c)), где S – площадь, a, b, c – стороны треугольника, p – полупериметр треугольника, Sqr – функция вычисления квадратного корня. Необходимо реализовать два варианта работы с данными: 1) данные для вычисления берутся из текстовых полей формы, 2) обращение к данным ячеек листа.

Контрольные вопросы:

1. Основные приемы работы с макросами в Excel.

2. Перечислите различные варианты работы с данными ячеек листа Excel.

3. Опишите правила работы с объектом Range в среде Excel.

4. Использование возможностей Visual Basic в среде Excel.

5. Возможности работы с данными в приложениях, созданных в среде Excel с помощью Visual Basic.