У вас хорошо получается.

Да, правильно!

Спасибо, именно в этом дело и оказалось.
(Работаю с этим файлом уже больше года, автом. пересчет, конечно же, включен по умолчанию и работает. Но видимо, не обратил внимание, что макрос, кот начинается с отключения некоторых функций, включая эту, не дошел до конца и автомат. пересчет оказался выключеным. Сорри.)

Как такое может быть? (см. картинку)
(ячейка имеет формат "Общий")

Добрый день.
Не являюсь опытным пользователем...

Написал макрос VBA Excel с массивами и словарями
Построено так (если отбросить лишнее): сначала загружаются словари, потом массивам присваиваются значения соответствующих колонок таблицы, потом начинаются главные циклы макроса, в которых используются загруженные словари и массивы. (т.е. словари и массивы загружаются один раз, в начале).

При первом запуске макроса после открытия эксель файла - он будет работать 39 сек.
Если после первого запуска макроса запустить его повторно - он будет работать 1 (одну) секунду.
Численный результат работы макроса в обоих случаях один и тот же.
Макрос обрабатывает довольно большую таблицу. Файл мой потихоньку разрастается. Сейчас в нем уже порядка 40 Мб.

Было ли у вас такое (разное время работы программы при первом и повторном запусках)? И куда "копать" в поисках возможной причины?

PS. Поясню. Вопрос для меня имеет практическое значение. Потому что я должен добавить в этот макрос один большой цикл в 10-20 тыс итераций с меняющимися параметрами. Соответственно, это будет 10 тыс х 39 сек или 10 тыс х 1 сек. Разница!

Скажите, уважаемый ZVI, Ваше мнение о том, что ссылки между ячейками внутри Excel срабатываеют быстрее ссылок типа "из VBA в ячейку Excel" основано на каких-то известных Вам фактах или это пока только предположение?

Наверное, вариант ZVI с "распасовочной" таблицей (диапазоном), которая будет раскидывать уже внутри Экселя данные по их диапазонам кажется мне более быстрым.
Но это именно "кажется"...

Спасибо, господа. Из Ваших ответов я понял, что вывод "одним ударом" в несмежный диапазон невозможен.
Попробую последовать Вашим советам и не "мудрить".

Да, Hugo, спасибо, что откликнулись.
У меня так было сделано вначале, как Вы сейчас предложили.
Но потом я подумал, что это две операции вывода на экран (сначала выполняется строчка Rng4.Value = Arr4, а потом строчка Rng5.Value = Arr5). Соотвтетственно - в два раза больше времени это будет занимать, чем если вывести на экран, так сказать, одним ударом. То есть не два дипазона, а один, состоящий из несмежных ячеек.
Возможно ли как-то вывести в несмежный диапазон так, как я хотел, или это вообще неосуществимо?

(Время работы моей программы очень большое - иной раз расчет идет больше суток!!!!, - поэтому думаю, где можно время сэкономить).

Здравствуйте, господа.

Прошу помощи. У меня такая ситуация. Есть два несмежных диапазона, состоящие из ячеек 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-формулы, которые я хотел бы сохранить.

Не могу понять, в чем моя ошибка?