Por Jorge Paulino para o Pplware!
Em VBA as formulas personalizadas podem simplificar muitos processos, permitindo criar fórmulas/operações à medida de cada necessidade.
Os seguintes exemplos mostram algumas formas de como separar um texto com base nas maiúsculas.
Por exemplo, estando o nome “JorgePaulino” numa célula e pretendendo separar esse nome, em outra célula, através das letras que se encontram em maiúsculas de modo a ficar “Jorge Paulino”.
Uma das formas de fazer esta separação é correr todas as letras e da frase e verificar qual o valor Ascii de cada letra/símbolo. Com base nesse resultado, adiciona-se ou não, um espaço de modo a separar o texto final (Método #1). As tabelas de códigos Ascii estão disponíveis nos ficheiros Help do Excel ou nos seguintes links da MSDN:
Tabela de Códigos Ascii – Parte 1 Tabela de Códigos Ascii – Parte 2
Outra forma de separar o texto é utilizando uma lista de letras/símbolos que irão servir para separar o texto e, através da função InStr() que verifica a posição de uma letra numa string, separar ou não (Método #2). A vantagem desta segunda forma é apenas que não é necessário saber os códigos Ascii e é mais simples de adicionar/remover condições para separar o texto.
Por exemplo, se fosse necessário separar também por um traço (-), bastava inseri-lo no final da string.
Segue o código dos dois métodos:
‘ —————————————————————— ‘ Função que separa uma palavra com base nas letras maiúsculas ‘ ‘ Método #1 – Ascii ‘ —————————————————————— Public Function SplitByUppecase(ByVal rg As Range) As String Dim ascValue As Integer Dim x As Integer Dim c As String Dim result As String
‘ Ciclo em todas as letras da palavra For x = 1 To Len(rg.Text)
‘ Guarda a informação da letra actual c = Mid(rg.Text, x, 1)
‘ Retorna o valor inteiro do código ascii de cada letra ascValue = Asc(c)
‘ Caso o código pertença a uma letra maiúscula ‘ coloca um espaço (separador) e de pois a letra If ascValue >= 65 And ascValue <= 90 Then result = result & ” ” & c Else result = result & c End If
Next x
SplitByUppecase = Trim(result)
End Function ‘ —————————————————————— ‘ Função que separa uma palavra com base nas letras maiúsculas ‘ ‘ Método #2 – Usando InStr() ‘ —————————————————————— Public Function SplitByUppecase2(ByVal rg As Range) As String Dim matchString As String Dim c As String, result As String Dim x As Integer
‘ Lista de letra que vão servir para separar o texto matchString = “ABCDEFGHIJKLMNOPQRSTUVXYZW”
‘ Ciclo em todas as letras da palavra For x = 1 To Len(rg.Text)
‘ Guarda a informação da letra actual c = Mid(rg.Text, x, 1)
‘ Verifica se a letra actual está na máscara, usando a ‘ função InStr(), que retorna a posição da letra na string If InStr(1, matchString, c, vbBinaryCompare) > 0 Then result = result & ” ” & c Else result = result & c End If
Next x
SplitByUppecase2 = Trim(result)
End Function
São dois métodos que permitem obter o mesmo resultado. Em determinadas situações, um pode ser mais útil do que outro, como por exemplo no método 2, poder definir novos elementos de separação.
Exemplo do artigo: SepararMaiusculas
