Не могу разобраться со вложенным циклом

[armagedon_atyrau]

Здравствуйте Всем!!!!

Есть такой код:
For tn=1 To 4
For sn=1 To 8
Select Case sn
Case 1
for rn=2 To 11
cn=1 To 5
.........
next cn
next rn
Case 2
for rn=2 To 11
cn=6 To 11
..........
next cn
next rn
Case 3
for rn=2 To 11
cn=12 To 18
...................
next cn
next rn
Case 4
for rn=2 To 11
cn=19 To 25
.....................
next cn
next rn
end Select
next sn
next tn
Как можно сделать что бы если tn=2 тогда везде был for rn=12 To 22
Если tn=3 тогда везде rn=23 To 30
Пожалуйста помогите плиз или скажите пожалуйста возможно ли это
Уже целую неделю голову ломил но результат 0.
Заранее благодарен

[Hugo121]

Добавьте переменные x и y.
x=2: y=11
if tn=2 then x=12: y=22
и т.д.

[doober]

попрорбуйте так

Dim Nah As Integer, Kon As Integer

For tn = 1 To 4
'-------------------------------------------
Select Case tn
Case 2
Nah = 12: Kon = 22
Case 3
Nah = 23: Kon = 30
Case Else
Nah = 2: Kon = 11
End Select
'---------------------------------------------
For sn = 1 To 8
Select Case sn
Case 1
For rn = Nah To Kon
cn=1 To 5
.........
Next cn
Next rn
Case 2
For rn = Nah To Kon
cn=6 To 11
..........

[аналитика]

для чего у тебя цикл, напр. For sn = 1 To 8, а select case только до 4-х?

   'массивы для (begin\end) циклов
   Dim for_rn(1 To 3, 1 To 2)
   Dim for_cn(1 To 4, 1 To 2)
   
   for_rn(1, 1) = 2:   for_rn(1, 2) = 11
   for_rn(2, 1) = 12:  for_rn(2, 2) = 22
   for_rn(3, 1) = 23:  for_rn(3, 2) = 30
   
   for_cn(1, 1) = 1:   for_cn(1, 2) = 5
   for_cn(2, 1) = 6:   for_cn(2, 2) = 11
   for_cn(3, 1) = 12:  for_cn(3, 2) = 18
   for_cn(4, 1) = 19:  for_cn(4, 2) = 25
   
   
   For tn = 1 To 4
      For sn = 1 To 8
         If tn > 3 Or sn > 4 Then
            MsgBox "Для чего так?"
         Else
         
            For rn = for_rn(tn, 1) To for_rn(tn, 2)
               For cn = for_cn(sn, 1) To for_cn(sn, 2)
                  '.........
               Next cn
            Next rn
            
         End If
      Next sn
   Next tn

[armagedon_atyrau]

Doober,
Спасибо Вам большое за помощь.
Ваш ответ для моей задачи самый раз.
Спасибо ребята всем ваши варианты тоже отлично работает пробывал.
Но именно ответ Doober а выбрал
Без обид