Как остановить выполнение процедуры?

25.02.2009, 15:10. **Показов** 14226. **Ответов** 6

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

Есть некая процедура в Excel, для наглядности предположим, что эта процедура постоянно увеличивает значение ячейки A1 на единицу. На рабочем листе есть так же две кнопки. Необходимо, чтобы при нажатии на первую кнопку процедура запускалась, а при нажатии на вторую - останавливалась. Возможен, конечно, вариант с одной кнопкой, когда при первом нажатии на нее процедура запускается, а при повторном останавливается - но это не суть, так как это уже вопрос скорее интерфейса. Суть проблемы в том, что запустив процедуру нажатием на первую кнопку, машина зацикливается и больше на события не реагирует. Т. е. вторую кнопку не нажать. По идее, решение должно лежать на поверхности, но никак не могу сообразить как это надо сделать =) Помогите, плиз, кто знает =)

@Korolana · 25.02.2009, 16:44

Use OnEvents statement inside of cycle

@IgorTr · 25.02.2009, 16:45

А мне почему-то кажется, что для этого надо подобно дятлу долбить ESC

@IgorTr · 25.02.2009, 16:47

Korolana как всегда даёт верный ответ. Не каждому охота дятлом быть.

25.02.2009, 21:45

Ээ... Собственно, буду очень благодарен за маленький пример =)

@Korolana · 26.02.2009, 00:10

Put in Form two CommandButtons
cmdButton1 -> for start a long cycle (in my case - without end...

)
cmdButton2 -> to stop it

Public Dim lStop as boolean

Sub cmdButton1_Click()
lStop = False
Do While True
..DoEvents
..if lStop then exit do
..i = i+1
loop
MsgBox 'You got it!'
end sub

Sub cmdButton2_Click()
lStop = True
end sub

I wrote 'OnEvents' -> sorry, I have meant 'DoEvents'

26.02.2009, 09:34

Thanx to Korolana! =))

darth
		1
	Как остановить выполнение процедуры? 25.02.2009, 15:10. Показов 14226. Ответов 6 Метки нет (Все метки) Есть некая процедура в Excel, для наглядности предположим, что эта процедура постоянно увеличивает значение ячейки A1 на единицу. На рабочем листе есть так же две кнопки. Необходимо, чтобы при нажатии на первую кнопку процедура запускалась, а при нажатии на вторую - останавливалась. Возможен, конечно, вариант с одной кнопкой, когда при первом нажатии на нее процедура запускается, а при повторном останавливается - но это не суть, так как это уже вопрос скорее интерфейса. Суть проблемы в том, что запустив процедуру нажатием на первую кнопку, машина зацикливается и больше на события не реагирует. Т. е. вторую кнопку не нажать. По идее, решение должно лежать на поверхности, но никак не могу сообразить как это надо сделать =) Помогите, плиз, кто знает =)

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	25.02.2009, 16:44	2
	Use OnEvents statement inside of cycle 0

@IgorTr 2 / 2 / 1 Регистрация: 01.01.2008 Сообщений: 410
	25.02.2009, 16:45	3
	А мне почему-то кажется, что для этого надо подобно дятлу долбить ESC 0

@IgorTr 2 / 2 / 1 Регистрация: 01.01.2008 Сообщений: 410
	25.02.2009, 16:47	4
	Korolana как всегда даёт верный ответ. Не каждому охота дятлом быть. 0

darth
	25.02.2009, 21:45	5
	Ээ... Собственно, буду очень благодарен за маленький пример =)

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	26.02.2009, 00:10	6
	Put in Form two CommandButtons cmdButton1 -> for start a long cycle (in my case - without end... ) cmdButton2 -> to stop it Public Dim lStop as boolean Sub cmdButton1_Click() lStop = False Do While True ..DoEvents ..if lStop then exit do ..i = i+1 loop MsgBox 'You got it!' end sub Sub cmdButton2_Click() lStop = True end sub I wrote 'OnEvents' -> sorry, I have meant 'DoEvents' 1

	26.02.2009, 09:34