Excel e VBA‎ > ‎

Criando fórmulas personalizadas

postado em 24 de mai de 2012 20:41 por Erisvaldo Ferreira Silva
    Você sabia que além das muitas fórmulas que já vêm prontas no Excel, você pode criar suas próprias fórmulas no VBA? Basta criar uma função em um módulo do VBA e utilizá-la nas planilhas do Excel normalmente como qualquer outra fórmula.

    Vamos a um exemplo:

    Crie um novo módulo ou utilize um módulo já existente no VBA.
Agora copie e cole o seguinte código:

Function InvertePalavra(palavra As String) As String
    Dim k As Integer
    Dim p As String
    Dim N As String
    N = ""
    For k = 1 To Len(palavra)
        p = Mid(palavra, k, 1)
        N = p & N
    Next k
    InvertePalavra = N
End Function

    O código acima irá receber uma palavra e retornará uma palavra cujas letras estarão invertidas. Por exemplo, digitando em qualquer célula da planilha a fórmula =InvertePalavra("Casa"), o valor da célula será asaC.

Observação: Para que suas macros funcionem corretamente, salve sempre o seu trabalho (pasta do Excel) como "Pasta de Trabalho Habilitada para Macros do Excel" e não se esqueça de habilitar as macros durante o carregamento de suas planilhas.