Tag Archives: Contar caracter string vba

Modelos – Envio de Email pelo Excel

Mais uma jóia do fórum!

Fruto do esforço do colega Rafael, o modelo é praticamente o mecanismo completo de envio de emails do Microsoft Outlook, sem precisar interagir com ele!

O sistema conta com uma tela para criação do email, anexos e de quebra, um cadastro de contatos armazenados no Access! Abaixo, as telas do sistema:

Tela de Envio de Email
Tela de Envio de Email
Tela de Busca de Contatos
Tela de Busca de Contatos
Tela de Cadastro de Contatos
Tela de Cadastro de Contatos

Simples e fácil de usar, além do aprendizado!

Download do arquivo

 Enviar Email pelo Excel.rar (56.8 KiB)

Bom proveito e obrigado mais uma vez Rafael pela colaboração!

Contando um determinado caractere em uma String no VBA

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