Полезные макросы Excel для автоматизации рутинной работы с примерами применения для разных задач.
Примеры макросов для автоматизации работы
Макросы для фильтра сводной таблицы в Excel.
Как автоматизировать фильтр в сводных таблицах с помощью макроса? Исходные коды макросов для фильтрации и скрытия столбцов в сводной таблице.
Макрос для создания сводной таблицы в Excel.
Как автоматически сгенерировать сводную таблицу с помощью макроса? Исходный код VBA для создания и настройки сводных таблиц на основе исходных данных.
Макросы для изменения формата ячеек в таблице Excel.
Как форматировать ячейки таблицы макросом? Изменение цвета шрифта, заливки и линий границ, выравнивание. Автоматическая настройка ширины столбцов и высоты строк по содержимому с помощью VBA-макроса.
Макрос для копирования и переименования листов Excel.
Как одновременно копировать и переименовывать большое количество листов одним кликом мышкой? Исходный код макроса, который умеет одновременно скопировать и переименовать любое количество листов.
Сборник готовых макросов
Приветствую на странице, которую каждый начинающий VBA-программист просто обязан добавить в закладки. Сейчас расскажу почему.
Макросы могут сэкономить массу времени. Можно автоматизировать небольшие задачи (ссылка на примеры), или создавать целые проекты автоматизации. Нажал кнопку и макрос выполнил работу целого отдела (вот я вообще не преувеличиваю).
Если Вы не знаете, что такое макрос в Excel и для чего они нужны, то рекомендую начать обучение с бесплатного самоучителя. Сборник готовых примеров, конечно, тоже поможет, но лучше начать с основ, а потом уже переходить к практике.
Моя история
Я ещё со школы начал изучать VBA. Читал книжки, пользовался макрорекордером (подсматривал код, изменял под себя).
Когда ты школьник, то верх мастерства сделать калькулятор или игру. Стал студентом — разработал инвестиционный проект строительства свиноводческого комплекса (вводишь пару основных цифр и программа говорит какая мощность комплекса нужна, сколько нужно людей и денег, плюс тонную документов с деталями цикла производства и план-график выхода на проектную мощность).
Это всё, конечно, интересно и круто, но не сравнить с написанием макросов для решения реальных бизнес-задач.
Представьте на минуту, что всю вашу рутину:
- привести таблицу в «нормальный» вид;
- собрать данные из нескольких файлов в один;
- отфильтровать простыню из данных по нескольким критериям;
- построить сводную таблицу, график и отправить боссу
- тонна аналогичных скучных задач.
можно поручить Excel. ОДИН РАЗ прописать логику с помощью VBA и всё! Да, я знаю, что написание макроса иногда может занять неделю, а то и месяц. Но сколько вы каждый день/неделю/месяц тратите время на ерунду?
Я сам далеко не сразу узнал всё про макросы. Приходилось много читать скучных книг с примерами, которые даже не понимал куда применить, собирать по крупицам информацию в интернете. Да что там говорить — я и сейчас продолжаю изучать VBA.
Про сборник
Изначально я не хотел никому и не при каких обстоятельствах показывать сборник. Максимум ученикам и то, какую-нибудь урезанную версию (т..к постоянно добавляю новые коды). С рождением сына я пересмотрел свою позицию и захотел оставить след в истории (пафосно звучит, ну и пусть).
На поиск всех этих примеров я потратил слишком много времени, и будет круто, если сэкономлю ваше и вы сможете уделить его действительно важным вещам.
Если вы считаете, что что-то должно быть в списке, просто оставьте комментарий. Как только добавлю код — удалю комментарий, а про вас напишу в статье.
В этой огромной статье я собрал уже более 200 макросов, для удобства разбил их по группам.
Вы сможете использовать эти коды, даже если до этого не использовали VBA.
Работа с Excel файлами (WorkBook)
- Как создать файл Excel с помощью VBA
- Как сохранить файл в Excel при изменении определенной ячейки или диапазона
- Как сохранить файл в Excel перед закрытием
- Как защитить лист в книге перед закрытием
- Как снятие защиту с листа при открытии Excel файла
- Как открыть Excel файл на нужном листе
- Как открыть Excel файл, определенный пользователем
- Как определить, открыт ли Excel файл
- Как определяем, существует ли Excel файл в папке
- Как обновить все связи в открытых Excel файлах
- Как закрыть сразу все Excel файлы
- Как открыть все Excel файлы в папке
- Как распечатать все Excel файлы в папке
- Как не дать закрыть Excel файл до тех пор, пока не заполнит ячейку
- Как создать резервную копию текущего Excel файла с сегодняшней датой
Назад к списку тем
Работа с листами Excel файла (WorkSheets)
- Как добавить новый лист и присвоить имя
- Как удалить все листы, кроме активного
- Как скрыть все, кроме активного рабочего листа
- Как отобразить все листы книги
- Как переместить рабочие листы книги
- Как сортировать листы по названию
- Как сгруппировать листы по цвету ярлычка
- Как скопировать лист в новый Excel файл
- Как создать новый Excel файл для каждого листа
- Как распечатать листы
- Как защитить все листы
- Как снять защиту со всех листов
- Как создать оглавление со списком листов
- Как изменить масштаб листа с помощью двойного клика
- Как выделить столбец активной строки на листе
Назад к списку тем
Работа с диапазонами (Range)
Эта часть посвящена диапазонам: их выбору, изменению, скрытию и т. д.
- Как выбрать и изменить форматирование диапазона
- Как создать и выбрать именованный диапазон
- Как сделать перебор диапазона ячеек
- Как выбрать и форматировать диапазон
- Как вставить пустые строки в диапазон
- Как отобразить все скрытые строки и столбцы
- Как удалить пустые строки
- Как удалить пустые столбцы
- Как отобрать и отформатировать все формулы на листе
- Как найти первую пустую строку или столбец
- Как применить дополнительный цвет заливки
- Как отсортировать диапазоны по двойному щелчку
- Как ограничить диапазон прокрутки в той или иной области
- Как автоматически задать область печати листа
Назад к списку тем
Макросы для работы с данными
Эта часть посвящена управлению данными: их очистке, форматированию и т. д.
- Как скопировать и вставить диапазон
- Как преобразовать все формулы в диапазон с значениями
- Как преобразовать текстовые значения в числовые
- Как преобразовать тире в минус
- Как удалить лишние пробелы из всех ячеек в диапазоне
- Как отсечь слева 5 знаков в каждой ячейке диапазона
- Как добавить в ячейку недостающие нули
- Как заменить пустые ячейки нулём
- Как добавить текст в начало или конец ячейки
- Как создать макрос преобразования данных
- Как очистить данные от непечатаемых символов
- Как выделить дубликаты в диапазоне данных
- Как скрыть повторяющиеся строки
- Как выборочно скрыть стрелки автофильтра
- Как скопировать отфильтрованные строки в новый Excel файл
- Как создать новый лист для каждого элемента в автофильтре
- Как показать отфильтрованные столбцы в строке состояния
Назад к списку тем
Макросы для сводных таблиц
- Как создать обратную совместимость сводной таблицы
- Как обновить все сводные таблицы книги
- Как создать список всех сводных таблиц книги
- Как создать все сводные таблицы, используя единый кэш
- Как скрыть все промежуточные итоги в сводной таблице
- Как изменить названия всех полей сводной
- Как принудительно суммировать значения для всех полей сводной
- Как применить числовой формат для всех элементов данных
- Как сортировать поля сводной в алфавитном порядке
- Как применить пользовательскую сортировку к элементам данных
- Как поставить защиту на сводную таблицу
- Как применить ограничения сводного поля
- Как автоматически удалять листы с детализацией
- Как распечатать сводную таблицу для каждого значения фильтра
- Как для каждого элемента фильтра создать новый Excel файл
- Как подготовить диапазон данных для сводной таблицы
Назад к списку тем
Макросы для графиков
- Как изменить размер диаграмм на рабочем листе
- Как привязать график к определенному диапазону
- Как создать набора бессвязных диаграмм
- Как распечатать всех диаграммы на рабочем листе
- Как отметить первое и последнее значение на графике
- Как сопоставить цвет диаграммы и исходных данных
- Как сопоставить цвет точек графика и исходных данных
Назад к списку тем
Макросы для отправки писем из Excel
- Как отправить Excel файл почтой (как вложение)
- Как отправить диапазон значений в качестве вложения
- Как отправить один листа файла в качестве вложения
- Как отправить письмо со ссылкой на наши файлы
- Как разослать письма с добавлением адресов в наш список контактов
- Как сохранить все вложения в отдельной папке
- Как сохранить определенные вложения в папку
Назад к списку тем
Макросы для работы с Access
- Как выполнить запрос Access из Excel
- Как запустить макрос Access из Excel
- Как открыть отчет Access из Excel
- Как открыть форму Access из Excel
- Как сжать базу данных Access из Excel
Назад к списку тем
Макросы для работы с MS Word
- Как отправить данные из Excel в Word документ
- Как сделать слияние с Word документом
Назад к списку тем
Макросы для работы с PowerPoint
- Как отправить данные Excel в PowerPoint
- Как отправить график из Excel в PowerPoint
- Как преобразовать рабочую книгу в презентацию PowerPoint
Назад к списку тем
Надстройка для Excel содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой. После установки надстройки на ленту Excel добавится новая вкладка — VBA-Excel. Цель данной программы — расширить стандартные возможности Excel, добавив в него дополнительное количество функций и команд, сократить время выполнения однотипных действий и автоматизировать рутинную работу. На любую команду вы сможете назначить горячую клавишу чтобы быстро ей пользоваться.
Системные требования:
Windows XP | Vista | 7 | 8.1 | 10
Excel 2007 | 2010 | 2013 | 2016 |2019
Торрент Надстройка для Excel — Надстройка VBA-Excel 2.1.00 подробно:
Состав надстройки:
На сегодняшний день надстройка Excel содержит более 80 пользовательских функций, и более 25 макросов.
Ячейки и диапазоны
Макросы
Работа с файлами
Текстовые функции
Логические функции
Финансовые функции
Функции даты и времени
Математические функции
Ссылки и массивы
Статистические функции
Информационные функции
Что нового в версии:
Версия: 2100 от 26.08.2018
+Написали собственную функцию для склонения произвольных фраз — СКЛОНЕНИЕ_ФРАЗ.
До этого вы использовали функцию СКЛОНЕНИЕ, которая работала от вэб сервиса Морфер.ру и имела ограничение на количество использований. Старая функция также будет поддерживаться. Будем рады отзывам и комментариям работы новой функции чтобы сделать ее лучше.
Версия: 2064 от 06.08.2018
-Исправлена ошибка открытия файлов
Версия: 2063 от 02.08.2018
+Усовершенствовали функционал объединения листов
+Добавили возможность импортирования листов из файлов CSV с сохранением столбцов
-Исправили ошибки функционала Применить формулу
-Восстановлена работа функции КУРС
+Мелкие улучшения и оптимизация
Версия: 2062 от 20.11.2017
+Сделали отдельную функцию для склонения фамилий СКЛОНЕНИЕ_ФИО
-Скорректировали работу функции СУММАПРОПИСЬЮ
-Исправили ошибки функционала Применить формулу
-Скорректировали работу функции КУРС
-Скорректировли функционал вставки даты из календаря
Версия: 2061 от 07.10.2017
-Мы переехали на новый сайт Micro-Solution.ru
-Для корректной работы всех функций просьба обновить программу до последней версии.
Версия: 2060 от 03.10.2017
+Добавили возможность редактировать API ключ сервиса Яндекс.Перевод
Версия: 2059 от 26.09.2017
Небольшое обновление
-Скорректировали работу функции СУММАПРОПИСЬЮ.
Версия: 2058 от 13.09.2017
-Скорректировали работу функции СКЛОНЕНИЕ.
-Спасибо, что относитесь с пониманием. Велик и могуч наш русский язык.
Функция будет работать в связке со сторонним сервисом Морфер.ру для подстраховки нашей функции. Поэтому возможно достижение ограничения на 1000 запросов в сутки с 1 компьютера.
Версия: 2057 от 11.09.2017
+Сделали собственную функцию СКЛОНЕНИЕ. Теперь нет ограничений по ее использованию. Пишите об ошибках или исключениях из правил, будем совершенствовать.
+Улучшили функцию СУММАПРОПИСЬЮ
-Поправили календарь и функционал вставки даты
-Починили игру Цветовое зрение
-Исправили мелкие ошибки
Установка:
1.Запустите Excel, перейдите в настройки безопасности, в параметрах макросов установите галочки: «Включить макросы» и «Доверять доступ к объектной модели проектов VBA»
2.Откройте в Excel файл VBA-Excel_Install_2.1.0.xlsm
3.Нажмите кнопку «Установить / обновить»
4.Заполните окно регистрации любыми данными (можно просто поставить нули), отметьте чекбокс «Я гуру Excel, мне это не интересно»
5.Нажмите «Установить»
Процедура лечения:
Лекарство создано пользователем Shamaneix с известного трекера, великая ему благодарность за великолепный труд.
Реакция антивирусов на кейген
Процедура лечения описана автором лекарства в текстовом файле в раздаче. Подробнее здесь.
После установки надстройки
(или до установки, но после открытия файла установки надстройки)
Нажимаем на кнопку с информацией — Справка — Активация.
Появляется окно активации с номером, сгенерированным конкретно для вашей копии офиса.
Копируем этот номер и закрываем окно активации.
Открываем через программу файл Keygen.xlsm, нажимаем на кнопку Keygen, в открывшемся поле в верхнюю ячейку вставляем скопированный номер и нажимаем Generate Key. Копируем из нижней ячейки сгенерированный номер.
Закрываем все открытые копии Excel.
Открываем блокнотом reg-файл VBA-Excel.reg и вместо XXXX-XXXX-XXXX-XXXX вставляем номер, сохраняем файл.
Запускаем рег файл и соглашаемся на внесение изменений в реестр.
Открываем Excel, переходим на закладку VBA-Excel, нажимаем на кнопку информации —Справка —Активация, убеждаемся, что надстройка активирована, закрываем и наслаждаемся новыми возможностями.
ВНИМАНИЕ!!! На официальном сайте лежит исправленная редакция этой же версии надстройки,
она не принимает данный метод активации. Не пытайтесь обновить.
Скриншоты Надстройка для Excel — Надстройка VBA-Excel 2.1.00 торрент:
Скачать Надстройка для Excel — Надстройка VBA-Excel 2.1.00 через торрент:
Если Вы не сильны в программировании, но, при этом, Вам необходимо реализовать какую-либо задачу, выходящую за рамки стандартных функций и команд MS Excel, можно поискать решение в интернете. Решение, скорее всего, найдется в виде VBA кода, который необходимо скопировать и вставить в Вашу рабочую книгу, потом каким-то образом заставить этот код работать на Вас, в этой статье я расскажу, как это сделать.
| Файл | Описание | Размер файла: | Скачивания |
|---|---|---|---|
 Пример |
14 Кб | 2798 |
Рассмотрим два примера:
Ищем и используем команду
Ищем и используем функцию
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 древних форматов (таких, например, как Excel 4), В настройках Excel 2010 для этого предусмотрены специальные опции (скриншот) Мало того, что Excel блокирует редактирование этих устаревших файлов, Избежать проблем при работе с такими файлами (а проблемы возможны, если вы обрабатываете макросом множество файлов, полученных от разных организаций), можно, если при открытии надстройки (файла с макросами) выполнить следующий код:
Сортировка двумерного массива по нулевому столбцу Public Function CoolSort(SourceArr As Variant) As Variant ' сортировка двумерного массива по нулевому столбцу
Данная VBA функция позволяет перевести текст с любого языка на другой Добавлено 17.10.2011
Добавлено 07.03.2012 Sub ПримерИспользованияФункцииПеревода() txt$ = "Привет! Это функция перевода текста на иностранный язык" res$ = Translate(txt$, "en", "ru") MsgBox "Результат перевода на английский:" & vbNewLine & res$, vbInformation, txt$ res$ = Translate(txt$, "de") MsgBox "Результат перевода на немецкий:" & vbNewLine & res$, vbInformation, txt$ End Sub Список кодов доступных языков для перевода:
Макрос позволяет увеличивать / уменьшать изображения на листе Excel по щелчку мыши. Для использования макроса, скопируйте в свой файл модуль с кодом (просто перетащив его мышкой из прикреплённого файла), Чтобы выделить все изображения, проделайте следующее:
После этого (как все картинки будут выделены), щелкните на одной из картинок правой кнопкой мыши, При щелчке на картинке, макрос плавно увеличивает картинку в 3 раза, попутно перемещая её в центр экрана Для увеличения создаётся копия исходной картинки. Код макроса ZoomImage:
К примеру, есть у вас несколько десятков (или сотен) текстовых файлов с подобным содержимым:
А надо из всего этого сформировать табличку в Excel — приблизительно такого вида:
На помощь придёт функция DATfolder2Array Sub ПримерИспользованияФункции_DATfolder2Array() Папка = "D:ПроектыDATs" ' папка, в которой будет производиться поиск файлов DAT для обработки Dim ErrorsArray ' пустой массив для ошибок ' считываем данные из все файлов .DAT в папке в двумерный массив DataArr = DATfolder2Array(Папка, 7, "1,2,4,5", ErrorsArray) ' результаты выводим на листы "errors" и "result" (они должны существовать) Array2worksheet Worksheets("errors"), ErrorsArray, _ Array("Имя файла", "Номер строки", "Данные из строки") Array2worksheet Worksheets("result"), DataArr, _ Array("Ячейка", "Штрих-Код", "Наименование", "код 1С", "код произв.", "кол-во", "счетовод") End Sub
|
