Help w/ project. Counting upper and lower case characters in a cell.

  • Thread starter Thread starter triadiemus
  • Start date Start date
T

triadiemus

Here's the task I'm trying to complete:

Take text from a cell.
Count all uppercase letters.
Count all lower case letters.

I've figured out how to count the total letters excluding spaces using
the LEN and SUBSTITUTE commands, but I'm stuck on how to count how many
uppercase and lower case letters there are. Can anyone point me in the
right direction?
 
This is a fast function to count upper case characters.
You can work out for yourself how to do lower case.


Function CountUppers(ByVal strString As String) As Long

Dim aByte() As Byte
Dim i As Long

aByte() = strString

For i = 0 To UBound(aByte) Step 2
If aByte(i) < 91 Then
If aByte(i) > 64 Then
CountUppers = CountUppers + 1
End If
End If
Next

End Function


Sub test()

MsgBox CountUppers(Cells(1))

End Sub


RBS
 
Back
Top