Aquí trobareu algunes funcions de full de treball Excel VBA personalitzades relativament senzilles que també són molt útils. Aquestes funcions s'anomenen funcions d'embolcall perquè consisteixen en codi que s'embolica al voltant d'elements VBA intrínsecs. En altres paraules, us permeten utilitzar funcions VBA en fórmules de full de treball.
Funció Usuari()
' Retorna el nom de l'usuari actual
Usuari = Application.UserName
Funció final
Aquesta funció, en essència, permet que les vostres fórmules accedeixin a la propietat UserName de l'objecte Application.
La funció NumberFormat
Aquesta funció simplement mostra el format de nombre d'una cel·la. Pot ser útil si necessiteu assegurar-vos que un grup de cel·les tinguin el mateix format de nombre.
Funció NumberFormat (cel·la)
' Retorna el format de número de la cel·la
NumberFormat = Cel·la(1).NumberFormat
Funció final
Observeu l'ús de la cel·la (1)? Si s'utilitza un rang multicel·la com a argument, només s'utilitza la primera cel·la.
Podeu escriure fàcilment funcions similars que retornin el color del text d'una cel·la, el color de fons, el tipus de lletra, etc.
La funció ExtractElement
Aquesta funció d'embolcall retorna una subcadena d'una cadena de text que conté diversos elements, separats per un caràcter separador. Per exemple, aquesta fórmula retorna cow, que és el tercer element d'una cadena que utilitza un espai com a separador. Els arguments, per descomptat, podrien ser referències de cel·les.
=ExtractElement(“gos, cavall, gat, vaca”, 3, “ “)
Aquí teniu el codi, que és un embolcall per a la funció Split de VBA:
Funció ExtractElement (Txt, n, set)
' Retorna l'nè element d'una cadena de text, on el
' els elements estan separats per un caràcter separador especificat
ExtractElement = Split(Application.Trim(Txt), Set)(n - 1)
Funció final
La imatge següent mostra la funció ExtractElement utilitzada a les fórmules del full de treball. La columna A conté la cadena de text, la columna B el número de l'element que s'ha d'extreure i la columna C el delimitador (les cel·les que semblen en blanc contenen un caràcter espai).

Ús de la funció ExtractElement per retornar un element d'una cadena.
La funció SayIt
Aquesta funció senzilla és un embolcall per al mètode Speak de l'objecte Application.Speech. Utilitza una veu sintetitzada per "parlar" l'argument.
Funció SayIt (txt)
'Diu l'argument
Application.Speech.Speak txt, True
Funció final
Aquí teniu un exemple:
=IF(C10>10.000, SayIt("Excés de pressupost"),"D'acord")
La fórmula verifica la cel·la C10. Si el valor és superior a 10.000, la funció diu el text: "Excés de pressupost". Si el valor és inferior a 10.000, la funció mostra el text D'acord (i no diu res).
Feu servir amb moderació. Si utilitzeu aquesta funció més d'una vegada, pot resultar molt confús. A més, recordeu que aquesta funció s'avalua cada cop que es calcula el full de treball, de manera que la veu pot ser molt molesta si feu molts canvis. Aquesta funció és probablement més adequada per a finalitats d'entreteniment.
La funció IsLike
L'operador Like de VBA és una manera molt flexible de comparar cadenes de text. Consulteu-ho al sistema d'ajuda de VBA. Aquesta funció aporta aquest poder a les fórmules del vostre full de treball:
Funció IsLike (text, patró)
' Retorna cert si el primer argument és com el segon
IsLike = text Like pattern
Funció final