Как продолжить макрос excel

{quote}{login=}{date=01.09.2008 02:03}{thema=Re: }{post}Есть ли в EXCELе возможность выбрать макрос и нажать продолжить запись, сделать нужные действия и сохранить его.{/post}{/quote}  

  Инструкция:  
Записали макрос, например:  
Sub Макрос1()  
‘примечания  
   Range(«D3»).Select  
End Sub  

  Снова включаем макрорекордер, потом Макросы… -> Макрос1 -> Изменить, видим:  
Sub Макрос1()  
‘примечания  
   Range(«D3»).Select  
End Sub  
Sub Макрос3()  
‘примечания  
   Application.Goto Reference:=»Макрос1″  
End Sub  

  Стираем строки:  
End Sub  
Sub Макрос3()  
‘примечания  
   Application.Goto Reference:=»Макрос1″  

  Остались строчки, что были в начале, но курсор записи макроса сместился в него. Жмём Alt+q и продолжаем запись.

Здравствуйте! нужна ваша помощь. У меня есть макрос. он иногда выдаёт ошибку на любом участке. и происходит это не из за ошибки кода,а из за переполнения оперативной памяти или если 2-3 копии excel работают, с таким же макросом, то тоже может быть сбой и выскакивает то окно где написано END и DEBUG.
Мне нужно , что бы макрос в случае вот таких вот ситуаций продолжал работать методом повторного выполнения операции над которой и случилась ошибка(чтобы заново её выполнил). Я немного поискал в интернете и выяснил, что за это отвечает оператор Resume 0. Есть оператор Resume Next, который игнорирует ошибку и макрос продолжает работать со следующей операции. Но мне это не подойдёт. мне нужно именно, чтобы макрос заново с операции на которой случилась ошибка продолжил работать(т.е. выполнил её снова)
Только вот куда этот Resume 0 вставлять? Хотелось бы чтобы поставить этот Resume 0 в начале всего кода макроса, и не париться. Но как это сделать?

макрос у меня очень простой. сохранение листа в файл:
Sub Сохранение()
Application.ScreenUpdating = False
Dim Fname As String
Sheets(Array(«2»)).Copy
With ActiveWorkbook
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
Application.DisplayAlerts = False
.SaveAs Filename:=ThisWorkbook.Path & «» & «1.xls», FileFormat:=56
Application.ScreenUpdating = True
‘Application.DisplayAlerts = True
End With
ActiveWorkbook.Close
End Sub

Создание макросов в Microsoft Excel

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

Способы записи макросов в Excel

Макрос записывается двумя способами: автоматически и вручную. Воспользовавшись первым вариантом, вы просто записываете определенные действия в Microsoft Excel, которые выполняете в данный момент времени. Потом можно будет воспроизвести эту запись. Такой метод очень легкий и не требует знания кода, но применение его на практике довольно ограничено. Ручная запись, наоборот, требует знаний программирования, так как код набирается вручную с клавиатуры. Однако грамотно написанный таким образом код может значительно ускорить выполнение процессов.

Вариант 1: Автоматическая запись макросов

Прежде чем начать автоматическую запись макросов, нужно включить их в программе Microsoft Excel. Для этого воспользуйтесь нашим отдельным материалом.

Когда все готово, приступаем к записи.

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

Как видим, макросы в Microsoft Excel могут значительно упростить выполнение рутинных и однообразных процессов. Тем не менее в большинстве случаев для этого больше подходят макросы, код которых написан вручную, а не автоматически записанные действия. Кроме того, его код можно оптимизировать через редактор VBE для ускорения процесса выполнения задачи.

Отблагодарите автора, поделитесь статьей в социальных сетях.

Автоматизация задач с помощью средства записи макросов — Excel

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

Для автоматизации повторяющихся задач в Microsoft Excel можно быстро записать макрос. Предположим, у вас есть даты в различном формате и вы хотите применить ко всем из них один формат. Это можно сделать с помощью макроса. Вы можете записать макрос, который применяет нужный формат, а затем запускать его при необходимости.

При записи макроса записываются все действия, описанные в Visual Basic для приложений (VBA) коде. Эти действия могут включать ввод текста или чисел, нажатие ячеек или команд на ленте или в меню, форматирование ячеек, строк или столбцов, а также импорт данных из внешнего источника, например Microsoft Access. Приложение Visual Basic (VBA) — это подмножество мощного языка программирования Visual Basic, которое входит в большинство приложений Office. Несмотря на то, что VBA обеспечивает возможность автоматизации процессов между приложениями Office, вам не нужно знать код VBA или программное программирование, если это нужно.

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

Макросы и средства VBA находятся на вкладке Разработчик, которая по умолчанию скрыта, поэтому сначала нужно включить ее. Дополнительные сведения см. в статье Отображение вкладки «Разработчик».

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

Перед записью макросов полезно знать следующее:

Макрос, записанный для работы с диапазоном Excel, будет выполняться только для ячеек этого диапазона. Поэтому если вы добавите в диапазон новую строку, макрос не будет применяться к ней.

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

В макросе могут содержаться и задачи, не относящиеся к Excel. Процесс макроса может охватывать прочие приложения Office и другие программы, которые поддерживают Visual Basic для приложений (VBA). Например, вы можете записать макрос, который сначала обновляет таблицу в Excel, а затем открывает Outlook для ее отправки по электронной почте.

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

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

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

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

Чтобы назначить сочетание клавиш для запуска макроса, в поле Сочетание клавиш введите любую строчную или прописную букву. Рекомендуется использовать сочетания клавиш с CTRL+SHIFT, так как они будут заменять собой совпадающие с ними стандартные сочетания клавиш в Excel, пока открыта книга, содержащая макрос. Например, если назначить сочетание клавиш CTRL+Z (Отменить), вы не сможете использовать его для функции «Отменить» в данном экземпляре Excel.

В списке Сохранить в выберите книгу, в которой вы хотите сохранить макрос.

Как правило, макрос сохраняется в указанном расположении книги , но если вы хотите, чтобы макрос был доступен при использовании Excel, выберите пункт Личная книга макросов . Если выбрать команду Личная книга макросов, Excel создаст скрытую личную книгу макросов (личное. xlsb), если она еще не существует, и сохранит макрос в этой книге.

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

Хотя поле «Описание» является необязательным, рекомендуется его заполнить. Кроме того, желательно ввести понятное описание, которое будет полезно вам и всем, кто запускает макрос. Если у вас много макросов, описания помогут быстро определить, для чего они нужны.

Чтобы начать запись макроса, нажмите кнопку ОК.

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

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

Работа с макросами, записанными в Excel

На вкладке Разработчик щелкните Макросы, чтобы просмотреть макросы, связанные с книгой. Кроме того, можно нажать клавиши ALT+F8. При этом откроется диалоговое окно Макрос.

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

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

Сведения о параметрах безопасности макросов и их значении.

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

С помощью редактора Visual Basic можно изменять макросы, присоединенные к книге.

Если книга содержит макрос VBA, который нужно использовать где-либо еще, этот модуль можно скопировать в другую книгу с помощью редактора Microsoft Visual Basic.

Назначение макроса объекту, фигуре или графическому элементу

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

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

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

Вы можете назначать макросы формам и элементам ActiveX на листе.

Узнайте, как включать и отключать макросы в файлах Office.

Открытие редактора Visual Basic

Нажмите клавиши ALT+F11.

Узнайте, как найти справку по элементам Visual Basic.

Работа с записанным кодом в редакторе Visual Basic (VBE)

С помощью редактора Visual Basic (VBE) вы можете добавлять в записанный код собственные переменные, управляющие структуры и другие элементы, которые не поддерживает средство записи макросов. Так как средство записи макросов фиксирует почти каждый шаг, выполняемый во время записи, может также потребоваться удалить ненужный код. Просмотр записанного кода — отличный способ научиться программировать на VBA или отточить свои навыки.

Пример изменения записанного кода можно найти в статье Начало работы с VBA в Excel.

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

Перед записью макросов полезно знать следующее:

Макрос, записанный для работы с диапазоном Excel, будет выполняться только для ячеек этого диапазона. Поэтому если вы добавите в диапазон новую строку, макрос не будет применяться к ней.

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

В макросе могут содержаться и задачи, не относящиеся к Excel. Процесс макроса может охватывать прочие приложения Office и другие программы, которые поддерживают Visual Basic для приложений (VBA). Например, вы можете записать макрос, который сначала обновляет таблицу в Excel, а затем открывает Outlook для ее отправки по электронной почте.

Макросы и средства VBA находятся на вкладке Разработчик, которая по умолчанию скрыта, поэтому сначала нужно включить ее.

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

В категории Настроить ленту в списке Основные вкладки установите флажок Разработчик, а затем нажмите кнопку Сохранить.

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

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

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

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

В списке Сохранить в выберите книгу, в которой вы хотите сохранить макрос.

Как правило, макрос сохраняется в указанном расположении книги , но если вы хотите, чтобы макрос был доступен при использовании Excel, выберите пункт Личная книга макросов. Если выбрать команду Личная книга макросов, в Excel будет создана скрытая личная книга макросов (личное. XLSB), если он еще не существует, и сохранение макроса в этой книге. Книги в этой папке открываются автоматически при запуске Excel, а код, хранящийся в личной книге макросов, будет указан в диалоговом окне Макрос, которое описано в следующем разделе.

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

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

Хотя поле «Описание» является необязательным, рекомендуется его заполнить. Полезно ввести понятное описание с любой полезной информацией, которая может быть полезна Вам или другим пользователям, которые будут запускать макрос. Если у вас много макросов, описания помогут быстро определить, для чего они нужны.

Чтобы начать запись макроса, нажмите кнопку ОК.

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

На вкладке Разработчик щелкните Остановить запись.

Работа с макросами, записанными в Excel

На вкладке Разработчик щелкните Макросы, чтобы просмотреть макросы, связанные с книгой. При этом откроется диалоговое окно Макрос.

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

Ниже приведены дополнительные сведения о работе с макросами в 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 нажатием кнопки «Макросы». Выглядит оно следующим образом:

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

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

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

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

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

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

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

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

Excel 2007-2016

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

Excel 2000-2003

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

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

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

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

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

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

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

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

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

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

Excel 2007-2016

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

Excel 2000-2003

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

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

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

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

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

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

Простую последовательность действий, которую нужно повторить несколько раз, можно записать в виде программного кода и сохранить как макрос. Если последовательность действий записана в макрос, то выполнять её можно снова и снова, просто запуская этот макрос. Это гораздо эффективнее, чем выполнять раз за разом одни и те же действия вручную.

Чтобы записать макрос, нужно включить режим записи. Это можно сделать на вкладке Вид (View) в разделе Макросы (Macros) или в меню Сервис (Tools), если у Вас Excel 2003. Ниже на картинках показано, как выглядят эти меню.

Далее откроется диалоговое окно Запись макроса (Record Macro), как показано на картинке ниже:

Здесь, по желанию, можно ввести имя и описание для макроса. Рекомендуется давать макросу такое имя, чтобы, вернувшись к нему спустя некоторое время, можно было без труда понять, для чего этот макрос нужен. Так или иначе, если не ввести для макроса имя, то Excel автоматически назовёт его Макрос1, Макрос2 и так далее.

Здесь же можно назначить сочетание клавиш для запуска записанного макроса. Запускать макрос таким способом будет значительно проще. Однако будьте осторожны! Если случайно назначить для макроса одно из предустановленных клавиатурных сочетаний Excel (например, Ctrl+C), то в дальнейшем макрос может быть запущен случайно.

Когда макросу дано подходящее имя и (при желании) задано сочетание клавиш, нажмите ОК, чтобы запустить запись макроса. С этого момента каждое действие (ввод данных, выделение ячеек, изменение формата ячеек, пролистывание листа и так далее) будет записано в макрос и сохранено в виде кода VBA.

При включении режима записи макроса в строке состояния (внизу слева) появляется кнопка Стоп. В Excel 2003 эта кнопка находится на плавающей панели инструментов.

Нажмите Стоп, когда выполните все действия, которые должны быть записаны в макрос. Теперь код записанного макроса сохранён в модуле редактора Visual Basic.

Параметр «Относительные ссылки»

Если перед началом записи макроса включить параметр Относительные ссылки (Use Relative References), то все ссылки в записываемом макросе будут создаваться как относительные. Если же параметр выключен, то при записи макроса будут создаваться абсолютные ссылки (подробнее об этих двух типах ссылок можно узнать в статьях, посвящённых теме ссылок на ячейки в Excel).

Параметр Относительные ссылки (Use Relative References) находится в разделе Макросы (Macros) на вкладке Вид (View). В Excel 2003 этот параметр расположен на плавающей панели инструментов.

Просмотр кода VBA

Код VBA, записанный в макрос, размещается в модуле, который можно просмотреть в редакторе Visual Basic. Редактор можно запустить нажатием Alt+F11 (одновременное нажатие клавиш Alt и F11).

Код находится в одном из модулей, которые расположены в окне Project слева от области редактирования. Если дважды кликнуть по Module1 в окне Project, то справа появится код записанного макроса.

Запуск записанного макроса в Excel

Записывая макрос, Excel всегда создаёт процедуру Sub (не Function). Если при создании макроса к нему было прикреплено сочетание клавиш, то именно с его помощью запустить макрос будет проще всего. Существует и другой способ запустить макрос:

• Нажмите Alt+F8 (одновременно нажмите клавиши Alt и F8);
• В появившемся списке макросов выберите тот, который нужно запустить;
• Нажмите кнопку Выполнить (Run).

Ограничения

Инструмент Excel для записи макросов – это очень простой способ создавать код VBA, но подходит он только для создания самых простых макросов. Дело в том, что этот инструмент не умеет использовать многие возможности VBA, такие как:

• Константы, переменные и массивы;
• Выражения IF;
• Циклы;
• Обращения к встроенным функциям или внешним процедурам.

Как уже было сказано, инструмент записи макросов может создавать только процедуры Sub, так как не может возвращать значение. Процедурам Sub нельзя передавать какие-либо аргументы, хотя они могут распознавать текущие активные ячейки, диапазоны или листы, а также значения, хранящиеся в ячейках книги. Кроме того, нужно сказать, что сгенерированный код не всегда является оптимальным для рассматриваемой последовательности действий.

Автоматическое создание кода VBA в Excel отлично работает для простых макросов, но если нужно построить более сложный макрос, то придётся научиться писать код VBA самостоятельно. Тем не менее, запись макроса в Excel – это отличны инструмент, при помощи которого можно создавать первоначальный код, а в дальнейшем исправлять или вставлять его в более сложные макросы.

Как создать макрос в Excel?

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

Давайте поподробнее разберемся в тонкостях работы с макросами.

Зачастую нам приходится выполнять одни и те же действия в Excel большое количество раз. C такой «рутинной работой» рано или поздно сталкивается почти каждый пользователь Excel — формирование ежедневных и еженедельных отчетов, обработка однообразных данных и т.д.

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

Макрос в Excel — это программа, записанная на языке программирования Visual Basic for Applications (VBA), которая выполняет определенную последовательность действий.

Как записать макрос в Excel?

В Excel есть встроенная программа макрорекордер, которая записывает каждое действие пользователя и переводит его в язык программирования VBA.
Такой способ записи макроса не требует специальных знаний программирования, поэтому запись макроса с помощью макрорекордера — самый простой способ создания макроса.
Однако при работе с макрорекордером есть свои недостатки:

1. Макрорекордер записывает все Ваши действия, в том числе и случайно сделанные ошибки. Поэтому перед записью макроса четко продумайте список выполняемых действий — это поможет избежать ошибок;
2. Макрорекордер записывает действия, выполненные только в программе Excel. Переключения на другие программы макрорекордер не записывает;
3. Макрорекордер записывает только те действия, для которых есть кнопки или команды меню в Excel.

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

Чтобы записать макрос в Excel нужно в нижней панели нажать на кнопку «Запись макроса» или перейти в панели инструментов на вкладку «Вид» в группу «Макросы» и выбрать «Запись макроса»:

Настраиваем поля записываемого макроса (можно оставить поля пустыми):

Выбор имени макроса и сочетания клавиш

1. Имя макроса — произвольное имя на русском или английском языке;
2. Сочетание клавиш — комбинация клавиш, которой в дальнейшем будет запускаться макрос;
3. Сохранить в — книга в которой будет сохраняться макрос.

Остановить запись макроса можно двумя способами: в нижней панели нажать на кнопку «Остановить запись» или перейти в панели инструментов на вкладку «Вид» в группу «Макросы» и выбрать «Остановить запись»:

Конец записи макроса

Как выполнить макрос в Excel?

Чтобы выполнить и запустить макрос можно нажать выбранное сочетание клавиш или перейти на вкладку «Вид» в группу «Макросы», выбрать «Макросы» и нажать кнопку «Выполнить» или нажать сочетание клавиш Alt+F8:

Просмотр кода макроса

Для просмотра кода макроса нужно перейти на вкладку «Вид» в группу «Макросы» и выбрать «Макросы»,а затем нажать кнопку «Изменить»:

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

Для создания макроса в Excel нужно выполнить следующие шаги:

1. Создание макроса. Выбрать на панели инструментов «Вид» ->«Макросы» ->«Запись макроса» и при необходимости заполнить настройки макроса;
2. Запись макроса. Выполнить требуемые действия;
3. Остановить запись макроса. Выбрать на панели инструментов «Вид» ->«Макросы» ->«Остановить запись».

Удачи вам и до скорых встреч на страницах блога Tutorexcel.ru!

Поделиться с друзьями:

Поиск по сайту:

Похожие статьи:

Комментарии (7)

что мне надо сделать чтобы не запускать его постоянно в VB при открытии документа, а что бы он делал это сам автоматически. И еще вопрос можно ли как-то в поле со списком или в combobox вставить названия таблиц, и при выборе определенного названия в определенном диапазоне открывалась нужная таблица? Спасибо.

Вам необходимо зайти в VBA, выбрать в редакторе модуль «ЭтаКнига» и затем в код модуля добавить стандартный макрос:

Автоматизация задач с помощью средства записи макросов — Excel

​Смотрите также​​ кнопку ОК.​ 1 2 3​Скачать бесплатно исходные​ (второй способ).​ выполняем необходимое действие​рабочего листа​ пор, пока значение​ по Excel VBA.​ Например, при команде​ клавиш, при нажатии​ команду​ или прописную букву.​ Office и другие​Изменение макроса​ сохранить макрос.​ будет выполняться только​Примечание:​​ 4​ коды VBA-макросов с​

​Необходимые инструменты находятся во​ MsgBox «Вы выбрали​Лист2​ ‘текущего числа Фибоначчи​Первоначально эта процедура​ «Range(«C4»).Select» выбирается ячейка​ на которые макрос​Назначить макрос​ Рекомендуется использовать сочетания​ программы, которые поддерживают​С помощью редактора Visual​Как правило, макросы сохраняются​ для ячеек этого​ Мы стараемся как можно​Макросы позволяют автоматизировать процессы​

​Каждый пользователь сталкивался с​

​ широкими возможностями для​ вкладке «Разработчик». Так​ ячейку B1″ End​и выполняет с​ не превысит 1000​Sub​ C4. Оператор «ActiveCell.FormulaR1C1»​ будет запускаться. Первой​.​ клавиш, которые еще​ Visual Basic для​ Basic можно изменять​ в расположении​ диапазона. Поэтому если​ оперативнее обеспечивать вас​ работы с документами​ тем, что иногда​ автоматической обработки, редактирования​ как по умолчанию​ If End Sub​ ними арифметические операции.​ Do While iFib_Next​была приведена, как​ используется для записи​ клавишей обязательно должна​В поле​ не назначены другим​ приложений (VBA). Например,​ макросы, присоединенные к​Эта книга​ вы добавите в​

​ актуальными справочными материалами​ и не только…​ в Excel не​ и форматирования больших​ вкладка часто не​На примере этой процедуры​ Результаты заносятся в​ < 1000 If​ пример использования комментариев​ действий в формулах,​ быть клавиша Ctrl,​Назначить макроса​ командам, так как​ вы можете записать​ книге.​, но если вы​ диапазон новую строку,​ на вашем языке.​ Они могут практически​

​ найти подходящих инструментов,​ таблиц.​​ отображается, сначала нужно​​ показано использование операторов​ ячейки столбца​ i = 1​ в коде VBA.​ и для других​ а вторую клавишу​

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

​выберите макрос, который​ они будут переопределять​

• ​ макрос, который сначала​Копирование модуля макроса в​ хотите, чтобы макрос​ макрос не будет​ Эта страница переведена​ одновременно выполнить тысячи​ которые бы соответствовали​Макрос для объединения одинаковых​ зайти в настройки​

• ​On Error​A​ Then ‘Особый случай​ Однако, здесь также​ расчетов.​

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

​Попытаемся немного изменить макрос.​ Например, мы, в​

1. ​Назначение макроса кнопке​​ стандартные сочетания клавиш​​ Excel, а затем​​Если книга содержит макрос​​ при работе в​​Если вам нужно записать​​ текст может содержать​

   ​ операцию (даже по​

   ​ изобилии возможностей Excel​​ Excel.​​ откройте круглую кнопку​​Resume​​ листе. В этом​​ последовательности iStep =​​ объявляются переменные, как​​ Для этого, в​​ качестве примера, установили​

   

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

   ​ одному клику мышкой).​​ иногда нельзя автоматизировать​Исходный код макроса​ с изображением логотипа​для обработки ошибок.​ макросе продемонстрировано использование​ 1 iFib =​ работают ссылки на​ макрос допишем выражение:​ клавишу М.​ значку и добавить​ открыта книга, содержащая​ ее отправки по​ использовать где-либо еще,​ Личная книга макросов.​ советуем вместо этого​ ошибки. Для нас​

3. ​ Таким образом расширяются​ решения некоторых задач,​ для одновременного поиска​​ Microsoft и выберите​​ В данном коде​ объектов Excel. В​ 0 Else ‘Сохраняем​ ячейки Excel, использование​​Range(«C3»).Select​​Далее, нужно определить, где​​ его на панель​​ макрос.​ электронной почте.​ этот модуль можно​ Если выбрать этот​ использовать несколько более​ важно, чтобы эта​ возможности работы с​ ведь совершенству нет​​ и объединения ячеек​​ «Параметры Excel». Далее​ также показан пример​ частности, производится обращение​ размер следующего приращения​ цикла​

4. ​ActiveCell.FormulaR1C1 = «11»​​ будет храниться макрос.​​ быстрого доступа или​В поле​Макросы и средства VBA​

   ​ скопировать в другую​ вариант, Excel создаст​​ мелких макросов.​​ статья была вам​ программой.​ предела. Идеальное решение​ с одинаковыми значениями​ «Личная настройка», «Основные​ открытия и чтения​ процедурой​ перед тем, как​For​Выражение «ActiveCell.FormulaR1C1 = «=R[-3]C+R[-2]C+R[-1]C»»​ По умолчанию, он​ ленту.​Описание​

5. ​ находятся на вкладке​​ книгу с помощью​​ скрытую личную книгу​В макросе могут содержаться​ полезна. Просим вас​

   ​Читайте также: Как работать​ – это предоставление​ в таблице. Работа​ параметры…», установите отметку​ данных из файла.​Sub​ перезаписать ‘текущее значение​, условного оператора​ заменим на «ActiveCell.FormulaR1C1​ будет храниться в​Назначение макроса для элемента​при необходимости введите​

6. ​Разработчик​ редактора Microsoft Visual​​ макросов Personal.xlsb (если​​ и задачи, не​

7. ​ уделить пару секунд​ с макросами в​

8. ​ возможности пользователю самому​​ со свойством Merge.​​ напротив пункта, отвечающего​​’Процедура Sub присваивает​​к объекту​​ последовательности iStep =​ ​If​

   ​ = «= R[-4]C+R[-3]C+R[-2]C+R[-1]C»».​

   ​ этой же книге​​ управления на листе​​ краткое описание действий​​, которая по умолчанию​​ Basic.​​ она еще не​​ относящиеся к Excel.​​ и сообщить, помогла​​ Excel 2010 без​

Работа с макросами, записанными в Excel

​ создавать свои специфические​​Макрос для объединения пустых​​ за отображение нужной​​ аргументам Val1 и​​Columns​ iFib iFib =​и вывод на​Закрываем редактор, и запускаем​​ (файле), но при​​Вы можете назначать макросы​ макроса.​​ скрыта, поэтому сначала​​Назначение макроса объекту, фигуре​

​ существует) и сохранит​​ Процесс макроса может​ ли она вам,​ программирования кода​ инструменты. Для этого​ ячеек в строках​ вкладки.​ Val2 значения ячеек​, и показано, как​ iFib_Next End If​ экран окна сообщения.​ макрос, как и​

​ желании можно установить​ формам и элементам​Хотя это необязательная в​

​ нужно включить ее.​

​ или графическому элементу​

Работа с записанным кодом в редакторе Visual Basic (VBE)

​ краткое описание действий​ приложений (VBA). Например,​ (на английском языке).​ арсенале программы Excel.​ (VBA), а его​ всех строках таблицы​ > «Запись макроса».​ Settings Sub Set_Values(Val1​. Показано так же,​ с индексом i​ активного листа Sub​ одна ячейка с​ по умолчанию.​щелкните​ быть полезны для​>​ нужно назначить существующий​ макроса.​ вы можете записать​

​Для автоматизации повторяющихся задач,​ Например, когда нужно​ выполняет инструмент приложения,​ Excel по горизонтали.​Запишите название, из которого​

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

​ As Double, Val2​ что при обращении​

• ​ Cells(i, 1).Value =​ Find_String(sFindText As String)​ данными. Она также​В самом нижнем поле​Visual Basic​ вас или других​Лента и панель​ макрос и выберите​Хотя поле «Описание» является​

• ​ макрос, который сначала​ вы можете записать​ автоматически выделить каждую​ к которому он​ Как автоматически объединить​

• ​ будет ясно, что​ As Double) Dim​ к ячейке или​ iFib ‘Вычисляем следующее​ Dim i As​ была включена в​ настройки макросов можно​или выберите​ пользователей, которые будут​.​ команду​ необязательным, рекомендуется его​ обновляет таблицу в​ макрос с средство​ вторую строку одним​ присоединен. Большинство этих​

​ все пустые ячейки?​ макрос делает.​​ DataWorkbook As Workbook​​ диапазону ячеек на​ число Фибоначчи и​ Integer ‘Целое число​

1. ​ расчет общей суммы.​​ оставить любое подходящее​​Сервис​​ выполняться макрос. При​​В категории​​Назначить макрос​​ заполнить. Кроме того,​

2. ​ Excel, а затем​​ записи макросов в​​ кликом. Или нужно​​ инструментов не доступно​​Макрос для объединения всех​​Выберите подходящее сочетание клавиш​​ On Error GoTo​ активном листе, имя​​ увеличиваем индекс позиции​​ типа Integer, используется​

​В случае, если макрос​ по контексту описание​

1. ​>​​ создании много макросы,​​Настроить ленту​​.​​ желательно ввести понятное​

2. ​ открывает Outlook для​​ Microsoft Excel. Представьте​​ одновременно создать сразу​ на уровне окна​ пустых ячеек в​ для быстрого вызова​ ErrorHandling ‘Открываем рабочую​

   ​ этого листа при​​ элемента на 1​ в цикле For​ слишком большой, его​ данного макроса. Но,​Макрос​ описание помогут вам​в списке​В поле​ описание, которое будет​ ее отправки по​ имеют даты в​ определенное количество копий​ программы Excel. Как​ таблице Excel.​ макроса (оно не​ книгу с данными​

3. ​ записи ссылки указывать​​ iFib_Next = iFib​​ Dim iRowNumber As​ выполнение может занять​ это делать не​

   ​>​ быстро определять, какие​​Основные вкладки​​Назначить макроса​ полезно вам и​ электронной почте.​ форматах случайных и​ определенного рабочего листа.​ написать макрос.​Пример как автоматически​ должно дублировать ваши​ Set DataWorkbook =​ не обязательно.​ + iStep i​ Integer ‘Целое число​ значительное время. Но,​ обязательно.​Редактор Visual Basic​ макрос по исполнителям,​установите флажок​выберите макрос, который​ всем, кто запускает​Чтобы записать макрос, следуйте​ вы хотите применить​ Список потребностей пользователей​

4. ​Теперь продемонстрируем на примере​ убрать пустые ячейки​ часто используемые горячие​​ Workbooks.Open(«C:Documents and SettingsData»)​​’Процедура Sub при​ = i +​ типа Integer для​ путем внесения ручного​Когда все настройки выполнены,​.​ в противном случае​Разработчик​ вы хотите назначить.​ макрос. Если у​ инструкциям ниже.​ ко всем адресам​

5. ​ в автоматизации процессов​​ информацию о том,​​ с помощью их​ клавиши Windows, например,​ ‘Присваиваем переменным Val1​

   ​ помощи цикла считывает​ 1 Loop End​ хранения результата iRowNumber​ изменения в код,​ жмем на кнопку​Поиск справки по использованию​ может потребоваться угадать.​, а затем нажмите​Назначение макроса кнопке​ вас много макросов,​На вкладке​ единый формат. Макрос​ работы можно продолжать​ как писать, редактировать​ объединения с использованием​

6. ​ CTRL+C/CTRL+V).​ и Val2 значения​​ значения в столбце​​ Sub​

7. ​ = 0 ‘Просматривает​ мы можем ускорить​

8. ​ «OK».​​ редактора Visual Basic​​Чтобы начать запись макроса,​​ кнопку​​Вы можете назначить макрос​

Работа с макросами, записанными в Excel

​ описания помогут быстро​​Разработчик​​ сделать это за​​ до бесконечности.​​ и выполнять код​ макроса. Автоматизированное форматирование​Список «Сохранить в…» отвечает​ из заданной рабочей​​ A рабочего листа​​Эта процедура​

​ одну за другой​​ процесс. Добавляем команду​После этого, все ваши​Узнайте, как найти справку​ нажмите кнопку​Сохранить​ значку и добавить​ определить, для чего​в группе​ вас. Запись макроса,​Если бы не было​ макроса.​

​ больших таблиц. ​ за область применения​ книги Val1 =​

​ Лист2, ‘выполняет с​

​Sub​

support.office.com

Создание макросов в программе Microsoft Excel

​ A активного рабочего​ тех пор, пока​ i = 1​ Это достигается путем​ пор, пока вы​ работу с документами​На вкладке​Разработчик​ управления на листе​.​-ИЛИ-​При записи макроса все​

​ множество операций в​ Basic». Или нажмите​

Способы записи макросов

​ объединение для всех​ компьютере документах, выбирайте​

• ​ не найден, пользователю​
• ​ листа (Лист1) Sub​

​ не встретит пустую​ To 100 If​ отказа от обновления​ сами не остановите​ в этом табличном​Разработчик​нажмите кнопку​Вы можете назначать макросы​Выполните действия, которые нужно​Нажмите​ необходимые действия записываются​ процессе рутинной работы​ комбинацию горячих клавиш​

​ выделенных ячеек по​ пункт «Личная книга».​ будет предложено поместить​ Transfer_ColA() Dim i​ ячейку. Значения записываются​ Cells(i, 1).Value =​ экрана во время​ запись.​

Автоматическая запись макросов

​ редакторе. Это достигается​щелкните​Запись макроса​ формам и элементам​

​ записать.​ALT​ в виде кода​ пользователям приходилось бы​ ALT+F11.​ строкам и столбцам​

​Заполните описание (перечислите все​ искомый файл ‘в​ As Integer Dim​ в массив. Этот​ sFindText Then ‘Если​ выполнения вычислительных действий.​Для примера, запишем простейшее​ путем автоматизации повторяющихся​Остановить запись​.​ ActiveX на листе.​На вкладке​+​ Visual Basic для​

​ выполнять вручную (выделять​Перед началом работы в​ сохранив и заполнив​ записываемые действия).​ нужную папку и​ Col As Range​ простой макрос Excel​ совпадение с заданной​ Чтобы возобновить обновление​ арифметическое действие: сложение​ действий, записанных в​.​

​В поле​Включение и отключение макросов​Разработчик​T​ приложений (VBA). Такими​ через одну строку​ редакторе следует сделать​ текст, которых содержится​Чтобы начать запись, нажмите​ после этого продолжить​ Dim dVal As​ показывает работу с​

​ строкой найдено ‘сохраняем​ после выполнения макроса,​ содержимого трёх ячеек​ специальный код. Давайте​На вкладке​Имя макроса​ в файлах Office​

​в группе​+​ действиями может быть​

​ кликая по каждому​ простую настройку. Выберите​ в них?​ «ОК». В углу​ выполнение макроса MsgBox​ Double ‘Присваиваем переменной​ динамическими массивами, а​ номер текущей строки​

​ в его конце​ (=C4+C5+C6).​ разберем, как создать​Разработчик​

​введите название макроса.​Узнайте, как включать и​Код​M​ ввод текста или​ второму заголовку мышкой​

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

​ инструмент в редакторе​Как объединить столбцы в​ экрана появится специальный​ «Файл Data.xlsx не​ Col столбец A​ также использование цикла​ и выходим из​ пишем команду «Application.ScreenUpdating​

​После этого, жмем на​ макросы в программе​щелкните​ Сделайте имя понятным,​ отключать макросы в​нажмите кнопку​+​

​ чисел, выбор ячеек​ или копировать вставлять​ Visual Basic: «Tools»-«Options».​ Excel используя макрос.​ значок.​ найден! » &​ рабочего листа Лист​Do Until​ цикла For iRowNumber​ = True»​ кнопку «Остановить запись».​ Excel, и как​

​Макросы​ чтобы можно было​ файлах Office.​Остановить запись​

Редактирование макроса

​R​ или команд на​ по одному листу).​ И на вкладке​Автоматическое горизонтальное объединение​Проделайте нужные действия с​ _ «Пожалуйста добавьте​

​ 2 Set Col​. В данном примере​ = i Exit​Добавим также команду «Application.Calculation​

​ Эта кнопка преобразовалась​ их можно отредактировать.​, чтобы просмотреть макросы,​ быстро найти нужный​Открытие редактора Visual Basic​.​.​ ленте или в​ Ручная работа в​ «Editor» активируйте опцию​ всех выделенных ячеек​ ячейками.​ рабочую книгу в​ = Sheets(«Лист2»).Columns(«A») i​ мы не будет​

​ For End If​ = xlCalculationManual» вначале​ из кнопки «Запись​

​Скачать последнюю версию​
​ связанные с книгой.​

​ макрос.​Нажмите клавиши​-ИЛИ-​

​В поле​ меню, форматирование ячеек,​ лучшем случаи приводить​ «Require Variable Declaration».​ по столбцам таблицы​Нажмите «Остановить запись» во​ папку C:Documents and​ = 1 ‘При​ совершать какие-либо действия​ Next i ‘Сообщаем​

​ кода, а в​ макроса», после включения​ Excel​ При этом откроется​Примечание:​ALT+F11​Нажмите​Имя макроса​ строк или столбцов​ к потере огромного​ Это позволит реализовать​ с помощью VBA​ вкладке «Разработчик» >​ Settings и нажмите​ помощи цикла считываем​ с массивом, хотя​ пользователю во всплывающем​ конце кода дописываем​ записи.​Макрос можно записать двумя​ диалоговое окно​

​ Первым символом имени макроса​.​ALT​введите название макроса.​ и даже импорт​ количества времени, а​ автоматическое заполнение инструкций​ макроса. Как одновременно​ «Код».​ OK» Resume End​ значения ячеек столбца​ в реальной практике​ окне найдена ли​ «Application.Calculation = xlCalculationAutomatic».​Для того, чтобы проверить,​ способами:​Макрос​

Написание кода макроса с нуля

​ должна быть буква.​Поиск справки по использованию​+​ Сделайте имя понятным,​ данных из внешнего​ в худшем –​ Options Explicit в​ объединить ячейки в​Обратите внимание: макросы Excel​ Sub​ Col до тех​ программирования после того,​

​ искомая строка ‘Если​ Этим мы вначале​ как работает записанный​

​автоматически;​.​

​ Последующие символы могут​ редактора Visual Basic​T​ чтобы можно было​ источника, такого как​ ведет к ошибкам​ начале каждого ново​ нескольких выделенных диапазонах?​ могут запомнить относительные​Урок подготовлен для Вас​ пор, ‘пока не​ как данные записаны​ заданная строка найдена,​ макроса отключаем автоматический​ макрос, кликаем в​

​вручную.​

lumpics.ru

Примеры макросов Excel

​Примечание:​ быть буквами, цифрами​Узнайте, как найти справку​+​ быстро найти нужный​

Макрос Excel: пример 1

​ Microsoft Access. Visual​​ или даже потере​​ созданного кода. А​Как объединить ячейки в​ или абсолютные ссылки​ командой сайта office-guru.ru​ встретится пустая ячейка​ в массив, над​ указываем в какой​ пересчет результата после​ том же блоке​​Воспользовавшись первым вариантом, вы​​ Макросы нельзя отменить. Прежде​​ или знаками подчеркивания.​​ по элементам Visual​M​

​ макрос.​ Basic для приложений​ ценных данных.​ в поле ввода​ Excel с помощью​ на ячейки. Если​Источник: http://www.excelfunctions.net/Excel-Macro-Example.html​ Do Until IsEmpty(Col.Cells(i))​ ними такие действия,​ ячейке найдено совпадение​ каждого изменения ячеек,​ инструментов «Код» по​ просто записываете определенные​ чем впервые запускать​ В имени макроса​ Basic.​+​Примечание:​ (VBA) является частью​Возможность создавать макросы и​ «Tab Width:» укажите​ кода макроса VBA.​ вы не выбрали​Перевел: Антон Андронов​ ‘Выполняем арифметические операции​ как правило, совершаются.​ If iRowNumber =​ а в конце​ кнопке «Макросы», или​ действия в программе​ записанный макрос, сохраните​ не должно содержаться​С помощью редактора Visual​R​ Первым символом имени макроса​ языка программирования Visual​ автоматизировать рабочие процессы​ значение 2 вместо​Как можно быстро​ соответствующую опцию, во​Автор: Антон Андронов​ над значением текущей​’Процедура Sub сохраняет​ 0 Then MsgBox​ макроса – включаем.​ жмем сочетание клавиш​ Microsoft Excel, которые​ книгу или создайте​ пробелов; в качестве​

Макрос Excel: пример 2

​ Basic (VBE) вы​​.​​ должна быть буква.​ Basic. Он доступен​​ бережет вашу работу​​ 4-х. Это позволит​ объединять ячейки для​ время записи макрос​В приложениях Excel, Word​ ячейки dVal =​ значения ячеек столбца​​ «Строка » &​​ Таким образом, Excel​

​ Alt+F8.​ выполняете в данный​ ее копию, чтобы​ разделителей слов следует​ можете добавлять в​На вкладке​ Последующие символы могут​ в большинстве приложений​ от лишних потерь​ уменьшить ширину кода.​ таблиц со сложной​ запомнит, что действия​ и Power Point​ Col.Cells(i).Value * 3​ A активного листа​ sFindText & «​ подсчитает результат только​После этого, открывается окно​ момент времени. Потом,​ предотвратить внесение нежелательных​ использовать знаки подчеркивания.​ записанный код собственные​Разработчик​ быть буквами, цифрами​ Office. Хотя VBA​ времени и возникновения​ Данная настройка редактора​ структурой используя простые​ нужно применять именно​ вы можете создавать​ — 1 ‘Следующая​ в массиве Sub​ не найдена» Else​ один раз, а​ со списком записанных​ можно будет воспроизвести​ изменений. Если вас​ Если используется имя​ переменные, управляющие структуры​щелкните​ или знаками подчеркивания.​ позволяет автоматизировать процессы​ ошибок. Далее рассмотрим,​ распространяется на все​ макросы? Пример готового​ к той ячейке,​ собственные команды, называемые​ команда записывает полученный​ GetCellValues() Dim iRow​ MsgBox «Строка «​ не будет его​ макросов. Ищем макрос,​ эту запись. Данный​

Макрос Excel: пример 3

​ не устраивают результаты​​ макроса, являющееся ссылкой​​ и другие элементы,​​Макросы​​ В имени макроса​ в приложениях Office​ как создать макрос,​ листы, но в​ VBA кода макроса​ которую вы выделили.​ макросами. Они автоматизируют​ результат в столбец​ As Integer ‘Хранит​​ & sFindText &​​ постоянно пересчитывать, чем​ который мы записали,​ способ очень легкий,​ выполнения макроса, вы​ на ячейку, может​ которые не поддерживает​, чтобы просмотреть макросы,​ не должно содержаться​ и между ними,​ который безошибочно и​

​ границах одной рабочей​ для объединения ячеек.​ Если вам придется​ выполнение рутинной работы,​ A активного рабочего​ номер текущей строки​ » найдена в​ сэкономит время.​ выделяем его, и​ и не требует​ можете закрыть книгу,​ появиться сообщение об​ средство записи макросов.​ связанные с книгой.​ пробелов; в качестве​ вам не нужно​ автоматически выполнить рутинную​ книги.​Как запустить макрос в​ работать с разными​ когда вам приходится​ листа ‘Имя листа​ Dim dCellValues() As​ ячейке A» &​Продвинутые пользователи могут выполнять​ жмем на кнопку​ знания кода, но​ не сохраняя ее.​ ошибке, указывающее на​ Так как средство​ Кроме того, можно​ разделителей слов следует​ уметь программировать или​ работу в один​Выберите инструмент: «Insert»-«Module» чтобы​ Excel разными способами.​ ячейками, выбирайте опцию​ постоянно применять к​ в ссылке указывать​

Макрос Excel: пример 4

​ Double ‘Массив для​​ iRowNumber End If​​ не только редактирование​ «Выполнить».​​ применение его на​​Ниже приведены дополнительные сведения​​ недопустимое имя макроса..​​ записи макросов фиксирует​ нажать клавиши​ использовать знаки подчеркивания.​ знать язык VBA,​​ клик мышкой. Так​​ создать новый стандартный​Как выполнить макрос​ про относительную ссылку.​ тексту или ячейкам​ нет необходимости, так​ хранения значений ячеек​​ End Sub​​ и оптимизацию записанных​​Можно поступить ещё проще,​​ практике довольно ограничено.​ о работе с​В списке​ почти каждый шаг,​​ALT+F8​​ Если используется имя​ так как все​ же рассмотрим в​ модуль для макросов.​ с помощью кнопки,​Работа с меню программы​ одинаковой оформление, вводить​ как это активный​

​ iRow = 1​Следующая процедура​ макросов, но и​ и не вызывать​Ручная запись макросов, наоборот,​ макросами в Excel.​Сохранить в​ выполняемый во время​. При этом откроется​ макроса, являющееся ссылкой​ нужные действия выполнит​ каких местах рабочей​ В появившемся окне​ панели быстрого запуска​ (переключение вкладок) и​ похожие наборы формул​ лист. Cells(i, 1)​ ReDim dCellValues(1 To​Sub​ записывать код макросов​ даже окно выбора​ требует знаний программирования,​Задача​выберите книгу, в​ записи, может также​ диалоговое окно​ на ячейку, может​ средство записи макросов.​ книги Excel можно​ модуля под текстом​ и стандартными средствами​ переход к другим​ и т.д. Фактически,​ = dVal i​ 10) ‘Цикл Do​– пример использования​ с нуля. Для​ макросов. Мы же​ так как код​Описание​ которой вы хотите​ потребоваться удалить ненужный​Макрос​

Макрос Excel: пример 5

​ появиться сообщение об​Важно знать, что при​ создавать и хранить​ Option Explicit введите​ на панели инструментов​ окнам в рекордере​ макросы – это​ = i +​ Until перебирает последовательно​ цикла​ того, чтобы приступить​​ помним, что записали​​ набирается вручную с​Включение и отключение макросов​

​ сохранить макрос.​ код. Просмотр записанного​.​ ошибке, указывающее на​ записи макроса регистрируются​ макросы. Как их​ следующий код макроса:​ РАЗРАБОТЧИК?​ не записывается.​ маленькие программы, так​ 1 Loop End​ ячейки столбца A​Do While​ к этому, нужно​ сочетание «горячих клавиш»​ клавиатуры. Но, грамотно​Узнайте, как включать и​Как правило, макросы сохраняются​

Макрос Excel: пример 6

​ кода — отличный​Внимание:​​ недопустимое имя макроса..​​ почти все ваши​​ запустить и выполнить,​​Sub MyMakros()​Личная книга макросов в​Параметры безопасности​ как их запись​ Sub​

​ активного листа ‘и​. Здесь также можно​ нажать на кнопку​ для быстрого вызова​ написанный таким образом​ отключать макросы в​ в​ способ научиться программировать​ Макросы нельзя отменить. Прежде​Чтобы назначить сочетание клавиш​ действия. Поэтому если​ а также как​Dim polzovatel As​ Excel и как​Несмотря на уверения, что​ производится в скриптах​Данный макрос показывает пример​ извлекает их значения​ увидеть, как объявляются​ «Visual Basic», которая​ макроса. В нашем​ код, может значительно​ Excel для Mac.​той же книге​ на VBA или​ чем впервые запускать​ для запуска макроса,​ вы допустите ошибку,​ их максимально оптимизировать​ String​ ее использовать.​ приложение может самостоятельно​ Visual Basic. Однако​ кода VBA, отслеживающего​ в массив до​ переменные, работу со​ расположена в самом​ случае, это Ctrl+М.​

​ ускорить выполнение процессов.​Создание, выполнение, изменение или​
​, но если вам​
​ отточить свои навыки.​

​ записанный макрос, сохраните​

office-guru.ru

Макросы Excel – экономия вашего времени

​ в поле​ например нажмете не​ под свои потребности.​Dim data_segodnya As​Работа с личной​ контролировать макросы на​ даже далекий от​ событие Excel. Событие,​ тех пор, пока​ ссылками на ячейки​ начале ленты разработчика.​ Набираем данную комбинацию​Прежде, чем начать автоматическую​ удаление макроса ​ нужно, чтобы данный​Пример изменения записанного кода​ книгу или создайте​Сочетание клавиш​ ту кнопку, средство​Excel предоставляет большой и​ Date​

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

​После этого, открывается знакомое​

​ на клавиатуре, после​ запись макросов, нужно​Чтобы сэкономить время на​ макрос был всегда​ можно найти в​ ее копию, чтобы​введите любую строчную​ записи макросов зарегистрирует​ изобильный арсенал инструментов​polzovatel = Application.UserName​ краткий обзор ее​ не рекомендуется брать​

​ легко создавать и​ макрос, происходит каждый​ ячейка Do Until​ условного оператора​​ нам окно редактора​ чего макрос запускается.​ включить макросы в​ выполнении часто повторяющихся​ доступен при работе​ статье Начало работы​ предотвратить внесение нежелательных​ или прописную букву.​ это действие. В​ для хранения и​data_segodnya = Now​ преимуществ. Где находиться​ их из непроверенных​ редактировать их.​ раз при выделении​ IsEmpty(Cells(iRow, 1)) ‘Проверяем,​
​If​ VBE.​Как видим, макрос выполнил​

• ​ программе Microsoft Excel.​ задач, можно записать​
• ​ в Excel, выберите​ с VBA в​ изменений. Если вас​
• ​ Рекомендуется использовать сочетания​ таком случае можно​ обработки огромного количества​MsgBox «Макрос запустил​ личная книга макросов​ источников. Например, скачивать​Наиболее часто используются Excel-макросы.​
• ​ ячейки или диапазона​ что массив dCellValues​.​Программист пишет там код​ в точности все​Далее, переходим во вкладку​ соответствующую последовательность действий​ вариант Личная книга​
• ​ Excel.​ не устраивают результаты​
• ​ клавиш с​ снова записать всю​ информации с данными.​ пользователь: » &​
• ​ и как записывать​ готовые из интернета.​
• ​ С их помощью​ ячеек на рабочем​ имеет достаточный размер​

​’Процедура Sub выводит​ макроса вручную.​ те действия, которые​ «Разработчик». Кликаем по​ в виде макроса.​ макросов. Если вы​Перед записью макросов полезно​ выполнения макроса, вы​CTRL​ последовательность или изменить​ Хотя для самой​ polzovatel & vbNewLine​ в нее свои​ Можно доверять мнению​ можно создавать даже​

​ листе. В нашем​ ‘Если нет –​ числа Фибоначчи, не​Как видим, макросы в​ были записаны ранее.​

​ кнопке «Запись макроса»,​

​ Узнайте, как создавать​ выберете этот параметр,​ знать следующее:​ можете закрыть книгу,​+​ код VBA. Поэтому​ универсальной аналитической программы​ & data_segodnya​ макросы?​ антивирусов, а макросы,​ документы-калькуляторы, например, для​ случае при выделении​ увеличиваем размер массива​ превышающие 1000 Sub​

​ Microsoft Excel могут​Для того, чтобы отредактировать​ которая расположена на​ и выполнять макросы.​ Excel создаст скрытую​Макрос, записанный для работы​ не сохраняя ее.​SHIFT​ перед записью процесса​ Excel – хранение​End Sub​Как создать и добавить​ используемые на нескольких​

​ подсчета ежемесячного бюджета​

fb.ru

Возможности макросов в Excel исходные коды и описание

​ ячейки​ на 10 при​ Fibonacci() Dim i​ значительно ускорить выполнение​ макрос, снова жмем​ ленте в блоке​

Примеры возможностей макросов с описанием кодов

​Копирование модуля макроса в​ личную книгу макросов​ с диапазоном Excel,​
​Ниже приведены дополнительные сведения​, так как они​ следует хорошо проработать​ данных само по​Нажмите на кнопку в​ надстройку в Excel​​ компьютерах в офисе,​ компании.​B1​
​ помощи ReDim If​ As Integer ‘Счётчик​ рутинных и однообразных​ на кнопку «Макросы».​ инструментов «Код».​ другую книгу​ Personal.xlsb (если она​​ будет выполняться только​ о работе с​ будут заменять собой​
​ его. Чем точнее​ себе менее интересно,​ редакторе «Run Macro»​ с кодом VBA.​ рекомендуется снабдить цифровой​Запись макроса​​, на экран выводится​ UBound(dCellValues) < iRow​ для обозначения позиции​
​ процессов. Но, в​ В открывшемся окне​Открывается окно настройки записи​Если книга содержит макрос​ еще не существует)​ для ячеек этого​ макросами в Excel.​​ совпадающие с ними​ вы запишете последовательность,​
​ чем возможность их​ или клавишу F5​Практическое пошаговое руководство​ подписью.​Создать макрос можно двумя​ окно с сообщением.​ Then ReDim Preserve​​ элемента в последовательности​ большинстве случаев, для​ выбираем нужный макрос,​
​ макроса. Тут можно​ VBA, который нужно​ и сохранит макрос​ диапазона. Поэтому если​Задача​ стандартные сочетания клавиш​ тем более эффективно​​ обрабатывать, структурировать и​ на клавиатуре. В​
​ по созданию надстроек​По умолчанию использование макросов​ способами. Первый –​’Данный код показывает​ dCellValues(1 To iRow​ Dim iFib As​​ этого больше подходят​ и кликаем по​ указать любое имя​
​ использовать где-либо еще,​ в нее. Книги​ вы добавите в​Описание​ в Excel, пока​ будет работать макрос.​ анализировать с презентацией​ появившемся окне «Macros»​​ с VBA кодом​ в документах обычно​ написать скрипт VB​
​ окно с сообщением,​ + 9) End​ Integer ‘Хранит текущее​ макросы, код которых​ кнопке «Изменить».​ макроса, если установленное​​ этот модуль можно​ из этой папки​ диапазон новую строку,​
​Изменение параметров безопасности макросов​ открыта книга, содержащая​Макросы и средства VBA​ в отчетах. Для​ нажмите на кнопку​ программ макросов. Управление,​ отключено. Включить макросы​ с нуля. Так​

exceltable.com

Как написать макрос в Excel на языке программирования VBA

​ если на текущем​ If ‘Сохраняем значение​ значение последовательности Dim​ написан вручную, а​Открывается Microsoft Visual Basic​ по умолчанию вас​ скопировать в другую​ автоматически открываются при​ макрос не будет​ в Excel​ макрос. Например, если​ находятся на вкладке​ этих целей служит​ «Run», чтобы посмотреть​ редактирование и удаление​ Excel можно, если​

Написание макросов в Excel

​ поступают программисты. Второй​ рабочем листе ‘выбрана​ текущей ячейки в​ iFib_Next As Integer​ не автоматически записанные​ (VBE) – среда,​ не устраивает. Главное,​ книгу с помощью​ каждом запуске Excel,​ применяться к ней.​Сведения о параметрах безопасности​

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

​ зайти во вкладку​

1. ​ способ проще: нужно​ ячейка B1 Private​ массиве dCellValues dCellValues(iRow)​ ‘Хранит следующее значение​ действия. Кроме того,​ где происходит редактирование​
2. ​ чтобы имя это​ редактора Microsoft Visual​ а макросы, сохраненные​Если вам нужно записать​ макросов и их​CTRL+Z​, которая по умолчанию​ по обработке данных​Примечание. Если в главном​Как написать макрос в​ «Разработчик» и далее​ включить запись всех​ Sub Worksheet_SelectionChange(ByVal Target​ = Cells(iRow, 1).Value​ последовательности Dim iStep​ код макроса можно​ макросов.​ начиналось с буквы,​ Basic.​ в таких книгах,​ длинную последовательность задач,​ значении.​(Отменить), вы не​
3. ​ скрыта, поэтому сначала​ такой как «Сводные​ меню отсутствует закладка​ Excel на языке​ «Код» > «Безопасность​ действий в специальном​ As Range) ‘Проверяем​​ iRow = iRow​
​ As Integer 'Хранит​ оптимизировать через редактор​
​Запись каждого макроса начинается​ а не с​
​Назначение макроса объекту, фигуре​
​ указываются в окне​
​ советуем вместо этого​Запуск макроса​ сможете использовать его​ нужно включить ее.​
​ таблицы». Но и​

4. ​ «РАЗРАБОТЧИК», тогда ее​ программирования VBA.​ макросов» > «Параметры​ рекордере и просто​ выбрана ли ячейка​ + 1 Loop​ размер следующего приращения​ VBE для ускорения​

​ с команды Sub,​ цифры. Также, в​ или графическому элементу​ «Макрос» (см. следующий​ использовать несколько более​Макросы можно запускать различными​ для функции «Отменить»​ Дополнительные сведения см.​ его можно еще​ необходимо активировать в​

​Как создать макрос​

Возможности макросов в Excel

​ макросов» > «Включить​ еще раз выполнить​ B1 If Target.Count​ End Sub​ ‘Инициализируем переменные i​ процесса выполнения задачи.​ а заканчивается командой​ названии не должно​На листе щелкните правой​ раздел).​ мелких макросов.​

​ способами, например с​ в данном экземпляре​ в статье Отображение​ более усовершенствовать с​

​ настройках: «ФАЙЛ»-«Параметры»-«Настроить ленту».​ с помощью редактора​ все» > «ОК».​ те процедуры, которые​ = 1 And​В этом примере процедура​ и iFib_Next i​Автор: Максим Тютюшев​ End Sub. Сразу​ быть пробелов. Мы​ кнопкой мыши объект,​Чтобы назначить сочетание клавиш​В макросе могут содержаться​ помощью сочетания клавиш,​ Excel.​ вкладки «Разработчик».​

​ помощью макросов. И​ В правом списке​ кода языка программирования​ Изменения вступят в​ вы хотите автоматизировать.​ Target.Row = 1​Sub​ = 1 iFib_Next​Следующие простые примеры макросов​ же после команды​ оставили название по​ рисунка, фигуры или​ для запуска макроса,​ и задачи, не​ графического объекта, панели​В списке​Перед записью макросов полезно​ тогда возможности сводных​ «Основные вкладки:» активируйте​ Visual Basic for​ силу во время​Разберем, как записывать макросы​

​ And Target.Column =​считывает значения из​ = 0 ‘Цикл​ Excel иллюстрируют некоторые​ Sub указывается имя​ умолчанию – «Макрос1».​ элемент, к которому​ в поле​ относящиеся к Excel.​ быстрого доступа, кнопки​Сохранить в​ знать следующее:​ таблиц не знают​ галочкой опцию «Разработчик»​ Application? Краткий обзор​ следующего открытия файла.​ в Excel 2007​ 2 Then ‘Если​ столбца​ Do While будет​

​ возможности и приёмы,​ макроса. Оператор «Range(«…»).Select»​Тут же, при желании,​ нужно назначить существующий​Сочетание клавиш​ Процесс макроса может​ или даже при​выберите книгу, в​Макрос, записанный для работы​ границ.​ и нажмите на​ основных возможностей макросов.​Автор: varvara-ai​ при помощи макрорекордера​ ячейка B1 выбрана,​A​ выполняться до тех​ описанные в самоучителе​ указывает выбор ячейки.​ можно установить сочетание​ макрос и выберите​введите любую строчную​ охватывать прочие приложения​ открытии книги.​ которой вы хотите​

exceltable.com

​ с диапазоном Excel,​

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

Как записать самый простой макрос?

Для начала запишем самый легкий макрос — зададим в ячейке А1 формат вида 12 345:

•  Открываем новую книгу, в ячейке А1 набираем шестизначное число 123456. Сейчас оно выдается без разделителей разрядов. Запишем макрос, который ставит эти разделители.
•  Заходим на панели инструментов в закладку Вид*, находим кнопку Макросы, жмем Запись макроса. В появившемся окне задаем имя макроса и книгу, в которой хотим этот макрос сохранить.

Важно

Запустить макросы можно только из открытых книг, поэтому если вы планируете использовать записанные вами макросы довольно часто, стоит использовать специальную книгу макросов, которая автоматически открывается вместе с запуском сеанса Excel.

Если вы все-таки хотите хранить макросы в отдельном файле, эту книгу нужно сохранить, выбрав тип файла Книга Excel с поддержкой макросов. В противном случае после закрытия книги макросы будут стерты.

•  Выбираем Сохранить в… —  Личная книга макросов и нажимаем Ок (рис. 1).

Рис. 1. Запись макроса в личную книгу макросов

•  Записываем в макрос действия, которые хотим выполнить: вызываем контекстное меню Формат ячеек (можно воспользоваться комбинацией клавиш Сtrl+1) и задаем нужный нам формат числа: на закладке Число идем в блок (все форматы) и выбираем там формат вида # ##0.

К сведению

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

•  На закладке Вид — Макросы выбираем пункт Остановить запись.

Второй, более быстрый способ остановить запись макроса — нажать на появившийся в левом нижнем углу синий квадратик (рис. 2.).

Мы рекомендуем

Всегда обращайте внимание на этот квадратик: если он появился на панели, значит, сейчас идет запись всех ваших действий в макрос. Не забывайте вовремя останавливать запись макроса, чтобы потом его не пришлось переделывать.

Проверяем, что макрос записан и работоспособен:

•  в ячейку А2 вбиваем любое шестизначное число;
•  запускаем макрос одним из двух способов: на закладке Вид — Макросы выбираем пункт Макросы или нажимаем комбинацию клавиш Alt+F8, находим в списке наш макрос и нажимаем кнопку Выполнить.

Рис. 2. Форматирование числа и остановка записи макроса

Итак, вы записали свой первый макрос! Примите поздравления. Теперь давайте познакомимся с личной книгой макросов и синтаксисом написания команд для макроса.

Личная книга макросов

По умолчанию Excel не отображает личную книгу макросов. Чтобы убедиться, что она открыта, выбираем на вкладке Вид кнопку Отобразить — в появившемся окне должна быть книга под именем PERSONAL.

Мы убедились, что книга открыта, но отображать ее не будем, чтобы потом по ошибке не закрыть ее. По сути, в этой книге нас интересует так называемый Исходный текст — блок, в котором записываются макросы. Чтобы увидеть это окно, нажмите клавиши Alt+F11 или кликните правой кнопкой мыши на ярлыке любого листа Excel и выберите в контекстном меню Исходный текст. Откроется окно VBA-кодирования в Excel (рис. 3). Оно состоит из двух блоков:

1. В левой части экрана окно Project – VBAProject — это проводник, в котором отображаются все открытые в данный момент книги Excel (даже если вы их не видите, как, например, книгу Personal). Работа с этим блоком аналогична работе в обычном проводнике — двойной клик по наименованию книги раскрывает ее содержимое. Нас интересует блок Modules — Module1. Кликаем левой кнопкой мыши дважды по этому объекту.

2. В правой части экрана откроется блок записи и редактирования макросов. Здесь уже автоматически записался Макрос1. Рассмотрим на его примере основную канву макроса.

Рис. 3. Окно VBA-кодирования в Excel

Синтаксис макроса

Макросы — это команды, написанные на языке VBA (Visual Basic for Applications). И синтаксис кода макроса не отличается от записи кода в Visual Basic.

Любой макрос имеет следующий вид:

Sub Имя_Макроса_Без_Пробелов()

‘ комментарии к макросу — они нужны для вас, VBA не воспринимает такие строки как команды

команды, написанные на языке VBA

End Sub

3 обязательных блока макроса:

1. Начало макроса. Всегда начинается с команды Sub. Далее идет имя макроса — оно может быть на русском языке, но не должно содержать пробелы и специальные символы.

В конце имени макроса всегда ставятся скобки () — они нужны, когда вы создаете свою функцию, в них указываются аргументы функции, но об этом сейчас речь не пойдет.

2. Блок команд. В нашем примере он состоит из одной строки: Selection.NumberFormat = «#,##0»

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

3. Конец макроса. Всегда обозначается как End Sub.

Есть и один необязательный блок — это комментарии, которые вы можете оставлять в любом месте внутри кода макроса, поставив перед началом комментариев знак апострофа ‘. Например, вы можете описать, что именно делает тот или иной макрос.

Обратите внимание!

Если вы хотите разместить комментарии в несколько строк, каждую новую строку надо начинать с апострофа.

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

Например, информационная система выдает отчет «Бюджет на месяц» без выделения групповых значений цветом или шрифтом.

Нам необходимо:

•  выделить групповые строки полужирным шрифтом;
•  отформатировать на печать — расположить отчет по центру листа, задать масштаб 75 %, вывести в колонтитулы название отчета (рис. 4).

Рис. 4. Изменения после написания макроса

Запишем алгоритм форматирования отчета в макрос.

Нажимаем кнопку записи макроса и выполняем следующие действия:

•  Даем макросу имя Форматирование_БДР, в блоке описания записываем, что будет делать этот макрос (например, Выделяет жирным курсивом итоги, форматирует на печать). Жмем Ок.
•  Выделяем столбцы А:С, ставим автофильтр — на закладке Данные находим кнопку Фильтр.
•  По столбцу КОД задаем условие не содержит точку: Текстовые фильтры — Не содержит и в поле текста ставим символ точки без пробелов (рис. 5).

Рис. 5. Использование автофильтра по столбцу «КОД»

•  Выделяем отфильтрованный диапазон и задаем ему полужирный шрифт.
•  Снимаем автофильтр (повторное нажатие на закладке Данные кнопки Фильтр).
•  Заходим в меню форматирования на печать (Кнопка Файл/Office — Печать — Предварительный просмотр — Параметры страницы) и задаем там три параметра:

1) на вкладке Страница задаем масштаб 75 %;

2) на вкладке Поля отмечаем пункт Горизонтально в блоке Центрировать на странице;

3) на вкладке Колонтитулы создаем верхний колонтитул с текстом Бюджет на январь.

•  Выходим из параметров страницы.
•  Заканчиваем запись макроса.
•  Нажимаем Alt+F11 и смотрим, что получилось (см. рис. 4).

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

Правила написания команд в VBA

Любая команда макроса состоит из двух блоков, разделенных точкой:

Объектами в Excel являются, например:

•  книга: WorkBook, ActiveWorkbook;
•  лист, листы: WorkSheet, ActiveSheet, Sheets;
•  ячейка: Cells(1,1) — в скобках указываются номера строки (Row) и столбца (Column) ячейки на листе;
•  диапазон ячеек (может быть и одна ячейка): Range(«А1:С5»), Range(«А1»);
•  строки (Rows);
•  столбцы (Columns);
•  выделение (Selection) — выделенный в данный момент диапазон (это может быть как несколько смежных ячеек, так и смежные строки или столбцы).

Примеры действий с объектами:

•  ActiveWorkbook.Save — сохранить рабочую книгу (та, которая была активна в момент вызова пользователем макроса);
•  Sheets(«Лист3»).Name = «Отчет» — переименовать «Лист3» в «Отчет»;
•  Sheets(«Отчет»).Activate — перейти на лист с названием «Отчет»;
•  Range(«А1»).Copy — скопировать в буфер обмена данные из ячейки А1;
•  Rows(«13:13»).Delete Shift:=xlUp — удалить строку 13 со сдвигом вверх.

Примеры свойств объектов:

•  ActiveCell.FormulaR1C1 = «БДР» — в выделенной (активной) ячейке записан текст «БДР»;
•  ActiveCell.Row < 65 — номер ряда активной ячейки меньше 65.

Помнить все названия объектов, команд и свойств для написания несложных макросов не обязательно. Вы всегда можете сначала записать ваши стандартные действия с отчетами в Excel, а потом отформатировать код макроса, убрав из него лишние действия или заменив некоторые заданные параметры (например, длину диапазона) на переменные (которые в дальнейшем макрос будет запрашивать у пользователя или рассчитывать самостоятельно).

Но об этом мы расскажем далее, а сейчас обратимся к коду нашего первого макроса, состоящего из одной строки:

Суть его в следующем: к объекту Выделенный диапазон (у нас одна ячейка, но это может быть и весь столбец/строка или диапазон смежных ячеек) применяется свойство Числовой формат вида # ##0 (если помните, именно этот формат мы выбрали в списке).

Код макроса Форматирование_БДР и расшифровка строк кода представлены в таблице.

Редактирование макроса

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

Sub Форматирование_БДР()

‘ Макрос выделяет жирным курсивом итоги, форматирует отчет на печать

‘——————

‘ Выделяем столбцы и ставим фильтр по столбцу КОД

 Columns(«A:C»).Select

 Selection.AutoFilter

 ActiveSheet.Range(«$A$1:$C$34″).AutoFilter Field:=1, Criteria1:=»<>*.*», _

 Operator:=xlAnd

‘ Выделяем отфильтрованный диапазон полужирным шрифтом, снимаем фильтр

 Range(«A1:C34»).Select

 Selection.Font.Bold = True

 Selection.AutoFilter

 ‘ Форматируем на печать: верхний колонтитул, центрирование по горизонтали, масштаб 75 %

 With ActiveSheet.PageSetup

 .CenterHeader = «Бюджет на январь»

 .CenterHorizontally = True

 .Zoom = 75

 End With

End Sub

Ввод в код макроса функций и процедур

Теперь усложним код макроса, задав ему два параметра:

1. Название месяца отчета запрашиваем у пользователя.

2. Последняя строка отчета БДР (в случае если она плавающая) рассчитывается в коде макроса.

Функция InputBox

Чтобы запросить у пользователя месяц отчета, воспользуемся функцией Inputbox, которая выводит диалоговое окно, в котором пользователь может самостоятельно задать значение переменной, используемой в коде. Синтаксис функции InputBox:

где Zapros — введенная вами переменная (имя придумываете вы сами), а в скобках через запятую перечисляются аргументы функции.

Обратите внимание: первый аргумент является обязательным, то есть любое диалоговое окно должно сопровождаться пояснительным текстом, чего вы ждете от пользователя. Следующие аргументы обязательными не являются и их можно не указывать. То есть если вы хотите задать значение по умолчанию, но не хотите писать текст в шапке диалогового окна, разделите первый и третий аргументы двумя запятыми, как это будет сделано в нашем примере (см. далее).

Для удобства присвойте полученное значение функции InputBox какой-нибудь введенной вами переменной, особенно если в коде макроса вы будете несколько раз использовать значение этой функции.

Важно

Имена вводимых переменных не должны совпадать с уже занятыми VBA словами под название объектов, свойств или функций!

В нашем примере присвоим результат вызова функции InputBox переменной Mes.

Например, нельзя завести свою переменную Range, Cells или Month — компилятор VBA предупредит вас, что делать этого нельзя, и не запустит макрос, пока вы не устраните ошибку (рис. 6).

Рис. 6. Пример ошибки при заведении переменной

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

Итак, приступим к редактированию кода макроса. Добавим в самое начало кода макроса строки:

Теперь при запуске макроса будет выводиться диалоговое окно, в котором пользователь самостоятельно сможет указать, за какой месяц этот отчет (рис. 7).

Рис. 7. Диалоговое окно для указания месяца

С помощью функции InputBox можно запросить у пользователя и длину отчета. Но мы научим Excel высчитывать ее самостоятельно. Для этого нам потребуется процедура While.

Процедура While

Используется в коде, если надо сделать одинаковые действия несколько раз подряд до тех пор, пока выполняется какое-либо условие. Синтаксис процедуры While:

Условие может состоять из одного выражения или содержать несколько, перечисленных через оператор AND (то есть оба условия должны быть выполнены) или OR (достаточно выполнения только одного из перечисленных условий). Также условие обязательно должно содержать переменную-счетчик (это может быть номер строки или столбца ячейки, значения которой вы проверяете).

В список команд обязательно должна входить команда наращивания переменной-счетчика, иначе процедура зациклится (так как она постоянно будет сравнивать одно и то же значение) и макрос придется прерывать принудительно.

Если макрос ушел в цикл, прервите его с помощью комбинации клавиш Ctrl+Break и либо прекратите макрос (кнопка End), либо зайдите в код макроса и исправьте ошибку (кнопка Debug). Чтобы макрос не уходил в цикл, рекомендуется включить в блок условий «защиту от дурака». Например, добавляем в условие проверку, чтобы значение счетчика не превышало определенной, заведомо достаточной для нас величины.

Рассмотрим применение процедуры While для поиска конца отчета БДР.

Как видно на рис. 4, последняя строка отчета имеет код «500». Напишем процедуру, которая будет проверять значения в ячейках столбца «А» и остановит свои действия, когда найдет ячейку с кодом «500».

Обратите внимание!

Excel иногда воспринимает числа как текст, поэтому включим два условия проверки значения ячейки и добавим «защиту от дурака» на случай, если в форме отчета случайно затрется код последней строки.

Помним, что все текстовые значения надо брать в кавычки. Числа записываем без кавычек:

‘ Ищем последнюю строку отчета

Dim Row_End As Integer     ‘ Вводим переменную «счетчик номера строки»

Row_End = 1             ‘ Присваиваем ей номер 1

‘ Начинаем процедуру поиска последней строки отчета по коду «500»

Do While Cells(Row_End, 1).Value <> «500» And Cells(Row_End, 1).Value <> 500 And Row_End < 100

‘ До тех пор, пока код не равен 500 и номер строки меньше 100, выполняем наращивание счетчика

Row_End = Row_End +1

Loop

Таким образом, процедура While нам нужна только для наращивания счетчика — никаких дополнительных действий она не производит. Запомните этот прием — он часто нужен в кодировании.

Теперь заменим в изначальном коде макроса номер последней ячейки (34) на переменную Row_End. Число 34 было частью текста А1:С34, а теперь нам надо часть текста заменить на переменную. Делается это с помощью символа амперсанд &:

В нашем случае ссылка на диапазон А1:С34 будет записана так: А1:С & Row_End.

Кроме того, вспоминаем, что и название отчета Бюджет на январь у нас тоже теперь содержит параметр и будет записываться так: Бюджет на & Mes.

Не забывайте оставлять пробелы в кавычках перед переменной-словом, иначе текст сольется.

Еще раз взглянем на получившийся код макроса:

Sub Форматирование_БДР()

‘ Макрос выделяет жирным курсивом итоги, форматирует отчет на печать

‘ ——————

‘ Запрашиваем у пользователя месяц отчета

Mes = InputBox(«Введите название месяца отчета», , «Январь»)

‘ Ищем последнюю строку отчета

Dim Row_End As Integer     ‘ Вводим переменную «счетчик номера строки»

Row_End = 1             ‘ Присваиваем ей номер 1

‘ Начинаем процедуру поиска последней строки отчета по коду «500»

‘ Критичным значением для «защиты от дурака» принимаем номер строки 100

Do While Cells(Row_End, 1).Value <> «500» And Cells(Row_End, 1).Value <> 500 And Row_End < 100

‘ До тех пор, пока код не равен 500 и номер строки меньше 100, выполняем наращивание счетчика

Row_End = Row_End +1

Loop

‘ Выделяем столбцы и ставим фильтр на КОД

 Columns(«A:C»).Select

 Selection.AutoFilter

 ActiveSheet.Range(«$A$1:$C$» & Row_End).AutoFilter Field:=1, Criteria1:=»<>*.*», _

 Operator:=xlAnd

‘ Выделяем отфильтрованный диапазон полужирным шрифтом, снимаем фильтр

 Range(«A1:C» & Row_End).Select

 Selection.Font.Bold = True

 Selection.AutoFilter

‘ Форматируем на печать: верхний колонтитул, центрирование по горизонтали, масштаб 75 %

 With ActiveSheet.PageSetup

 .CenterHeader = «Бюджет на » & Mes

 .CenterHorizontally = True

 .Zoom = 75

 End With

End Sub

Теперь макрос стал более универсальным. Добавим в него еще одну «защиту от дурака».

Если нам принципиально, правильно ли макрос нашел последнюю строку отчета, после окончания процедуры While (строка Loop) можно добавить блок проверки значения Row_End и запроса у пользователя подтверждения на продолжение макроса.

Для этого изучим функцию MsgBox, процедуру IF и команду Exit Sub.

Функция MsgBox

MsgBox — еще один способ общения с пользователем: сообщения ему какой-то информации по ходу выполнения макроса или запрос у него подтверждения по дальнейшим действиям макроса путем нажатия на кнопки вида Yes, No, Ок, Cancel.

Она имеет два вида записи:

1. Мы просто сообщаем пользователю какую-то информацию. В этом случае аргументы функции перечисляются сразу же за функцией, без использования скобок:

На экране отобразится диалоговое окно, и после нажатия пользователем кнопки Ок продолжится выполнение макроса (рис. 8).

Рис. 8. Первый вид записи функции MsgBox

Как и в случае с функцией InputBox, обязательным здесь является только первый аргумент — Текст сообщения. Остальные можно даже не указывать, сократив вид записи функции до вида:

2. Нам важно, что ответил пользователь, мы записываем его ответ в значение какой-то переменной (рис. 9). В этом случае аргументы функции заключаются в скобки, а перед функцией обязательно должна стоять переменная, в которую мы записываем, на какую кнопку нажал пользователь:

Рис. 9. Второй вид записи функции MsgBox

Варианты вида кнопок:

•  vbOKOnly — только кнопка ОК;
•  vbOKCanсel — кнопки ОК и Cancel;
•  vbYesNo — кнопки Yes и No;
•  vbYesNoCancel — кнопки Yes, No и Cancel.

Соответственно в зависимости от нажатой кнопки значения функции MsgBox могут быть vbOK, vbCancel, vbYes или vbNo.

Процедура If

С помощью данной процедуры можно разбить команды кода на две ветки в зависимости от выполнения заданного условия. Синтаксис процедуры If:

If <условие, которое должно быть верным> Then

 <список команд при выполнении указанного условия>

else

 <список команд при невыполнении указанного условия>

End If

Обязательным к заполнению является только условие. Список команд в обоих блоках заполнять не обязательно. В зависимости от ваших задач вы можете заполнить оба блока или только один из них. Условие может состоять из одного выражения или содержать несколько выражений, перечисленных через оператор AND (то есть оба условия должны быть выполнены) или оператор OR (достаточно выполнения только одного из перечисленных условий).

Команда Exit Sub

Прекращает выполнение макроса. Обычно ее используют в ветках процедуры If при проверке допустимости дальнейшего исполнения макроса. Обратите внимание: ни одно действие после команды Exit Sub выполнено не будет. Поэтому если вы хотите сообщить пользователю о принудительном прекращении процедуры, команду MsgBox нужно расположить выше команды Exit Sub.

Итак, объединим новые знания в код «защиты от дурака» и запишем его после строки Loop:

‘ Проверяем, дошла ли процедура While до «критичной» строки 100

‘ и спрашиваем подтверждение о продолжении выполнения макроса

If Row_End = 100 Then      

YesNo = MsgBox(«Поиск последней строки отчета дошел до 100, продолжаем?», vbYesNo)

If YesNo = vbNo Then          ‘ Если нажата кнопка «No», то…

MsgBox «Процедура прервана пользователем»   ‘ 1. выдаем сообщение для пользователя,

Exit Sub          ‘ 2. останавливаем макрос

End If

End If

В нашем коде прошло вложение одной процедуры If в другую:

•  сначала мы проверили, дошел ли счетчик Row_End до значения 100;
•  если дошел, мы спрашиваем у пользователя, продолжать ли нам выполнение макроса;
•  если пользователь ответил «нет», останавливаем макрос.

В обеих процедурах If мы опустили второй блок (else): если Row_End не достиг значения 100 или пользователь ответил «да», макрос просто покинет процедуру If и продолжит выполнять команды, написанные ниже.

Каждая процедура If должна заканчиваться командой End If. Если количество строк с командой If не будет соответствовать количеству строк с командой End If, компилятор VBA сообщит об ошибке и вам придется искать, где вы потеряли конец процедуры If.

Поэтому рекомендуется сразу писать обе строки, а потом уже наполнять процедуру командами.

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

Подведем итоги

Мы с вами научились:

•  записывать макросы через команду Вид  Макросы  Запись макроса;
•  редактировать автоматически записанный макрос, удалять из него лишние команды;
•  унифицировать код макроса, вводя в него переменные, которые макрос запрашивает у пользователя или рассчитывает самостоятельно,

а также изучили функции InputBox и MsgBox, процедуры While и If, команду Exit Sub.

В следующем номере рассмотрим процедуру FOR, запишем макрос суммирования результирующих статей БДР, научимся тестировать макросы и выносить кнопки вызова макроса на панель быстрого доступа.