UCase for each statement

Question

I am trying to convert a string that may contain numbers to UpperCase using UCase. When I used a line like that

For Each vLetter In UCase(lName)

I encountered an error when the lName variable equals to "Yasser51" as an example. How can I overcome this ?

BigBen · Accepted Answer · 2020-08-06T18:40:00.133

4

You can't use For Each like this. For Each can only iterate over a collection or an array. A String is neither.

One option to loop character-by-character is Mid$ and a regular For loop. (Though it's still unclear what you're actually trying to do and if a loop is even required):

Sub Test()
    Dim lName As String
    lName = "Yasser51"
    
    Dim i As Long
    For i = 1 To Len(lName)
        Dim letter As String
        letter = Mid$(UCase(lName), i, 1)
        
        Debug.Print letter
    Next
End Sub

edited Aug 06 '20 at 18:40

answered Aug 06 '20 at 18:27

BigBen

46,229
7
24
40

1

Thank you very much. I am trying to check if all the letters are strings only (not numbers or spaces or special characters) – YasserKhalil Aug 06 '20 at 18:39
Gotcha. I figured you intended to loop but I guess that is confirmation :-) – BigBen Aug 06 '20 at 18:40
Is there an easier way to check for string such as the function `IsNumeric` that checks for numbers? – YasserKhalil Aug 06 '20 at 18:42
I am trying to check if all the letters are strings only (not numbers or spaces or special characters). Just to make sure the entry are letters from A-Z – YasserKhalil Aug 06 '20 at 18:43
3

You can probably use `Asc`, or regex. – BigBen Aug 06 '20 at 18:43
2

Try a condition such as `Asc(LCase(letter)) >= Asc("a") And Asc(LCase(letter)) <= Asc("z")` or with regex `letter Like "[a-zA-Z]"` – Super Symmetry Aug 06 '20 at 19:14
1

FYI @YasserKhalil added a late post how to iterate "Yasser51" via a ► **`Byte`** array. – T.M. Aug 06 '20 at 20:26

Super Symmetry · Answer 2 · 2020-08-06T18:33:54.367

3

To convert to upper case you simply use UCase. If you want to iterate then see @BigBen's answer.

Dim sName as String
Dim sUpper as String

sName = "Yasser51"
sUpper = UCase(sName)

edited Aug 06 '20 at 18:33

answered Aug 06 '20 at 18:28

Super Symmetry

2,837
1
6
17

My suggestion was actually to *not* use `For Each`. OP still wants to iterate it seems. – BigBen Aug 06 '20 at 18:29
@BigBen I see. Just saw your answer. – Super Symmetry Aug 06 '20 at 18:31
1

@BigBen I didn't get the impression the OP _wanted_ to iterate. However, both answers are good and cover the bases either way. – Brian M Stafford Aug 06 '20 at 18:34
1

Hard to say, he may have just been trying to iterate through each character of the string, not multiple strings. Such is the problem with not getting enough context in the OP. – ionizing Aug 06 '20 at 18:34
1

I agree with all the comments above on a re-read of the question. Not enough context for sure. – BigBen Aug 06 '20 at 18:35

score 3 · Answer 3 · answered Aug 06 '20 at 20:23

Addendum

As mentioned a string is neither a collection nor an array, however you can assign a string to a ► Byte array that can be iterated easily via a For Each loop.

Note that the Byte array always contains pairs of bytes with numeric values; so for example digits 0-9 are shown as numeric Asc values between 48-57 (together with value 0 as further companion value), similar for usual letter characters A-Z and a-z.

Sub IterateByte()
Dim s   As String: s = "Yasser51"
Dim b() As Byte: b = s

Debug.Print " i", "Asc Value ", "ch| IsDigit" & vbNewLine & String(50, "-")

Dim i As Long, ch As String, vNum As Variant
For Each vNum In b
    ch = Chr(vNum)
    If vNum Then Debug.Print i, "Asc " & vNum, ch & " | " & (ch Like "#")
    i = i + 1
Next
End Sub

Example result in VB Editor's immediate window

' i            Asc Value     Ch| IsDigit
'--------------------------------------------------
' 0            Asc 89        Y | False
' 2            Asc 97        a | False
' 4            Asc 115       s | False
' 6            Asc 115       s | False
' 8            Asc 101       e | False
' 10           Asc 114       r | False
' 12           Asc 53        5 | True
' 14           Asc 49        1 | True

FYI You might as well be interested in a tricky way to get a digits array at [Divide numbers into unique sorted digits](https://stackoverflow.com/questions/63540928/divide-numbers-into-unique-sorted-digits-displayed-in-a-label-on-a-userform/63546848#63546848 ) - @YasserKhalil — T.M., Aug 24 '20 at 18:57

UCase for each statement

3 Answers3

Linked