Visual Basic em Português

O Microsoft Excel tem inúmeras fórmulas para diversos utilizações, muitas delas que nem sabemos da sua existência nem sabemos para que serve. Tem fórmulas para quase tudo! Mas no entanto existem operações que por serem muito específicas ou simplesmente para simplificar (de modo a não utilizar muitas fórmulas em conjunto) dava jeito serem personalizadas, ou seja, à nossa medida.

A verdade é que não é prático utilizar algo do género:

{=IF(FORMULA(<criteria>)=0;IF(MATCH(<range>;<criteria>); ....

A fórmula além de complicada de construir é também complicada de interpretar e alterar. Nestes casos o ideal é criarmos a nossa própria fórmula permitindo, além de simplificar, executar mais funcionalidades para além das já existentes e disponíveis.

Para demonstrar a criação de uma fórmula personalizada, será mostrado um exemplo de como recolher a primeira e ultima palavra de um nome completo, construindo um nome abreviado.

Nota: Esta funcionalidade poderá também ser construída através de fórmulas, mas o objectivo é mostrar a melhoria que estas fórmulas predefinidas podem trazer às folhas de cálculo.

Para adicionarmos esta função a uma folha de Excel devemos fazer o seguinte:

1 – Menu Tools – Macros – Visual Basic Editor ou ALT+F11

2 – Adicionar um novo módulo clicando com o botão direito ou através do menu Insert (Figura 1)

 
                                  (Figura 1)

3 – Colocar a seguinte código no módulo criado:

    ' ---------------------------------------------------------------------------
    ' Separa uma frase e retorna o primeiro e último nome
    ' ---------------------------------------------------------------------------

    Public Function FirstLast(ByVal str As String) As String
        Dim result() As String
        Dim total As Integer

        ' Separa para um array o valor da célula de acordo com o   
        ' separador " " ou seja espaço

        ' Por exemplo na frase "isto é um teste" o resultado ficará desta forma:
        ' 
        ' result(0) = isto
        ' result(1) = é
        ' result(2) = um
        ' result(3) = teste
        ' 
        result = Split(str, " ")

        ' Verifica qual o tamanho do array (o array começa em zero)
        total = UBound(result)

        ' Caso seja zero
        If total = 0 Then

            If str = "" Then

                ' Caso esteja em branco não retorna nada
                FirstLast = ""

            Else

                ' Caso exista texto retorna esse texto
                FirstLast = StrConv(str, vbProperCase)

            End If

        Else

            ' Retorna o primeiro nome e o último, com um espaço no 
            ‘  meio utiliza ainda a função StrConv() que converte
            ‘  o texto (neste caso) para um formato the Proper Case
            FirstLast = StrConv(result(0), vbProperCase) & Space(1) & _
                        StrConv(result(total), vbProperCase)

        End If

    End Function

4 – Fechar o Editor de VBA e na folha de cálculo utilizar a função criada

O exemplo deste pequeno artigo é mostrar que as fórmulas personalizadas, utilizando VBA, permitem melhorar e potenciar as folhas de cálculo. É mostrado um exemplo simples que pretende explicar o funcionamento geral mas também mostrar algumas instruções de código (como o caso de arrays, StrConv, Split, etc).

PS: Como sempre, qualquer dúvida, comentário ou correcção ao artigo é sempre bem vinda!