Vba excel остановить выполнение макроса

Запуск макроса из другого макроса или из процедуры Visual Basic;

Отладка макроса в пошаговом режиме

Запуск макроса в группе макросов

Чтобы запустить макрос, находящийся в группе макросов, выполните одно из следующих действий.

·Определите с помощью макроса значение свойства события в форме или отчете или укажите макрос в аргументе Имя макроса макрокоманды ЗапускМакроса (RunMacro). При этом используется следующий синтаксис:

Например, ссылка на макрос «Типы» в группе макросов «Кнопки кнопочной панели» выглядит следующим образом:

Кнопки кнопочной панели.Типы

·В меню Сервис выберите команду Макрос и подкоманду Запустить макрос, затем выберите нужный макрос в поле со списком Имя макроса. При выборе имени макроса в списке каждый макрос, содержащийся в группе макросов, входит в список как отдельный элемент.

·Запустите макрос, находящийся в группе, из процедуры Visual Basic для приложений с помощью метода RunMacro объекта DoCmd, используя при этом описанный выше синтаксис для ссылки на макрос.

Выполнение макроса в пошаговом режиме позволяет проследить передачу управления и результаты выполнения каждой макрокоманды. Это облегчает поиск макрокоманды, которая приводит к возникновению ошибки или дает неверные результаты.

1Откройте макрос.

2Нажмите кнопку По шагам на панели инструментов.

3Нажмите кнопку Запуск на панели инструментов.

4Нажмите кнопку Шаг для выполнения макрокоманды, имя которой выведено в окно диалога Пошаговое исполнение макроса.

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

6Нажмите кнопку Продолжить, чтобы отключить режим пошагового исполнения и выполнить оставшуюся часть макроса.

Совет. Для того чтобы прервать выполнение макроса и перейти в пошаговый режим, нажмите клавиши CTRL+BREAK.

Для запуска макроса из другого макроса или из процедуры Visual Basic следует включить в макрос или в процедуру макрокоманду ЗапускМакроса (RunMacro).

·Для добавления макрокоманды ЗапускМакроса (RunMacro) в макрос выберите ее в списке макрокоманд в пустой строке макрокоманды и укажите в аргументе Имя макроса имя запускаемого макроса.

·Для добавления макрокоманды ЗапускМакроса (RunMacro) в процедуру Visual Basic включите в процедуру метод RunMacro объекта DoCmd и укажите имя вызываемого макроса. Например, в следующей конструкции метод RunMacro вызывает макрос «Макрос 2»:

DoCmd.RunMacro «Макрос 2»

Для получения дополнительных сведений о макрокоманде ЗапускМакроса (RunMacro) нажмите кнопку .

Запуск макроса

Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке).

Существует несколько способов запуска макроса в Microsoft Excel. Макрос — это действие или набор действий, с помощью которых можно автоматизировать различные задачи. Макросы записываются на языке программирования Visual Basic для приложений. Вы всегда можете запустить макрос, нажав команду макросы на вкладке разработчик на ленте. В зависимости от того, как назначено выполнение макроса, вы можете запустить его с помощью сочетания сочетание клавиш, нажав кнопку на панели быстрого доступа или в настраиваемой группе на ленте либо щелкнув объект на рисунке. или элемент управления. Кроме того, вы можете запускать макросы автоматически при открытии книги.

Перед запуском макроса

Прежде чем приступить к работе с макросами, включите вкладку разработчик .

В Windowsперейдите в раздел Параметры _Гт_ файла _гт_ настроить ленту.

Для Macперейдите на вкладку _Гт_ параметры Excel. _гт_ ленты _амп_ Toolbar.

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

Откройте книгу, содержащую нужный макрос.

На вкладке Разработчик в группе Код нажмите кнопку Макросы.

В поле имя макроса выберите макрос, который нужно запустить, и нажмите кнопку выполнить .

Кроме того, у вас есть и другие варианты:

Options (параметры ) — добавить сочетание клавиш или описание макроса.

Пошаговые действия . редактор Visual Basic откроется в первой строке макроса. Нажимая клавишу F8 , вы сможете пошагово прокручивать код макроса по одной строке за раз.

Изменить — откроется редактор Visual Basic, и вы сможете изменить код макроса по мере необходимости. После внесения изменений вы можете нажать клавишу F5 , чтобы запустить макрос из редактора.

Вы можете добавить сочетание сочетаний клавиш в макрос при его записи, а также добавить его в существующий макрос.

На вкладке Разработчик в группе Код нажмите кнопку Макросы.

В поле имя макроса выберите макрос, который вы хотите назначить сочетанию клавиш.

Нажмите кнопку Параметры.

Откроется диалоговое окно Параметры макроса.

В поле сочетание клавиш введите прописные или строчные буквы, которые вы хотите использовать с сочетанием клавиш.

Для Windowsсочетание клавиш для прописных букв — CTRL + Letter. Для прописных букв — сочетание клавиш CTRL + SHIFT + Letter.

Для Macсочетание клавиш для строчных букв — Option + Command + Letter, но сочетание клавиш CTRL + буква также будет работать. Для прописных букв — сочетание клавиш CTRL + SHIFT + Letter.

Будьте внимательны при назначении сочетаний клавиш, так как они будут переопределять любые эквивалентные клавиши Excel по умолчанию, пока открыта книга, содержащая макрос. Например, если назначить макросу сочетание клавиш Ctrl + z, вы потеряете возможность его отмены. Поэтому рекомендуется использовать сочетание клавиш CTRL + SHIFT + прописной буквы , например сочетание клавиш Ctrl + Shift + Z, которое не имеет эквивалентного сочетания клавиш в Excel.

Список сочетаний клавиш , которые уже назначены в Excel, можно найти в статье сочетания клавиш и функциональные клавиши в Excel.

Введите описание макроса в поле Описание.

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

Чтобы запустить макрос нажатием кнопки на панели быстрого доступа, сначала необходимо добавить соответствующую кнопку на панель. Для этого выполните действия, описанные в разделе Назначение макроса кнопке.

Вы можете создать настраиваемую группу, которая будет отображаться на вкладке ленты, а затем назначить ей кнопку в этой группе. Например, вы можете добавить настраиваемую группу с именем «Мои макросы» на вкладку «Разработчик», а затем добавить в нее макрос (выводится как кнопка). Для этого выполните действия, описанные в разделе Назначение макроса кнопке.

Читать еще: После открытия файла excel

Запуск макроса щелчком области графического объекта

Вы можете создать активную область на рисунке, на котором пользователи смогут запускать макросы.

На листе вставьте графический объект, например рисунок, или нарисовать фигуру. Распространенный сценарий состоит в том, чтобы нарисовать фигуру скругленного прямоугольника и отформатировать ее таким образом, чтобы она выглядела как кнопка.

Чтобы узнать, как вставить графический объект, ознакомьтесь со статьей Добавление, изменение и удаление фигур.

Щелкните созданную область правой кнопкой мыши и выберите команду назначить макрос.

Выполните одно из следующих действий.

Чтобы назначить графический объекту существующий макрос, дважды щелкните его или введите его имя в поле имя макроса .

Чтобы записать новый макрос для назначения выделенному графическому объекту, нажмите кнопку запись, введите имя макроса в диалоговом окне запись макроса , а затем нажмите кнопку ОК , чтобы начать запись макроса. Завершив запись макроса, нажмите кнопку остановить запись на вкладке разработчик в группе код .

Совет: Вы также можете нажать кнопку остановить запись в левой части строки состояния.

Чтобы изменить существующий макрос, щелкните его имя в поле имя макроса , а затем нажмите кнопку изменить.

Нажмите кнопку ОК.

На вкладке разработчик нажмите кнопку Visual Basic, чтобы запустить Редактор Visual Basic (VBE). Найдите в окне проекта модуль, содержащий макрос, который нужно запустить, и откройте его. Все макросы в этом модуле будут перечислены на правой панели. Выберите макрос, который вы хотите запустить, разместите курсор в любом месте макроса, нажмите клавишу F5или в меню выберите команду запустить _гт_ запустить макрос.

Создание события Воркбук_опен.

В следующем примере событие Open используется для запуска макроса при открытии книги.

Откройте или создайте книгу, в которую нужно добавить макрос.

На вкладке Разработчик в группе Код нажмите кнопку Visual Basic.

В окне » Обозреватель проектов » щелкните правой кнопкой мыши объект ThisWorkbook и выберите пункт Просмотреть код.

Совет: Если окно проекта не отображается, в меню вид выберите пункт проводникпо проектам.

В списке объектов , расположенном над окном кода, выберите пункт Книга.

В результате будет автоматически создана пустая процедура для события Open , например:

Private Sub воркбук_опен ()

Добавьте в процедуру следующие строки кода

Private Sub воркбук_опен ()
MsgBox Date
(«Лист1»). Range («a1»). Value = Дата
окончания подзадачи

Переключитесь на приложение Excel и сохраните данную книгу как книгу с поддержкой макросов (.XLSM).

Закройте и снова откройте книгу. После повторного открытия книги Excel запускает процедуру воркбук_опен , которая отображает текущую дату в окне сообщения.

В окне сообщения нажмите кнопку ОК.

Примечание: Ячейка a1 на листе Sheet1 также включает в себя дату, полученную в результате выполнения процедуры Воркбук_опен.

Дополнительные сведения

Вы всегда можете попросить эксперта в сообществе Excel, получить техническую поддержку в сообществе Answersили предложить новую функцию или улучшение в голосовом пользователе Excel .

VBA Excel. Макросы (запись, запуск, пример)

Создание макросов в разных версиях Excel для автоматизации повторяющихся действий пользователя, которые могут быть простыми или сложными, часто повторяющимися или редко. Для использования макросов на практике обычно их приходится корректировать в редакторе VBA. Чтобы Excel мог запускать макросы, необходимо разрешить их выполнение.

Вкладка «Разработчик»

Запись макроса осуществляется встроенным рекордером, кнопка запуска которого находится на вкладке «Разработчик» главного меню программы Excel. По умолчанию эта вкладка не отображается. Добавить вкладку на панель можно следующим образом:

Excel 2010-2016

Переходим по пути: Файл — Параметры — Настроить ленту. В разделе «Настроить ленту» справа в списке «Основные вкладки» устанавливаем флажок «Разработчик» и нажимаем кнопку «OK».

Excel 2007

Переходим по пути: значок «Microsoft Office» — Параметры Excel — категория «Основные», в категории «Основные» устанавливаем флажок «Показывать вкладку «Разработчик» на ленте» и нажимаем кнопку «OK».

Excel 2000-2003

Здесь ничего отображать не надо: кнопки по работе с макросами и редактором VBA находятся в главном меню на вкладке «Сервис» — «Макрос».

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

Запись макроса

Excel 2007-2016

На ленте во вкладке «Разработчик» нажмите кнопку «Запись макроса».

Excel 2000-2003

Пройдите по пунктам меню «Сервис» — «Макрос» — «Начать запись».

Окно «Запись макроса»

Имя макроса: можно изменить или оставить по умолчанию («Макрос» с очередным номером). Если у вас уже есть макрос с таким именем, он будет записан в новый программный модуль, который будет создан автоматически.

Сочетание клавиш: добавьте букву, если хотите запускать макрос сочетанием клавиш Ctrl+«буква». В какой раскладке вы впишите букву (например, «й» или «q»), в той и будет запускаться макрос. Если буква будет вписана в верхнем регистре («Й» или «Q»), используйте для запускa макроса сочетание клавиш Ctrl+Shift+«буква».

Сохранить в: выберите книгу, в которой должен быть сохранен макрос:

«Эта книга» — макрос будет записан в книге, из которой рекордер был запущен (нажата кнопка «Запись макроса»).
«Новая книга» — откроется новая книга и макрос будет записан в ней.
«Личная книга макросов» — макрос запишется в Личную книгу макросов и будет доступен из всех открытых книг Excel.

Описание: здесь можно добавить краткое описание макроса, которое будет отображаться в окне доступных макросов при выделении его в списке.

Заполнив окно, нажимаем кнопку «OK», кнопка «Запись макроса» меняет свое название на «Остановить запись», и можно приступать, собственно, к записи макроса. Выполните на рабочем листе операции, последовательность которых вы хотите автоматизировать и, после их завершения, нажмите кнопку «Остановить запись». Макрос будет записан и появится в списке макросов.

Список макросов

Окно со списком макросов открывается во всех версиях Excel нажатием кнопки «Макросы». Выглядит оно следующим образом:

Читать еще: Visual basic работа с excel

Список макросов во всех открытых книгах

Выполнить — выделенный макрос будет запущен на выполнение.
Войти — переход к коду макроса, запущенному и поставленному на паузу, как при обнаружении ошибки в коде.
Изменить — переход к коду макроса для редактирования.
Создать — кнопка станет активной при записи имени нового макроса в поле «Имя макроса».
Удалить — удаление выделенного макроса.
Параметры… — редактирование сочетания клавиш для запуска макроса и его описания.
Находится в: — здесь можно выбрать все открытые книги или одну из них.
Описание — текст, добавленный в одноименное поле при создании макроса или редактировании его параметров.

Запуск макроса

Запустить записанный макрос можно следующими способами:

Сочетанием клавиш, указанным в параметрах макроса.
Кнопкой «Выполнить» из окна списка макросов.
Кнопкой «Run Sub» или клавишей «F5» из редактора VBA.
Кнопкой, добавленной на лист Excel из раздела «Элементы управления формы» и которой назначен запускаемый макрос.

Кроме этого макрос можно назначить изображению, добавить кнопку запуска на панель быстрого доступа и в меню (на ленту).

Пример записи простого макроса

Выполните следующие действия:

Excel 2007-2016

Откройте книгу Excel или создайте новую и сохраните ее как книгу с поддержкой макросов (.xlsm).
На вкладке «Разработчик» нажмите кнопку «Запись макроса».
В окне «Запись макроса» нажмите кнопку «OK», оставив параметры по умолчанию.
Перейдите на вкладку «Главная» и выберите любой цвет заливки ячеек.
Нажмите кнопку «Остановить запись».

Excel 2000-2003

Откройте книгу Excel или создайте новую и сохраните ее с расширением по умолчанию (.xls).
Включите запись макроса, пройдя по пунктам меню «Сервис» — «Макрос» — «Начать запись».
В окне «Запись макроса» нажмите кнопку «OK», оставив параметры по умолчанию.
На панели инструментов выберите любой цвет заливки ячеек.
Нажмите кнопку «Остановить запись».

В результате будет записан простейший макрос окрашивания фона выделенной ячейки или диапазона.

Откройте список макросов, выберите записанный макрос и нажмите кнопку «Изменить». Вы увидите код вашего макроса:

Число (5296274) в вашем примере будет другим, в зависимости от выбранного цвета заливки.

Выберите на активном листе любую ячейку или диапазон, вернитесь в редактор VBA и нажмите клавишу «F5» (курсор должен находиться в любом месте внутри кода запускаемого макроса). На активном листе выделенный диапазон окрасится в выбранный при записи макроса цвет.

Рекордер макросов может записывать много лишних строк, без которых можно обойтись. Точно также макрос будет работать и в такой редакции:

Скопируйте этот код и вставьте его внизу, под вашим макросом, в редакторе VBA (числовое значение цвета можете изменить на свое или оставить, как в примере). Проверьте его работоспособность, выбрав незакрашенные ячейки и запустив макрос клавишей «F5», не забыв о том, что курсор должен находиться внутри этого макроса.

Имена макросов должны различаться в пределах одного модуля, но еще лучше – всем макросам одной книги давать уникальные имена.

Назначение макроса кнопке

Теперь давайте назначим записанный макрос (любой из двух) кнопке, добавленной на лист Excel из раздела «Элементы управления формы»:

Excel 2007-2016

На вкладке «Разработчик» нажмите кнопку «Вставить» и в разделе «Элементы управления формы» кликните по изображению кнопки.
Переведите курсор на табличную область листа, курсор примет вид крестика, и кликните левой кнопкой мыши.
В открывшемся окне «Назначить макрос объекту» выберите один из новых макросов и нажмите кнопку «OK». Если нажать кнопку «Отмена», новая кнопка будет создана без назначенного макроса. Его можно будет назначить позднее, кликнув по ней правой кнопкой мыши и выбрав в контекстном меню «Назначить макрос…»

Excel 2000-2003

1. Отобразите панель инструментов «Формы», пройдя по пунктам меню «Вид» — «Панели инструментов» — «Формы».
2. Кликните по Кнопке на панели инструментов «Формы», затем переведите курсор на табличную часть рабочего листа, нажмите левую кнопку мыши и, не отпуская ее, нарисуйте прямоугольник (контур кнопки) нужного размера, затем отпустите кнопку мыши.
3. В открывшемся окне «Назначить макрос объекту» выберите один из новых макросов и нажмите кнопку «OK». Если нажать кнопку «Отмена», новая кнопка будет создана без назначенного макроса. Его можно будет назначить позднее, кликнув по ней правой кнопкой мыши и выбрав в контекстном меню «Назначить макрос…»

Кнопка создана. Выберите ячейку или диапазон и нажмите созданную кнопку. Цвет фона изменится.

Вы можете записать еще один такой же макрос, только выбрать на палитре «Нет заливки», создать еще одну кнопку и назначить ей вновь созданный макрос. Теперь, первая кнопка будет окрашивать выделенный диапазон, а вторая очищать его от заливки.

Сокращенный вариант кода по очистке фона будет выглядеть так:

Application.ScreenUpdating stops macro execution in VBA

I am not experienced VBA programmer, and I need community to find a problem with the Excel.

My problem is that in Excel, code stops execution immediatly after following line: Application.ScreenUpdating = True

I use following example code from msdn website:

However, Msgbox never get executed, nor VBA shows any error — it just silently fails.

Anyidea why this is happening and how to fix that ?

Создан 23 окт. 12 2012-10-23 07:52:22 Oleg Liski

works OK for me: did you add the code to a Sub in a Module? – Charles Williams 23 окт. 12 2012-10-23 08:10:08

Which event did you write this code in? I suggest to call the macro using a button click event to isolate the source of the error – Ahmad 23 окт. 12 2012-10-23 08:11:39

Just pasted the code in a module and worked perfectly. why was the question upvoted?? – nightcrawler23 23 окт. 12 2012-10-23 08:23:21

Also, did you step through the code to determine the exact source of the execution fail? – Scott Holtzman 23 окт. 12 2012-10-23 13:59:50

Hello, I did step through the code, and it stops exactly on the line with Screenupdating = True. However, I found the source of error — it was fail in function that do validation for auto-rules. Fixed it, then code started to work correctly. – Oleg Liski 24 окт. 12 2012-10-24 09:20:51

Читать еще: Vba excel дата

2 ответа

In this situation, there was following problem, that didn’t immediatly found at first glance:

There is auto-validation rules in the Sheet
Auto-validation rules are based on user-space function, i.e. code rule for matching is formula: =NOT(IsValidCell(INDIRECT(«RC»;FALSE)))
there is a problem with this function.

Example of baqd code:

Result is that code in completely unseparated routine fails when excel tries to recalculate rules.

Создан 24 окт. 12 2012-10-24 09:31:32 Oleg Liski

This is not an answer; like earlier posters I am unable to get this routine to fail.

Firstly, I will say this is a dreadful piece of code. I cannot understand why Microsoft posted something this bad. For example:

elapsedTime is not typed. (It should be Dim elapsedTime(2) As Double )
i, startTime and stopTime are not defined.
The Activate is within the timed block for the first loop so, if Sheet1 is not the active sheet at the beginning, the time to activate it is added to the first loop’s duration.
The columns are not unhidden between the two loops so the second loop has nothing to do. If you run the routine a second time, the two loops have the same duration.

There is a bug in Excel which I encounter very infrequently and not for a couple of years. When I do encounter it, it takes me so long to discover the cause that I am behind schedule and forget to record the details for next time. There are certain errors for which Excel does not stop and report the fault; instead it terminates the current function and continues with the next statement in the calling routine. This subroutine has been called directly, so it would just stop without finishing.

My only suggestion is that there is something about this code on your Sheet1 on your computer that causes this error.

VBA, чтобы остановить выполнение вложенных macros в excel?

У меня есть кнопка на моей электронной таблице, которая при нажатии запускает серию вложенных вложений. Пример:

Поскольку время для запуска всех этих подпрограмм может быть довольно длительным, и пользователь не может делать ничего другого в excel, пока он работает, мне было интересно, есть ли способ создать кнопку, которая при нажатии может остановить запуск всех этих субподрядов? Я видел рекомендации по добавлению DoEvent в код, однако я не уверен, где в моем коде его реализовать.

Любое понимание будет высоко оценено.

2 Ответа

Оператор DoEvents разрешает любой запаздывающий пользовательский ввод и обработку событий.

решение

То, что вы, вероятно, хотите сделать, это перегрузить обработчик событий OnKey и использовать его для установки значения глобальной переменной. Далее в коде выше вам нужно проверить, установлена ли эта переменная. Если это прервать выполнение. Не забудьте добавить операторы DoEvents в любой момент в коде, где вы хотите, чтобы это выполнялось.

Дополнительно, без обработчика OnKey , DoEvents позволит пользователю нажать ESC , чтобы остановить выполнение вашего макроса. Но он вернется в режим отладки и выделит текущую выполненную строку в вашей процедуре. Не уверен, что это то, что вы хотите, однако.

Совет — что делать в первую очередь

Сказав это. то, что я лично думаю, что вы должны сделать FIRST -это оптимизировать свой код VBA. Я бы предположил, что, вероятно, есть много возможностей для улучшения времени выполнения вашей процедуры ( мой учебник ).

Вы можете создать макрос для выполнения следующих шагов / операций и вызова, когда вы хотите прервать другой запуск macros:

Шаг 1 — строка меню — > выполнить — > сброс

Шаг 2 — строка меню — > Выполнить — > перерыв

Vba excel остановить выполнение макроса

Запуск макроса из другого макроса или из процедуры Visual Basic;

Запуск макроса

Перед запуском макроса

Дополнительные сведения

VBA Excel. Макросы (запись, запуск, пример)

Вкладка «Разработчик»

Запись макроса

Список макросов

Запуск макроса

Пример записи простого макроса

Назначение макроса кнопке

Application.ScreenUpdating stops macro execution in VBA

2 ответа

VBA, чтобы остановить выполнение вложенных macros в excel?

2 Ответа

решение

Совет — что делать в первую очередь

Похожие вопросы: