Задание 5. Использование встроенных функций Excel

Использование встроенных функций Excel.

В VBA достаточно много встроенных функций, однако достаточно эффективно можно использовать
и встроенные функции Excel. В этом случае, функции Excel выступают в качестве методов объекта Application. Причем
в русскоязычной версии приложения Excel в коде VBA указываются англоязычные названия функций. Рассмотрим соответствующий пример.

1) Создайте макрос, который вычисляет сумму значений ячеек диапазона, выделенного на момент запуска макроса.
Для вычисления суммы значений ячеек воспользуйтесь встроенной функцией Excel СУММ () (англоязычный вариант - функция SUM ()). Назовем этот макрос ExcelFunc (). Программный код макроса приведен в листинге 17:

Листинг 17: Программный код макроса ExcelFunc ()

Public Sub ExcelFunc ()

Dim S As Range

Dim i As Integer

Set S = Selection

i = S.Rows.Count

Selection.Offset(i,0).Range(“A1”).Value = Application.Sum(S)

End Sub

В макросе имеются две переменные: переменная i целочисленного типа Integer и переменная S объектного типа Range для записи в неё объекта выделенный диапазон. Именно это делается с помощью команды Set S = Selection.

Свойством Selection возвращается выделенный диапазон ячеек или активная ячейка. Инструкцией S.Rows.Count возвращается количество строк в выделенном диапазоне, и это число присваивается в качестве переменной i. Для выделения ячейки, расположенной под выделенным диапазоном, используется свойство Offset(i,0), где по строкам отступ равен i строкам от верхней левой ячейки диапазона, а по столбцам отступ равен 0. Свойством Range(“A1”) задаются через аргумент A1 размеры диапазона (одна ячейка), а значение (свойство Value) устанавливается равным сумме ячеек диапазона, записанного в переменную S. Сумма вычисляется с помощью встроенной функции Excel. Для доступа к ней указана инструкция Application.Sum(S), а аргументом функции указана переменная S (т.е. диапазон, для которого вычисляется сумма ячеек).

Для выполнения задания заполните числовыми значениями диапазон ячеек B3:C5. На рис. 24 показан документ перед запуском макроса. После запуска макроса получается результат как на рис. 25. Причем сумма вычислена корректно и размещается в ячейке под выделенным диапазоном. При этом выделение с диапазона не снимается, а в ячейку вводится число, а не формула.

	Рис. 24. Вид документа перед выполнением макроса ExcelFunc ().		Рис. 25. Вид документа после выполнения макроса ExcelFunc ().