Макросы в excel список команд vba

VBA Excel: примеры программ. Макросы в Excel

​Смотрите также​ листе, удерживая левую​ на данном компьютере​ а именно…​ макросами, в том​ слово​ ограниченную область действия,​Single​ приблизительно до 2​Sqr(16)​IsDate(«01/01/2015»)​Пример:​Оператор деления без остатка​ зафиксировано, ячейки для​ необходимо создать макрос​x2 = 10​ выделена другим цветом​Немногие знают, что первая​

Что такое VBA

​ кнопку мыши. Автоматически​ начиная с текущего​Макрорекордер​ числе и нужная​Public​ то есть ограниченную​, может сложится в​

​ миллиардов символов​возвращает значение 4.​возвращает​Abs(-20)​ – возвращает результат​ внесения значений по​ для «Эксель», чтобы​shag = 0.1​ (зеленым). Причина в​ версия популярного продукта​ появится окно, где​

​ момента​- это небольшая​ нам кнопка​использовано для объявления​ часть программы, в​ значительную сумму.К тому​Variant​Time​True​возвращает значение 20;​ деления двух чисел​ итогам и ФИО​ в ячейку с​i = 1​ апострофе, поставленном в​ Microsoft Excel появилась​ нужно выбрать макрос,​Личная книга макросов​ программа, встроенная в​Редактор Visual Basic​ переменной​ которой эта переменная​

Объекты, коллекции, свойства и методы

​ же, операции с​изменяется​Возвращает текущее системное время.​;​Abs(20)​ без остатка. Например,​ специалиста заранее не​ координатами (1,1) было​Do While x1 <​ начале строки, который​ в 1985 году.​ который должен запускаться​- это специальная​

​ Excel, которая переводит​(Visual Basic Editor)​sVAT_Rate​ существует. Область действия​ переменными типа​Может содержать дату, число​Ubound​IsDate(100)​возвращает значение 20.​74​

​ резервируют. Рабочему листу​ записано:​ x2 (цикл будет​ обозначает, что далее​ С тех пор​ при щелчке по​ книга Excel с​ любое действие пользователя​

​:​и константы​ зависит от того,​Variant​ с плавающей точкой​Возвращает верхний индекс измерения​

​возвращает​Chr​возвратит результат​ присваивается новое название.​1, если аргумент положительный;​ выполняться пока верно​ следует комментарий.​ он пережил несколько​ нарисованной кнопке.​ именем​ на язык программирования​К сожалению, интерфейс редактора​iMax_Count​ где было сделано​выполняются гораздо медленнее,​

​ или строку символов.​ заданного массива.​False​Возвращает символ ANSI, соответствующий​

Как начать

​1​ Например, «Օтчет».​0, если аргумент нулевой;​ выражение x1 <​Теперь вы можете написать​ модификаций и востребован​

​Создание пользовательских функций или,​Personal.xls​ VBA и записывает​ VBA и файлы​. Областью действия объявленных​

• ​ объявление переменной или​ чем с переменными​ Этот тип используют​Примечание:​.​
• ​ числовому значению параметра.​
• ​3​Для написания программы автоматического​-1, если аргумент отрицательный.​
• ​ x2)​ любой код и​

​ у миллионов пользователей​

​ как их иногда​

​, которая используется как​

​ получившуюся команду в​

​ справки не переводятся​ таким образом элементов​ константы. Возьмём, к​ других типов, соответственно​ в тех случаях,​Для многомерных массивов​IsError​Пример:​

​Mod​ заполнения шаблона, необходимо​Создание такого макроса для​y=x1 + x1^2 +​ создать для себя​ по всему миру.​ еще называют, UDF-функций​ хранилище макросов. Все​ программный модуль. Если​ компанией Microsoft на​ будет весь текущий​ примеру, переменную​ лишняя тысяча переменных​ когда заранее не​

Макросы в Excel

​ в качестве необязательного​Возвращает​Chr(10)​Оператор модуля (остатка) –​ выбрать обозначения. Они​ «Эксель» начинается стандартным​ 3*x1^3 – Cos(x1)​ новый инструмент в​ При этом многие​ (User Defined Functions)​ макросы из​ мы включим макрорекордер​ русский язык, поэтому​ проект.​sVAT_Rate​ типа​ известно, какой именно​ аргумента может быть​True​возвращает перенос строки;​

Пример 1

​ возвращает остаток от​ будут использоваться для​ способом, через использование​Cells(i, 1).Value = x1​ VBA Excel (примеры​

​ работают лишь с​

• ​ принципиально не отличается​
• ​Personal.xls​
• ​ на запись, а​
• ​ с английскими командами​

​Это значит, что​, которая используется в​Variant​ тип данных будет​ указано, индекс какого​, если заданное значение​Chr(97)​ деления двух чисел.​ переменных:​

​ «горячих» клавиш Alt​ (значение x1 записывается​ программ см. далее).​ малой толикой возможностей​ от создания макроса​загружаются в память​ затем начнем создавать​ в меню и​sVAT_Rate​

​ функции​

• ​может значительно замедлить​ введён​
• ​ именно измерения нужо​ является ошибкой, или​
• ​возвращает символ​ Например,​NN– номер текущей строки​

​ и F11. Далее​ в ячейку с​ Конечно, тем, кто​ этого табличного процессора​

​ в обычном программном​ при старте Excel​ свой еженедельный отчет,​ окнах придется смириться:​и​Total_Cost​ вычисления.​Число – Double, строка​ возвратить. Если не​False​a​8 Mod 3​

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

​ – String​ указано, то по​– если ошибкой​.​возвратит результат​TP и TF –​Sub program()​

Пример 2

​Cells(i, 2).Value = y​ Visual Basic, будет​ догадываются, как им​

​ в том, что​ запущены в любой​ записывать команды вслед​ на языке VBA)​будут доступны в​ рассмотрены два варианта​ переменных.​Очевидно, что пользуясь приведённой​ умолчанию равно 1.​ не является.​

​Date​2​ планируемый и фактический​x= Cells(1, 1).Value (эта​ (значение y записывается​ намного проще. Однако​ могло бы облегчить​ макрос выполняет последовательность​ момент и в​

​ за каждым нашим​ хранятся в программных​ любом модуле проекта.​ области действия переменной​Если все переменные​ выше таблицей и​Year​

​IsMissing​

​Возвращает текущую системную дату.​

​.​

​ товарооборот;​

​ команда присваивает x​

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

​ действием и, в​ модулях. В любой​

​Option Explicit Private sVAT_Rate​sVAT_Rate​ объявляются, то можно​ правильно выбирая тип​

​Возвращает целое число, соответствующее​В качестве аргумента функции​DateAdd​4​

​SF и SP –​ значение содержимого ячейки​

​ координатами (i,2))​ их не имеет,​ в Excel.​

​ книги (ячейками, формулами​

​После включения записи и​

​ итоге, мы получим​ книге Excel мы​ As Single Private​, объявленной в двух​ использовать оператор VBA​ данных, можно использовать​ году в заданной​ передаётся имя необязательного​

​Добавляет определённый временной интервал​+​ фактическая и планируемая​

Пример 3

​ с координатами (1,​i = i +​ при желании смогут​Программирование в Excel осуществляется​ и значениями, листами,​ выполнения действий, которые​ макрос создающий отчет​

​ можем создать любое​ Const iMax_Count =​ различных позициях в​ —​ память более экономно​ дате.Пример:​ аргумента процедуры.​ к заданной дате.​Оператор сложения​

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

​ количество программных модулей​ 5000 …​

​ модуле:​Option Explicit​ (например, выбрать тип​Year(«29/01/2015»)​IsMissing​

​ Синтаксис функции:​5​IP и IF –​If x>0 Then Cells(1,​x1 = x1 +​За таким названием скрываются​

​ Visual Basic for​ а пользовательская функция​ можно остановить командой​

​ он был написан​ и разместить там​В этом примере для​Option Explicit Dim sVAT_Rate​(о нём расскажем​ данных​возвращает значение 2015.​

​возвращает​DateAdd(​—​ планируемый и фактически​ 1).Value = 1​ shag (аргумент изменяется​ программы, написанные на​ Application, который изначально​ — только с​Остановить запись​ программистом. Такой способ​

​ наши макросы. Один​ объявления переменной​

​ As Single Function​

​ далее), чтобы выявить​Integer​Данный список включает в​True​интервал​Оператор вычитания​

​ уровень издержек.​If x=0 Then Cells(1,​ на величину шага);​ языке Visual Basic​ встроен в самый​

​ теми значениями, которые​(Stop Recording)​ создания макросов не​ модуль может содержать​

​sVAT_Rate​

​ Total_Cost() As Double​ все не объявленные​вместо​ себя только избранные​, если для рассматриваемого​,​5​Обозначим теми же буквами,​ 1).Value = 0​Loop​ for Application. Таким​

Пример 4

​ известный табличный процессор​ мы передадим ей​.​ требует знаний пользователя​ любое количество макросов.​и константы​ … End Function​ переменные.Таким образом исключается​Long​ наиболее часто употребляемые​ аргумента процедуры не​число​Основной строковый оператор в​ но с «приставкой»​If x​End Sub.​ образом, программирование в​

​ от Microsoft.​ как аргументы (исходные​Управление всеми доступными макросами​ о программировании и​ Доступ ко всем​iMax_Count​

​Если переменная​

​ появление в программе​

​или​

​ встроенные функции Excel​ передано значение.​,​ Excel VBA –​ Itog накопление итога​End Sub.​

​В результате запуска данного​

​ Excel — это​К его достоинствам специалисты​ данные для расчета).​ производится в окне,​ VBA и позволяет​

​ модулям осуществляется с​использовано ключевое слово​

​sVAT_Rate​ ошибки в результате​

​Single​

​ Visual Basic. Исчерпывающий​

​IsNumeric​дата​ это оператор конкатенации ​ по данному столбцу.​

Функции VBA

​Остается запустить макрос и​ макроса в «Эксель»​ создание макросов с​ относят сравнительную легкость​Чтобы создать пользовательскую функцию​ которое можно открыть​ пользоваться макросами как​ помощью окна Project​Private​объявлена в самом​ не верно записанного​вместо​ список функций VBA,​Возвращает​)​&​

• ​ Например, ItogTP –​ получить в «Эксель»​ получаем два столбца,​ нужным кодом. Благодаря​ освоения. Как показывает​
• ​ для расчета, например,​ с помощью кнопки​ неким аналогом видеозаписи:​ Explorer в левом​. Областью действия этих​ начале модуля, то​ имени переменной. Например,​
• ​Double​ доступных для использования​True​
• ​Где аргумент​(слияние):​ касается столбца таблицы,​ нужное значение для​ в первом из​ этой возможности табличный​ практика, азами VBA​ налога на добавленную​Макросы (Macros)​ включил запись, выполнил​ верхнем углу редактора​ элементов является текущий​ областью действия этой​ используя в коде​). Однако, используя более​ в макросах Excel,​, если заданное значение​
• ​интервал​Оператор Действие​ озаглавленного, как «планируемый​ аргумента.​ которых записаны значения​
• ​ процессор Microsoft саморазвивается,​ могут овладеть даже​ стоимость (НДС) откроем​на вкладке​ операци, перемотал пленку​ (если его не​ модуль.​ переменной будет весь​ переменную с именем​ компактные типы данных,​ можно найти на​ может быть рассмотрено​определяет тип временного​
• ​&​ товарооборот».​Как вы уже могли​ для x, а​ подстраиваясь под требования​
• ​ пользователи, которые не​ редактор VBA, добавим​Разработчик (Developer)​ и запустил выполнение​ видно, нажмите CTRL+R).​Это значит, что​ модуль (т.е. переменная​
• ​sVAT_Rate​

​ нужно внимательно следить​ сайте Visual Basic​ как число, в​ интервала, добавляемого к​

Пример 5

​Оператор конкатенации. К примеру,​Используя введенные обозначения, получаем​ заметить, программировать в​

​ во втором —​ конкретного пользователя. Разобравшись​ имеют навыков профессионального​

• ​ новый модуль через​или — в​ тех же действий​
• ​ Программные модули бывают​sVAT_Rate​sVAT_Rate​, можно допустить опечатку​ за тем, чтобы​ Developer Center.​ противном случае возвращает​

​ заданной​ выражение​

Создание шаблона

​ формулы для отклонений.​ самом известном табличном​ для y.​ с тем, как​ программирования. К особенностям​ меню​ старых версиях Excel​ еще раз. Естественно​ нескольких типов для​и​будет распознаваться всеми​ и, присваивая значение​ в коде не​Урок подготовлен для Вас​False​дате​«A» & «B»​ Если требуется осуществить​

Переменные

​ процессоре Microsoft не​Затем по ним строится​ создавать модули для​ VBA относится выполнение​Insert — Module​

• ​ — через меню​ у такого способа​
• ​ разных ситуаций:​iMax_Count​ процедурами в этом​
• ​ этой переменной, записать:​ было попыток уместить​ командой сайта office-guru.ru​
• ​.​в количестве, указанном​возвратит результат​

​ расчет в %​ так уж сложно.​ график способом, стандартным​ написания макросов, можно​ скрипта в среде​и введем туда​Сервис — Макрос -​ есть свои плюсы​

Решение задачи с использованием программирования на VBA

​Обычные модули​будут доступны во​ модуле).​ «VATRate = 0,175».​ в них не​Источник: http://www.excelfunctions.net/VBA-Operators-And-Functions.html​Left​ в аргументе​AB​

​ имеем (F –​ Особенно, если научиться​ для «Эксель».​ приступать к рассмотрению​

​ офисных приложений.​ текст нашей функции:​ Макросы​ и минусы:​- используются в​

​ всех процедурах текущего​Следовательно, если в функции​ Ожидается, что с​ соразмерно большие значения.​Перевел: Антон Андронов​Возвращает заданное количество символов​число​.​

​ P) / P​ применять функции VBA.​Для реализации циклов в​ конкретных примеров программ​Недостатком программы являются проблемы,​

​Обратите внимание, что в​(Tools — Macro -​Макрорекордер записывает только те​ большинстве случаев, когда​

​ модуля, но не​Total_Cost​ этого момента, переменная​Примечание переводчика:​Автор: Антон Андронов​ от начала переданной​.​Операторы сравнения используются для​ * 100, а​ Всего в этом​ VBA Excel 2010,​ VBA Excel. Лучше​ связанные с совместимостью​ отличие от макросов​ Macros)​ действия, которые выполняются​ речь идет о​

​ будут доступны для​переменной​sVAT_Rate​Говоря о переменных​В VBA, как и​ строки. Синтаксис функции​Аргумент​ сравнения двух чисел​ в сумме —​ языке программирования, созданном​ как и в​ всего начать с​ различных версий. Они​ функции имеют заголовок​:​ в пределах окна​ макросах. Для создания​ процедур, находящихся в​sVAT_Rate​должна содержать значение​ в VBA, стоит​ в любом другом​ вот такой:​интервал​

​ или строк и​

fb.ru

Операторы и встроенные функции VBA

Операторы Excel VBA

​ (F – P).​ специально для написания​ других версиях, наряду​ самых элементарных кодов.​ обусловлены тем, что​Function​Любой выделенный в списке​ Microsoft Excel. Как​ такого модуля выберите​ других модулях.​

Математические операторы

​будет присвоено некоторое​ 0,175 – но,​ упомянуть ещё один​

​ языке программирования, переменные​Left(​может принимать одно​ возвращают логическое значение​Результаты этих вычислений можно​ приложений в «Эксель»​ с уже приведенной​Задача: написать программу, которая​ код программы VBA​

​вместо​
​ макрос можно запустить​ только вы закрываете​

Строковые операторы

​. В появившееся окно​Источник: http://www.excelfunctions.net/VBA-Variables-And-Constants.html​ пределах этого же​​ же включен режим​​ переменную, но не​

​ значений. Как и​

Операторы сравнения

​ в новой версии​ аргументов (в нашем​(Run)​ — запись останавливается.​ нового пустого модуля​​Перевел: Антон Андронов​​ модуля, будет использовать​ обязательного объявления всех​ присваиваем ей какое-либо​ следует из названия,​

​)​

Логические операторы

​ можно вводить команды​Автор: Антон Андронов​ переменную​​ используемых переменных, то​​ значение, то она​ переменные могут изменяться,​где​q​

​ Excel VBA перечислены​

​позволяет посмотреть и​ в Excel. Программист​ из другого модуля,​ одни и те​Однако, если будет вызвана​ не найдёт переменную​ — инициализируются пустыми​Pi​

Встроенные функции

​длина​y​Равно​Для отклонений используют =​ логарифма, целой части​ записать ее очень​заполняют открывшуюся форму.​

​ изменения посторонним лицом.​

​ (т.е. в пределах​ что одна из​В показанной выше строке​ приобретается.​Пример:​ возвращает дату 02/02/2015.​Операция конъюнкции, логический оператор​ 1 раз после​ целочисленному аргументу, или​ столбец с квадратами,​Далее:​

​ Данные объекты обладают​Функция возвращает параметры командной​
​ в Excel 2003​
​ и стирает последнюю​

​ Project Explorer и​

office-guru.ru

Переменные и константы в VBA

​ в вашей работе​ функции​ переменных получила не​ кода​Все переменные и константы​Month(«29/01/2015»)​DateAdd(«ww», 36, «01/01/2015»)​И​ ввода заголовочной информации.​ Asc для перевода​

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

​ те данные, которые​Имя_Переменной​ относятся к определённому​​возвращает значение 1.​​добавляет 36 недель​. Например, выражение​ Следует знать и​​ символов в код​​ чисел из диапазона​ «Макросы»;​ подчиняются друг другу.​ запуска программы(в окне​

Типы данных

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

​Mid​ к дате 01/01/2015​

​При попытке использовать​ и неожиданными, а​– это один​ возможных значений:​строка​ интервалов между двумя​и​​ значений по каждому​​ значительно облегчающие работу​​Здесь step — шаг.​​В результате происходит действие,​​ Например, для обращения​​’ Пример передачи аргументов​​. В категории​​ Начать запись​ которые должны выполняться​ итоговый лист, разнесения​sVAT_Rate​ найти причину ошибок​ из типов данных​Тип данных Размер​,​

Объявление переменных и констант

​ заданными датами.​​B​ виду деятельности. После​ с этими таблицами.​ В данном случае​ которое было осуществлено​ к ячейке A1​ командной строки в​Макросы​(Tools — Macro -​ при наступлении определенных​
​ данных обратно, вывод​в другой процедуре,​ будет гораздо сложнее.Возможно​
​ из таблицы, приведённой​ Описание Диапазон значений​
​начало​​Пример:​​оба равны​
​ занесения всех данных​Функции преобразования типа данных.​

​ он равен двум.​ в процессе записи​ на конкретном листе​ функцию, ‘ которая​легко найти веселый​ Record New Macro)​

​ событий на листе​​ суммы прописью и​​ компилятор VBA сообщит​​ также, что макрос​

​ чуть ранее в​Byte​​,​​DateDiff(«d», «01/01/2015», «02/02/2015»)​True​ требуется нажать кнопку​ Например, CVar возвращает​​ По умолчанию отсутствие​​ макроса.​ следует указать путь​ возвращает их в​ желтый «колобок» -​в Excel 2007 и​

​ (изменение данных в​ т.д.​ об ошибке, так​

​ будет «успешно» выполнен.​ этой статье. Например:​1 байт​длина​вычисляет количество дней​

​, в противном случае​ «Закончить» и затем​ значение аргумента Expression,​

​ этого слова в​Имеет смысл увидеть, как​ с учетом иерархии.​ переменной типа Variant,​Настраиваемую кнопку​ новее — нажать​​ ячейках, пересчет листа,​​Макрос​ как эта переменная​ В результате ошибка​

​Dim sVAT_Rate As​Положительные целые числа; часто​)​ между датами 01/01/2015​ возвратит​ переключиться в окно​ преобразовав его в​ цикле означает, что​​ выглядит код. Для​​Что касается понятия «коллекция»,​ ‘ содержащей массив​(Custom button)​

1. ​ кнопку​ копирование или удаление​​- это запрограммированная​ не была объявлена​ останется незамеченной и​ Single Dim i​ используется для двоичных​где​​ и 02/02/2015, возвращает​​False​ «Эксель».​ тип данных Variant.​ шаг единичный.​ этого вновь переходят​ то это группа​ Function GetCommandLine(Optional MaxArgs)​:​Запись макроса (Record macro)​ листа и т.д.)​ последовательность действий (программа,​ за пределами функции​ работа продолжится с​ As Integer​ данных​​строка​​ результат 32.​.​​Теперь вы знаете, как​​Функции работы с датами.​​Полученные результаты нужно сохранять​​ на строку «Макросы»​ объектов того же​ ‘ Объявляем переменные​Перетащите ее к себе​​на вкладке​​Обычный макрос, введенный в​ процедура), записанная на​Total_Cost​ неверными данными!​Аналогично объявляются константы, но​​от 0 до 255​​– это исходная​DateDiff(«ww», «01/01/2015», «03/03/2016»)​
2. ​Or​ решать задачи для​​ Они значительно расширяют​ в ячейки с​ и нажимают «Изменить»​ класса, которая в​​ Dim C, CmdLine,​​ на панель инструментов​Разработчик (Developer)​ стандартный модуль выглядит​ языке программирования Visual​(при условии, что​В связи с этим,​ при объявлении констант​Boolean​ строка,​вычисляет количество недель​​Операция дизъюнкции, логический оператор​​ Excel с помощью​ стандартные возможности «Эксель».​ номером (i,1). Тогда​ или «Войти». В​ записи имеет вид​ CmdLnLen, InArg, I,​​ и затем щелкните​​Затем необходимо настроить параметры​ примерно так:​ Basic for Applications​ использован оператор​ неверный тип данных​ обязательно сразу указывается​2 байта​начало​ между датами 01/01/2015​ИЛИ​ макросов. Умение применять​​ Так, функция WeekdayName​​ при каждом запуске​
3. ​ результате оказываются в​ ChartObjects. Ее отдельные​​ NumArgs ‘ Проверка​ по ней правой​ записываемого макроса в​Давайте разберем приведенный выше​ (VBA). Мы можем​Option Explicit​ желательно обнаруживать и​ их значение. Например,​Может принимать значения либо​– позиция начала​ и 03/03/2016, возвращает​. Например, выражение​ vba excel (примеры​ возвращает название (полное​ цикла с увеличением​ среде VBA. Собственно,​ элементы также являются​ наличия MaxArgs If​ кнопкой мыши. В​ окне​ в качестве примера​ запускать макрос сколько​).​ как можно раньше​ вот так:​ True, либо False​ извлекаемой строки,​ результат 61.​A Or B​ программ см. выше)​ или частичное) дня​

​ i на величину​ сам код макроса​ объектами.​ IsMissing(MaxArgs) Then MaxArgs​ контекстом меню можно​Запись макроса​ макрос​ угодно раз, заставляя​В показанном выше примере​ исправлять такие ошибки​

Option Explicit

​Const iMaxCount =​​True или False​​длина​Day​возвратит​ может понадобиться и​ недели по его​ шага автоматически будет​ находится между строками​Следующее понятие — свойства.​ = 10 ‘​ назначить кнопке макрос,​:​Zamena​ Excel выполнять последовательность​ переменная объявлена на​

​ в коде. По​

​ 5000 Const iMaxScore​​Integer​​– количество символов,​Возвращает целое число, соответствующее​True​ для работы в​ номеру. Еще более​ расти и номер​​ Sub Макрос1() и​​ Они являются необходимой​ Задание корректной размерности​

​ выбрать другой значок​

• ​Имя макроса​:​​ любых нужных нам​​ уровне модуля при​​ этим причинам при​
• ​ = 100​2 байта​​ которые требуется извлечь.​
• ​ дню месяца в​​, если​​ среде самого популярного​​ полезной является Timer.​

​ у строки. Таким​​ End Sub.​​ характеристикой любого объекта.​ массива ReDim ArgArray(MaxArgs)​ и имя:​

Область действия переменных и констант

​- подойдет любое​Любой макрос должен начинаться​ действий, которые нам​ помощи ключевого слова​ написании макроса VBA​Объявлять переменные в Excel​Целые числа (нет дробной​Пример:​ заданной дате.​A​ на данный момент​ Он выдает число​​ образом, произойдет оптимизация​​Если копирование было выполнено,​ Например, для Range​​ NumArgs = 0:​​Кнопка на панели быстрого​ имя на русском​ с оператора​​ не хочется выполнять​​Dim​ рекомендуется объявлять все​ не обязательно. По​

​Большие целые числа (нет​Minute​Возвращает целое число, соответствующее​, и возвратит​​ начале статьи, или​​ аргумента в разные​For i = 1​ будет выглядеть, как​ сделать. При написании​ = Len(CmdLine) ‘​ доступа в левом​ и знаков препинания.​​ значений) в скобках.​​ C#, Java, ASP,​ В таких случаях​​ переменные, которые будут​​Variant​

​ дробной части)​Возвращает целое число, соответствующее​ количеству часов в​False​​ через написание кода​​ системы счисления. Например,​ To 10 Step​​ Range(“C1”).Select. В переводе​​ кода в VBA​ Анализ всех символов​ верхнем углу окна​Сочетание клавиш​ Если аргументов нет,​

​ PHP…), но для​ для объявления переменной​ использованы в коде​​и смогут принять​​от -2 147 483 648 до +2 147 483 647​​ количеству минут в​​ заданном времени.​, если​​ создавать кнопки меню,​​ Oct выдает в​ 1 (можно записать​

​ это выглядит, как​ их необходимо отделять​​ командной строки For​​ Excel и выберите​​- будет потом​​ то скобки надо​ всех программ пакета​ вместо ключевого слова​

​ (Customise Quick Access​ забудете сочетание или​
​ оператором​
​ язык VBA. Команды​

​ слово​

office-guru.ru

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

Введение

​ как ошибки (прежде​ любой момент сможет​ одинарной точности​Now​InStr​оба равны​ нажатием дежурных клавиш​ Она возвращает значение​Cells(i, 1).Value = i​ ячейку С1.​ очень часто при​ 1) ‘ Проверка​ Toolbar)​ вообще его не​End Sub​ этого языка понимает​Public​ чем будет запущено​ использовать новую переменную​от -3.4e38 до +3.4e38​Возвращает текущую системную дату​Принимает в качестве аргументов​False​ или через вкладку​ типа Variant с​ ^ 2 (т.е.​Активную часть кода завершает​ программировании в «Эксель»​ наличия пробела или​:​ введете, то макрос​.​ любое офисное приложение,​.​ выполнение кода). Применить​

​ (даже если она​​Double​ и время.​ целое число и​.​ «Вид» и пиктограмму​ выражением, отформатированным согласно​ в ячейку (i,1)​ команда ActiveSheet.Paste. Она​ используют команду Cells(1,1).Select.​ табуляции If (C​Затем в открывшемся окне​ можно будет запустить​Все, что находится между​

​ будь то Excel,​Кстати, для того, чтобы​ этот оператор не​ не была объявлена),​8 байт​Right​ две строки. Возвращает​Not​ «Макросы».​ инструкциям, которые заданы​ записывается значение квадрата​ означает запись содержания​ Она означает, что​ <> » «​

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

​ выберите категорию​ через меню​Sub​ Word, Outlook или​ объявить переменную на​ сложно – просто​ и Excel будет​

• ​Число с плавающей точкой​Возвращает заданное количество символов​ позицию вхождения второй​Операция отрицания, логический оператор​​Автор: Наира​ в описании формата.​ ​ i)​ выделенной ячейки (в​​ необходимо выбрать ячейку​
• ​ And C <>​Макросы​Сервис — Макрос -​и​​ Access.​​ уровне модуля, вместо​​ запишите в самом​ рассматривать её как​ двойной точности​ от конца переданной​​ строки внутри первой,​НЕ​При написании кода VBA​​и пр.​​Next (в некотором смысле​ данном случае А1)​ с координатами (1,1)​ vbTab) Then ‘​и при помощи​ Макросы — Выполнить​End Sub​​Для ввода команд и​ ​ ключевого слова​
  
  ​ верху файла VBA​

​ переменную типа​от -1.8e308 до +1.8e308​ строки. Синтаксис функции:​ начиная поиск с​. Например, выражение​ в Excel набор​Изучение свойств этих функций​ играет роль счетчика​

​ в выделенную ячейку​ т.е. A1.​ пробел и табуляция​ кнопки​(Tools — Macro -​- тело макроса,​ формирования программы, т.е.​Dim​ такую строку:​Variant​Currency​Right(​ позиции, заданной целым​Not A​ встроенных операторов используют​ и их применение​ и означает еще​ С1.​Вместе с ней нередко​ не обнаружены ‘​Добавить (Add)​

• ​ Macros — Run)​​ т.е. команды, которые​ создания макроса необходимо​можно использовать ключевое​Option Explicit​. Однако, есть несколько​8 байт​​строка​​ числом.​возвратит​ на каждом шагу.​ позволит значительно расширить​ один запуск цикла)​Циклы VBA помогают создавать​ используется Selection.ClearContents. Ее​ Проверка наличия аргумента​перенесите выбранный макрос​или с помощью​
  
• ​ будут выполняться при​​ открыть специальное окно​ слово​Если хотите всегда вставлять​ причин, почему так​Число с плавающей точкой,​,​Пример:​True​ Эти операторы делятся​ сферу применения «Эксель».​End Sub.​ различные макросы в​ выполнение означает очистку​
  
• ​ If Not InArg​​ в правую половину​ кнопки​ запуске макроса. В​ — редактор программ​Private​Option Explicit​ поступать не следует:​​ с фиксированным количеством​​длина​InStr(1, «Вот искомое слово»,​, если​ на математические, строковые,​Попробуем перейти к решению​Если все сделано правильно,​ Excel.​ содержимого выбранной ячейки.​
  

​ Then ‘ Начало​ окна, т.е. на​Макросы (Macros)​

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

• ​ десятичных разрядов​)​​ «слово»)​​A​ операторы сравнения и​ более сложных задач.​ в том числе​Циклы VBA помогают создавать​Прежде всего требуется создать​ нового аргумента ‘​
• ​ панель быстрого доступа:​на вкладке​​ выделяет ячейку заливает​​ в Microsoft Excel.​
• ​ то, что данная​​ нового созданного модуля​​ вычислений.​​от -922 337 203 685 477.5808 до +922 337 203 685 477.5807​​Где​возвращает число 13.​равно​ логические. Далее мы​ Например:​ запись и запуск​ различные макросы. Предположим,​ файл и сохранить​ Проверка количества аргументов​Кнопка на листе​Разработчик (Developer)​ выделенных диапазон (Selection)​В старых версиях (Excel​ переменная предназначена для​ VBA, то это​

​Если не объявлять​Date​строка​InStr(14, «Вот искомое слово,​False​ подробно рассмотрим каждую​Дан бумажный документ отчета​ макроса (см. инструкцию​ что имеется функция​ его, присвоив имя​ If NumArgs =​Этот способ подходит для​или нажав ALT+F8.​ желтым цветом (код​ 2003 и старше)​ использования только в​ можно делать автоматически.​ переменную с указанием​8 байт​

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

​– это исходная​​ а вот еще​, или возвратит​ группу операторов.​ фактического уровня издержек​ выше), то при​ y=x + x2​ и выбрав тип​ MaxArgs Then Exit​ любой версии Excel.​Сохранить в…​ = 6) и​ для этого идем​ текущем модуле.​ Для этого необходимо​ типа данных, то​Дата и время –​ строка, а​ искомое слово», «слово»)​False​Основные математические операторы VBA​ предприятия. Требуется:​ его вызове каждый​ + 3×3 –​ «Книга Excel с​ For NumArgs =​ Мы добавим кнопку​- здесь задается​ затем проходит в​ в меню​Для объявления констант также​ включить параметр​ по умолчанию для​ данные типа Date​длина​возвращает число 38.​

• ​, если​ перечислены в таблице​разработать его шаблонную часть​ раз будет получаться​ cos(x). Требуется создать​ поддержкой макросов».​ NumArgs + 1​ запуска макроса прямо​
• ​ место, куда будет​ цикле по всем​Сервис — Макрос -​ можно использовать ключевые​Require Variable Declaration​ неё будет установлен​ представлены числом с​– это количество​Примечание:​A​ ниже.​ посредством табличного процессора​
• ​ столбец заданного размера​ макрос для получения​Затем необходимо перейти в​ InArg = True​ на рабочий лист,​ сохранен текст макроса,​ ячейкам, заменяя формулы​ Редактор Visual Basic​ слова​в настройках редактора​ тип​ плавающей точкой. Целая​ символов, которые надо​Аргумент-число может быть​равно​

​В правом столбце таблицы​

• ​ «Эксель»;​ (в данном случае​ ее графика. Сделать​​ приложение VB, для​ End If ‘​ ​ как графический объект.​ т.е. набор команд​
• ​ на значения. В​(Toos — Macro -​Public​​ VBA.​​Variant​​ часть этого числа​

​ извлечь, считая от​ не задан, в​True​​ указан приоритет операторов,​​составить программу VBA, которая​

• ​ состоящий из 10​​ это можно только,​ чего достаточно воспользоваться​ Добавляем символ к​ Для этого:​ на VBA из​ конце выводится окно​ Visual Basic Editor)​
• ​и​​Это делается так:​. Этот тип данных​ выражает дату, а​ конца заданной строки.​ таком случае поиск​.​ принятый по умолчанию​ будет запрашивать исходные​​ ячеек).​ используя циклы VBA.​ ​ комбинацией клавиш «Alt»​ текущему аргументу ArgArray(NumArgs)​​В Excel 2003 и​ которых и состоит​​ сообщения (MsgBox).​​.​​Private​​В меню редактора Visual​
• ​ использует больше памяти,​​ дробная часть –​Пример:​ начинается с первого​В приведённой выше таблице​ при отсутствии скобок.​ данные для ее​В повседневной жизни сплошь​
• • ​За начальное и конечное​​ и «F11». Далее:​ = ArgArray(NumArgs) &​ старше — откройте​ макрос.:​С ходу ясно, что​В новых версиях (Excel​, но не вместо​
  • ​ Basic нажмите​​ чем другие типы​ время​Right(«абвгдежзиклмн», 4)​ символа строки, заданной​ перечислены не все​ Добавляя в выражение​ заполнения, осуществлять необходимые​ и рядом возникает​ значение аргумента функции​в строке меню, расположенном​ C Else ‘​
  • ​ панель инструментов​​Эта книга​ вот так сразу,​ 2007 и новее)​​ ключевого слова​​Tools​ данных.Казалось бы, несколько​от 1 Января 100​​возвращает строку «клмн»;​​ во втором аргументе​ логические операторы, доступные​ скобки, можно изменять​ расчеты и заполнять​ необходимость принять то​ берут x1=0 и​

​ в верхней части​ Если найден символ​Формы​- макрос сохраняется​​ без предварительной подготовки​ ​ для этого нужно​​Const​

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

​>​ лишних байт на​ до 31 Декабря​Right(«абвгдежзиклмн», 1)​​ функции.​​ в VBA. Полный​​ порядок выполнения операторов​​ ими соответствующие ячейки​ или иное решение​ x2=10. Кроме того,​​ окна, нажимают на​ пробела или табуляции,​ ​через меню​ в модуль текущей​​ и опыта в​

• ​ сначала отобразить вкладку​, а вместе с​Options​​ каждую переменную –​ ​ 9999​​возвращает строку «н».​
• ​Int​​ список логических операторов​ ​ VBA по своему​​ шаблона.​ в зависимости от​ необходимо ввести константу​ иконку рядом с​
• ​ ‘ устанавливаем флаг​​Вид — Панели инструментов​ ​ книги и, как​​ программировании вообще и​Разработчик (Developer)​ ним.​В появившемся диалоговом окне​ не так уж​

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

​Object​Second​Возвращает целую часть заданного​ можно найти на​ желанию.​Рассмотрим один из вариантов​ какого-то условия. Не​

​ — значение для​ иконкой Excel;​ InArg flag в​

​ — Формы (View​​ следствие, будет выполнятся​ ​ на VBA в​​. Выбираем​В следующих примерах показано​​ откройте вкладку​​ много, но на​​4 байта​​Возвращает целое число, соответствующее​ числа.​​ сайте Visual Basic​ ​Оператор Действие Приоритет​​ решения.​

​ обойтись без них​ шага изменения аргумента​выбирают команду Mudule;​ False InArg =​ — Toolbars -​ только пока эта​ частности, сложновато будет​Файл — Параметры -​ использование ключевых слов​

​Editor​ практике в создаваемых​Ссылка на объект​

​ количеству секунд в​Пример:​ Developer Center.​(1 — высший;​Все действия осуществляются на​ и в VBA​​ и начальное значение​сохраняют, нажав на иконку​ False End If​​ Forms)​

​ книга открыта в​ сообразить какие именно​​ Настройка ленты (File​​Public​Отметьте галочкой параметр​​ программах могут быть​​Любая ссылка на объект​ заданном времени.​Int(5.79)​В VBA доступно множество​

​ 5 — низший)​

​ стандартном листе в​ Excel. Примеры программ,​ для счетчика.​ с изображением floppy​ Next I ‘​В Excel 2007 и​ Excel​

• ​ команды и как​ — Options -​и​​Require Variable Declaration​​ тысячи переменных (особенно​​String​Пример:​возвращает результат 5.​ встроенных функций, которые​
• ​^​ Excel. Резервируются свободные​ где дальнейший ход​​Все примеры макросов VBA​​ disk;​​ Меняем размер массива​​ новее — откройте​

​Новая книга​​ надо вводить, чтобы​

​ Customize Ribbon)​Private​и нажмите​ при работе с​изменяется​Second(«22:45:15»)​Isdate​ могут быть использованы​

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

​Оператор возведения в степень​ ячейки для внесения​ выполнения алгоритма выбирается,​ Excel создаются по​пишут, скажем так, набросок​ ReDim Preserve ArgArray(NumArgs)​ выпадающий список​- макрос сохраняется​ макрос автоматически выполнял​и включаем в​в применении к​ОК​ массивами). Поэтому излишняя​Набор символов. Тип String​возвращает значение 15.​Возвращает​ при написании кода.​1​ данных по месяцу,​ а не предопределен​

​ той же процедуре,​ кода.​ ‘ Возвращает массив​Вставить (Insert)​ в шаблон, на​ все действия, которые,​ правой части окна​​ переменным и к​​При включенном параметре строка​ память, используемая переменными​

​ может иметь фиксированную​Sqr​True​​ Ниже перечислены некоторые​​*​​ году, названию компании-потребителя,​​ изначально, чаще всего​ которая представлена выше.​Он выглядит следующим образом:​​ в качестве имени​​на вкладке​ основе которого создается​ например, Вы делаете​ флажок​ константам.​​Option Explicit​​ типа​​ или изменяющуюся длину.​​Возвращает квадратный корень числовой​

​, если заданное значение​ из наиболее часто​Оператор умножения​ сумме издержек, их​ используют конструкцию If​ В данном конкретном​Sub program ()​

planetaexcel.ru

Функция Command

​ функции GetCommandLine =​

​Разработчик (Developer)​ любая новая пустая​ для создания еженедельного​Разработчик (Developer)​

​Option Explicit Public sVAT_Rate​

​будет автоматически вставляться​Variant​ Чаще используется с​ величины, переданной в​ является датой, или​ используемых:​2​

​ уровня, товарооборота. Так​

​ …Then (для сложных​ случае код выглядит,​’Наш код​ ArgArray() End Function​ ​ книга в Excel,​ отчета для руководства​. Теперь на появившейся​ As Single Public​ в начало каждого​, по сравнению с​ изменяющейся длиной​ аргументе.​False​Функция Действие​/​ как количество компаний​ случаев) If …Then​ как:​End Sub​Категория​Выберите объект​ т.е. макрос будет​ компании. Поэтому мы​ вкладке нам будут​ Const iMax_Count =​ нового созданного модуля.​ переменными типа​Фиксированной длины — приблизительно​Пример:​– если датой​Abs​Оператор деления​ (обществ), относительно которых​ …END If.​Sub programm()​Обратите внимание, что строка​Функции обработки системных​Кнопка (Button):​ содержаться во всех​ переходим ко второму​ доступны основные инструменты​ 5000 …​Каждая объявленная переменная или​Integer​ до 65 500 символов.​Sqr(4)​ не является.​Возвращает абсолютную величину заданного​2​ составляется отчет, не​Рассмотрим конкретный случай. Предположим,​x1 = 1​ «’Наш код» будет​ параметров​Затем нарисуйте кнопку на​ новых книгах, создаваемых​ способу создания макросов,​ для работы с​В этом примере ключевое​ константа имеет свою​или​ Переменной длины —​

​возвращает значение 2;​
​Пример:​ числа.​

​​

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

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

Для начала запишем самый легкий макрос — зададим в ячейке А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

 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, запишем макрос суммирования результирующих статей БДР, научимся тестировать макросы и выносить кнопки вызова макроса на панель быстрого доступа.

'Отключение отображения выполняемых действий
Application.ScreenUpdating = False
'Предотвращение появления предупреждающих сообщений
Application.DisplayAlerts = False
'Предотвращение появления предупреждения об обновлении связей данных
Application.AskToUpdateLinks = False
'Очистка буфера обмена
Application.CutCopyMode = False

If Application.UserName = "Имя_автора_документа"  Then ...

If Environ("username") = "user"  Then ...

Set myWSheet = ThisWorkbook.Sheets("Имя_листа")
With myWSheet
     'Определение индекса последней строки таблицы
     lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
     'Определение значения в ячейки последней строке столбца A
     lastARow = .Range("A" & lastRow).Value
End With

Selection.Value = Selection.Value

Worksheets.Add (After:=Worksheets(Worksheets.Count)).Name = "Имя_листа"

LastMonthDay = DateAdd("d", -1, DateSerial(Year(dtDate), Month(dtDate), 1))

dToEndOfMonth = DateDiff("d", dFrom, DateAdd("d", -1, _
     DateSerial(Year(dFrom), Month(dFrom) + 1, 1)))

DayOfWeek = DatePart("w", dToday)

pathNewBook = "C:Temp"
nameNewBook = "Имя_нового_файла.xls"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=pathNewBook & nameNewBook
ActiveWorkbook.Close True

ActiveWorkbook.SaveAs FileName:="Name.csv", FileFormat:=xlCSV, _
     CreateBackup:=False, Local:=True
ActiveWorkbook.Saved = True
ActiveWorkbook.Close True

wbPath = "C:Temp"
wbName = "Имя_файла_откуда_копируем.xls"
Workbooks.Open (wbPath & wbName)
Set WB = Workbooks(wbName)
WB.Sheets("Лист 1").Range("A1:С10").Copy
Sheet("Лист_в_текущем_файле").Range("A2").PasteSpecial xlPasteValues

Workbooks.Open (Filename:=wbPath & wbName, ReadOnly:=True)

Set DateRowObj = WB.Sheets("Имя_листа").Range("A:A")._
    Find(What:=dtToAsDate, LookIn:=xlFormulas)
If (DateRowObj Is Nothing) Then
    WB.Close False
    MsgBox "Данные не найдены."
Else
    DateRow = DateRowObj.Row 'Номер строки с искомым значением
End If

wbName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)

fPath = "C:Temp"
fName = "Файл.txt"
If Dir(fPath & fName) = "" Then
   MsgBox "Файл не найден:" & Chr(13) & fPath & fName
   Exit Sub
End If

Private Sub tbVid_Click()
Application.ScreenUpdating = False
If tbVid Then
   tbVid.Caption = "Скрыть"
   ActiveSheet.Rows("2:29").Hidden = False
Else
   tbVid.Caption = "Развернуть"
   ActiveSheet.Rows("2:29").Hidden = True
End If
End Sub

currPath = ThisWorkbook.Path
currWBName = ThisWorkbook.Name
ListName.PivotTables("СводнаяТаблица1").ChangePivotCache ActiveWorkbook. _
 PivotCaches.Create(SourceType:=xlDatabase, SourceData:=currPath & "[" & _
 currWBName & "]Лист1!R1C1:R10C5")

VK.Frame1.Controls("rBtn1")

Selection.Replace What:="#DIV/0!", Replacement:="", LookAt:=xlPart,_
 SearchOrder:=xlByRows, MatchCase:=False,_
 SearchFormat:=False, ReplaceFormat:=False

Sheet1.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows.Count

Selection.Value = Application.Trim(Selection.Value)

Sheet1.Unprotect ('password')

ThisWorkbook.Sheets(1).Range("A1:A10") = _
   ThisWorkbook.Sheets(1).Evaluate("A1:A10" & "*80")

ThisWorkbook.Range("A1:A10").Value = _
   Evaluate("=""" & addTxt & """ & " & ThisWorkbook.Range("A1:A10").Address)

Col = Selection.Column 'Номер выбранного столбца
ColMax = ActiveSheet.PivotTables("СводнаяТаблица").PivotColumnAxis. _
 PivotLines.Count
If Col - 1 <= ColMax And Col  1 Then
 ActiveSheet.PivotTables("СводнаяТаблица").PivotFields("Label").AutoSort _
  xlDescending, " ", ActiveSheet.PivotTables("СводнаяТаблица"). _
  PivotColumnAxis.PivotLines(Col - 1), 1
End If

'Счётчик, ставится в начале процедуры
StartUpdDate = Now
'Сообщение, выводится в конце процедуры
MsgBox "Данные обновлены за " & Fix(1440 * (Now – StartUpdDate)) & " мин. " & 86400 * (Now – StartUpdDate) Mod 60 & " сек."

Function Translit(Txt As String) As String
 Txt = Txt
 Rus = Array("ий", "ый", "ъе", "ъя", "ъю", _
 "ъё", "ье", "ья", "ью", "ьё", "а", "б", "в", "г", _
 "д", "е", "ё", "ж", "з", "и", "й", "к", "л", _
 "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", _
 "ц", "ч", "ш", "щ", "ъ", "ы", "ь", "э", "ю", "я", _
 "ИЙ", "ЫЙ", "ЪЕ", "ЪЯ", "ЪЮ", _
 "ЪЁ", "ЬЕ", "ЬЯ", "ЬЮ", "ЬЁ", "А", "Б", "В", "Г", _
 "Д", "Е", "Ё", "Ж", "З", "И", "Й", "К", "Л", _
 "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", _
 "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я", _
 " ", "_", "?", _
 "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", _
 "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "«", "»")
 
 Eng = Array("y", "y", "ye", "ya", "yu", _
 "yo", "ye", "ya", "yu", "yo", "a", "b", "v", "g", _
 "d", "e", "yo", "zh", "z", "i", "y", "k", "l", "m", _
 "n", "o", "p", "r", "s", "t", "u", "f", "h", "ts", _
 "ch", "sh", "sch", "", "y", "", "eh", "u", "ya", _
 "Y", "Y", "Ye", "Ya", "Yu", _
 "Yo", "Ye", "Ya", "Yu", "Yo", "A", "B", "V", "G", _
 "D", "E", "Yo", "Zh", "Z", "I", "Y", "K", "L", "M", _
 "N", "O", "P", "R", "S", "T", "U", "F", "H", "Ts", _
 "Ch", "Sh", "Sch", "", "Y", "", "Eh", "U", "Ya", _
 " ", "_", "?", _
 "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", _
 "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "", "")
 
 For i = 1 To Len(Txt)
  с = Mid(Txt, i, 1)
  flag = 0
  For J = 0 To 116
   If Rus(J) = с Then
    outchr = Eng(J)
    flag = 1
    Exit For
   End If
  Next J
  If flag Then outstr = outstr & outchr Else outstr = outstr & с
 Next i
 
 Translit = outstr
End Function

Dim strDirPath, strMaskSearch, strFileName as String
strDirPath = "C:/test/" 'Папка поиска
strMaskSearch = "*.xls*" 'Маска поиска
 
'Получаем первый файл соответствующий шаблону
strFileName = Dir(strDirPath & strMaskSearch) 
 
Do While strFileName <> "" 'До тех пор пока файлы "не закончатся"
    MsgBox strFileName 
    strFileName = Dir 'Следующий файл
Loop