Макрос . "ВрЕменная" остановка

@0mega · Регистрация: 05.11.2013

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

доброго времени суток всем
какой командой можно остановить работу макроса и продолжить ее при нажатии на любую клавишу ?

SoftIce · 28.06.2017, 21:58

Сообщение от 0mega

остановить работу макроса

Ctrl + Break

Добавлено через 2 минуты
F5 - продолжить

@0mega · 28.06.2017, 22:17 **[ТС]**

SoftIce, спасибо за оперативный ответ .
Это не совсем то что надо
Вы предлагаете "клавиатурную" остановку и продолжение ТОЛЬКО по F5
Мне нужна команда , написанная буквами (аналогичная команде STOP) внутри самого макроса .
Дойдя до этой команды макрос останавливает работу и после нажатия на ЛЮБУЮ клавишу - работа продолжается

@OLEGOFF · 28.06.2017, 23:56

0mega, можно вставить в код в любом месте MsgBox

Не по теме:

Заодно и посмотреть промежуточные результаты

@_shark · 29.06.2017, 09:44

можно, вообще, по F9 поставить точку останова на нужной строке и макрос сам остановится, когда до нее дойдет

@0mega · 29.06.2017, 16:42 **[ТС]**

...

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

...код в любом месте MsgBox

Сообщение от 0mega

...и продолжить ее при нажатии на любую клавишу

Dragokas · 30.06.2017, 08:16

Сообщение от 0mega

Вы предлагаете "клавиатурную" остановку и продолжение ТОЛЬКО по F5
Мне нужна команда , написанная буквами (аналогичная команде STOP) внутри самого макроса .
Дойдя до этой команды макрос останавливает работу и после нажатия на ЛЮБУЮ клавишу - работа продолжается

Простите, а зачем это вообще нужно?

@0mega · 30.06.2017, 15:49 **[ТС]**

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

Простите, а зачем это вообще нужно?

А от этого зависит правильность ответа ?

Просто хочу знать !

SoftIce · 30.06.2017, 16:00

Сообщение от 0mega

Просто хочу знать !

Можно сделать. Но ради того чтобы вы "просто знали" , я, например, делать не буду.

Dragokas · 30.06.2017, 19:43

Ради интереса покопался в рантайме. Команды для для остановки там не нашел.
Есть очень старый код, который завершает макрос, вполне может быть, что приостановить можно подобным методом:

Visual Basic

Option Explicit
 
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Const WM_USER As Long = &H400
 
Private Const VBE_CLASS_NAME As String = "wndclass_desked_gsk"
 
Sub StopMacro()
Dim lVBEhwnd As Long
    lVBEhwnd = FindWindow(VBE_CLASS_NAME, vbNullString)
    
    SendMessage lVBEhwnd, ByVal WM_USER + &HC44, ByVal &H30, ByVal 0&
    SendMessage lVBEhwnd, ByVal WM_USER + &HC44, ByVal &H33, ByVal 0&
    SendMessage lVBEhwnd, ByVal WM_USER + &HC44, ByVal &H83, ByVal 0&
    DoEvents
 
    MsgBox ""
End Sub

@0mega · 05.07.2017, 22:06 **[ТС]**

Dragokas, спасибо

Добавлено через 1 минуту
Dragokas, спасибо

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 305
		1
	Макрос . "ВрЕменная" остановка 28.06.2017, 21:52. Показов 1739. Ответов 10 Метки нет (Все метки) доброго времени суток всем какой командой можно остановить работу макроса и продолжить ее при нажатии на любую клавишу ? 0

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.06.2017, 21:58	2
	Сообщение от 0mega остановить работу макроса Ctrl + Break Добавлено через 2 минуты F5 - продолжить 0

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 305
	28.06.2017, 22:17 [ТС]	3
	SoftIce, спасибо за оперативный ответ . Это не совсем то что надо Вы предлагаете "клавиатурную" остановку и продолжение ТОЛЬКО по F5 Мне нужна команда , написанная буквами (аналогичная команде STOP) внутри самого макроса . Дойдя до этой команды макрос останавливает работу и после нажатия на ЛЮБУЮ клавишу - работа продолжается 0

@OLEGOFF 1081 / 522 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	28.06.2017, 23:56	4
	0mega, можно вставить в код в любом месте MsgBox Не по теме: Заодно и посмотреть промежуточные результаты 0

@_shark 185 / 183 / 31 Регистрация: 11.10.2016 Сообщений: 599
	29.06.2017, 09:44	5
	можно, вообще, по F9 поставить точку останова на нужной строке и макрос сам остановится, когда до нее дойдет 0

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 305
	29.06.2017, 16:42 [ТС]	6
	... Сообщение от OLEGOFF ...код в любом месте MsgBox Сообщение от 0mega ...и продолжить ее при нажатии на любую клавишу 0

Dragokas 18014 / 7715 / 892 Регистрация: 25.12.2011 Сообщений: 11,496 Записей в блоге: 16
	30.06.2017, 08:16	7
	Сообщение от 0mega Вы предлагаете "клавиатурную" остановку и продолжение ТОЛЬКО по F5 Мне нужна команда , написанная буквами (аналогичная команде STOP) внутри самого макроса . Дойдя до этой команды макрос останавливает работу и после нажатия на ЛЮБУЮ клавишу - работа продолжается Простите, а зачем это вообще нужно? 0

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 305
	30.06.2017, 15:49 [ТС]	8
	Сообщение от Dragokas Простите, а зачем это вообще нужно? А от этого зависит правильность ответа ? Просто хочу знать ! 0

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	30.06.2017, 16:00	9
	Сообщение от 0mega Просто хочу знать ! Можно сделать. Но ради того чтобы вы "просто знали" , я, например, делать не буду. 1

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 305
	05.07.2017, 22:06 [ТС]	11
	Dragokas, спасибо Добавлено через 1 минуту Dragokas, спасибо 0