Макрос для excel отчет

• Надстройка PastePictures для MS Excel: общие сведения

  Предназначение программы: вставка изображений в таблицу Excel, поиск картинок в папке или в Google, экспорт картинок из таблицы в папку.
  Основные функции программы:

  вставка фото из папки (поиск по имени файла)
  вставка картинок по ссылкам из таблицы
  поиск изображений в гугл по данным с листа Excel
  экспорт изображений с листа в файлы…

• 

  Программа «Прайс лист», выполненная в виде надстройки для Excel, позволяет легко автоматизировать обработку прайс-листов.
  Вспомните ситуацию: поставщики в очередной раз прислали свои прайс-листы в Excel — конечно, в совершенно разных форматах — и вам нужно объединить данные из всех этих файлов в одну таблицу. А составители этих таблиц будто специально хотели усложнить вам жизнь…

• 

  Программа предназначена для сравнения и подстановки значений в таблицах Excel.
  Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
  и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
  надстройка «Lookup» поможет сделать это нажатием одной кнопки.
   
  То же самое можно сделать при помощи формулы =ВПР(), но:

  формулы…

• 

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

  При помощи этой программы вы можете:

  распечатать ценники на товар, взяв данные из прайс-листа

  сформировать этикетки и наклейки для заданных строк вашей таблицы

  подготовить квитанции для оплаты услуг ЖКХ (счета за водоснабжение, канализацию, электроэнергию)…

• 

  
  Программа предназначена для формирования (заполнения) договоров купли-продажи.
   
  Исходными данными выступает таблица сделок, и шаблон договора, в который при помощи формул подставляются значения из заданной строки таблицы сделок.
  Для запуска программы достаточно нажать зеленую кнопку — и сразу же начнётся формирование договоров (файлов Excel из одного листа) в автоматически созданной папке…

• Данный макрос предназначен для поиска адресов электронной почты на листе Excel, с последующим выводом найденных адресов на отдельный лист.
  В прикреплённом файле, на первом листе («исходные данные»), ячейки заполнены неструктурированной информацией (смесь фамилий, адресов почты, прочей ненужной информации)
  Макрос вычленяет из текста ячеек адреса электронной почты, и выводит все найденные…

• 

  
  Надстройка SearchText предназначена для поиска заданного текста в книге Excel, с выводом результатов поиска на отдельный лист.
   
  При запуске надстройка формирует панель инструментов, с которой осуществляется запуск всех макросов:

  В Excel 2007 и 2010 панель инструментов можно найти на вкладке «Надстройки»:

  Надстройка SearchText является расширенной версией надстройки для…

• 

  
  Программа предназначена для сравнения цен конкурентов из их прайсов с прайс-листом вашей организации.

  ВНИМАНИЕ: Недавно разработана многофункциональная программа для обработки прайс-листов

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

  Исходными данными для программы являются:

  ваш прайс…

• К примеру, есть у вас несколько десятков (или сотен) текстовых файлов с подобным содержимым:
  (количество файлов, и количество строк данных в каждом файле не ограничено)
  1c04;1J0-698-151-G;1 комплект тормозных накладок;1J0698151G;1J0698151G;5;1
  1c04;1H0698151A;Тормозные колодки;1H0698151A;1H0698151A;1;1
  1c04;1K0-698-151-B;Тормозные колодки;1K0698151B;1K0698151B;2;1
  А надо из всего этого…

• 

  
  База данных «Преподаватели» предназначена для автоматизации работы администрации учебных заведений.

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

  Эта база данных представляюет собой урезанную и немного изменённую версию программы АИСС СПК.

  Программа обеспечивает:

  Хранение полной…

• 

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

  Надстройка SearchExcel является упрощённой версией надстройки для поиска на всех листах книги Excel
  Смотрите также надстройку для…

• 

  Макрос FilenamesWithValues предназначен для получения списка файлов Excel из заданной папки, и загрузки значений из каждого найденного файла.
  В отдельной ячейке задаётся путь к папке, которая будет просмотрена в поисках файлов Excel.
  При формировании списка файлов проставляются гиперссылки на найденные файлы, указывается дата создания файла.
  Из каждого файла загружаются значения с…

• 

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

  Основные функции программы:

  создание (заполнение) новых заказов

  редактирование существующих заказов

  объединение нескольких заказов в один

  формирование заявки на продукцию на основании данных их сформированных заказов

  Для каждого заказа предусмотрен выбор клиента из базы данных (если клиент…

• 

  
  Программа АИСС «СПК» предназначена для автоматизации работы приемной комиссии колледжей и техникумов.

  АИСС обеспечивает выполнение всех необходимых операций по приему документов, поиску и анализу информации, составлению отчетов.

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

  Программа обеспечивает:

  Хранение полной…

• 

  
  Программа предназначена для загрузки списка товаров из актов о приеме-передаче основных средств.
  Поддерживаются акты по формам № ОС-3.1 и № ОС-3.3, возможно добавить поддержку актов других форм (в формате Excel).
  При запуске макроса, выводится диалоговое окно выбора папки, после чего, в выбранной папке, производится поиск всех файлов Excel.
  Для каждого из найденных файлов Excel, программа…

• 

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

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

   

  Особенность программы — возможность учёта и администрирования узлов связи с нестандартными…

• 

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

   

• 

  
  Программа предназначена для обработки объявлений о продаже недвижимости.
   

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

  разносить номера из ячеек по разным столбцам или строкам…

• 

  
  Программа предназначена для формирования прайс-листов на ноутбуки с соответствии с требованиями интернет-каталога Onliner.by

  Основные функции программы:

  (учитываются цены фирм-конкурентов, цены onliner.by и надбавка фирмы)

  загрузка каталога ноутбуков (названия, характеристики, цены) с сайта onliner.by в файл Excel, и обновление этого каталога

  назначение соответствий моделей…

• 

  
  Программа предназначена для составления учебного расписания.
  На отдельных листах хранится список преподавателей вуза, список групп и занятий у этих групп по дням недели.
  Макрос делает выборку по всем преподавателям (или по выбранному преподавателю),
  фильтрует по заданной группе (курсу), если не выбрана опция «все курсы»,
  сортирует по времени начала занятия, группирует по дню…

• 

  
  Надстройка, позволяющая загрузить из выбранной папки список файлов на лист Excel.
  Автор: VictorM

  Особенности надстройки:

  задаваемая пользователем глубина поиска в подпапках

  простановка гиперссылок на листе Excel на найденные файлы

  вывод дополнительных характеристик файла

  (размер файла, дата создания файла, полный путь)

  изменяемая маска поиска (поиск по части имени файла, по…

• 

  Программа предназначена для формирования заданий на производство.
  Исходными данными выступают таблицы Excel и файлы XML.
  При конвертации таблиц происходит обработка данных и перестановка столбцов.
  При запуске программа формирует панель инструментов с 6 кнопками — для обработки файлов различной структуры.

• 

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

  ВНИМАНИЕ: Описанная в данной статье программа послужила прототипом для новой, многофункциональной программы, где пользователь сам может настраивать обработку прайс-листов

  Новая программа объединения и обработки прайс-листов доступна на сайте для…

• 

  Программа предназначена для преобразования файлов формата .HTM с объявлениями о продаже недвижимости (файлы являются результатом сохранения веб-страниц с сайтов публикации объявлений) в формат Microsoft Excel.
  Программа производит анализ текста объвлений, распознаёт значения площади и этажности, отделяет второстепенные данные (комментарий) из текста объявления, преобразует различные форматы цен (…

• 

  
  Программа анализирует поступившие заказы с интернет-магазина (письма в программе Outlook), извлекает необходимые данные из писем (в формате HTML), и формирует сводную таблицу заказов
   
  Файл программы состоит из 2 листов — на первом листе находятся кнопки запуска, на втором — шаблон создаваемой сводной таблицы заказов.
   

  Принцип работы программы:

  при нажатии зеленой кнопки,…

• 

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

  Цели программы:

  автоматизация составления и редактирования заявок

  преобразование имеющихся заявок в виде отдельных файлов Excel различной структуры к единому виду

  формирование отчётов по категориям и типам заявок

  стандартизация печатной формы заявок

  разграничение доступа на работу с базой данных заявок

   …

• 

  
  Узнать продолжительность (время) звучания аудиофайла (MP3, WAV и т.д.), или длительность видеофайла (видеоролика) из Excel совсем несложно.
  Используйте функцию ПродолжительностьМедиафайла:
  (функцию можно использовать как в макросах, так и на листе Excel)
  Sub Пример_Использования_Функции_ПродолжительностьМедиафайла()
  Путь = «E:MusicMODERN_TALKING With_a_little_love.mp3″…

• 

  
  Программа предназначена для импорта данных о соискателях с сайта superjob.ru
  В качестве исходных данных для макроса, используется ссылка на результат поиска на сайте superjob.ru
  (которую можно получить, забив искомый текст в строке поиска сайта, и скопировав URL страницы результатов поиска из адресной строки браузера).
  Во время выполнения кода, происходит авторизация на сайте путем…

• 

  
  Программа предназначена для сбора данных из отчётов нефтедобывающих компаний.
   
  Исходными данными выступают файлы оперативной отчётности следующих типов:

  Добыча

  Переработка

  Сбыт

  Сервис

  Анализ

  На распределение

   
  Во втором столбце таблицы перечислены названия компаний, чьи отчеты программа будет обрабатывать,
  а в строке заголовка — список месяцев, данные по по…

• 

  
  Программа предназначена для вывода отчёта по мероприятиям налоговой инспекции.
   

  Исходные данные для обработки расположены на других листах того же файла Excel: 

  перечень мероприятий налогового контроля, проведенных в отношении контрагентов

  поручения об истребовании документов (информации)

  запросы в кредитные организации о предоставлении сведений по операциям на счетах…

• 

  
  Программа собирает в таблицу Excel номера телефонов из объявлений на сайте abw.by
  В ячейке листа Excel указывается количество дней, за которые будут обрабатываться объявления с сайта.
  (если указано 0 дней — обрабатываются только объявления за сегодняшнюю дату, если 1 день — сегодняшние и вчерашние, и т.д.
  Количество дней неограничено — влияет только на время загрузки данных)
  В каждом…

• 

  
  Макрос предназначен для создания сводной таблицы и диаграммы для отчёта по трафику.

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

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

  При…

• 

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

• 

  
  Данная программа предназначена для ввода данных о заказе и сортировки заказов по группам.

  Программа представляет собой шаблон Excel для создания, сортировки и сведения в общую таблицу, заказов различных категорий.
  (категории можно менять вручную на отдельном листе).
  Сотрудник регистрирует своё имя, выбирая его из выпадающего списка, а после выбора ФИО, в соседние поля подтягивается…

• 

  
  Программа предназначена для обработки отчётов управления по сделкам с ценными бумагами

  Основные функции программы:

  Создание новых отчётов управления (за следующий квартал) на основании текущих отчётов

  Внесение изменений и дополнений в существующие отчёты

  Формирование сводной таблицы по вкладам для оценки роста, а также коэффициентов ликвидности и версификации вкладов

  Обработка…

• 

  

  Программа позволяет загружать котировки различных валют из файлов формата .HTM, и анализировать их при различных параметрах анализа.
  Все котировки разбиваются на отдельные блоки (временные диапазоны для разбивки задаются на форме настроек), и анализ производится по каждому блоку в отдельности.
  Есть возможность исключить из расчётов данные за пятницу.
  Изменение параметров вычисления значений BS…

• 

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

  Выбор папки с данными по всем компьютерам…

• 

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

  В качестве исходных данных программа принимает:

  логин абонента

  дату начала и окончания периода сбора статистики

   

  Особенности программы:

  формирование отчётов по всему трафику, или только по оплачиваемому

  создание листа итогов с диаграммой (сразу видно, с какого сайта был…

• 

  
  Программа предназначена для формирования отчёта по серверам компании (список технических характеристик, IP адресов, установленного программного обеспечения)
  В качестве исходных данных для программы имеется выгрузка из Help Desk системы Acme в формате XLS, но этот отчёт, хоть и содержит все необходимые данные, крайне неудобен для анализа и дальнейшей обработки:

  Программа производит поиск…

• 

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

• 

  
  Программа предназначена для анализа ожидаемой доходности различных портфелей

  (рассматриваются всевозможные комбинации проектов)

  При помощи формул типа =СЛЧИС() на листах с характеристиками проектов генерируются различные комбинации исходных значений, на основании которых формулами рассчитывается доходность проекта.

  Методом Монте-Карло формируются массивы значений (по одному массиву для…

• 

  
  Программа предназначена для создания отчётов по детализации телефонных звонков (междугородная и международная связь), последующей упаковки созданных детализаций в ZIP архив, и автоматизированной рассылки сформированных писем абонентам.
  При запуске программа ищет в заданной папке исходные файлы с детализацией (упакованные в ZIP файлы DBF), и на основании из этих файлов формирует (по шаблону, с…

• 

  

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

• 

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

  Список объектов должен содержать следующую информацию (в отдельных столбцах):

  адрес рекламной конструкции (щита)

  сторона рекламного щита или перетяжки (А, Б, В, и т.п.)

  ссылки на фото и карту рекламной конструкции
  (…

• 

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

  Особенности данной программы:

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

• 

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

  При запуске программа формирует панель инструментов:

  Особенности программы:

  группировка строк каждого прайс-листа

  формирование обратных ссылок с прайс-листов на оглавление

   

Is this article up to date?

Была ли эта статья полезной?

Генерация документов и отчетов из реестра или базы данных Excel с помощью кода VBA для просмотра, анализа и вывода на печать. Создание, заполнение, удаление.

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

Создание документа или отчета из шаблона

Допустим, у нас есть реестр документов или база данных Excel с какой-либо информацией. Чтобы создать документ или отчет и заполнить его данными, необходим его шаблон (печатная форма).

Шаблон создаем вручную на отдельном рабочем листе или с помощью кода VBA при заполнении документа. Способы создания шаблона определяют место его хранения:

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

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

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

Назовем лист с шаблоном документа или отчета — «Shablon». Для создания новой печатной формы скрытый лист с шаблоном необходимо скопировать:

With Worksheets(«Shablon»)   .Visible = True   .Copy After:=Worksheets(Worksheets.Count)   .Visible = False End With

Данный код вставит новый лист с шаблоном в ту же книгу после всех имеющихся листов. Чтобы шаблон скопировать в новую книгу, заменяем строку .Copy After:=Worksheets(Worksheets.Count) на .Copy. Печатная форма откроется в новом файле.

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

1. Копирование информации в переменную массива из реестра или базы данных.
2. Создание нового документа или отчета из шаблона.
3. Заполнение документа или отчета, обращаясь к нему как к ActiveSheet.

Копирование информации и заполнение формы

Копирование информации

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

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

Допустим, что лист называется «Reestr», а необходимая информация расположена в десяти первых ячейках каждой строки:

Dim nomer As Long, massiv() As Variant nomer = ActiveCell.Row massiv = Range(Cells(nomer, 1), Cells(nomer, 10))

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

Dim nomer1 As Long, nomer2 As Long, massiv() As Variant nomer1 = Selection.Cells(1).Row nomer2 = Selection.Cells(Selection.Cells.Count).Row massiv = Range(Cells(nomer1, 1), Cells(nomer2, 10))

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

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

Создание и заполнение формы

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

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

Чтобы не наблюдать за мерцаниями экрана во время выполнения процедуры VBA Excel, можно временно отключить его обновления:

Sub GeneratsiyaDokumenta() Application.ScreenUpdating = False ———— операторы ———— Application.ScreenUpdating = True End Sub

Удаление печатной формы

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

Для этого необходимо на лист шаблона правее печатной формы вставить кнопку из коллекции «Элементы управления ActiveX». Дважды кликнуть по ней и в открывшемся модуле листа внутрь автоматически сгенерированного объявления процедуры вставить строку Call UdaleniyeLista:

Sub CommandButton1_Click()   Call UdaleniyeLista End Sub

Затем в модуль текущей книги добавляем процедуру:

Sub UdaleniyeLista()   Application.DisplayAlerts = False     ActiveSheet.Delete   Application.DisplayAlerts = True End Sub

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

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

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

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

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

Важно

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

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

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

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

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

К сведению

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

Строка кода	Расшифровка
Sub Форматирование_БДР()	Начало макроса, имя макроса
‘	Пустая строка комментариев (ставится автоматически при записи макроса)
‘ Форматирование_БДР Макрос	Автоматически добавленный комментарий при записи макроса — может быть удален без потери работоспособности макроса
‘ Выделяем жирным курсивом итоги, форматируем на печать	Автоматически добавленный комментарий при записи макроса из поля Описание
	Пустая строка — не влияет на суть исполнения макроса, но их полезно добавлять для разделения блоков команд внутри кода
Columns(«A:C»).Select	Выделить (Select) объект Столбцы (Columns) А:С
Selection.AutoFilter	Применить автофильтр (AutoFilter) для выделенного диапазона (Selection)
ActiveSheet.Range(«$A$1:$C$34″).AutoFilter Field:=1, Criteria1:=»<>*.*», _	Задать критерий отбора «не содержит точку»
Operator:=xlAnd	Продолжение команды из предыдущей строки. Обратите внимание: предыдущая строка закончилась символом нижнего подчеркивания _, значит, текст команды не уместился на одну строку и окончание команды перенесено на следующую
Range(«A1:C34»).Select	Выделить (Select) объект Диапазон (Range) А1:С34. Обратите внимание: какой бы длины ни был ваш следующий отчет, для которого вы будете применять этот макрос, выделится всегда только диапазон до 34 строки! Как сделать этот диапазон любой длины — обсудим немного позже
Selection.Font.Bold = True	Для выделенного диапазона (Объект Selection) установить свойство «полужирный шрифт» (Font.Bold = True). Если нужно отменить какое-то свойство, пишем False
Selection.AutoFilter	Снять автофильтр (при записи макроса это было повторное нажатие кнопки Фильтр на закладке Данные)
With ActiveSheet.PageSetup	Начало процедуры With (используется, если далее перечисляются свойства или действия с одним и тем же объектом для компактности записи кода). Для объекта ActiveSheet (Текущий лист) применить следующие параметры свойства PageSetup (Параметры печати):
.PrintTitleRows = «»	Печатать на каждой странице сквозные строки — пусто (то есть данное свойство не задано пользователем)
.PrintTitleColumns = «»	Печатать на каждой странице сквозные столбцы — пусто
End With	Окончание процедуры With
ActiveSheet.PageSetup.PrintArea = «»	Заданная область печати — пусто (то есть пользователь не ограничил область печати, следовательно, на экран будет выведено все, что есть на листе)
With ActiveSheet.PageSetup	Начало процедуры With Для объекта Текущий лист применить следующие параметры печати (цветом выделены те, которые мы изменили по сравнению со стандартными):
.LeftHeader = «»	Левый верхний колонтитул — пусто
.CenterHeader = «Бюджет на январь»	Центральный верхний колонтитул — задан текст пользователем
.RightHeader = «»	Правый верхний колонтитул — пусто
.LeftFooter = «»	Левый нижний колонтитул — пусто
.CenterFooter = «»	Центральный нижний колонтитул — пусто
.RightFooter = «»	Правый нижний колонтитул — пусто
.LeftMargin = Application.InchesToPoints(0.708661417322835)	Размеры левого поля
.RightMargin = Application.InchesToPoints(0.708661417322835)	Размеры правого поля
.TopMargin = Application.InchesToPoints(0.748031496062992)	Размеры верхнего поля
.BottomMargin = Application.InchesToPoints(0.748031496062992)	Размеры нижнего поля
.HeaderMargin = Application.InchesToPoints(0.31496062992126)	Размеры верхнего колонтитула
.FooterMargin = Application.InchesToPoints(0.31496062992126)	Размеры нижнего колонтитула
.PrintHeadings = False	Не печатать заголовки строк и столбцов (False — пользователь не отметил этот пункт)
.PrintGridlines = False	Не печатать сетку
.PrintComments = xlPrintNoComments	Не печатать примечания
.PrintQuality = 600	Качество печати — 600 точек на дюйм
.CenterHorizontally = True	Центрировать на странице горизонтально (True — пользователь отметил этот пункт)
.CenterVertically = False	Не центрировать по вертикали
.Orientation = xlPortrait	Ориентация страницы — книжная
.Draft = False	Пользователь не отметил пункт Черновая в блоке Печать
.PaperSize = xlPaperA4	Размер бумаги А4
.FirstPageNumber = xlAutomatic	Номер первой страницы — автоматически
.Order = xlDownThenOver	Последовательность вывода страниц: вниз, потом вправо (пункт в блоке Печать)
.BlackAndWhite = False	Пользователь не отметил пункт Черно-белая в блоке Печать
.Zoom = 75	Масштаб 75 %
.PrintErrors = xlPrintErrorsDisplayed	Пункт в блоке Печать – Ошибки ячеек — Как на экране
.OddAndEvenPagesHeaderFooter = False	Пользователь не задавал разные колонтитулы для четных и нечетных страниц (флажок в блоке Колонтитулы)
.DifferentFirstPageHeaderFooter = False	Пользователь не задавал отдельный колонтитул для первой страницы (флажок в блоке Колонтитулы)
.ScaleWithDocHeaderFooter = True	Флажок в блоке Колонтитулы – Изменять вместе с масштабом страницы отмечен пользователем
.AlignMarginsHeaderFooter = True	Флажок в блоке Колонтитулы – Выровнять относительно полей страницы отмечен пользователем
.EvenPage.LeftHeader.Text = «»	Текст колонтитулов для четных и первой страниц не задан
.EvenPage.CenterHeader.Text = «»
.EvenPage.RightHeader.Text = «»
.EvenPage.LeftFooter.Text = «»
.EvenPage.CenterFooter.Text = «»
.EvenPage.RightFooter.Text = «»
.FirstPage.LeftHeader.Text = «»
.FirstPage.CenterHeader.Text = «»
.FirstPage.RightHeader.Text = «»
.FirstPage.LeftFooter.Text = «»
.FirstPage.CenterFooter.Text = «»
.FirstPage.RightFooter.Text = «»
End With	Окончание процедуры With
End Sub	Окончание кода макроса

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

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

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

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

‘——————

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

 Columns(«A:C»).Select

 Selection.AutoFilter

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

 Operator:=xlAnd

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

 Range(«A1:C34»).Select

 Selection.Font.Bold = True

 Selection.AutoFilter

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

 With ActiveSheet.PageSetup

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

 .CenterHorizontally = True

 .Zoom = 75

 End With

End Sub

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

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

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

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

Функция InputBox

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

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

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

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

Важно

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

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

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

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

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

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

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

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

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

Процедура While

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Row_End = Row_End +1

Loop

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

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

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

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

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

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

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

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

‘ ——————

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

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

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

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

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

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

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

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

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

Row_End = Row_End +1

Loop

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

 Columns(«A:C»).Select

 Selection.AutoFilter

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

 Operator:=xlAnd

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

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

 Selection.Font.Bold = True

 Selection.AutoFilter

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

 With ActiveSheet.PageSetup

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

 .CenterHorizontally = True

 .Zoom = 75

 End With

End Sub

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

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

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

Функция MsgBox

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

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

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

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

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

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

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

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

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

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

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

Процедура If

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

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

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

else

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

End If

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

Команда Exit Sub

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

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

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

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

If Row_End = 100 Then      

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

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

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

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

End If

End If

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

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

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

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

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

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

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

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

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

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

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

---

Здраствуйте!
Так уж сложилось, что я не владею языками (программирования), но хорошо разбираюсь в MS Office.
Прошу помощи у Вас, так как понимаю, что без макросов тут не обойтись.
Ситуация: даны фирмы, ассортимент, их планируемые дни отгрузки. В одной вкладке я ввожу план отгрузок (под каждой фирмой свои даты).
Необходимо: отгрузки каждой фирмы должны распределиться по датам во втором листе.
Т.е. они должны не просто суммироваться по дате, а сложиться в любом порядке под датой.
Файл с исходными данными на первом листе и как это хотелось бы видеть на втором листе — во вложении.

Ручками корректировать оченно громоздко при увеличении ассортимента и количества фирм.
Заранее загадать количество ячеек под фирму или под дату — нельзя, так как смещаются выходные, застолбить ячейки с запасом не получится — кол-во столбцов ограничено 256 штуками, как вы прекрасно знаете.
Жду помощи или подсказок.

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

Иллюстрация: 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
Узнать больше