Конец многозадачности

[Babayka]

Как зделать так, что-бы при выполнении модуля в Excel на компе можно было еще, что-то делать, а не смотреть потухшим взором, на то как оно перелопачивает тупую и нудную работу.

[corgi]

ты хочешь что-то делать в excel'e или где-то еще, если где-то еще то do events, а если в excel'e то скорей всего никак

[Babayka]

Очень жаль.
Но все равно спасибо добрый человек за ответ.
Отсутсвие результата тоже результат.

[Vitaly1]

Вы чего, Господа DOEvents работает в Excel, сам только что сделал вот что:

Код: Выделить всё

Sub nnn()
For i = 1 To 1000000000000#
Application.Caption = i
DoEvents
Next i
End Sub

И все ок, в меню Excel зализаю при работающей программе!

[corgi]

да все работает
тока для эксперимента запустил этот цикл с do events и без результат, без do events сработало в 2 раза быстрей чем с а ведь это был просто пустой цикл

[Vitaly1]

Естественно, DoEvents ведь делает прерывание и передает управления операциооной системе на некоторое время.

[corgi]

да я писал это к тому что стоит ли ради так называемой многозадачности жертвовать такой кучей времени

[X-BOND]

Можно попробовать перед DoEvents поставить If GetInputState Then
Хотя, как говорится, овчинка выделки не стоит...