Медленный макрос

[Sotrom]

Вот! Заработало! Спасибо!
Вставляю конечную рабочую версию кода.

Sub Monte_Karlo()
'
' Monte_Karlo Макрос

MasageOK_NO = MsgBox("Сейчас начнется расчет 5000 значений выбранных показателей модели методом Монте-Карло. На расчет потребуется несколько минут. Продолжить?", vbYesNo, "МОНТЕ-КАРЛО")
If MasageOK_NO = 7 Then GoTo Конец
Application.ScreenUpdating = False
Dim x As Variant
Dim a
'Dim t: t = Timer
For x = 20 To 5019
a = Range(Cells(x, 2), Cells(x, 7))
[B19:G19] = a
Cells(x, 8) = Range("H19")
Cells(x, 9) = Range("I19")
Next x
[B19:G19] = 1
Конец_расчета:
'Debug.Print Timer - t
MsgBox "Расчет окончен!"
Application.ScreenUpdating = True
Exit Sub
Конец:
MsgBox "Расчет прерван", , "МОНТЕ-КАРЛО"

End Sub

[Sotrom]

Учитывая длительность времени выполнения макроса возможно ли вывести на экран ход его выполнения? Например, показывать сколько вариантов в цикле уже прошло. А то совсем грустно сидеть перед фактически зависшим экраном.

[Hugo121]

Добавил 2 строки

Sub Monte_Karlo2()
'
' Monte_Karlo Макрос
Dim a
MasageOK_NO = MsgBox("Сейчас начнется расчет 5000 значений выбранных показателей модели методом Монте-Карло. На расчет потребуется несколько минут. Продолжить?", vbYesNo, "МОНТЕ-КАРЛО")
If MasageOK_NO = 7 Then GoTo Конец
Application.ScreenUpdating = False
Dim x As Variant
'Dim t: t = Timer
For x = 20 To 60 '5019
Application.StatusBar = "Считаем строку " & x
a = Range(Cells(x, 2), Cells(x, 7))
[B19:G19] = a
Cells(x, 8) = Range("H19")
Cells(x, 9) = Range("I19")
Next x
[B19:G19] = 1
Конец_расчета:
'Debug.Print Timer - t
MsgBox "Расчет окончен!"
Application.ScreenUpdating = True
Application.StatusBar = False
Exit Sub
Конец:
MsgBox "Расчет прерван", , "МОНТЕ-КАРЛО"
End Sub

Будет выводиться в статусбаре слева внизу, где обычно "Ready" написано.

Можно ещё прогрессбар навесить, но это уже не 2 строки...

P.S. Добавил прогрессбар. Он не мой, но к сожалению автора не записал - искал по имени файла (прогрессбар - простая форма, открытый код post_245628.xls) на Планете, но не нашёл...
В архиве два файла - прогрессбар в чистом виде и уже при деле. В Вашем файле модуль для прогрессбара не нужен - только форма и чуть кода в основном макросе.

[Sotrom]

Отлично! То что нужно.
Спасибо!

[Hugo121]

Дописал немного в последний пост - посмотрите