Выполнение макроса внутри диалогового окна Excel

@EvgenSanich · Регистрация: 17.07.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток, уважаемые гуру! Подскажите, пожалуйста, можно ли запустить выполнение макроса внутри диалогового окна, и в случае необходимости по кнопке стоп оставить его выполнение?

Если из модуля вызвать окно таким образом:

Visual Basic

1 2	MyDialogForm.Show 0 Call MyDialogForm.call_something

тогда окно будет висеть без возможности манипуляции. Есть ли возможность сделать так, чтобы скрипт внутри окна выполнялся, но при этом можно было прервать операцию по кнопке "СТОП"?

Если не трудно дайте простенький пример, или ссылку на такой процесс. Спасибо!

@quende · 11.02.2016, 17:42

Я, в свое время, выкручивался из такой ситуации следующим образом.
Ставил флаг (например на невидимый лейбл, если речь идет о форме), при кнопке "СТАРТ" флаг менялся на 1 и запускался нужный скрипт. В начале скрипта ставишь проверку на флаг = 1. В конце скрипта ставишь таймер на повтор этой же процедуры через секунду. По кнопке "СТОП" флаг = 0. Вот и все

@Казанский · 11.02.2016, 17:54

Сообщение от EvgenSanich

тогда окно будет висеть без возможности манипуляции

В свойствах формы ShowModal=False - и пожалуйста, выполняйте макрос или работайте с документом при открытой форме.

@quende · 11.02.2016, 17:56

Сообщение от Казанский

ShowModal=False

Сообщение от EvgenSanich

MyDialogForm.Show 0

А разве это не одно и то же ?

~~Shersh~~ · 11.02.2016, 18:04

Visual Basic

DIM FLAG AS BOOLEAN
 
PRIVATE SUB КНОПКА_СТОП_CLICK
FLAG =NOT FLAG 
END SUB
 
sub call_something'ОЧЕНЬ ДЛИННАЯ ПРОЦЕДУРА
 
for each ...'ОЧЕНЬ ДЛИННЫЙ цыкл
 
  'Ваш длинный код
 
  DOEVENTS
  IF FLAG THEN EXIT SUB
 
next
 
end sub

@EvgenSanich · 11.02.2016, 22:03 **[ТС]**

Спасибо всем! помог вариант Shersh. Фишка в том, что флаги надо выставлять на каждом "под-цикле", тогда в процессе выполнения всего скрипта (ну или петли) можно по кнопке "стоп" тормозить выполнение. Полезная штука кстати в организации простенького progress bar'а и отслеживания работы больших скриптов.

P.S. отдельное спасибо quende за тему с флагами и казанскому за ShowModal в настройка, буду знать. Надеюсь правильно ник неймы написал

@quende 19 / 19 / 5 Регистрация: 23.04.2014 Сообщений: 72
	11.02.2016, 17:42	2
	Я, в свое время, выкручивался из такой ситуации следующим образом. Ставил флаг (например на невидимый лейбл, если речь идет о форме), при кнопке "СТАРТ" флаг менялся на 1 и запускался нужный скрипт. В начале скрипта ставишь проверку на флаг = 1. В конце скрипта ставишь таймер на повтор этой же процедуры через секунду. По кнопке "СТОП" флаг = 0. Вот и все 0

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	11.02.2016, 17:54	3
	Сообщение от EvgenSanich тогда окно будет висеть без возможности манипуляции В свойствах формы ShowModal=False - и пожалуйста, выполняйте макрос или работайте с документом при открытой форме. 1

@quende 19 / 19 / 5 Регистрация: 23.04.2014 Сообщений: 72
	11.02.2016, 17:56	4
	Сообщение от Казанский ShowModal=False Сообщение от EvgenSanich MyDialogForm.Show 0 А разве это не одно и то же ? 1

@EvgenSanich 0 / 0 / 0 Регистрация: 17.07.2013 Сообщений: 35
	11.02.2016, 22:03 [ТС]	6
	Спасибо всем! помог вариант Shersh. Фишка в том, что флаги надо выставлять на каждом "под-цикле", тогда в процессе выполнения всего скрипта (ну или петли) можно по кнопке "стоп" тормозить выполнение. Полезная штука кстати в организации простенького progress bar'а и отслеживания работы больших скриптов. P.S. отдельное спасибо quende за тему с флагами и казанскому за ShowModal в настройка, буду знать. Надеюсь правильно ник неймы написал 0

Выполнение макроса внутри диалогового окна Excel

Решение