Aproveitando a dica passada a um colega de um fórum, segue uma função para contar a quantidade de ocorrências de um carater dentro de uma String no VBA:
1 2 3 4 5 6 7 8 9 | Public Function ContaCaracteresNaString(ByVal texto As String, ByVal caracter As String) As Long Dim x As Variant x = Split(texto, caracter) ContaCaracteresNaString = UBound(x) End Function Public Sub Teste() MsgBox ContaCaracteresNaString("janeiro|fevereiro|março|abril|", "|") End Sub |
Os dados são um exemplo para testar a função. É bom lembrar que o código utiliza a função Split, não disponível em algumas versões do VBA.
Para uso da função Split nesses casos, existe um exemplo no site da própria Microsoft cujo link será colocado em breve neste blog.
Bom proveito!
Tomás Vásquez