При програмирането на VBA функцията връща стойност. Можете да изпълнявате функциите процедури и да извикате функцията в Excel 2016. Функциите, за разлика от подпроцедурите, могат да се изпълняват само по два начина:
Опитайте тази проста функция. Въведете го във VBA модул:
Функция CubeRoot(число)
CubeRoot = число ^ (1/3)
Крайна функция
Тази функция е доста слаба; той просто изчислява кубичния корен на числото, предадено му като негов аргумент. Това обаче осигурява отправна точка за разбиране на функциите. Той също така илюстрира важна концепция за функциите: как да върнете стойността. (Спомняте си, че функцията връща стойност, нали?)
Забележете, че единственият ред код, който съставя тази функция на процедурата, извършва изчисление. Резултатът от математиката (число на степен 1/3) се присвоява на променливата CubeRoot. Неслучайно CubeRoot е и името на функцията. За да кажете на функцията каква стойност да върне, присвоявате тази стойност на името на функцията.
Извикване на функцията от подпроцедура
Тъй като не можете да изпълните функция директно, трябва да я извикате от друга процедура. Въведете следната проста процедура в същия VBA модул, който съдържа функцията CubeRoot:
Sub CallerSub()
Отговор = CubeRoot(125)
MsgBox Ans
Край под
Когато изпълните процедурата CallerSub, Excel показва поле за съобщение, което съдържа стойността на променливата Ans, която е 5.
Ето какво се случва: Функцията CubeRoot се изпълнява и получава аргумент 125. Изчислението се извършва от кода на функцията (използвайки стойността, подадена като аргумент), а върнатата стойност на функцията се присвоява на променливата Ans. След това функцията MsgBox показва стойността на променливата Ans.
Опитайте да промените аргумента, който е предаден на функцията CubeRoot и стартирайте отново макроса CallerSub. Работи точно както трябва - ако приемем, че давате на функцията валиден аргумент (положително число).
Между другото, процедурата CallerSub може да бъде малко опростена. Променливата Ans всъщност не е необходима, освен ако вашият код не използва тази променлива по-късно. Можете да използвате това единично изявление, за да получите същия резултат:
MsgBox CubeRoot(125)
Извикване на функция от формула на работен лист
Сега е време да извикате тази процедура на VBA функция от формула на работен лист. Активирайте работен лист в същата работна книга, която съдържа дефиницията на функцията CubeRoot. След това въведете следната формула във всяка клетка:
=Куб корен(1728)
Клетката показва 12, което наистина е кубичният корен от 1728.
Както може да очаквате, можете да използвате препратка към клетка като аргумент за функцията CubeRoot. Например, ако клетка A1 съдържа стойност, можете да въведете =CubeRoot(A1) . В този случай функцията връща числото, получено чрез изчисляване на кубичния корен на стойността в A1.
Можете да използвате тази функция произволен брой пъти в работния лист. Подобно на вградените функции на Excel, вашите персонализирани функции се появяват в диалоговия прозорец Вмъкване на функция. Щракнете върху бутона Вмъкване на функция в лентата с инструменти и изберете категорията Дефинирани от потребителя. Диалоговият прозорец Вмъкване на функция изброява вашата собствена функция.
Функцията CubeRoot се появява в категорията User Defined на диалоговия прозорец Insert Function.
Ако искате диалоговият прозорец Вмъкване на функция да показва описание на функцията, изпълнете следните стъпки:
Изберете Разработчик → Код → Макроси.
Excel показва диалоговия прозорец Macro, но CubeRoot не се появява в списъка. (CubeRoot е функционална процедура и този списък показва само подпроцедури.) Не се притеснявайте.
Въведете думата CubeRoot в полето Име на макроса.
Щракнете върху бутона Опции.
Въведете описание на функцията в полето Описание.
Щракнете върху OK, за да затворите диалоговия прозорец Опции на макроса.
Затворете диалоговия прозорец Макрос, като щракнете върху бутона Отказ.
Този описателен текст сега се появява в диалоговия прозорец Вмъкване на функция.
Вижте функцията CubeRoot, която се използва във формулите на работния лист.
Използване на функцията CubeRoot във формули.