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

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

Следующие инструкции помогут вставить функции AVERAGE (СРЕДНЕЕ) и SUM (СУММА) в код VBA.

1. Создайте новую процедуру и назовите ее ВстроенФункции.
2. Введите следующий код процедуры:

Dim sngAnswer As Single

sngAnswer=Application.Average(Worksheets("Лист1").Range("A1:A4"))

MsgBox "Среднее значение диапазона = " & sngAnswer

sngAnswer=Application.Sum(Worksheets("Лист1").Range("A1:A4"))

MsgBox "Сумма значений диапазона = " & sngAnswer

1. Перейдите на рабочий лист Лист1 открытой рабочей книги.
2. Введите в ячейку А1 число 100, в ячейку А2 - 200, в ячейку A3 - 300, в А4 - 400.
3. Выполните процедуру. Появится первое окно сообщения, показывающее среднее значение введенных чисел (рис. 9.1).
4. Для закрытия окна сообщения щелкните на кнопке OK. Второе окно сообщения покажет сумму введенных чисел.
5. Щелкните на кнопке ОК для закрытия окна сообщения и завершения процедуры.

Чтобы выполнить процедуру из рабочего листа, нажмите комбинацию клавиш <Alt+F8> и в диалоговом окне Макрос дважды щелкните на имени процедуры.

Рис. 9.1. Окно сообщения показывает результат, полученный с помощью встроенных функций Excel

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