Типы переменных

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

Const Пуд=16.36

Переменным можно переприсвоить значение, а константам – нет.

Практическое применение.

Предположим, нам нужен набор функций по определению площади круга, длины окружности, объема шара. Аргументом будет радиус. Дополнительной переменной (можно константой) – значение p.

Куда поместить функцию?

Конечно в модуль! Так как все макросы для любого листа вызываются именно оттуда. Нам же нужна функция, доступная к вызову из любого места.

Начиная работу в новом файле, придется сначала вставить в проект VBA модуль, а затем в модуль поместить функцию. Это можно осуществить, используя меню редактора VBA Insert.

Итак функция вставлена. Практически любая функция обрабатывает один или несколько аргументов. Следовательно необходимо в описании функции описать и аргумент. Радиус может быть дробным, следовательно, это число вещественное.

Остается присвоить функции расчетное значение. Значение p можно «добыть» из справочной системы, заглянув в раздел тригонометрических функций VBA.

Итог наших трудов:

Public Function площадь_круга(радиус!)

Dim pi#

pi=3.1415926535897932

площадь_круга=pi* радиус^2

End Function

Вызов функции осуществляется с помощью мастера функций на панели инструментов «Стандартная» из категории «Определенные пользователем». В окне диалога делаете ссылку на ячейку, содержащую значение радиуса и получаете результат.

Остальные функции выполняются аналогично.

Функции с текстовыми аргументами.

Функция шутка. Предположим есть две колонки мужских и женских имен. Необходимо составить фразы подобные «Вася+Люба= Любовь». Напомним, что с текстом возможна только операция сложения. Все текстовые символы заключаются в кавычки.

Результат:

Public Function шутка(имя1$, имя2$)

шутка =имя1 + ”+” + имя2 + ” = Любовь“

End Function