Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help w/ project. Counting upper and lower case characters in a cell.
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? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help w/ project. Counting upper and lower case characters in a cell.
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 wrote in message oups.com... 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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changing multiple cell text from lower case to upper case | Excel Discussion (Misc queries) | |||
Changing upper case characters to upper/lower | Excel Discussion (Misc queries) | |||
Counting Upper and Lower case chars in a Cell | Excel Discussion (Misc queries) | |||
Changing file in all upper case to upper and lower case | Excel Discussion (Misc queries) | |||
Change from mixed caps and upper lower to all upper lower case | Excel Worksheet Functions |