Как добавить макрос vba в excel

Введение

Всем нам приходится — кому реже, кому чаще — повторять одни и те же действия и операции в 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):

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

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

Рассмотрим два примера:

Ищем и используем команду
Ищем и используем функцию

1. Ищем и используем команду

Например, нам необходима команда, которая бы вставляла в выделенные ячейки цифру «1». Запускаем поисковик, набираем поисковую фразу, получаем результаты, начинаем просматривать, находим код примерно в таком виде:

Sub Вставка1()
    Dim q As Object
    On Error Resume Next
    Set q = Cells
    For Each q In Selection
        q = 1
    Next q
End Sub

Выделяем данный код (без нумерации строк, начиная со слова Sub) и нажимаем Ctrl+C. Переходим в свою рабочую книгу MS Excel и нажимаем сочетание клавиш Alt+F11, у вас откроется окно редактора VBA:

В левом окне «Project — VBA Project» выбираем (щелкаем мышкой) нашу рабочую книгу, в которую необходимо вставить макрос, например, «VBAProject (Книга2)»:

Я не вижу окна «Project — VBA Project».

В пункте меню «Insert» выбираем «Module»:

В левом окне «Project — VBA Project» у вас должна появиться новая папка «Modules» и в ней новый объект «Module1»:

Переходим курсором в правое «Большое» поле для ввода и нажимаем Ctrl+V, скопированный макрос вставиться в модуль:

У меня в коде «????????«

После чего закрываем редактор VBA и возвращаемся в рабочую книгу.

Если вы работаете в MS Excel 2007, 2010 или 2013, вам необходимо будет сохранить вашу рабочую книгу как «Книга Excel с поддержкой макросов (.xlsm)»:

В MS Excel 2003 достаточно будет просто сохранить файл.

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

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

Макрос выполнится — в выделенные ячейки вставиться «1»:

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

Макросы в MS Excel можно вставлять в следующие места:

• В Модуль, обычно вставляют код макросов, запуск которых будет производится по нажатию кнопки пользователем (как, например, в нашем случае) или код функций (формул);
• В Рабочий лист, обычно вставляют код макросов, запуск которых должен происходить автоматически в зависимости от действий пользователя или изменения данных в листе (поменялись данный, макрос выполнился);
• В Рабочую книгу, обычно вставляют код макросов, запуск которых должен происходить автоматически в зависимости от действий, производимых над книгой (файлом). Например, макрос, который запускается при открытии или закрытии книги, или при ее сохранении;
• Так же макросы могут быть частью пользовательской формы.

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

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

Для вставки кода в Книгу, выберите «ЭтаКнига»:

Давайте потренируемся. Вставьте код опубликованный ниже в «Лист1».

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo a
    If Target = 2 Then
        VBA.MsgBox ("Ячейка " & Target.Address & " = 2")
    End If
a:
    Exit Sub
End Sub

Данный макрос выводит информационное сообщение если вы введете в любую ячейку листа «2».

Вернитесь в рабочую книгу, перейдите в «Лист1» и введите в ячейку «А1» цифру «2» и нажмите Enter, после чего у вас должно появиться следующее сообщение:

Если вы видите это сообщение, то вы все сделали правильно. Если нет, то вы вставили код куда-то не туда, повторите попытку.

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

2. Ищем и используем функцию

Находим в интернете VBA код функции, которая подсчитывает, например, количество слов в ячейке:

Public Function КолСловВЯчейке(Ячейка As Range)
    Dim q As Variant
    Application.Volatile
    q = VBA.Split(Application.WorksheetFunction.Trim(Ячейка.Value), " ")
    КолСловВЯчейке = UBound(q) + 1
End Function

Копируем код, нажимаем сочетание клавиш Alt+F11, откроется редактор VBA:

Добавляем новый модуль в свою книгу и в этот модуль вставляем скопированный код:

Закрываем редактор VBA и переходим в свою рабочую книгу. Создаем новый лист (необязательно) в ячейку A1 вводим текст «мама мыла раму». Встаем в ячейку, в которой хотим получить результат (количество слов), в меню «Формулы» нажимаем кнопку «Вставить функцию»:

В открывшемся окне «Вставка функции» в поле «Категория» выбираем «Определенные пользователем»

В списке доступных функций выбираем «КолСловВЯчейке», нажимаем «ОК»:

Вводим необходимые аргументы и нажимаем «ОК»:

Получаем результат:

Важно:

Если вы не сохраните книгу, в которую вставили макрос как «Книгу с поддержкой макросов», все модули с макросами удаляться и вам придется, потом, повторно проделывать всю эту работу.

Если при вставке макроса в модуль у вас вместо некоторого текста стоят красные знаки «????????«

Это значит, что у вас проблема с кодировкой, которая наблюдается с копированием Кириллического текста из некоторых браузеров. Чтобы победить эту проблему, попробуйте вставить скопированный код в пустой лист MS Excel, как «Текст в кодировке Unicode». Для этого перейдите в книгу MS Excel, выберите или создайте пустой лист, встаньте в ячейку «A1» и нажмите сочетания клавиш Ctrl+Alt+V. Должно будет появиться меню «Специальной вставки», выберите пункт «Текст в кодировке Unicode» и нажмите «OK».

Код должен будет вставиться в рабочий лист без знаков вопроса:

После этого, еще раз скопируйте вставленный в лист код, и вставить его уже в модуль.

Если вы не видите в редакторе VBA окна «Project — VBA Project», перейдите во вкладку меню «View» и в списке выберите пункт «Project Explorer» или нажмите сочетание клавиш Ctrl+R:

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

​Смотрите также​ + rng.Top +​.SetRange Range(«A2:D6»)​ вкладке «Вставка» найдем​ «Разработчик». Нажимаем кнопку​Для проверки этого кода​View​Назначьте макрос объекту.​Record Macro​ этого файла и​. Выберите его и​ будет. Кстати, можно​

​ Для начала для​ месте находится иконка​ Вот некоторые из​ вернуться к книге​В самом начале кода​Это краткое пошаговое руководство​ (dblMax — Points(,​.Apply​ кнопку «Гиперссылка».​ «Вставить». Открывается меню​ выберем ячейку со​>​Примечание:​(Запись макроса).​ импорта данных из​

​ нажмите​ сохранить книгу как​ всех ячеек зададим​ для включения записи​ них (очень малая​ Excel.​ Вашего макроса VBA​ предназначено для начинающих​ i + 1))​End With​После нажатия открывается окно​ с набором элементов​ значением​Macros​

• ​Если у вас​Откроется диалоговое окно​
• ​ него тоже можно​Run​

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

​ шаблон Excel 97-2003,​ одинаковый формат отображения​ макроса. Нажатие на​ часть):​Чтобы запустить только что​ должны содержаться строки:​

1. 1. ​ пользователей и рассказывает​ * (rng.Height -​
   2. ​End Sub Примечание.​​ для создания связи​​ для вставки. Выбираем​больше 20​
   3. ​>​​ включена вкладка​​Record Macro​ записать в макрос:​(Выполнить).​ который имеет формат​ данных. Выделите все​ неё даст тот​Применять стили и форматирование.​​ добавленный макрос, нажмите​​Application.ScreenUpdating = False​​ о том, как​​ (cMargin * 2))​
   4. ​ Красным текстом отмечены​ кнопки с файлом,​ первый элемент ActiveX​:​View Macros​Developer​​(Запись Макроса).​​Откройте файл шаблона, в​​Когда макрос начнёт работать,​​XLT​ ячейки на листе,​

      ​ же результат, что​Выполнять различные операции с​Alt+F8​

      ​Application.Calculation = xlCalculationManual​
​ вставлять код VBA​

      ​ / (dblMax -​ отличающиеся параметры для​ веб-страницей, электронной почтой,​ – «кнопку» (в​Когда Вы запустите макрос,​(Вид > Макросы​

      • ​(Разработчик), то получить​Задайте имя макросу (не​ котором мы сохранили​​ Вы увидите, как​​, он тоже поддерживает​ для этого воспользуйтесь​​ и включение записи​​ числовыми и текстовыми​. Откроется диалоговое окно​​Если таких строк нет,​​ (Visual Basic for​

        ​ dblMin), _ cMargin​
​ каждого столбца.​

      • ​ новым документом, местом​ виде серого кирпичика).​​ цвет шрифта изменится​​ > Макросы), выберите​

        ​ доступ к элементам​
​ допускаются пробелы и​

      ​ макрос —​ табличный курсор прыгает​ макросы.​ комбинацией клавиш​ через меню.​ данными.​Макрос​ то обязательно добавьте​ Applications) в книгу​ + rng.Left +​Назначаем каждой автофигуре свой​ в текущем документе.​ Теперь рисуем курсором​ на красный:​ из списка название​ управления формы можно​ специальные символы), клавишу​FormatData​

   5. ​ с ячейки на​Когда шаблон сохранён, можно​Ctrl+A​Теперь, когда режим записи​​Использовать внешние источники данных​​(Macro). В списке​ следующие строки в​​ Excel, и как​ ((i + 1)​ макрос: для «Наименование»​​Достаточно выбрать необходимый вариант​ кнопку необходимого размера.​При выполнении второго условия​ нужного макроса и​​ с нее. Для​​ быстрого вызова, а​​.​​ ячейку. Через несколько​​ спокойно закрыть Excel.​, либо щелкните по​​ макроса включен, давайте​​ (файлы баз данных,​Имя макроса​​ свой макрос, чтобы​ запускать вставленный макрос​​ * (rng.Width -​ – Макрос1, а​​ и прописать к​​Кнопка – элемент управления​

1. ​ шрифт станет синим:​​ нажмите​​ этого перейдите на​ также, где бы​Создайте новый макрос с​ секунд с данными​

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

​Прежде чем раскрыть все​ иконке​​ займёмся нашей задачей.​​ текстовые документы и​​(Macro name) выберите​​ он работал быстрее​​ для выполнения различных​​ (cMargin * 2))​ для «Май» –​ нему путь. Этот​​ формы. Снова переходим​​Вы также можете использовать​

​Run​ вкладку​
​ Вы хотели сохранить​
​ именем​

​ будут проделаны те​

office-guru.ru

Как автоматизировать рутинные задачи в Excel с помощью макросов

• ​ возможности созданного Вами​
• ​Выделить все​ Первым делом, добавим​
• ​ т.д.)​
• ​ нужный макрос и​ (см. рисунок выше):​
• ​ задач на этом​ / (Points.Count -​

​ Макрос2 и т.д.​ способ не требует​ на вкладку «Разработчик».​ конструкцию​(Выполнить).​Developer​ свой макрос. При​LoadData​ же операции, что​ макроса, считаю правильным​, которая находится на​ заголовки для итоговых​Создавать новый документ.​ нажмите кнопку​В самое начало кода​ листе.​ 1)), _ cMargin​

​Все теперь достаточно только​ написания макросов и​ Открываем меню инструмента​Case​Следующий код отображает фразу​(Разработчик), нажмите на​ желании, Вы можете​.​ и при записи​

Что такое Макрос?

​ обратить внимание на​ пересечении заголовков строк​ данных.​Проделывать все вышеперечисленные действия​Выполнить​ после всех строк,​Большинство пользователей не являются​​ + rng.Top +​​ кликнуть по заголовку​ предоставляет пользователю широкие​ «Вставить». Теперь выбираем​, чтобы связать выполнение​ «​ иконку​ добавить описание.​В процессе записи макроса​ макроса. Когда всё​ пару важных моментов,​ и столбцов. Затем​Далее, введите в ячейки​ в любой их​(Run).​ начинающихся с​ гуру Microsoft Office.​

​ (dblMax — Points(,​ и таблица отсортирует​ возможности.​ элемент «кнопка» из​ действия с появлением​Hello World​Insert​

• ​С этого момента макрос​
• ​LoadData​ будет готово, таблица​ касающихся макросов в​
• ​ нажмите​ формулы в соответствии​ комбинации.​Урок подготовлен для Вас​
• ​Dim​
• ​ Они могут не​ i + 2))​ данные относительно определенного​

Создание макроса – практический пример

​Подобные задачи можно выполнять​ первой группы (такой​​ определённого значения в​​» в окне сообщений​(Вставить) и из​ записывает действия. Например,​сделайте импорт данных​ должна выглядеть так​ целом:​Comma Style​ с названиями заголовков​Для примера возьмём самый​ командой сайта office-guru.ru​(если строк, начинающихся​

​ знать всех тонкостей​ * (rng.Height -​ столбца. Для удобства​ и с помощью​ же серый кирпичик).​ ячейке. В следующем​ Windows.​ раскрывающегося меню выберите​ Вы можете ввести​ из файла​

​ же, как и​​Макрос может нанести вред.​​(Формат с разделителями)​​ (даны варианты формул​​ обычный файл​​Источник: https://www.ablebits.com/office-addins-blog/2013/12/06/add-run-vba-macro-excel/​​ с​

​ работы той или​ (cMargin * 2))​ столбец «Наименование» Макрос1​​ макросов. Например, чтобы​​ Рисуем кнопку. Сразу​

​ примере отображается сообщение,​Sub MacroName() MsgBox​ нужный элемент.​ слово «​data.csv​ оригинал, который мы​

​Ещё раз прочти предыдущий​ на вкладке​ для англоязычной и​CSV​Перевел: Антон Андронов​​Dim​​ иной функции, и​ / (dblMax -​​ сортирует по возрастанию​​ при нажатии, пользователь​ открывается окно для​​ содержание которого зависит​​ («Hello World!») End​

​Не знаете, как отобразить​Hello​– как мы​​ форматировали вручную, только​​ пункт.​Home​ русифицированной версии Excel,​. Это простая таблица​Автор: Антон Андронов​нет, то вставляем​ не смогут ответить​ dblMin)) On Error​ благодаря параметру Order:=xlAscending.​ попадал в определенную​ назначения макроса: можно​ от указанного возраста​ Sub​ вкладку​» в ячейку​

​ это делали в​ с другими данными​VBA-код обладает очень большими​(Главная).​ адреса ячеек –​ 10х20, заполненная числами​

​Что такое Макрос?​ сразу после строки​ на вопрос, как​ Resume Next j​ Во всех остальных​ ячейку (М6), прописываем​ сделать сразу, а​ человека.​В следующем примере мы​

• ​Developer​​A1​​ предыдущей части урока.​
• ​ в ячейках.​​ возможностями. В частности,​​Далее, изменим внешний вид​
• ​ всегда латинские буквы​​ от 0 до​​Создание макроса – практический​
• ​Sub​​ отличается скорость выполнения​​ = 0: j​
• ​ столбцах присвоены макросы​​ следующий код:​​ можно попозже.​

​Sub MacroName() Dim​ создаём сообщение с​(Разработчик)? Excel 2007:​.​Когда импорт будет завершён,​Как уже не раз​

​ он может выполнять​ заголовков столбцов и​ и цифры):​ 100 с заголовками​

​ пример​):​ макроса VBA в​ = UBound(arr) +​ (2,3,4) с параметром​

​Sub Макрос 1()​

• ​Кнопка – автофигура. Переходим​​ CellValue As Integer​​ выбором​
• ​ жмем на кнопку​​Теперь снова нажмите иконку​​ остановите запись макроса.​​ упоминалось, макрос —​ операции с файлами​ строк:​=SUM(B2:K2)​ для столбцов и​Выполнение макроса в Excel​Application.ScreenUpdating = False​ Excel 2010 и​
• ​ 1 On Error​​ Order:=xlDescending, который задает​​Range(«M6»).Select​
• ​ на вкладку «Вставка».​​ CellValue = ActiveCell.Value​​Yes​
• ​Office​​Macros​​Удалите все данные из​​ это программный код​ за пределами текущего​Жирное начертание шрифта.​или​

​ строк. Наша задача​Заглянем под капот: Как​Application.Calculation = xlCalculationManual​ 2013. Многие просто​ GoTo 0 ReDim​ тип сортировки по​End Sub​ В меню «Иллюстрации»​ Select Case CellValue​​(Да) или​​>​(Макросы) и в​​ ячеек.​​ на языке программирования​ документа. Например, макрос​Выравнивание по центру.​=СУММ(B2:K2)​​ превратить этот набор​​ работает макрос?​В самый конец кода,​​ используют Excel, как​​ Preserve arr(j) arr(j)​

​ убыванию. Чтобы видно​Точно так же можно​ выбираем подходящую фигуру.​

• ​ Case 60 To​
• ​No​
• ​Excel Options​

​ раскрывшемся меню выберите​Сохраните файл, как шаблон​

​Visual Basic for Applications​ может удалять или​

​Заливка цветом.​=AVERAGE(B2:K2)​

​ данных в презентабельно​Добавим ещё один шаг​ перед​ инструмент для обработки​

​ = shp.Name Next​ было, в каком​ назначить макрос диаграмме,​ Рисуем. По готовой​ 200 MsgBox «The​(Нет). Если выбрать​(Параметры Excel) >​Stop Recording​ Excel с поддержкой​(VBA). Когда Вы​ изменять любые файлы​И, наконец, настроим формат​или​ отформатированную таблицу и​ к нашей задаче…​End Sub​ данных.​

​ With rng.Worksheet.Shapes.Range(arr) .Group​ месяце было больше​ объектам WordArt, SmartAtr.​ фигуре можно щелкнуть​​ person is old»​​ вариант​Popular​(Остановить запись).​ макросов (расширение XLTM).​ включаете режим записи​​ в папке​​ итоговых значений.​

​=СРЗНАЧ(B2:K2)​ сформировать итоги в​Excel располагает мощнейшей, но​:​Предположим, нужно изменить данные​ If Color >​ продано товара.​Для показательного примера создайте​ правой кнопкой мыши​​ Case 30 To​​Yes​

​(Основные) и ставим​​Доступ к записанному макросу​Таким образом, запустив этот​​ макроса, Excel фактически​​Мои документы​Вот так это должно​=MIN(B2:K2)​ каждой строке.​ в то же​Application.ScreenUpdating = True​​ на листе Excel​​ 0 Then .Line.ForeColor.RGB​Скачать пример кнопки сортировки​

​ тестовую таблицу как​ и изменить оформление.​

Выполнение макроса в Excel

​ 59 MsgBox «The​(Да), то значение​ галочку напротив опции​ можно получить с​ шаблон, Вы получаете​ записывает каждое сделанное​. По этой причине​

• ​ выглядеть в итоге:​
• ​или​Как уже было сказано,​

​ время очень редко​Application.Calculation = xlCalculationAutomatic​ определённым образом. Мы​ = Color Else​Примечание. Такие простые макросы​ на рисунке:​Кнопка – рисунок. Переходим​ person is adult»​ ячейки будет удалено.​​Show Developer tab in​​ помощью команды​ доступ к двум​ Вами действие в​ запускайте и разрешайте​Если Вас все устраивает,​

​=МИН(B2:K2)​ макрос – это​ используемой, возможностью создавать​Эти строки, как можно​ немало погуглили и​ .Line.ForeColor.SchemeColor = -Color​ можно создать в​Вместо заголовков колонки таблицы​ на вкладку «Вставка».​ Case 18 To​Sub MacroName() Dim​ the Ribbon​View Macros​ макросам – один​ виде инструкций на​ выполнение макросов только​ остановите запись макроса.​=MAX(B2:K2)​ код, написанный на​​ автоматически выполняющиеся последовательности​​ понять из их​

​ нашли макрос VBA,​ End With End​ автоматическом режиме без​​ добавим автофигуры, которые​​ В меню «Иллюстрации»​ 29 MsgBox «The​ Answer As String​

​(Показывать вкладку «Разработчик»​(Макросы), которая находится​ загружает данные, другой​ языке VBA. По-простому,​ из источников, которым​Поздравляем! Вы только что​

​или​ языке программирования VBA.​​ действий с помощью​​ содержания, отключают обновление​​ который решает эту​​ With LineChart =​ программирования или без​​ будут служить кнопками​​ выбираем инструмент «Рисунок».​

​ person is young»​ Answer = MsgBox(«Are​ на ленте). Excel​ на вкладке​​ их форматирует.​​ Excel пишет программный​ Вы доверяете.​​ самостоятельно записали свой​​=МАКС(B2:K2)​

​ Но в Excel​ макросов. Макрос –​ экрана и пересчёт​ задачу. Однако, наше​ «» End Function​ написания VBA-кода, с​ для сортировки по​ Для выбора будут​ Case 0 To​ you sure you​ 2010: жмем по​View​Если есть желание заняться​ код вместо Вас.​Чтобы запустить наш макрос,​ первый макрос в​=MEDIAN(B2:K2)​

Заглянем под капот: Как работает макрос?

​ Вы можете создать​ идеальный выход, если​ формул рабочей книги​ знание VBA оставляет​​ Sub ShapeDelete(rngSelect As​​ помощью инструмента «Запись​ столбцам таблицы.​ предложены варианты, которые​ 17 MsgBox «The​ want to delete​ вкладке​(Вид) в выпадающем​ программированием, Вы можете​Чтобы увидеть этот программный​

​ форматирующий данные, откройте​ Excel.​или​​ программу, не написав​​ Вы имеете дело​​ перед выполнением макроса.​​ желать лучшего. Вот​​ Range) Dim rng​​ макроса».​В режиме Visual Basic​ имеются на компьютере.​​ person is a​​ the cell values​

​File​​ меню​​ объединить действия этих​ код, нужно в​ файл шаблона, который​Чтобы использовать созданный макрос,​=МЕДИАНА(B2:K2)​ и строчки кода,​ с однотипной задачей,​ После выполнения кода​ тут-то и придёт​ As Range, shp​voron25​ — ALT+F11 в​Графический объект создан. Теперь​ child» Case Else​ ?», vbQuestion +​(Файл) >​Macros​ двух макросов в​ меню​

Добавим ещё один шаг к нашей задаче…

​ мы создали в​ нам нужно сохранить​​Теперь выделите ячейки с​​ что мы и​ которая повторяется множество​ эти параметры снова​ на помощь пошаговая​ As Shape, blnDelete​: Function LineChart(Points As​​ папке Modules вставляем​​ нужно сделать его​ MsgBox «Unknown age»​ vbYesNo, «Delete cell»)​Options​(Макросы). Откроется диалоговое​ один – просто​Macros​

1. ​ первой части этого​ документ Excel в​ формулами и скопируйте​​ сделаем прямо сейчас.​​ раз. Например, обработка​
2. ​ включаются. Данный приём​ инструкция, с помощью​​ As Boolean For​​ Range, Color As​
3. ​ новый модуль Module1.​​ «рабочим».​​ End Select End​ If Answer =​​(Параметры) >​​ окно​ скопировав код из​(Макросы) на вкладке​
4. ​ урока. Если у​ формате, который поддерживает​
5. ​ их во все​Чтобы создать макрос, откройте​
6. ​ данных или форматирование​ приводит к ускорению​ которой мы сможем​

​ Each shp In​ Long) As String​ Для этого делаем​​ Sub​ vbYes Then ActiveCell.ClearContents​

​Customize Ribbon​Macro​LoadData​View​ Вас стандартные настройки​ макросы. Для начала​​ строки нашей таблицы,​​View​​ документов по стандартизированному​​ выполнения макроса от​

​ использовать найденный код.​ rngSelect.Worksheet.Shapes blnDelete =​
​ Const cMargin =​
​ по папке правый​

​К примеру, написали макрос​

office-guru.ru

Руководство и примеры работы с макросами в Excel

• ​Чтобы протестировать этот пример,​ End If End​
• ​(Настройка ленты) и​
• ​(Макрос), в котором​
• ​в начало кода​

​(Вид) кликнуть​ безопасности, то при​ необходимо удалить все​ потянув за маркер​(Вид) >​ шаблону. При этом​ 10% до 500%​Вставляем код VBA в​ False Set rng​ 2 Dim rng​ щелчок мышкой и​ для выполнения определенной​ Вы должны выбрать​ Sub​ в правом списке​ Вы сможете выбрать​FormatData​View Macros​ открытии файла сверху​ данные из созданной​ автозаполнения.​Macros​

Создаем макрос при помощи команды «Запись макроса»

1. ​ Вам не требуется​​ (да, макрос может​​ книгу Excel​ = Intersect(Range(shp.TopLeftCell, shp.BottomRightCell),​​ As Range, arr()​​ выбираем: Insert-Module.​​ задачи. Чтобы запускать​​ ячейку со значением​​Давайте проверим этот код.​​ включаем вкладку​​ нужный. Дважды кликните​

   

2. ​.​(Макросы) и в​ над таблицей появится​ нами таблицы, т.е.​После выполнения этого действия​(Макросы) >​ знание языков программирования.​ работать в 5​Запускаем макрос VBA в​
3. ​ rngSelect) If Not​ As Variant, i​Делаем двойной щелчок по​ его, нужно каждый​​ и запустить макрос.​​ Выделите ячейку и​​Developer​​ по имени макроса,​
4. ​Урок подготовлен для Вас​​ открывшемся диалоговом окне​​ предупреждение о том,​ сделать из неё​​ в каждой строке​​Record Macro​

​Вам уже любопытно, что​ раз быстрее, если​ Excel​​ rng Is Nothing​​ As Long, j​ Module1 и вводим​​ раз заходить в​​ Если значение выбранной​ запустите макрос. Вам​​(Разработчик).​​ чтобы выполнить программу.​ командой сайта office-guru.ru​​ нажать​​ что запуск макросов​ пустой шаблон. Дело​ должны появиться соответствующие​(Запись макроса…)​ такое макрос, и​

​ манипуляции над ячейками​В этом примере мы​ Then If rng.Address​

1. ​ As Long, k​​ в него следующий​​ меню «Разработчик». Что​​ ячейки, к примеру,​​ будет показано вот​​В следующем примере Вы​​Кроме этого, Вы можете​
2. ​Источник: http://www.howtogeek.com/162975/geek-school-learn-how-to-use-excel-macros-to-automate-tedious-tasks/​​Edit​​ отключен, и кнопка,​ в том, что​​ итоговые значения.​​Дайте своему макросу имя​
3. ​ как он работает?​​ происходят без лишних​​ будем использовать VBA​ = Range(shp.TopLeftCell, shp.BottomRightCell).Address​ As Long Dim​​ код:Sub Макрос1()​​ неудобно. Гораздо проще​ равно​ такое сообщение:​​ увидите, как использовать​​ связать макрос с​​Перевел: Антон Андронов​​(Изменить).​ чтобы включить их​
4. ​ в дальнейшем, работая​Далее, мы подведем итоги​ (без пробелов) и​ Тогда смелей вперёд​ остановок).​ макрос, который удаляет​
5. ​ Then blnDelete =​

​ dblMin As Double,​​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Clear​ создать «рабочую» кнопку.​​44​​Если Вы нажмёте​ цикл​ кнопкой. Для этого:​Автор: Антон Андронов​Откроется окно​ выполнение. Так как​​ с этим шаблоном,​​ для всей таблицы,​ нажмите​​ – далее мы​​Сохраняем рабочую книгу, как​ переносы строк из​ True End If​

​ dblMax As Double,​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Add Key:=Range(«A2:A6»), _​​Если мы использовали элемент​​, то будет показано​Yes​​FOR​​На вкладке​​Создаём макрос при помощи​​Visual Basic for Applications​​ шаблон мы сделали​​ мы будем импортировать​ для этого делаем​​ОК​ шаг за шагом​​ книгу Excel с​ ячеек текущего листа​ If blnDelete Then​ shp As Shape​​SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal​​ ActiveX, то:​​ вот такое сообщение:​​(Да), значение в​​. Цикл​​File​ команды Запись макроса​, в котором мы​​ самостоятельно и себе​​ в него самые​

Цикл FOR

​ ещё несколько математических​.​ проделаем весь процесс​​ поддержкой макросов. Для​​ Excel.​​ shp.Delete Next End​​ Set rng =​With ActiveWorkbook.Worksheets(«Лист1»).Sort​включаем режим конструктора (он​Макросы​ выделенной ячейке будет​​FOR​​(Файл) нажмите​​Цикл FOR​​ увидим программный код​​ мы доверяем, то​​ свежие и актуальные​

​ действий:​​Начиная с этого момента,​​ создания макроса вместе​​ этого нажмите​​Открываем рабочую книгу в​ SubЕсли можно скиньте​​ Application.Caller ShapeDelete rng​​.SetRange Range(«A2:D6»)​ находится на вкладке​– это отличный​ удалено. А если​

​позволяет нам выполнить​Options​Конструкция IF​ записанного нами макроса.​ нажимаем кнопку​ данные.​

​Соответственно:​ ВСЕ Ваши действия​​ с Вами.​​Ctrl+S​​ Excel.​​ в Excel и​​ For i =​​.Apply​ «Разработчик»);​ способ автоматизировать задачи​No​ повторение цикла с​​(Параметры) >​​Конструкция CASE​

​ Да, Вы правильно​Enable Content​​Чтобы очистить все ячейки​​=SUM(L2:L21)​ с документом записываются:​

​Макрос в Microsoft Office​и в окне​Нажатием​

​ отправьте заранее благодарю​ 1 To Points.Count​End With​​щелкаем два раза кнопкой​​ в Excel. Эта​​(Нет) – значение​​ разными значениями. Давайте​Quick Access Toolbar​​Многие люди думают, что​​ поняли, здесь этот​(Включить содержимое).​

​ от данных, щёлкните​или​ изменения ячеек, пролистывание​ (да, этот функционал​ с предупреждением​Alt+F11​ за помощь.​ If j =​End Sub​ мыши по созданной​ статья показывает лишь​ сохранится.​

​ посмотрим, как можно​(Панель быстрого доступа).​ макросы в Excel​ код можно изменить​Следующим шагом, мы импортируем​

​ правой кнопкой мыши​​=СУММ(L2:L21)​​ таблицы, даже изменение​ работает одинаково во​Следующие компоненты невозможно сохранить​​вызываем окно редактора​​mc-black​ 0 Then j​

Конструкция IF

​’————————————————​ кнопке – откроется​ немногие примеры того,​​В Microsoft Excel Вы​​ заполнить числами от​В поле​ – это очень​ и даже создать​ последний обновлённый набор​ по иконке​​=AVERAGE(B2:K21)​​ размера окна.​ многих приложениях пакета​ в книге без​

​ Visual Basic​: Вот, пользуйтесь.​ = i ElseIf​Sub Макрос2()​ режим Visual Basic​ что можно сделать​ также можете использовать​1​Choose commands from​ трудно, но это​ новый макрос. Те​ данных из файла​

​Выделить все​или​Excel сигнализирует о том,​​ Microsoft Office) –​​ поддержки макросов​

​На панели​mc-black​ Points(, j) >​

​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Clear​ с автоматически созданным​

Конструкция CASE

​ при помощи макросов.​ конструкцию​​до​​(Выбрать команды из)​ не так. В​ действия, которые мы​CSV​, которая находится на​=СРЗНАЧ(B2:K21)​ что включен режим​ это программный код​

​(The following features​Project-VBAProject​:​ Points(, i) Then​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Add Key:=Range(«B2:B6»), _​ пустым каркасом;​Урок подготовлен для Вас​IF​5​ выберите​ этой статье Вы​ совершали с таблицей​(на основе такого​ пересечении заголовков строк​— для расчёта​ записи макроса в​ на языке программирования​ cannot be saved​кликаем правой кнопкой​voron25​

​ j = i​SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal​вписываем между двумя строками​ командой сайта office-guru.ru​. В этом коде​ячейки​All Commands​​ найдёте несколько интересных​​ в этом уроке,​ файла мы создавали​

Заключение

​ и столбцов, и​​ этого значения необходимо​ двух местах. Во-первых,​Visual Basic for Applications​ in macro-free workbook)​ мыши по имени​, А что должен​ End If If​

​With ActiveWorkbook.Worksheets(«Лист1»).Sort​ команду для вызова​
​Источник: https://www.ablebits.com/office-addins-blog/2012/05/03/tutorial-excel-macros/​
​ мы будем раскрашивать​

​A1:A5​

office-guru.ru

Как сделать кнопку в Excel с помощью макроса и гиперссылки

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

Как сделать кнопку на листе Excel

​ делать макрос и​ k = 0​.SetRange Range(«A2:D6»)​ макроса.​Перевел: Антон Андронов​

​ ячейки в зависимости​

1. ​.​Найдите команду​ как можно автоматизировать​ с помощью автоматической​При выполнении импорта данных​ выберите пункт​ данные таблицы. Если​Macros​ документа. Чтобы было​Нет​ левой верхней части​
2. ​ где Вам не​ Then k =​.Apply​Для других графических объектов​Автор: Антон Андронов​ от их значения.​Для этого на вкладке​Option Button​ Ваши повседневные задачи​ записи макроса в​ из CSV-файла, возможно,​Delete​ взять среднее значение​
3. ​(Макросы) – вместо​ понятнее, документ Microsoft​(No).​ окна редактора) и​ нравится его работа​ i ElseIf Points(,​End With​ макрос назначается так​
4. ​Кнопка в Excel как​ Если значение в​Developer​(Кнопка), нам нужна​ в Excel. Макрос​ Excel. Но более​ Excel попросит Вас​

​(Удалить).​ из средних по​ строки​

​ Office можно сравнить​

Как в Excel сделать кнопку с макросом

​Откроется диалоговое окно​ в контекстном меню​ — тоже за​ k) < Points(,​End Sub​ же. Процедура еще​ ссылка на ячейку,​ ячейке больше​

​(Разработчик) нажмите​ та, что относится​

​ проще. Нужно щелкнуть​ какой-либо инструмент, созданный​20​Visual Basic​ к разделу​ на Visual Basic,​ тонко настроенной последовательностью​ для правильной передачи​ очищен от всех​

Другие варианты использования кнопок

​ результат будет другим.​(Запись макроса…) появилась​ тогда макрос –​(Save as). В​Insert​Нормальный макрос, работет.​ = i End​Sub Макрос3(​

​ правой кнопкой мыши​ макрос значительно упрощает​, то шрифт станет​. Дважды кликните по​

​Form Control​ созданная для того,​ и логикой действий​ данных в таблицу.​ данных, при этом​=MIN(N2:N21)​

​ строка​ это аналог Javascript.​ выпадающем списке​>​ Сейчас начало доходить,​ If Next dblMin​) ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Clear​

​ по нарисованной кнопке​ работу в программе.​ красным, иначе –​ объекту из списка​(Элементы управления формы).​ чтобы автоматизировать задачи​ требуют программирования вручную.​

​Когда импорт будет закончен,​
​ макрос остался записан.​
​или​

​Stop Recording​ То, что Javascript​Тип файла​

Как сделать кнопку сортировки в Excel для таблиц

​Module​ что писался он​ = Points(, j)​

1. ​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Add Key:=Range(«C2:C6»), _​ или картинке и​ Чаще всего это​ синим.​Microsoft Excel Objects​
2. ​ Выделите ее и​ в Microsoft Office.​Представьте, что наш исходный​ зайдите в меню​ Нам нужно сохранить​=МИН(N2:N21)​(Остановить запись).​ умеет делать с​
3. ​(Save as type)​.​ когда-то человеком для​ dblMax = Points(,​
   ​SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal​
   ​ выбрать инструмент «Назначить​
   ​ графический объект с​
   ​Sub MacroName() Dim​
   ​, в котором должен​
   ​ нажмите​
   ​ В своих примерах​
   ​ файл с данными​
   ​Macros​
   ​ книгу, как шаблон​
   ​=MAX(O2:O21)​
   ​Во-вторых, в нижнем левом​
   ​ данными в формате​
   ​ выбираем​
   ​Копируем код VBA (с​
   ​ поддержки «маленьких графиков»​
   ​ k) With rng.Worksheet.Shapes​
   ​With ActiveWorkbook.Worksheets(«Лист1»).Sort​
   ​ макрос».​
   ​ назначенным макросом или​
   ​ CellValue As Integer​
   ​ быть сохранён макрос.​
   ​Add​
   ​ я использую Excel​
   ​data.csv​
   ​(Макросы) на вкладке​
   ​ Excel с поддержкой​
   ​или​
   ​ углу окна Excel.​
   ​ HTML, находящимися на​
   ​Книга Excel с поддержкой​
   ​ веб-страницы или из​
   ​ в боле старых​
   ​ For i =​
   ​.SetRange Range(«A2:D6»)​
   ​С помощью кнопок в​
   ​ гиперссылкой. Рассмотрим, как​
   ​ CellValue = ActiveCell.Value​ Введите вот такой​(Добавить). Затем нажмите​ 2010, но с​
4. ​создаётся автоматически каким-то​View​ макросов, который имеет​=МАКС(O2:O21)​ Иконка​

​ web-странице, очень похоже​ макросов​ другого источника) и​ версиях Excel, не​ 0 To Points.Count​.Apply​ Excel можно не​ сделать такую кнопку.​ If CellValue >​ код:​ОК​ таким же успехом​ процессом и сохраняется​(Вид) и выберите​ расширение​=MEDIAN(B2:K21)​Стоп​

​ на то, что​

​(Excel macro-enabled workbook)​ вставляем его в​ имевших этой возможности,​ — 2 Set​End With​ только выполнять созданные​Суть работы: создать графический​

exceltable.com

Как добавить макрос в Excel

​ 20 Then With​​Sub Macro1 ()​, чтобы закрыть параметры​ Вы можете использовать​ на диске всегда​ команду​XLTM​или​(маленький квадратик) указывает​ макрос может делать​ и нажимаем кнопку​ правую область редактора​ например в Excel​ shp = .AddLine(​End Sub​ макросы, но и​ объект и назначить​ Selection.Font .Color =​ For n =​ Excel.​ Excel 2007.​ в одном и​View Macros​.​=МЕДИАНА(B2:K21)​ на то, что​ с данными в​Сохранить​ VBA (окно​ 2003. До этого​ _ cMargin +​’————————————————​ переходить в определенную​ для него макрос​ -16776961 End With​ 1 To 5​Выберите команду, только что​Для начала откройте вкладку​ том же месте.​(Макросы).​Важный момент!​— считаем, используя​ включен режим записи​ документе Microsoft Office.​(Save).​Module1​ выкладывал в XLSX​ rng.Left + (i​Sub Макрос4()​ ячейку, другой документ,​ или гиперссылку. Рассмотрим​ Else With Selection.Font​ Cells(n, 1) =​ добавленную на Панель​View​ Например,​В открывшемся диалоговом окне​Если Вы сохраните​ исходные данные таблицы,​ макроса. Нажатие на​Макросы способны выполнить практически​Нажимаем​).​ (для Office 2007),​ * (rng.Width -​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Clear​ на другой лист.​ подробнее.​ .ThemeColor = xlThemeColorLight2​ n Next n​ быстрого доступа, и​(Вид) на Ленте.​C:Datadata.csv​ мы увидим строку​ файл с расширением​ по причине указанной​ неё остановит запись.​ любые действия в​Alt+Q​Подсказка:​ а сейчас выложу​ (cMargin * 2))​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Add Key:=Range(«D2:D6»), _​ Рассмотрим подробнее.​Способы создания графического объекта:​ .TintAndShade = 0​ End Sub​ начертите контур кнопки​ В выпадающем списке​– путь к​ с именем нашего​XLTX​ выше.​ И наоборот, когда​ документе, которые Вы​, чтобы закрыть окно​Как увеличить скорость​ для Office 2003​ / (Points.Count -​SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal​Нарисуем графический объект и​

​Кнопка – элемент ActiveX.​​ End With End​

​Сохраните файл. Чтобы выполнить​​ на рабочем листе​​Macros​​ файлу с обновляемыми​ макроса​, то макрос в​Теперь, когда с вычислениями​ режим записи не​ только можете пожелать.​

​ редактора VBA и​ выполнения макроса?​ — XLS.​ 1)), _ cMargin​With ActiveWorkbook.Worksheets(«Лист1»).Sort​ выделим его. На​ Переходим на вкладку​ If End Sub​ макрос, перейдите​ Excel.​(Макросы) нажмите кнопку​ данными. Процесс открытия​FormatData​ нём работать не​ закончили, займёмся форматированием.​

CyberForum.ru

​ включен, в этом​

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

Как сделать и установить надстройку в Excel

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

1. Создайте новую рабочую книгу: «ФАЙЛ»-«Создать»-«Пустая книга». Или нажмите комбинацию горячих клавиш CTRL+N.



2. Откройте редактор макросов: «РАЗРАБОТЧИК»-«Код»-«Visual Basic».



3. Вставьте новый модуль выбрав инструмент: «Insert»-«Module».



4. В окне модуля введите свой код макроса. Возьмем простейший пример макроса:

Sub MyMakros()
Dim polzovatel As String
Dim data_segodnya As Date
polzovatel = Application.UserName
data_segodnya = Now
MsgBox "Макрос запустил пользователь: " & polzovatel & vbNewLine & data_segodnya
End Sub


5. Закройте окно редактора макросов и выберите инструмент: «ФАЙЛ»-«Сохранить как» (CTRL+S). В поле «Имя файла:» введите название для своей тестовой программы. А из выпадающего списка «Тип файла:» выберите значение «Надстройка Excel 97-2003» (*.xla). Автоматически откроеться папка для установки надстроек: C:Documents and SettingsUser_Name AppDataRoamingMicrosoftAddIns. И нажмите на кнопку «Сохранить».



6. Перед тем как установить надстройку в Excel, закройте все открытые рабочие книги снова запустите программу Excel.
7. Выберите инструмент: «ФАЙЛ»-«Параметры»-«Надстройки». Внизу из выпадающего списка «Управление:» укажите на опцию «Надстройки Excel» и нажмите на кнопку «Перейти».



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

Надстройка VBA готова! Теперь во всех открытых рабочих книгах можно будет воспользоваться макросами из вашего *.xla файла. Чтобы убедиться в этом снова откройте редактор Visual Basic (ALT+F11).

Как видно ее теперь всегда можно найти в списке проектов и использовать все ее макросы в любых других файлах.



Как удалить надстройку в Excel

Чтобы отключить вашу надстройку снова откройте окно «ФАЙЛ»-«Параметры»-«Надстройки»-«Перейти» и снимите соответственную галочку в появившемся диалоговом окне. Для полного удаления надстройки придется удалить ее файл *.xla из папки C:Documents and SettingsUser_Name AppDataRoamingMicrosoftAddIns.

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

Внимание! В данном примере мы использовали формат рабочей книги для сохранения файла в формате «Надстройка 97-2003». Это позволяет использовать ее в разных версиях Excel. Например, файлы, сохраненные в формате *.xlam не может быть использована в версии 2007 и старше. Поэтому лучше воспользоваться старым форматом файлов надстройке *.xla.

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

Примечание. Если вы хотите защитить паролем доступ к своим исходным кодам макросов, тогда выберите инструмент в редакторе Visual Basic: «Tools»-«VBAProject Properties». На закладке «Protection» в поле ввода «Password:» введите пароль для защиты доступу к макросам проекта рабочей книги. В поле ввода «Confirm password:» введите пароль повторено и нажмите на кнопку ОК.

Создание макросов в разных версиях 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. Нажмите кнопку «Остановить запись».

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

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

Sub Макрос1() ‘ ‘ Макрос1 Макрос ‘ ‘     With Selection.Interior         .Pattern = xlSolid         .PatternColorIndex = xlAutomatic         .Color = 5296274         .TintAndShade = 0         .PatternTintAndShade = 0     End With End Sub

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

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

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

Sub Макрос2()   Selection.Interior.Color = 5296274 End Sub

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

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

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

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

Excel 2007-2016

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

Excel 2000-2003

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

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

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

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

Sub Макрос3()   Selection.Interior.Pattern = xlNone End Sub

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

Остановка макроса (процедуры)

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

1. Если панель инструментов редактора VBA доступна, нажмите кнопку Break или Reset.
2. Если редактор VBA не доступен, нажмите сочетание клавиш Ctrl+Break.
3. Если сочетание клавиш Ctrl+Break не срабатывает, закройте программу Excel через Диспетчер задач.
4. Если Диспетчер задач долго не открывается, остается только выключение компьютера большой кнопкой или кнопкой «Перезагрузка».

---

Microsoft Excel enables users to automate features and commands using macros and Visual Basic for Applications (VBA) scripting. VBA is the programming language Excel uses to create macros. It will also execute automated commands based on specific conditions.

Macros are a series of pre-recorded commands. They run automatically when a specific command is given. If you have tasks in Microsoft Excel that you repeatedly do, such as accounting, project management, or payroll, automating these processes can save a lot of time.

Under the Developer tab on the Ribbon in Excel, users can record mouse clicks and keystrokes (macros).  However, some functions require more in-depth scripting than macros can provide. This is where VBA scripting becomes a huge benefit. It allows users to create more complex scripts.

In this article, we will explain the following:

• Enabling Scripts & Macros
• How to Create a Macro in Excel
• Specific Example of a Macro
• Learn More About VBA
• Create a Button to Get Started with VBA
• Add Code to Give the Button Functionality
• Did it Work?

Enabling Scripts & Macros

Before you can create macros or VBA scripts in Excel, you must enable the Developer tab on the Ribbon menu. The Developer tab is not enabled by default. To enable it:

• Open an Excel worksheet.
• Click on File > Options > Customize Ribbon.

• Put a tick in the box next to Developer.

• Click on the Developer tab from the Ribbon menu.

• Next, click on Macro Security and tick the box next to Enable all macros (not recommended; potentially dangerous code can run). 
• Then click OK.

The reason macros are not turned on by default and come with a warning is that they are computer code that could contain malware.

Make sure the document is from a trusted source if you are working on a shared project in Excel and other Microsoft programs.

When you are done using your scripts and macros, disable all macros to prevent potentially malicious code from infecting other documents.

All the actions you take in Excel while recording a macro are added to it. 

• From the Developer tab, click on Record Macro.

• Enter a Macro name, a Shortcut key, and a Description. Macro names must begin with a letter and can’t have any spaces. The shortcut key must be a letter.

Decide where you want to store the macro from the following options:

• Personal Macro Workbook: This will create a hidden Excel document with stored macros to be used with any Excel documents.
• New Workbook: Will create a new Excel document to store the created macros.
• This Workbook: This will only be applied to the document you are currently editing.

When done, click OK. 

• Run through the actions you want to automate. When you are finished, click Stop Recording. 
• When you want to access your macro, use the keyboard shortcut you gave it.

Specific Example Of a Macro

Let’s start with a simple spreadsheet for customers and how much they owe. We will begin by creating a macro to format the worksheet.

Let’s assume that you decide that all spreadsheets should use a different format such as putting first and last name in separate columns. 

You can manually change this. Or you can create a program using a macro to automatically format it correctly for you.

Record The Macro

• Click on Record Macro. Let’s call it Format_Customer_Data and click OK. 
• To get the formatting we want, we will change the first column name to First Name. 
• Then insert a column next to A and call it Last Name. 
• Highlight all the names in the first column (which still include first and last name), and click on Data from the ribbon navigation.
• Click on Text to Columns.

• Tick Delimited > Next > Separate by Space > Next > Finish. See screenshot below and how the first and last names were separated by the process above.

• To format the Balance Due field, highlight the amounts. Click on Home > Conditional Formatting > Highlight Cell Rules > Greater Than > 0.

This will highlight the cells that have a balance due. We added a few customers with no balance due to further illustrate the formatting.  

• Go back to Developer and click Stop Recording.

Apply The Macro

Let’s start with the original spreadsheet before we recorded the macro to format it correctly. Click on Macros, select and Run the macro you just created.

When you run a macro, all the formatting is done for you. This macro we just created is stored in the Visual Basic Editor.

Users can run macros in several different ways. Read Run a macro to learn more.  

Learn More About VBA

To learn about VBA, click on Macro from the Developer tab. Find one you have created and click Edit.

The code you see in the box above is what was created when you recorded your macro. 

It is also what you will run when you want to format other customer payment spreadsheets in the same way.

Create a Button To Get Started With VBA

Using the same spreadsheet above with customers and how much they owe, let’s create a currency converter.

• To insert a button element, navigate to the Developer tab. 
• Select ActiveX Command Button from the dropdown next to Insert in the Controls section.

• Drag the button anywhere on the spreadsheet so you can easily access it and change it later if you want.

• To attach the code, right-click on the button and select Properties. We will keep the Name as CommandButton and the Caption to Convert (this is the button text).

Add Code To Give The Button Functionality

VBA coding doesn’t take place in the Excel interface. It is done in a separate environment.  

• Go to the Developer tab and make sure Design Mode is active.

• To access the code of the button we just created, right-click on it and select View Code.

• Looking at the code in the screenshot below, notice the beginning (Private Sub) and end (End Sub) of the code is already there.

• The code below will drive the currency conversion procedure.

ActiveCell.Value = (ActiveCell * 1.28)

Our purpose in this section is to convert the currency in our spreadsheet. The script above reflects the exchange rate from GBP to USD. The new value of a cell will be what is currently there multiplied by 1.28.

The screenshot below shows you how the code looks in the VBA window after you insert it .

• Go to File in the top navigation and click on Close and Return to Microsoft Excel to return to the main Excel interface.

Did It Work?

Before you can test your code, you must first disable Design Mode (click on it) to avoid further modifications and give the button functionality.

• Type any number into your spreadsheet and then click the Convert button. If the value of your number increases by approximately one-quarter, it worked.

For this example, I put the number 4 into a cell. After clicking Convert, the number changed to 5.12. Since 4 times 1.28 is 5.12, the code was carried out correctly.

Now that you understand how to create a macro or script in Excel, you can use them to automate a multitude of actions in Excel.