Макросы vba в excel 2013

Введение

Всем нам приходится — кому реже, кому чаще — повторять одни и те же действия и операции в Excel. Любая офисная работа предполагает некую «рутинную составляющую» — одни и те же еженедельные отчеты, одни и те же действия по обработке поступивших данных, заполнение однообразных таблиц или бланков и т.д. Использование макросов и пользовательских функций позволяет автоматизировать эти операции, перекладывая монотонную однообразную работу на плечи Excel. Другим поводом для использования макросов в вашей работе может стать необходимость добавить в Microsoft Excel недостающие, но нужные вам функции. Например функцию сборки данных с разных листов на один итоговый лист, разнесения данных обратно, вывод суммы прописью и т.д.

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

В принципе, существует великое множество языков программирования (Pascal, Fortran, C++, C#, Java, ASP, PHP…), но для всех программ пакета Microsoft Office стандартом является именно встроенный язык VBA. Команды этого языка понимает любое офисное приложение, будь то Excel, Word, Outlook или Access.

Способ 1. Создание макросов в редакторе Visual Basic

Для ввода команд и формирования программы, т.е. создания макроса необходимо открыть специальное окно — редактор программ на VBA, встроенный в Microsoft Excel.

• В старых версиях (Excel 2003 и старше) для этого идем в меню Сервис — Макрос — Редактор Visual Basic (Toos — Macro — Visual Basic Editor).
• В новых версиях (Excel 2007 и новее) для этого нужно сначала отобразить вкладку Разработчик (Developer). Выбираем Файл — Параметры — Настройка ленты (File — Options — Customize Ribbon) и включаем в правой части окна флажок Разработчик (Developer). Теперь на появившейся вкладке нам будут доступны основные инструменты для работы с макросами, в том числе и нужная нам кнопка Редактор Visual Basic (Visual Basic Editor)
  
  
  
  :

К сожалению, интерфейс редактора VBA и файлы справки не переводятся компанией  Microsoft на русский язык, поэтому с английскими командами в меню и окнах придется смириться:

Макросы (т.е. наборы команд на языке VBA) хранятся в программных модулях. В любой книге Excel мы можем создать любое количество программных модулей и разместить там наши макросы. Один модуль может содержать любое количество макросов. Доступ ко всем модулям осуществляется с помощью окна Project Explorer в левом верхнем углу редактора (если его не видно, нажмите CTRL+R). Программные модули бывают нескольких типов для разных ситуаций:

• Обычные модули — используются в большинстве случаев, когда речь идет о макросах. Для создания такого модуля выберите в меню Insert — Module. В появившееся окно нового пустого модуля можно вводить команды на VBA, набирая их с клавиатуры или копируя их из другого модуля, с этого сайта или еще откуда нибудь:

  

• Модуль Эта книга — также виден в левом верхнем углу редактора Visual Basic в окне, которое называется Project Explorer. В этот модуль обычно записываются макросы, которые должны выполнятся при наступлении каких-либо событий в книге (открытие или сохранение книги, печать файла и т.п.):

  

• Модуль листа — доступен через Project Explorer и через контекстное меню листа, т.е. правой кнопкой мыши по ярлычку листа — команда Исходный текст (View Source). Сюда записывают макросы, которые должны выполняться при наступлении определенных событий на листе (изменение данных в ячейках, пересчет листа, копирование или удаление листа и т.д.)

  

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

Давайте разберем приведенный выше в качестве примера макрос Zamena:

• Любой макрос должен начинаться с оператора Sub, за которым идет имя макроса и список аргументов (входных значений) в скобках. Если аргументов нет, то скобки надо оставить пустыми.
• Любой макрос должен заканчиваться оператором End Sub.
• Все, что находится между Sub и End Sub — тело макроса, т.е. команды, которые будут выполняться при запуске макроса. В данном случае макрос выделяет ячейку заливает выделенных диапазон (Selection) желтым цветом (код = 6) и затем проходит в цикле по всем ячейкам, заменяя формулы на значения. В конце выводится окно сообщения (MsgBox).

С ходу ясно, что вот так сразу, без предварительной подготовки и опыта в программировании вообще и на VBA в частности, сложновато будет сообразить какие именно команды и как надо вводить, чтобы макрос автоматически выполнял все действия, которые, например, Вы делаете для создания еженедельного отчета для руководства компании. Поэтому мы переходим ко второму способу создания макросов, а именно…

Способ 2. Запись макросов макрорекордером

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

• Макрорекордер записывает только те действия, которые выполняются в пределах окна Microsoft Excel. Как только вы закрываете Excel или переключаетесь в другую программу — запись останавливается.
• Макрорекордер может записать только те действия, для которых есть команды меню или кнопки в Excel. Программист же может написать макрос, который делает то, что Excel никогда не умел (сортировку по цвету, например или что-то подобное).
• Если во время записи макроса макрорекордером вы ошиблись — ошибка будет записана. Однако смело можете давить на кнопку отмены последнего действия (Undo) — во время записи макроса макрорекордером она не просто возрвращает Вас в предыдущее состояние, но и стирает последнюю записанную команду на VBA.

Чтобы включить запись необходимо:

• в Excel 2003 и старше — выбрать в меню Сервис — Макрос — Начать запись (Tools — Macro — Record New Macro)
• в Excel 2007 и новее — нажать кнопку Запись макроса (Record macro) на вкладке Разработчик (Developer)

Затем необходимо настроить параметры записываемого макроса в окне Запись макроса:

• Имя макроса — подойдет любое имя на русском или английском языке. Имя должно начинаться с буквы и не содержать пробелов и знаков препинания.
• Сочетание клавиш — будет потом использоваться для быстрого запуска макроса. Если забудете сочетание или вообще его не введете, то макрос можно будет запустить через меню Сервис — Макрос — Макросы — Выполнить (Tools — Macro — Macros — Run) или с помощью кнопки Макросы (Macros) на вкладке Разработчик (Developer) или нажав ALT+F8.
• Сохранить в… — здесь задается место, куда будет сохранен текст макроса, т.е. набор команд на VBA из которых и состоит макрос.:
• Эта книга — макрос сохраняется в модуль текущей книги и, как следствие, будет выполнятся только пока эта книга открыта в Excel
• Новая книга — макрос сохраняется в шаблон, на основе которого создается любая новая пустая книга в Excel, т.е. макрос будет содержаться во всех новых книгах, создаваемых на данном компьютере начиная с текущего момента
• Личная книга макросов — это специальная книга Excel  с именем Personal.xls, которая используется как хранилище макросов. Все макросы из Personal.xls загружаются в память при старте Excel и могут быть запущены в любой момент и в любой книге.

После включения записи и выполнения действий, которые необходимо записать, запись можно остановить командой Остановить запись (Stop Recording).

Запуск и редактирование макросов

Управление всеми доступными макросами производится в окне, которое можно открыть с помощью кнопки Макросы (Macros) на вкладке Разработчик (Developer) или — в старых версиях Excel — через меню Сервис — Макрос — Макросы (Tools — Macro — Macros):

• Любой выделенный в списке макрос можно запустить кнопкой Выполнить (Run).
• Кнопка Параметры (Options) позволяет посмотреть и отредактировать сочетание клавиш для быстрого запуска макроса.
• Кнопка Изменить (Edit) открывает редактор Visual Basic (см. выше) и позволяет просмотреть и отредактировать текст макроса на VBA.

Создание кнопки для запуска макросов

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

Кнопка на панели инструментов в Excel 2003 и старше

Откройте меню Сервис — Настройка (Tools — Customize) и перейдите на вкладку Команды (Commands). В категории Макросы легко найти веселый желтый «колобок» — Настраиваемую кнопку (Custom button):

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

Кнопка на панели быстрого доступа в Excel 2007 и новее

Щелкните правой кнопкой мыши по панели быстрого доступа в левом верхнем углу окна Excel и выберите команду Настройка панели быстрого доступа (Customise Quick Access Toolbar):

Затем в открывшемся окне выберите категорию Макросы и при помощи кнопки Добавить (Add) перенесите выбранный макрос в правую половину окна, т.е. на панель быстрого доступа:

Кнопка на листе

Этот способ подходит для любой версии Excel. Мы добавим кнопку запуска макроса прямо на рабочий лист, как графический объект. Для этого:

• В Excel 2003 и старше — откройте панель инструментов Формы через меню Вид — Панели инструментов — Формы (View — Toolbars — Forms)
• В Excel 2007 и новее — откройте выпадающий список Вставить (Insert) на вкладке Разработчик (Developer) 

Выберите объект Кнопка (Button):

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

Создание пользовательских функций на VBA

Создание пользовательских функций или, как их иногда еще называют, UDF-функций (User Defined Functions) принципиально не отличается от создания макроса в обычном программном модуле. Разница только в том, что макрос выполняет последовательность действий с объектами книги (ячейками, формулами и значениями, листами, диаграммами и т.д.), а пользовательская функция — только с теми значениями, которые мы передадим ей как аргументы (исходные данные для расчета).

Чтобы создать пользовательскую функцию для расчета, например, налога на добавленную стоимость (НДС) откроем редактор VBA, добавим новый модуль через меню Insert — Module и введем туда текст нашей функции:

Обратите внимание, что в отличие от макросов функции имеют заголовок Function вместо Sub и непустой список аргументов (в нашем случае это Summa). После ввода кода наша функция становится доступна в обычном окне Мастера функций (Вставка — Функция) в категории Определенные пользователем (User Defined):

После выбора функции выделяем ячейки с аргументами (с суммой, для которой надо посчитать НДС) как в случае с обычной функцией:

Перейти к содержанию

Как в Excel 2010 или 2013 вставить и запустить код VBA – руководство для начинающих

​Смотрите также​ текст, которых содержится​Макрос​(My Documents), так​ для этого кликните​В разделе​ уведомляет о том,​Сохранить как​ _ «Пожалуйста добавьте​ окно с сообщением,​ не обязательно.​ Until перебирает последовательно​

​ 0 Else ‘Сохраняем​ искомая строка ‘Если​ командой сайта office-guru.ru​ эти параметры снова​кликаем правой кнопкой​Это краткое пошаговое руководство​ в них?​>​ как при этом​ по большой круглой​Параметры макросов​ что эта книга​(Save as) и​ рабочую книгу в​ если на текущем​

​’Процедура Sub при​ ячейки столбца A​ размер следующего приращения​ заданная строка найдена,​Источник: https://www.ablebits.com/office-addins-blog/2013/12/06/add-run-vba-macro-excel/​ включаются. Данный приём​ мыши по имени​ предназначено для начинающих​Как объединить столбцы в​Безопасность​ значительно возрастает риск​ кнопке​(Macro Settings) выберите​ содержит макросы, поэтому​

• ​ в поле​ папку C:Documents and​
• ​ рабочем листе ‘выбрана​ помощи цикла считывает​

Вставляем код VBA в книгу Excel

​ активного листа ‘и​ перед тем, как​ указываем в какой​Перевел: Антон Андронов​ приводит к ускорению​ рабочей книги (в​

1. 1. ​ пользователей и рассказывает​ Excel используя макрос.​
   2. ​(Tools > Macro​​ выполнения макроса, полученного​​Office​ нужный параметр и​
   3. ​ пользователь может не​​Тип файла​​ Settings и нажмите​ ячейка B1 Private​ значения в столбце​ извлекает их значения​ перезаписать ‘текущее значение​ ячейке найдено совпадение​Автор: Антон Андронов​​ выполнения макроса от​​ левой верхней части​​ о том, как​​Автоматическое горизонтальное объединение​
   4. ​ > Security):​ из ненадёжного источника.​в левом верхнем​ нажмите​ понять причину, по​(Save as type)​​ OK» Resume End​​ Sub Worksheet_SelectionChange(ByVal Target​​ A рабочего листа​​ в массив до​ последовательности iStep =​

      ​ If iRowNumber =​Следующие простые примеры макросов​ 10% до 500%​

      ​ окна редактора) и​
​ вставлять код VBA​

      ​ всех выделенных ячеек​Установить нужный уровень безопасности​В Microsoft Office 2003​ углу. Далее нажмите​ОК​ которой книга Excel​

      • ​ выберите​ Sub​ As Range) ‘Проверяем​​ Лист2, ‘выполняет с​​ тех пор, пока​ iFib iFib =​​ 0 Then MsgBox​​ Excel иллюстрируют некоторые​ (да, макрос может​​ в контекстном меню​​ (Visual Basic for​

        ​ по столбцам таблицы​
​ и нажать​

      • ​ существует 4 уровня​Параметры Excel​​.​​ не работает так,​

        ​Книга Excel с поддержкой​
​Урок подготовлен для Вас​

      ​ выбрана ли ячейка​ каждым значением арифметические​ не встретится пустая​ iFib_Next End If​ «Строка » &​ возможности и приёмы,​ работать в 5​ выбираем​ Applications) в книгу​ с помощью VBA​ОК​ безопасности макросов, управлять​(Excel Options).​На вкладке​ как должна.​ макросов​ командой сайта office-guru.ru​ B1 If Target.Count​

   5. ​ операции и записывает​ ячейка Do Until​ ‘Выводим текущее число​ sFindText & «​​ описанные в самоучителе​​ раз быстрее, если​Insert​​ Excel, и как​ макроса. Как одновременно​.​​ которыми можно в​В появившемся диалоговом окне​Файл​Включить все макросы​​(Excel Macro-Enabled Workbook).​​Источник: http://www.excelfunctions.net/Excel-Macro-Example.html​​ = 1 And​​ результат в ‘столбец​​ IsEmpty(Cells(iRow, 1)) ‘Проверяем,​ Фибоначчи в столбце​​ не найдена» Else​​ по Excel VBA.​ манипуляции над ячейками​​>​ запускать вставленный макрос​​ объединить ячейки в​Чтобы новые настройки безопасности​​ меню Excel. К​​ выберите​

1. ​(File) нажмите​​(Enable all macros)Разрешено​​Отличие в типе файлов​Перевел: Антон Андронов​ Target.Row = 1​ A активного рабочего​

Запускаем макрос VBA в Excel

​ что массив dCellValues​ A активного рабочего​​ MsgBox «Строка «​​Первоначально эта процедура​​ происходят без лишних​​Module​​ для выполнения различных​​ нескольких выделенных диапазонах?​ макросов вступили в​ ним относятся:​​Центр управления безопасностью​​Параметры​

​ выполнение всех макросов.​ ясно указывает на​
​Автор: Антон Андронов​
​ And Target.Column =​

​ листа (Лист1) Sub​

office-guru.ru

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

​ имеет достаточный размер​ листа ‘в строке​ & sFindText &​Sub​ остановок).​

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

​.​​ задач на этом​​Как объединить ячейки в​ силу, потребуется перезапустить​Высокая / Очень высокая​(Trust Center) и​(Options).​ При открытии книги​ то, что рабочая​Безопасность макросов Excel –​ 2 Then ‘Если​​ Transfer_ColA() Dim i​​ ‘Если нет –​​ с индексом i​​ » найдена в​была приведена, как​

​Сохраняем рабочую книгу, как​Копируем код VBA (с​ листе.​ Excel с помощью​ Excel.​Эти два уровня разрешают​ нажмите кнопку​В открывшемся диалоговом окне​ Excel не появляется​ книга содержит макросы,​ это защита от​ ячейка B1 выбрана,​ As Integer Dim​ увеличиваем размер массива​ Cells(i, 1).Value =​ ячейке A» &​ пример использования комментариев​ книгу Excel с​ веб-страницы или из​Большинство пользователей не являются​ кода макроса VBA.​Урок подготовлен для Вас​ запуск макросов только​Параметры центра управления безопасностью​ выберите​ уведомление о том,​ и это уже​ вирусов, которые могут​ выполняем необходимое действие​ Col As Range​ на 10 при​ iFib ‘Вычисляем следующее​ iRowNumber End If​ в коде VBA.​ поддержкой макросов. Для​ другого источника) и​ гуру Microsoft Office.​Как можно быстро​ командой сайта office-guru.ru​ из надёжных источников.​(Trust Center Settings).​Центр управления безопасностью​ что в ней​ становится первым важным​ проникнуть в компьютер​ MsgBox «Вы выбрали​ Dim dVal As​ помощи ReDim If​ число Фибоначчи и​

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

​ End Sub​​ Однако, здесь также​​ этого нажмите​ вставляем его в​​ Они могут не​​ объединять ячейки для​Источник: http://www.excelfunctions.net/Excel-Macro-Security.html​ Все прочие макросы​В меню слева нажмите​(Trust Center) и​ содержатся макросы. Соответственно​​ шагом к соблюдению​​ вместе с макросами.​

​ ячейку B1″ End​ Double ‘Присваиваем переменной​ UBound(dCellValues) < iRow​ увеличиваем индекс позиции​Следующая процедура​ можно увидеть, как​Ctrl+S​ правую область редактора​ знать всех тонкостей​ таблиц со сложной​Перевел: Антон Андронов​ не будут запущены.​Надёжные расположения​ нажмите кнопку​ пользователь может не​ мер безопасности. Помимо​ Безопасность макросов значительно​ If End Sub​ Col столбец A​ Then ReDim Preserve​ элемента на 1​Sub​ объявляются переменные, как​и в окне​ VBA (окно​ работы той или​ структурой используя простые​Автор: Антон Андронов​ При открытии книги​(Trusted Locations).​Параметры центра управления безопасностью​ знать, что какой-либо​ этого, в Excel​ изменилась со времени​На примере этой процедуры​ рабочего листа Лист​ dCellValues(1 To iRow​ iFib_Next = iFib​– пример использования​ работают ссылки на​ с предупреждением​Module1​ иной функции, и​ макросы? Пример готового​Скачать бесплатно исходные​ Excel не уведомляет​На вкладке​(Trust Center Settings).​ макрос выполняется, пока​ существует несколько режимов​ выхода в свет​ показано использование операторов​ 2 Set Col​

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

​ + 9) End​​ + iStep i​​ цикла​​ ячейки Excel, использование​​Следующие компоненты невозможно сохранить​).​ не смогут ответить​ VBA кода макроса​ коды VBA-макросов с​ о том, что​Файл​В разделе​ открыт файл.​​ безопасности макросов, выбрать​​ Excel 2003, поэтому​On Error​ = Sheets(«Лист2»).Columns(«A») i​ If ‘Сохраняем значение​ = i +​Do While​ цикла​ в книге без​Подсказка:​ на вопрос, как​

​ для объединения ячеек.​ широкими возможностями для​ эта книга содержит​(File) нажмите​Параметры макро​Вариант​ один их которых​ в рамках данной​и​ = 1 ‘При​ текущей ячейки в​ 1 Loop End​. Здесь также можно​For​ поддержки макросов​Как увеличить скорость​ отличается скорость выполнения​Как запустить макрос в​ автоматической обработки, редактирования​ макросы, поэтому пользователь​Параметры​сов​Отключить все макросы с​ можно в меню​ темы особенности старых​Resume​ помощи цикла считываем​ массиве dCellValues dCellValues(iRow)​ Sub​ увидеть, как объявляются​, условного оператора​(The following features​ выполнения макроса?​ макроса VBA в​ Excel разными способами.​ и форматирования больших​ может не понять​(Options).​(Macro Settings) выберите​

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

​ уведомлением​​ параметров приложения. Вот​​ и новых версий​для обработки ошибок.​​ значения ячеек столбца​​ = Cells(iRow, 1).Value​​Эта процедура​​ переменные, работу со​If​ cannot be saved​В самом начале кода​​ Excel 2010 и​​Как выполнить макрос​ таблиц.​ причину, по которой​В открывшемся диалоговом окне​ нужный параметр и​– позволяет при​​ эти режимы:​​ Excel будут рассмотрены​​ В данном коде​​ Col до тех​ iRow = iRow​Sub​ ссылками на ячейки​​и вывод на​​ in macro-free workbook)​ Вашего макроса VBA​ 2013. Многие просто​ с помощью кнопки,​Макрос для объединения одинаковых​ книга Excel не​ выберите​ нажмите​

​ открытии файла сделать​Отключить все макросы без​ раздельно:​ также показан пример​ пор, ‘пока не​ + 1 Loop​просматривает ячейки столбца​ Excel и применение​ экран окна сообщения.​ нажмите​ должны содержаться строки:​ используют Excel, как​ панели быстрого запуска​ ячеек в таблице​ работает так, как​Центр управления безопасностью​ОК​ выбор: разрешить запуск​ уведомления​Безопасность макросов в современных​ открытия и чтения​ встретится пустая ячейка​ End Sub​A​ условного оператора​’Процедура Sub выполняет​Нет​Application.ScreenUpdating = False​ инструмент для обработки​ и стандартными средствами​ Excel.​ должна.​(Trust Center) и​.​ макросов или отключить​(Disable all macros​ версиях Excel (2007​ данных из файла.​ Do Until IsEmpty(Col.Cells(i))​В этом примере процедура​активного листа до​If​ поиск ячейки, содержащей​

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

​(No).​Application.Calculation = xlCalculationManual​ данных.​ на панели инструментов​Исходный код макроса​Средняя​ нажмите кнопку​Замечание:​ их. При этом​ without notification)Запрет на​ и более новых)​​’Процедура Sub присваивает​​ ‘Выполняем арифметические операции​Sub​

​ тех пор, пока​.​ заданную строку ‘в​Откроется диалоговое окно​Если таких строк нет,​Предположим, нужно изменить данные​ РАЗРАБОТЧИК?​ для одновременного поиска​Если в книге присутствуют​Параметры центра управления безопасностью​Потребуется перезапустить Excel,​ вверху листа появляется​ выполнение любых макросов.​Безопасность макросов в Excel​ аргументам Val1 и​ над значением текущей​считывает значения из​ не встретит пустую​

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

​’Процедура Sub выводит​ диапазоне ячеек A1:A100​​Сохранение документа​​ то обязательно добавьте​​ на листе Excel​​Личная книга макросов в​ и объединения ячеек​ макросы, то при​(Trust Center Settings).​ чтобы новые настройки​

​ жёлтая полоса с​ При открытии книги​ 2003​ Val2 значения ячеек​ ячейки dVal =​ столбца​ ячейку. Значения записываются​ числа Фибоначчи, не​ активного листа Sub​(Save as). В​ следующие строки в​ определённым образом. Мы​ Excel и как​ с одинаковыми значениями​ открытии книги появится​В меню слева нажмите​ безопасности макросов вступили​ уведомлением и кнопкой,​ Excel не уведомляет​Чтобы запустить макрос в​ A1 и B1​ Col.Cells(i).Value * 3​A​ в массив. Этот​ превышающие 1000 Sub​ Find_String(sFindText As String)​ выпадающем списке​ свой макрос, чтобы​ немало погуглили и​ ее использовать.​ в таблице. Работа​ окно уведомления с​Надёжные расположения​ в силу.​ как показано на​ о том, что​ современных версиях Excel,​ ‘из рабочей книги​

​ — 1 ‘Следующая​рабочего листа​
​ простой макрос Excel​
​ Fibonacci() Dim i​

​ Dim i As​

office-guru.ru

Безопасность макросов Excel

​Тип файла​ он работал быстрее​ нашли макрос VBA,​Работа с личной​ со свойством Merge.​ вопросом, следует ли​(Trusted Locations).​Excel 2007, 2010 и​ рисунке ниже:​ эта книга содержит​ файл должен быть​ Data.xlsx, находящейся в​ команда записывает полученный​Лист2​

• ​ показывает работу с​ As Integer ‘Счётчик​ Integer ‘Целое число​
• ​(Save as type)​ (см. рисунок выше):​

Безопасность макросов в современных версиях Excel (2007 и более новых)

​ который решает эту​ книгой макросов и​Макрос для объединения пустых​ эти макросы запускать.​Если нужно сохранить книгу​ 2013 позволяет объявить​Чтобы разрешить выполнение макросов​ макросы, поэтому пользователь​​ сохранён как Книга​​ папке C:Documents and​ результат в столбец​и выполняет с​ динамическими массивами, а​ для обозначения позиции​ типа Integer, используется​​ выбираем​​В самое начало кода​

​ задачу. Однако, наше​ краткий обзор ее​ ячеек в строках​Низкая​ Excel в другом​ выбранные папки на​ нужно просто кликнуть​​ может не понять​​ Excel с поддержкой​ Settings Sub Set_Values(Val1​​ A активного рабочего​​ ними арифметические операции.​​ также использование цикла​​ элемента в последовательности​ в цикле For​​Книга Excel с поддержкой​​ после всех строк,​ знание VBA оставляет​​ преимуществ. Где находиться​ таблицы Excel.​​Все макросы выполняются. При​

​ расположении и по-прежнему​ жёстком диске компьютера​ по кнопке​ причину, по которой​ макросов. Открывая такой​ As Double, Val2​ листа ‘Имя листа​ Результаты заносятся в​Do Until​ Dim iFib As​ Dim iRowNumber As​ макросов​ начинающихся с​ желать лучшего. Вот​ личная книга макросов​

1. ​Исходный код макроса​ открытии книги Excel​​ разрешать выполнение макросов,​ как надёжные расположения.​Включить содержимое​ книга Excel не​ файл, по его​ As Double) Dim​ в ссылке указывать​ ячейки столбца​. В данном примере​ Integer ‘Хранит текущее​ Integer ‘Целое число​(Excel macro-enabled workbook)​Dim​
2. ​ тут-то и придёт​ и как записывать​​ для объединения всех​ не появляется уведомление​ то можно добавить​ При открытии файлов,​(Enable Content).​ работает так, как​ расширению​ DataWorkbook As Workbook​
3. ​ нет необходимости, так​A​​ мы не будет​ значение последовательности Dim​ типа Integer для​ и нажимаем кнопку​(если строк, начинающихся​ на помощь пошаговая​ в нее свои​ пустых ячеек во​ о том, что​ выбранную папку в​ хранящихся в таких​Вот как можно просматривать​ должна.​xlsm​ On Error GoTo​ как это активный​
4. ​на активном рабочем​​ совершать какие-либо действия​ iFib_Next As Integer​ хранения результата iRowNumber​Сохранить​ с​ инструкция, с помощью​ макросы?​ всех строках таблицы​ в ней содержатся​ список надёжных расположений.​ расположениях, Excel не​

​ или изменять параметры​​Отключить все макросы с​Excel понимает, что​​ ErrorHandling ‘Открываем рабочую​ лист. Cells(i, 1)​ листе. В этом​ с массивом, хотя​ ‘Хранит следующее значение​ = 0 ‘Просматривает​(Save).​Dim​ которой мы сможем​Как создать и добавить​

​ Excel по горизонтали.​ макросы. Соответственно пользователь​ Это делается так:​​ выполняет стандартную проверку​​ безопасности макросов в​

Где найти параметры безопасности макросов в Excel

​ уведомлением​ в данной рабочей​ книгу с данными​ = dVal i​ макросе продемонстрировано использование​

Excel 2007

• ​ в реальной практике​ последовательности Dim iStep​ одну за другой​Нажимаем​​нет, то вставляем​​ использовать найденный код.​ надстройку в Excel​​ Как автоматически объединить​​ может не знать,​
• ​В разделе​ безопасности макросов. Другими​​ Excel 2007, 2010​​(Disable all macros​ книге содержатся макросы​​ Set DataWorkbook =​​ = i +​
• ​ объектов Excel. В​​ программирования после того,​​ As Integer ‘Хранит​ ячейки A1:A100 до​Alt+Q​​ сразу после строки​​Вставляем код VBA в​

Excel 2010 или 2013

• ​ с кодом VBA.​​ все пустые ячейки?​​ что какой-либо макрос​​Надёжные расположения​​ словами, если поместить​
• ​ или 2013:​ with notification)Запрет на​​ (в отличие от​​ Workbooks.Open(«C:Documents and SettingsData»)​ 1 Loop End​​ частности, производится обращение​​ как данные записаны​
• ​ размер следующего приращения​​ тех пор, пока​​, чтобы закрыть окно​​Sub​ книгу Excel​Практическое пошаговое руководство​​Макрос для объединения всех​​ выполняется, пока открыт​

​(Trusted Locations) нажмите​​ файл Excel в​Откройте главное меню Excel,​ выполнение макросов. Однако,​ файла со стандартным​

Надёжные расположения в современных версиях Excel (2007 и более новые)

​ ‘Присваиваем переменным Val1​ Sub​ процедурой​ в массив, над​ ‘Инициализируем переменные i​ не будет найдена​ редактора VBA и​):​Запускаем макрос VBA в​ по созданию надстроек​ пустых ячеек в​ файл.​ кнопку​ папку, которая объявлена​ для этого кликните​ если в рабочей​ расширением​ и Val2 значения​Данный макрос показывает пример​

​Sub​ ними такие действия,​ и iFib_Next i​ строка sFindText For​ вернуться к книге​Application.ScreenUpdating = False​ Excel​

Excel 2007

• ​ с VBA кодом​ таблице Excel.​Если хотите запустить макрос​Добавить новое расположение​​ надёжной, то при​​ по большой круглой​ книге есть макрос,​​xlsx​​ из заданной рабочей​
• ​ кода VBA, отслеживающего​к объекту​​ как правило, совершаются.​​ = 1 iFib_Next​ i = 1​​ Excel.​​Application.Calculation = xlCalculationManual​
• ​В этом примере мы​​ программ макросов. Управление,​​Пример как автоматически​

Excel 2010 или 2013

• ​ в Excel 2003,​​(Add new location).​​ открытии этого файла​​ кнопке​​ появится предупреждение о​
• ​).​ книги Val1 =​​ событие Excel. Событие,​​Columns​’Процедура Sub сохраняет​​ = 0 ‘Цикл​​ To 100 If​
• ​Чтобы запустить только что​​В самый конец кода,​​ будем использовать VBA​

​ редактирование и удаление​ убрать пустые ячейки​ то безопасность макросов​Выберите папку, которую нужно​ все макросы, записанные​Office​ том, что макрос​Поэтому, чтобы иметь возможность​

• ​ Sheets(«Лист1»).Cells(1, 1) Val2​​ к которому привязан​​, и показано, как​ значения ячеек столбца​​ Do While будет​​ Cells(i, 1).Value =​
• ​ добавленный макрос, нажмите​ перед​ макрос, который удаляет​​ надстроек из программы.​​ с помощью их​

​ должна быть выбрана​​ объявить надёжным расположением​ в нём, будут​в левом верхнем​ присутствует, но отключен.​ запускать созданный в​​ = Sheets(«Лист1»).Cells(1, 2)​​ макрос, происходит каждый​ доступ к этому​ A активного листа​ выполняться до тех​ sFindText Then ‘Если​

Безопасность макросов в Excel 2003

​Alt+F8​End Sub​ переносы строк из​Как написать макрос в​ объединения с использованием​Низкая​

1. ​ и нажмите​​ запущены независимо от​ углу. Далее нажмите​Отключить все макросы без​ обычной рабочей книге​ DataWorkbook.Close Exit Sub​ раз при выделении​ объекту осуществляется через​ в массиве Sub​ пор, пока значение​ совпадение с заданной​. Откроется диалоговое окно​:​ ячеек текущего листа​ Excel на языке​ макроса. Автоматизированное форматирование​
2. ​(Low) или​​ОК​ состояния параметров безопасности.​Параметры Excel​ цифровых подписей​ Excel макрос всегда​ ErrorHandling: ‘Если файл​
3. ​ ячейки или диапазона​​ объект​ GetCellValues() Dim iRow​ ‘текущего числа Фибоначчи​ строкой найдено ‘сохраняем​Макрос​Application.ScreenUpdating = True​ Excel.​ программирования VBA.​ больших таблиц. ​Средняя​

​.​Microsoft по умолчанию присваивает​(Excel Options).​(Disable all macros​​ и везде, нужно​​ не найден, пользователю​​ ячеек на рабочем​​Worksheet​

​ As Integer ‘Хранит​ не превысит 1000​ номер текущей строки​(Macro). В списке​

• ​Application.Calculation = xlCalculationAutomatic​​Открываем рабочую книгу в​​Как создать макрос​​Как разъединить объединенные ячейки​​(Medium).​​Предупреждение:​​ некоторым расположениям статус​В появившемся диалоговом окне​
• ​ except digitally signed​ сохранить её с​​ будет предложено поместить​​ листе. В нашем​

​. Показано так же,​ номер текущей строки​ Do While iFib_Next​ и выходим из​

​Имя макроса​Эти строки, как можно​
​ Excel.​
​ с помощью редактора​

​ в Excel используя​

office-guru.ru

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

​Чтобы открыть и настроить​Не рекомендуется добавлять​ надёжных, их список​ выберите​ macros)Разрешено выполнение макросов​ расширением​

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

​ искомый файл ‘в​ случае при выделении​ что при обращении​
​ Dim dCellValues() As​ < 1000 If​ цикла For iRowNumber​(Macro name) выберите​ понять из их​Нажатием​​ кода языка программирования​ макрос.​ параметры безопасности макросов​
​ в список надёжных​ хранится в разделе​Центр управления безопасностью​ только из доверенных​xlsm​ нужную папку и​ ячейки​​ к ячейке или​ Double ‘Массив для​ i = 1​
​ = i Exit​ нужный макрос и​ содержания, отключают обновление​Alt+F11​ Visual Basic for​Как автоматически отменить​​ в Excel 2003,​ расположений большие разделы​ параметров безопасности Excel.​
​(Trust Center) и​ источников. Все прочие​. Для этого на​ после этого продолжить​B1​ диапазону ячеек на​ хранения значений ячеек​​ Then ‘Особый случай​ For End If​
​ нажмите кнопку​ экрана и пересчёт​вызываем окно редактора​ Application? Краткий обзор​ объединение для всех​ нужно:​ жёсткого диска, например,​​ Открыть список надёжных​ нажмите кнопку​ макросы выполняться не​
​ вкладке​ выполнение макроса MsgBox​, на экран выводится​ активном листе, имя​ iRow = 1​ для первого элемента​ Next i ‘Сообщаем​​Выполнить​ формул рабочей книги​
​ Visual Basic​ основных возможностей макросов.​ выделенных ячеек по​Открыть меню​ целиком папку​ расположений можно так:​​Параметры центра управления безопасностью​ будут. При открытии​Файл​
​ «Файл Data.xlsx не​ окно с сообщением.​ этого листа при​ ReDim dCellValues(1 To​ последовательности iStep =​ пользователю во всплывающем​(Run).​ перед выполнением макроса.​​На панели​ 1 2 3​ строкам и столбцам​
​Сервис​Мои документы​Откройте главное меню Excel,​(Trust Center Settings).​ книги Excel не​(File) нажмите​​ найден! » &​’Данный код показывает​ записи ссылки указывать​
​ 10) ‘Цикл Do​ 1 iFib =​ окне найдена ли​Урок подготовлен для Вас​ После выполнения кода​Project-VBAProject​ 4​ сохранив и заполнив​

exceltable.com

​>​

Macros are little programs that run within Excel and help automate common repetitive tasks. Macros are one of Excel’s most powerful, yet underutilized feature. Using macros, you can save hours and boost productivity manifold.

In this blog post, we will learn how to create an ultra-simple macro in Excel 2013 to introduce you to the concept. For a more detailed overview of advanced Excel functions, including creating complicated macros, try the comprehensive Excel training course for beginners and intermediate users.

What is a Macro?

A macro can be defined as the recording of a series of tasks. It’s the simplest form of automation – show a software program the steps you follow to get something done, and the software will follow along. When used right, macros can save you hours by automating simple, repetitive tasks.

Marcos in Excel are written in Excel VBA (Visual Basic for Applications). This is a version of Visual Basic (a prominent Microsoft programming language) developed specifically for use in Office-like applications. Creating simple macros – copy a formula from one cell to another, for instance – is fairly easy. Complicated macros require a bit more work. You’ll need to be quite intimate with Excel VBA to automate the more complex tasks in your workflow. You can learn more about these in this advanced Excel 2010 course.

For this tutorial, we will create a very simple macro to get you up to speed with Excel programming and automation.

Step 1: Activate the Developer Toolbar

To write macros, you will need access to the Developer toolbar in the top ribbon. This is hidden by default. To activate it, go to File -> Options -> Customize Ribbon and check the box next to ‘Developer’.

Press OK. You should now see the Developer toolbar in the ribbon.

Step 2: Enable Macros

Macros are disabled by default in Excel. This is to protect you from malicious macros running automatically in downloaded Excel files.

To use macros, you will have to first enable them from the Trust Center. To do this, go to File -> Options -> Trust Center. Click on the ‘Trust Center Settings’ button in this menu.

In this new window, go to ‘Macro Settings’ and select the ‘Enable all macros’ radio button.

Click OK. You can now start using macros in your Excel spreadsheets.

Step 3: Prepare the Spreadsheet

In this tutorial, we will create a very simple macro to change the color, size and boldness of text.

In your spreadsheet, type in some text in any of the cells. We will later record a macro to change the formatting of this text.

Now that our spreadsheet is ready, we can start creating the macro.

Step 4: Create a New Macro

In the ‘Developer’ tab, click on ‘Record Macro’

A pop-up window will ask you to give a name, storage location, shortcut and description for the macro.

Type in whatever you like over here. It helps to be descriptive with your macro titles. You might end up using dozens of macros in a large spreadsheet. Being able to quickly find individual macros by name will save you hours of frustration later. It’s also a good practice to add a description to remind you what the macro actually does.

Two important considerations here:

• Shortcut Key: The shortcut key gives you quick access to the macro. Using a custom shortcut is highly recommended – you are using macros to save time, after all. A lot of default Excel functions are locked in to use the CTRL + Letter/Number shortcut format. To avoid conflicts with existing shortcuts, add not at least two keys to the shortcut – something like CTRL + SHIFT + A, or CTRL + A + 1

  

• Store Macro in: In this drop down menu, you can decide where to save the macro. If you choose ‘This Workbook’, the macro will be available for use in the existing workbook only. Choosing ‘New Workbook’ will, as you guessed, save the macro in a new workbook. The most powerful option here is to save the macro in ‘Personal Macro Workbook’. Macros stored in this workbook are available across all your workbooks. Think of it as a central repository for every macro that you create. The actual macro workbook file itself will be hidden the Windows AppData folder, but it will load up automatically when you start Excel, giving you complete access to all macros.

For the purpose of this tutorial, we will give our macro a shortcut of CTRL + SHIFT + A and store it within the same workbook.

Not sure how macros work? Try this comprehensive program to learn Excel 2010 from scratch.

Step 5: Record the Macro

Once you’ve entered all the require details, click OK. Your macro is now being recorded.

Select the cell where you entered your text. Switch to the ‘Home’ tab and change its color to red, font size to 18, and font weight to ‘bold’.

When you’re done, click on the ‘Stop Recording’ button in the Developer tab, or hit the small square block at the bottom of the spreadsheet next to ‘Ready’.

You have now successfully recorded an Excel macro!

Step 6: Test the Macro

Now that you’ve recorded your first macro, it’s time to see it live.

Add a few more blocks of text to your spreadsheet, one cell at a time. You might have to change the default formatting back to black font, 11 point font size and normal text.

Once you’ve added the text, simply select any cell and press the shortcut for your macro (CTRL + SHIFT + A). The formatting will immediately change to 18 pt. bold font in red color. You can apply this to each cell at a time, or select multiple cells together.

The formatting changes that would otherwise take you multiple clicks now take just one keystroke.

This is one of the most basic macros you can create. As you can imagine, complex macros can be created to perform very complicated tasks. You can learn more about creating such macros with Excel VBA programming in this Excel training course for advanced topics.

Was this tutorial helpful? We’d love to learn your thoughts and opinions! Share them with us in the comments below.