Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

Capítulo 20: Como Criar Funções de Planilha — e Viver para Contar 335
DICA
Se a função personalizada estiver armazenada em um add-in, você não
precisa preceder o nome da função com o nome da pasta de trabalho.
Eu discuto add-ins no Capítulo 21.
As funções personalizadas aparecem na caixa de diálogo Inserir Função, na
categoria User Defined (Definido por Usuário). Pressionar Shift+F3 é uma
maneira de exibir a caixa de diálogo Inserir Função.
Escrevendo Funções
Lembre-se que o nome de uma função age como uma variável. O valor
final dessa variável é o valor retornado pela função. Para demonstrar,
examine a seguinte função, a qual retorna o primeiro nome do usuário:
Function FirstName()
Dim FullName As String
Dim FirstSpace As Integer
FullName = Application.UserName
FirstSpace = InStr(FullName, “ “)
If FirstSpace = 0 then
FirstName = FullName
Else
FirstName = Left(FullName, FirstSpace – 1)
End If
End Function
Esta função começa designando a propriedade UserName do objeto
Application a uma variável chamada FullName. Em seguida, ela usa a
função VBA InStr, para localizar o primeiro espaço no nome. Se não
houver espaço, FirstSpace é igual a 0, e FirstName é igual ao nome
inteiro. Se FullName não tiver um espaço, a função Left extrai o texto
para a esquerda do espaço e o atribui a FirstName.
Observe que FirstName é o nome da função e também é usado como
um nome variável na função. O valor final de FirstName é o valor
retornado pela função. Vários cálculos intermediários podem estar
acontecendo na função, porém, ela sempre retorna o último valor
designado à variável, que é igual ao nome da função.
Todos os exemplos deste capítulo estão disponíveis no site deste livro.
Trabalhando com Argumentos de Função
Para trabalhar com funções, você precisa entender como trabalhar com
argumentos. Os seguintes pontos aplicam-se aos argumentos para as
funções de planilha do Excel e funções VBA personalizadas.