Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

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 ▪◾◼⬛ 

⬛◼◾▪ CONTATO ▪

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine