Как добавить файл макроса в excel

Если Вы не сильны в программировании, но, при этом, Вам необходимо реализовать какую-либо задачу, выходящую за рамки стандартных функций и команд 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, они представляют собой код, который был создан через язык VBA. Они могут создаваться через макрорекодер или вручную. После создания алгоритма действий его можно будет запускать неограниченное количество раз для совершения повторяющихся операций. Однако сам процесс добавления макроса в рабочую книгу необходимо рассмотреть подробнее, так как при любом неправильном действии алгоритм будет работать некорректно или приведет к появлению различных ошибок.

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

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

• вручную;
• автоматически.

Для того чтобы создать макрос автоматически, достаточно записать определенный порядок действий через Excel. При этом их необходимо выполнять в данный момент. Когда запись будет окончена, ее можно будет применить к другим таблицам, нажав на воспроизведение. Главное преимущество данного способа – нет необходимости учить код, чтобы применять его на практике. Однако такой алгоритм не будет обладать какой-либо гибкостью, его можно будет применять только в определенных ситуациях. Процесс автоматической записи макросов:

1. Изначально необходимой зайти “Центр управления безопасностью” через главное меню программы.
2. Зайти во вкладку “Параметры макросов”.
3. Активировать команду “Включить все макросы”.

1. Перейти на вкладку “Разработчик”, которая находится на основной панели инструментов.
2. Нажать на кнопку “Запись макроса” (она находится в панели инструментов под названием “Код”).

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

Важно! Для открытия панели с готовыми макросами нужно нажать комбинацию клавиш Alt+F8. Она вызывает окно с уже созданными алгоритмами, из которых необходимо выбрать желаемый вариант.

Как добавить готовый макрос в рабочую книгу

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

1. Изначально необходимо найти желаемую команду в интернете. После этого выделить полученный код.
2. Запустить рабочую книгу, активировать комбинацию клавиш Alt+F
3. Перед пользователем должно открыться окно VBA.

1. По левую сторону необходимо найти окно “Project — VBA Project”. Из появившегося списка нужно выбрать рабочую книгу.
2. Открыть меню “Insert”, активировать функцию “Module”.
3. После этого в левом окне появится новая папка под названием “Moduels”.
4. Открыть новый объект внутри созданной паки, в свободное окно вставить скопированный код по комбинации клавиш “Ctrl+V”.

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

Важно! Чтобы сохранить готовую таблицу с добавленным макросом в Excel версий 2007, 2010, 2013 годов, нужно выбрать из списка тип файла строку “Книга Excel с поддержкой макросов”.

Как запустить макрос

Существует несколько проверенных способов запуска добавленных или созданных алгоритмов действий в Excel. Самый простой метод – запуск макроса через VBA:

1. Зайти во вкладку “Разработчик” на главной панели с инструментами.
2. Перейти в панель с инструментами “Код”, нажать на кнопку “Макросы”.
3. Из открывшегося окна нужно выбрать требуемый алгоритм с помощью ЛКМ, нажать на кнопку “Выполнить”.

После этого алгоритм будет выполняться. Активация макроса через комбинацию клавиш:

1. Необходимо зайти в окно с готовыми или добавленными алгоритмами действий точно так же, как было описано в способе выше.
2. Перейти во вкладку “Параметры” которая расположена в правой части появившегося окна.
3. Откроется еще одно окно, в котором можно настроить алгоритм.

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

Совет! В окне с параметрами есть большое свободное поле снизу, которое имеет название “Описание”. В ней рекомендуется кратко написать, какие действия выполняет данный алгоритм. Это поможет не путаться в созданных макросах при их использовании.

Запуска алгоритма через панель быстрого доступа:

1. На панели быстрого доступа найти значок стрелки, направленной вниз.

1. Из открывшегося списка выбрать функцию “Другие команды”. Должно появиться окно с параметрами Excel.
2. Из списка в левой стороне зайти во вкладку “Выбрать команду”. Нажать на функцию “Макросы”.
3. Далее необходимо выбрать желаемый алгоритм действий.

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

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

Заключение

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

Как в 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 языке программирования Visual Basic for Application (VBA). Если вам часто приходится выполнять одни и те же операции в Эксель, то гораздо проще записать макрос или найти готовый код макроса, для выполнения определенных действий в Интернете.

Во втором случае, Вы найдете макрос в виде VBA-кода. В этом обычно и состоит вопрос: как добавить макрос в рабочий лист Excel, и как им пользоваться.

Как включить макросы в Excel

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

В окне «Параметры Excel» перейдите на вкладку «Настройка ленты», теперь в правой части окна поставьте галочку напротив пункта «Разработчик» и нажмите «ОК».

Вверху на ленте появится новая вкладка «Разработчик». На ней и будут находиться все необходимые команды для работы с макросами.

Теперь разрешим использование всех макросов. Снова открываем «Файл» – «Параметры». Переходим на вкладку «Центр управления безопасностью», и в правой части окна кликаем по кнопочке «Параметры центра управления безопасностью».

Кликаем по вкладке «Параметры макросов», выделяем маркером пункт «Включить все макросы» и жмем «ОК». Теперь перезапустите Excel: закройте программу и запустите ее снова.

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

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

Вставим код макроса в модуль

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

Открываем редактор VBА: переходим на вкладку «Разработчик» и кликаем по кнопочке «Visual Basic»,   также можно воспользоваться комбинацией «Alt+F11».

С левой стороны редактора, в окне «Project», выделяем мышкой рабочую книгу. Рабочая книга – это Ваш открытый документ Excel, в который нужно вставить макрос. У меня он называется «Книга1».

Кликаем по выбранному пункту правой кнопкой мыши и выбираем из меню «Insert» – «Module».

В окне «Project» появилась новая папка «Modules», а в ней наш первый модуль с названием «Module1».

Справа появится поле для ввода VBA-кода. С помощью комбинации «Ctrl+V», вставляю в него код, который будет объединять несколько ячеек, без потери данных. Название макроса «MergeCell».

Следите за тем, куда Вы вставляете код, это будет написано или в заголовке редактора, или в заголовке окна для вставки кода. Мы вставляем код в модуль, соответственно надпись – «Modul1(Code)».

Сохраняем изменения, нажав комбинацию «Ctrl+S». Если Вы используете Excel 2007 и выше, появится окно сохранения документа. В нем, в поле «Тип файла», выберите из выпадающего списка «Книга Excel с поддержкой макросов» и нажмите «Сохранить».

Вставим код макроса в рабочий лист

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

Открываем редактор VBA и в окошке «Project» выделяем нужный лист, если их в рабочей книге несколько, на котором должен работать макрос: «Лист1 (Лист1)». Кликаем по нему два раза мышкой.

Справа появиться окошко для ввода кода. Обратите внимание, мы вставляем код в рабочий лист, соответственно в заголовке написано «Лист1(Code)». Сохраните изменения в документе, как было описано выше.

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

Создадим пользовательскую функцию

Например, создадим функцию, которая будет рассчитывать НДС. В окне «Project» кликаем по рабочему листу правой кнопкой мыши и выбираем «Insert» – «Module».

В папке «Modules», появляется второй модуль с названием «Module2». Прописываем VBA-код   в соответствующее окно, и сохраняем его, нажав «Ctrl+S». Называться функция будет «NDS».

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

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

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

Выделяем ячейки, которые нужно объединить, затем переходим на вкладку «Разработчик» и кликаем по кнопочке «Макросы».

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

Макрос выполнился: нужные ячейки объединены, и текст в них сохранен.

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

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

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

Если Вы создали пользовательскую функцию, то вставлять в документ ее также надо как функцию. У меня такая функция должна рассчитывать НДС.

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

Откроется окно «Мастер функций». В поле «Категория» выбираем из выпадающего списка «Определенные пользователем», в поле «Выберите функцию» выбираем название из списка: «NDS». Нажимаем «ОК».

Затем выделяю ячейку, для которой нужно посчитать НДС, и нажимаю «ОК».

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

---

Загрузка…

Иллюстрация: Meery Mary для Skillbox Media

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

Макрос (или макрокоманда) в Excel — алгоритм действий в программе, который объединён в одну команду. С помощью макроса можно выполнить несколько шагов в Excel, нажав на одну кнопку в меню или на сочетание клавиш.

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

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

В статье разберёмся:

• как работают макросы и как с их помощью избавиться от рутины в Excel;
• какие способы создания макросов существуют и как подготовиться к их записи;
• как записать и запустить макрос начинающим пользователям — на примере со скриншотами.

---

Общий принцип работы макросов такой:

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

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

• Автоматизировать повторяющиеся процедуры.

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

• Объединять работу нескольких программ Microsoft Office.

  Например, с помощью одного макроса можно создать таблицу в Excel, вставить и сохранить её в документе Word и затем отправить в письме по Outlook.

• Искать ячейки с данными и переносить их в другие файлы.

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

• Форматировать таблицы и заполнять их текстом.

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

• Создавать шаблоны для ввода данных.

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

• Создавать новые функции Excel.

  Если пользователю понадобятся дополнительные функции, которых ещё нет в Excel, он сможет записать их самостоятельно. Все базовые функции Excel — это тоже макросы.

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

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

Есть два способа создания макроса в Excel:

• Написать макрос вручную.

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

• Записать макрос с помощью кнопки меню Excel.

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

Разберёмся на примере, как создать макрос с помощью второго способа.

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

Пользоваться таким отчётом неудобно — нужно сделать его наглядным. Запишем макрос при форматировании таблицы с продажами за январь и затем применим его к двум другим таблицам.

---

Готовимся к записи макроса

Кнопки для работы с макросами в Excel находятся во вкладке «Разработчик». Эта вкладка по умолчанию скрыта, поэтому для начала разблокируем её.

В операционной системе Windows это делается так: переходим во вкладку «Файл» и выбираем пункты «Параметры» → «Настройка ленты». В открывшемся окне в разделе «Основные вкладки» находим пункт «Разработчик», отмечаем его галочкой и нажимаем кнопку «ОК» → в основном меню Excel появляется новая вкладка «Разработчик».

В операционной системе macOS это нужно делать по-другому. В самом верхнем меню нажимаем на вкладку «Excel» и выбираем пункт «Параметры…».

В появившемся окне нажимаем кнопку «Лента и панель».

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

Готово — вкладка «Разработчик» появилась на основной панели Excel.

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

---

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

• Макрос записывает все действия пользователя.

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

• Работу макроса нельзя отменить.

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

• Макрос выполняет свой алгоритм только для записанного диапазона таблиц.

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

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

Появляется окно для заполнения параметров макроса. Нужно заполнить поля: «Имя макроса», «Сохранить в», «Сочетание клавиш», «Описание».

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

Первым символом в названии обязательно должна быть буква. Другие символы могут быть буквами или цифрами. Важно не использовать пробелы в названии — их можно заменить символом подчёркивания.

«Сохранить в» — здесь нужно выбрать книгу, в которую макрос сохранится после записи.

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

«Сочетание клавиш» — здесь к уже выбранным двум клавишам (Ctrl + Shift в системе Windows и Option + Cmd в системе macOS) нужно добавить третью клавишу. Это должна быть строчная или прописная буква, которую ещё не используют в других быстрых командах компьютера или программы Excel.

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

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

В нашем случае с форматированием таблицы заполним поля записи макроса следующим образом и нажмём «ОК».

После этого начнётся запись макроса — в нижнем левом углу окна Excel появится значок записи.

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

Важно: в нашем случае у таблиц продаж за январь, февраль и март одинаковое количество столбцов, но разное количество строк. Чтобы в случае со второй и третьей таблицей макрос сработал корректно, при форматировании выделим диапазон так, чтобы в него попали не только строки самой таблицы, но и строки ниже неё. Для этого нужно выделить столбцы в строке с их буквенным обозначением A–G, как на рисунке ниже.

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

После всех манипуляций с оформлением таблица примет такой вид:

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

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

Готово — мы создали макрос для форматирования таблиц в границах столбцов A–G. Теперь его можно применить к другим таблицам.

---

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

Перейдём в лист со второй таблицей «Февраль_2022». В первоначальном виде она такая же нечитаемая, как и первая таблица до форматирования.

Отформатируем её с помощью записанного макроса. Запустить макрос можно двумя способами:

• Нажать комбинацию клавиш, которую выбрали при заполнении параметров макроса — в нашем случае Option + Cmd + Ф.
• Перейти во вкладку «Разработчик» и нажать кнопку «Макросы».

Появляется окно — там выбираем макрос, который нужно запустить. В нашем случае он один — «Форматирование_таблицы». Под ним отображается описание того, какие действия он включает. Нажимаем «Выполнить».

Готово — вторая таблица с помощью макроса форматируется так же, как и первая.

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

Научитесь: Excel + Google Таблицы с нуля до PRO
Узнать больше

Содержание

• Способы записи макросов в Excel
• Вариант 1: Автоматическая запись макросов
  • Запуск макроса
  • Редактирование макроса
• Вариант 2: Написание кода макроса с нуля
• Вопросы и ответы

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

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

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

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

Подробнее: Включение и отключение макросов в Microsoft Excel

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

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



2. Открывается окно настройки записи макроса. Тут можно указать любое имя для него, если установленное по умолчанию вас не устраивает. Главное, чтобы имя это начиналось с буквы, а не с цифры, а также в названии не должно быть пробелов. Мы оставили название по умолчанию – «Макрос1».
3. Тут же при желании можно установить сочетание клавиш, при нажатии на которые макрос будет запускаться. Первой клавишей обязательно должна быть Ctrl, а вторую пользователь устанавливает самостоятельно. Мы в качестве примера установили клавишу М.
4. Далее следует определить, где будет храниться макрос. По умолчанию он расположен в этой же книге (файле), но при желании можно установить хранение в новой книге или в отдельной книге макросов. Мы оставим значение по умолчанию.
5. В самом нижнем поле можно оставить любое подходящее по контексту описание макроса, но это делать не обязательно. Когда все настройки выполнены, жмем на кнопку «OK».



6. После этого все ваши действия в данной книге (файле) Excel будут записываться в макрос до тех пор, пока вы сами не остановите запись.
7. Для примера запишем простейшее арифметическое действие: сложение содержимого трех ячеек (=C4+C5+C6).



8. Когда алгоритм был выполнен, щелкаем на кнопку «Остановить запись». Эта кнопка преобразовалась из кнопки «Запись макроса» после включения записи.

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

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

1. Кликаем в том же блоке инструментов «Код» по кнопке «Макросы» или жмем сочетание клавиш Alt + F8.



2. После этого открывается окно со списком записанных макросов. Ищем макрос, который мы записали, выделяем его и кликаем на кнопку «Выполнить».



3. Можно поступить еще проще и не вызывать даже окно выбора макросов, так как на первом этапе мы задали сочетание клавиш для быстрого вызова макроса. В нашем случае это Ctrl + М. Жмем данную комбинацию на клавиатуре, после чего он запускается.
4. Как видим, он выполнил в точности все те действия, которые были записаны ранее.

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

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

1. Снова щелкаем на кнопку «Макросы». В открывшемся окне выбираем нужный и кликаем по кнопке «Изменить».



2. Открывается «Microsoft Visual Basic» (VBE) – среда, где происходит их редактирование.





3. Запись каждого макроса начинается с команды Sub, а заканчивается командой End Sub. Сразу же после Sub указывается имя макроса. Оператор Range("…").Select указывает выбор ячейки. Например, при команде «Range(«C4»).Select» выбирается ячейка «C4». Оператор ActiveCell.FormulaR1C1 используется для записи действий в формулах и других расчетов.
4. Попытаемся немного изменить макрос, дописав выражение:

   Range("C3").Select
ActiveCell.FormulaR1C1 = "11"

5. Выражение ActiveCell.FormulaR1C1 = "=R[-3]C+R[-2]C+R[-1]C" заменим на ActiveCell.FormulaR1C1 = "= R[-4]C+R[-3]C+R[-2]C+R[-1]C".



6. Закрываем редактор и запускаем макрос. Как видим, вследствие введенных нами изменений была добавлена дополнительная ячейка с данными. Она также была включена в расчет общей суммы.
7. В случае если макрос слишком большой, его выполнение может занять значительное время, но внесением ручного изменения в код мы можем ускорить процесс. Добавляем команду Application.ScreenUpdating = False. Она позволит сохранить вычислительные мощности, а значит, ускорить работу. Это достигается путем отказа от обновления экрана во время выполнения вычислительных действий. Чтобы возобновить обновление после выполнения макроса, в его конце пишем команду Application.ScreenUpdating = True.
8. Добавим также команду Application.Calculation = xlCalculationManual в начало кода, а в его конец дописываем Application.Calculation = xlCalculationAutomatic. Этим мы сначала отключаем автоматический пересчет результата после каждого изменения ячеек, а в конце макроса – включаем. Таким образом, Excel подсчитает результат только один раз, а не будет его постоянно пересчитывать, чем сэкономит время.



Вариант 2: Написание кода макроса с нуля

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

1. Чтобы приступить к этому, нужно нажать на кнопку «Visual Basic», которая расположена в самом начале ленты разработчика.



2. Откроется окно редактора VBE, которое уже было продемонстрировано в предыдущем варианте.



3. Программист пишет там код макроса вручную.

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

Еще статьи по данной теме:

Помогла ли Вам статья?