Excel VBA - Como contar Quantas Vogais e Consoantes Contém um String

Excel VBA - Como contar Quantas Vogais e Consoantes Contém um String

Supondo que a frase que deseja contar esteja na célula A1, as funções abaixo lhe atenderão plenamente:

Fórmula Excel para contar as Consoantes:

 =LEN(A1)-SUMPRODUCT(LEN(A1)-LEN(SUBSTITUTE(LOWER(A1),{"a","e","i","o","u"},"" )))
Fórmula Excel para contar as Vogais:

 =SUMPRODUCT(LEN(A1)-LEN(SUBSTITUTE(LOWER(A1),{"a","e","i","o","u"},"" )))


A mesma análise pode ser realizada utilizando funções VBA:

Sub Contando_Consoantes()
Dim Cons_Count As Integer
Dim Str

Dim KCount As Integer
Dim i As Integer
Dim Chr As String

Let Str = ActiveSheet.Range("A1").Value
Let KCount = 0

For i = 1 To Len(Str)

Let Chr = UCase(Mid(Str, i, 1))

If Not Chr Like "[AEIOU]" Then
Let KCount = KCount + 1
End If

Next i

Let Cons_Count = KCount

MsgBox Cons_Count
End Sub

Sub Contando_Vogais()
Dim Vowel_Count As Integer
Dim Str

Dim KCount As Integer
Dim i As Integer
Dim Chr As String

Let Str = ActiveSheet.Range("A1").Value
Let KCount = 0

For i = 1 To Len(Str)

Let Chr = UCase(Mid(Str, i, 1))

If Chr Like "[AEIOU]" Then
Let KCount = KCount + 1
End If

Next i

Let Vowel_Count = KCount

MsgBox Vowel_Count

End Sub

Deixe seus comentários, COMPARTILHE este artigo!

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Brazil Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com