Здравствуйте, господа.
Прошу помощи. У меня такая ситуация. Есть два несмежных диапазона, состоящие из ячеек A3 :D 3 и T3:V3.
В ходе исполнения VBA-программы я с помощью циклов меняю некоторые важные для меня переменные. Мне нужно помещать на каждом цикле значения этих переменных в эти ячейки. Ячейки между ними (с E3 по S3) заняты различными формулами, которые я хотел бы сохранить.
Вот, как это выглядит в моем коде: |
|---|
Sub ДЛЯ_ФОРУМА()
'ОБЪЯВИТЬ ПЕРЕМЕННЫЕ:
Dim Rng4 As Range
Dim Arr4
Dim a1 As Variant, a2 As Variant, a3 As Variant, a4 As Variant, a5 As Variant, a6 As Variant, a7 As Variant
'ЗАДАТЬ ДИАПАЗОНЫ ЯЧЕЕК:
Set Rng4 = Worksheets("Results-1D" ;) .Range("A3 :D 3", "T3:V3" ;)
'ВВОД НЕОБХОДИМЫХ НАЧАЛЬНЫХ УСТАНОВОК:
kShift = 4
k = 1
NUM = 1
NUMFix = 0
'ЗАПУСКАЕМ ЦИКЛЫ РАСЧЕТА ПЕРЕМЕННЫХ:
For j% = 1 To 300 Step 1
For i% = 1 To 300 Step 1
For m% = 5 To 77 Step 2
For indentUp% = 10 To 500 Step 10
For indentDown% = 10 To 500 Step 10
'ИНДИКАЦИЯ
a1 = j / 1000
a2 = i / 1000
a3 = k
a4 = NUMFix
a5 = m
a6 = indentUp
a7 = indentDown
Arr4 = Array(a1, a2, a3, a4, a5, a6, a7)
Rng4. Value = Arr4
'ТУТ ПРОИСХОДЯТ РАСЧЕТЫ
'.......................
'.......................
'.......................
k = k + 1
NUMFix = NUM
NUM = NUM + 1
Next indentDown
Next indentUp
Next m
Next i
Next j
End Sub |
То, что я получаю на листе Results-1D, выглядит следующим образом (разумеется, в ячейках числа, соответствующее этим формулам, а не сами формулы):
A3 = j / 1000
B3 = i / 1000
C3 = k
D3 = NUMFix
E3 = m
F3 = indentUp
G3= indentDown
Ячейки с H3 по V3 содержат "#Н/Д".
Повторю, мне нужен был вывод первых четырех значений в ячейки "A3-D3", а следующих трех значений в ячейки "T3:V3". В ячейках "E3:S3" у меня записаны Excel-формулы, которые я хотел бы сохранить.
Не могу понять, в чем моя ошибка?
