For Next loop with uneven intervals

dannyo · Oct 26th 2004

Hello,

I was wondering if it's possible to create a For Next loop with uneven intervals as described below as opposed to creating many different loops.

ie.

For i = (1 To 50), (100-150), (200-250)
..........
Next

fifijazz · Oct 26th 2004

Hard to tell exactly what you are trying to do, but could you use
For i = a to b and set the values of a to b accordingly?

tinyjack · Oct 26th 2004

If you mean 1 - 50, 101-150, 201 - 250 you could do:

Code

For J = 0 to 2
   For I = (1 + 100 * J) to (50 + 100 * J)


      'Code here


   Next
Next

TJ

dannyo · Oct 26th 2004

Thank you for your response. I'll try to explain a little more clearly.

I have an array of 3650 values corresponding to 10 years of daily information. I want to place values from 12 worksheet cells into the array. For example lets say I have a counter i for the array. I want the first value from the worksheet cell to be placed in the array i values of 1-30, 365-395, 730-760, 1095-1125 and so on. I was wondering if I could use a one loop to place the values into the array as opposed to a loop for each interval.

I hope this description makes it easier to understand.
Thanks again,

dannyo

dannyo · Oct 26th 2004

thank you tinyjack,
I just read your response and that will work.

Cheers,

dannyo

Dave Hawley · Oct 27th 2004

I would opt to use 3 seperate loops for greater speed. I.e

Code

For i = 1 To 50
..........
Next


For i = 101 To 150
..........
Next


For i = 200 To 250
..........
Next

Display More

kundepuu · Oct 27th 2004

Something like this

Code

For i = 0 To 2
       j = Array(0, 365, 1095)(i)
       For x = j To j + 30
       'code
       Next x
Next i
End Sub

**Batman** · Oct 27th 2004

I suspect this is very similar to other answers that will be posted in the meantime, but here goes:

Code

Sub MultiLoops()


   Dim avarLoopStart As Variant, avarLoopEnd As Variant
   Dim a As Long, b As Long
   
   avarLoopStart = Array(1, 100, 200)
   avarLoopEnd = Array(50, 150, 250)
   
   For a = 0 To UBound(avarLoopStart)
      For b = avarLoopStart(a) To avarLoopEnd(a)
         ' Your calculations here
      Next b
   Next a
   
End Sub

Display More

Hope this helps.

Regards,
Batman.

For Next loop with uneven intervals

Participate now!

Share