VBA how to loop variables?

[yxz152830]

Gurus,
I'm trying to loop variables that have certain patterns but below code can't do it. How do I correct it? Thank you!

Sub aisdjaidji()
ss1 = 1
ss2 = 3
ss3 = 10
ss4 = 9
ss5 = 5
For n = 1 To 5
Debug.Print "ss" & n
Next n
End Sub

 

[StephenCrump]

Try it like this:

Sub aisdjaidji()
   
    Dim n As Long, ss(1 To 5) As Long
   
    ss(1) = 1
    ss(2) = 3
    ss(3) = 10
    ss(4) = 9
    ss(5) = 5
   
    For n = lbound(ss) to ubound(ss)
        Debug.Print ss(n)
    Next n

End Sub

 

[yxz152830]

Try it like this:

Sub aisdjaidji()
  
    Dim n As Long, ss(1 To 5) As Long
  
    ss(1) = 1
    ss(2) = 3
    ss(3) = 10
    ss(4) = 9
    ss(5) = 5
  
    For n = lbound(ss) to ubound(ss)
        Debug.Print ss(n)
    Next n

End Sub

what if I wanna assign n = 1 to 10 in between strings like this: ss (1 to 10) rate, ss (1 to 10) total?

 

[StephenCrump]

what if I wanna assign n = 1 to 10 in between strings like this: ss (1 to 10) rate, ss (1 to 10) total?

Can you provide an example, so we can understand what you mean?

 

[yxz152830]

Can you provide an example, so we can understand what you mean?

basically I wanna set up variables with pattern like this ss01_rate, ss02_rate, ss03_rate so on and so forth so I can loop thru them for calculation. The changing part is right in the middle and im not sure how to use your method to create variables.

 

[StephenCrump]

Why do you need to call them ss01_rate, ss02_rate etc?

If these are VBA variables, the easiest approach would be to declare ss_rate(1 to 10) and loop through each ss( n).

Or perhaps these are Excel names? In which case you could loop:

For n = 1 To 10
    'do stuff with ss01_rate etc, e.g.
    x = Range("ss" & Format(n, "00") & "_rate").Value
Next n

 

[yxz152830]

Why do you need to call them ss01_rate, ss02_rate etc?

If these are VBA variables, the easiest approach would be to declare ss_rate(1 to 10) and loop through each ss( n).

Or perhaps these are Excel names? In which case you could loop:

For n = 1 To 10
    'do stuff with ss01_rate etc, e.g.
    x = Range("ss" & Format(n, "00") & "_rate").Value
Next n

I decided to use dictionary method. Thanks anyways

 

[bebo021999]

Gurus,
I'm trying to loop variables that have certain patterns but below code can't do it. How do I correct it? Thank you!

Short anwer: can not
alternative:

Sub aisdjaidji()
ss1 = 1
ss2 = 3
ss3 = 10
ss4 = 9
ss5 = 5
For n = 1 To 5
    Debug.Print Array(ss1, ss2, ss3, ss4, ss5)(n - 1)
Next n
End Sub