#Руководства
- 23 май 2022
-
0
Как с помощью макросов автоматизировать рутинные задачи в Excel? Какие команды они выполняют? Как создать макрос новичку? Разбираемся на примере.
Иллюстрация: Meery Mary для Skillbox Media
Рассказывает просто о сложных вещах из мира бизнеса и управления. До редактуры — пять лет в банке и три — в оценке имущества. Разбирается в Excel, финансах и корпоративной жизни.
Макрос (или макрокоманда) в Excel — алгоритм действий в программе, который объединён в одну команду. С помощью макроса можно выполнить несколько шагов в Excel, нажав на одну кнопку в меню или на сочетание клавиш.
Обычно макросы используют для автоматизации рутинной работы — вместо того чтобы выполнять десяток повторяющихся действий, пользователь записывает одну команду и затем запускает её, когда нужно совершить эти действия снова.
Например, если нужно добавить название компании в несколько десятков документов и отформатировать его вид под корпоративный дизайн, можно делать это в каждом документе отдельно, а можно записать ход действий при создании первого документа в макрос — и затем применить его ко всем остальным. Второй вариант будет гораздо проще и быстрее.
В статье разберёмся:
- как работают макросы и как с их помощью избавиться от рутины в Excel;
- какие способы создания макросов существуют и как подготовиться к их записи;
- как записать и запустить макрос начинающим пользователям — на примере со скриншотами.
Общий принцип работы макросов такой:
- Пользователь записывает последовательность действий, которые нужно выполнить в Excel, — о том, как это сделать, поговорим ниже.
- Excel обрабатывает эти действия и создаёт для них одну общую команду. Получается макрос.
- Пользователь запускает этот макрос, когда ему нужно выполнить эту же последовательность действий ещё раз. При записи макроса можно задать комбинацию клавиш или создать новую кнопку на главной панели Excel — если нажать на них, макрос запустится автоматически.
Макросы могут выполнять любые действия, которые в них запишет пользователь. Вот некоторые команды, которые они умеют делать в Excel:
- Автоматизировать повторяющиеся процедуры.
Например, если пользователю нужно каждый месяц собирать отчёты из нескольких файлов в один, а порядок действий каждый раз один и тот же, можно записать макрос и запускать его ежемесячно.
- Объединять работу нескольких программ Microsoft Office.
Например, с помощью одного макроса можно создать таблицу в Excel, вставить и сохранить её в документе Word и затем отправить в письме по Outlook.
- Искать ячейки с данными и переносить их в другие файлы.
Этот макрос пригодится, когда нужно найти информацию в нескольких объёмных документах. Макрос самостоятельно отыщет её и принесёт в заданный файл за несколько секунд.
- Форматировать таблицы и заполнять их текстом.
Например, если нужно привести несколько таблиц к одному виду и дополнить их новыми данными, можно записать макрос при форматировании первой таблицы и потом применить его ко всем остальным.
- Создавать шаблоны для ввода данных.
Команда подойдёт, когда, например, нужно создать анкету для сбора данных от сотрудников. С помощью макроса можно сформировать такой шаблон и разослать его по корпоративной почте.
- Создавать новые функции Excel.
Если пользователю понадобятся дополнительные функции, которых ещё нет в Excel, он сможет записать их самостоятельно. Все базовые функции Excel — это тоже макросы.
Все перечисленные команды, а также любые другие команды пользователя можно комбинировать друг с другом и на их основе создавать макросы под свои потребности.
В Excel и других программах Microsoft Office макросы создаются в виде кода на языке программирования VBA (Visual Basic for Applications). Этот язык разработан в Microsoft специально для программ компании — он представляет собой упрощённую версию языка Visual Basic. Но это не значит, что для записи макроса нужно уметь кодить.
Есть два способа создания макроса в Excel:
- Написать макрос вручную.
Это способ для продвинутых пользователей. Предполагается, что они откроют окно Visual Basic в Еxcel и самостоятельно напишут последовательность действий для макроса в виде кода.
- Записать макрос с помощью кнопки меню Excel.
Способ подойдёт новичкам. В этом варианте Excel запишет программный код вместо пользователя. Нужно нажать кнопку записи и выполнить все действия, которые планируется включить в макрос, и после этого остановить запись — Excel переведёт каждое действие и выдаст алгоритм на языке VBA.
Разберёмся на примере, как создать макрос с помощью второго способа.
Допустим, специальный сервис автосалона выгрузил отчёт по продажам за три месяца первого квартала в формате таблиц Excel. Эти таблицы содержат всю необходимую информацию, но при этом никак не отформатированы: колонки слиплись друг с другом и не видны полностью, шапка таблицы не выделена и сливается с другими строками, часть данных не отображается.
Скриншот: Skillbox Media
Пользоваться таким отчётом неудобно — нужно сделать его наглядным. Запишем макрос при форматировании таблицы с продажами за январь и затем применим его к двум другим таблицам.
Готовимся к записи макроса
Кнопки для работы с макросами в Excel находятся во вкладке «Разработчик». Эта вкладка по умолчанию скрыта, поэтому для начала разблокируем её.
В операционной системе Windows это делается так: переходим во вкладку «Файл» и выбираем пункты «Параметры» → «Настройка ленты». В открывшемся окне в разделе «Основные вкладки» находим пункт «Разработчик», отмечаем его галочкой и нажимаем кнопку «ОК» → в основном меню Excel появляется новая вкладка «Разработчик».
В операционной системе macOS это нужно делать по-другому. В самом верхнем меню нажимаем на вкладку «Excel» и выбираем пункт «Параметры…».
Скриншот: Skillbox Media
В появившемся окне нажимаем кнопку «Лента и панель».
Скриншот: Skillbox Media
Затем в правой панели «Настроить ленту» ищем пункт «Разработчик» и отмечаем его галочкой. Нажимаем «Сохранить».
Скриншот: Skillbox Media
Готово — вкладка «Разработчик» появилась на основной панели Excel.
Скриншот: Skillbox Media
Чтобы Excel смог сохранить и в дальнейшем использовать макрос, нужно пересохранить документ в формате, который поддерживает макросы. Это делается через команду «Сохранить как» на главной панели. В появившемся меню нужно выбрать формат «Книга Excel с поддержкой макросов».
Скриншот: Skillbox Media
Перед началом записи макроса важно знать об особенностях его работы:
- Макрос записывает все действия пользователя.
После старта записи макрос начнёт регистрировать все клики мышки и все нажатия клавиш. Поэтому перед записью последовательности лучше хорошо отработать её, чтобы не добавлять лишних действий и не удлинять код. Если требуется записать длинную последовательность задач — лучше разбить её на несколько коротких и записать несколько макросов.
- Работу макроса нельзя отменить.
Все действия, которые выполняет запущенный макрос, остаются в файле навсегда. Поэтому перед тем, как запускать макрос в первый раз, лучше создать копию всего файла. Если что-то пойдёт не так, можно будет просто закрыть его и переписать макрос в созданной копии.
- Макрос выполняет свой алгоритм только для записанного диапазона таблиц.
Если при записи макроса пользователь выбирал диапазон таблицы, то и при запуске макроса в другом месте он выполнит свой алгоритм только в рамках этого диапазона. Если добавить новую строку, макрос к ней применяться не будет. Поэтому при записи макроса можно сразу выбирать большее количество строк — как это сделать, показываем ниже.
Для начала записи макроса перейдём на вкладку «Разработчик» и нажмём кнопку «Записать макрос».
Скриншот: Skillbox Media
Появляется окно для заполнения параметров макроса. Нужно заполнить поля: «Имя макроса», «Сохранить в», «Сочетание клавиш», «Описание».
Скриншот: Skillbox Media
«Имя макроса» — здесь нужно придумать и ввести название для макроса. Лучше сделать его логически понятным, чтобы в дальнейшем можно было быстро его найти.
Первым символом в названии обязательно должна быть буква. Другие символы могут быть буквами или цифрами. Важно не использовать пробелы в названии — их можно заменить символом подчёркивания.
«Сохранить в» — здесь нужно выбрать книгу, в которую макрос сохранится после записи.
Если выбрать параметр «Эта книга», макрос будет доступен при работе только в этом файле Excel. Чтобы макрос был доступен всегда, нужно выбрать параметр «Личная книга макросов» — Excel создаст личную книгу макросов и сохранит новый макрос в неё.
«Сочетание клавиш» — здесь к уже выбранным двум клавишам (Ctrl + Shift в системе Windows и Option + Cmd в системе macOS) нужно добавить третью клавишу. Это должна быть строчная или прописная буква, которую ещё не используют в других быстрых командах компьютера или программы Excel.
В дальнейшем при нажатии этих трёх клавиш записанный макрос будет запускаться автоматически.
«Описание» — необязательное поле, но лучше его заполнять. Например, можно ввести туда последовательность действий, которые планируется записать в этом макросе. Так не придётся вспоминать, какие именно команды выполнит этот макрос, если нужно будет запустить его позже. Плюс будет проще ориентироваться среди других макросов.
В нашем случае с форматированием таблицы заполним поля записи макроса следующим образом и нажмём «ОК».
Скриншот: Skillbox Media
После этого начнётся запись макроса — в нижнем левом углу окна Excel появится значок записи.
Скриншот: Skillbox Media
Пока идёт запись, форматируем таблицу с продажами за январь: меняем ширину всех столбцов, данные во всех ячейках располагаем по центру, выделяем шапку таблицы цветом и жирным шрифтом, рисуем границы.
Важно: в нашем случае у таблиц продаж за январь, февраль и март одинаковое количество столбцов, но разное количество строк. Чтобы в случае со второй и третьей таблицей макрос сработал корректно, при форматировании выделим диапазон так, чтобы в него попали не только строки самой таблицы, но и строки ниже неё. Для этого нужно выделить столбцы в строке с их буквенным обозначением A–G, как на рисунке ниже.
Скриншот: Skillbox Media
Если выбрать диапазон только в рамках первой таблицы, то после запуска макроса в таблице с большим количеством строк она отформатируется только частично.
Скриншот: Skillbox Media
После всех манипуляций с оформлением таблица примет такой вид:
Скриншот: Skillbox Media
Проверяем, все ли действия с таблицей мы выполнили, и останавливаем запись макроса. Сделать это можно двумя способами:
- Нажать на кнопку записи в нижнем левом углу.
- Перейти во вкладку «Разработчик» и нажать кнопку «Остановить запись».
Скриншот: Skillbox Media
Готово — мы создали макрос для форматирования таблиц в границах столбцов A–G. Теперь его можно применить к другим таблицам.
Запускаем макрос
Перейдём в лист со второй таблицей «Февраль_2022». В первоначальном виде она такая же нечитаемая, как и первая таблица до форматирования.
Скриншот: Skillbox Media
Отформатируем её с помощью записанного макроса. Запустить макрос можно двумя способами:
- Нажать комбинацию клавиш, которую выбрали при заполнении параметров макроса — в нашем случае Option + Cmd + Ф.
- Перейти во вкладку «Разработчик» и нажать кнопку «Макросы».
Скриншот: Skillbox Media
Появляется окно — там выбираем макрос, который нужно запустить. В нашем случае он один — «Форматирование_таблицы». Под ним отображается описание того, какие действия он включает. Нажимаем «Выполнить».
Скриншот: Skillbox Media
Готово — вторая таблица с помощью макроса форматируется так же, как и первая.
Скриншот: Skillbox Media
То же самое можно сделать и на третьем листе для таблицы продаж за март. Более того, этот же макрос можно будет запустить и в следующем квартале, когда сервис автосалона выгрузит таблицы с новыми данными.
Научитесь: Excel + Google Таблицы с нуля до PRO
Узнать больше
Полезные макросы Excel для автоматизации рутинной работы с примерами применения для разных задач.
Примеры макросов для автоматизации работы
Макросы для фильтра сводной таблицы в Excel.
Как автоматизировать фильтр в сводных таблицах с помощью макроса? Исходные коды макросов для фильтрации и скрытия столбцов в сводной таблице.
Макрос для создания сводной таблицы в Excel.
Как автоматически сгенерировать сводную таблицу с помощью макроса? Исходный код VBA для создания и настройки сводных таблиц на основе исходных данных.
Макросы для изменения формата ячеек в таблице Excel.
Как форматировать ячейки таблицы макросом? Изменение цвета шрифта, заливки и линий границ, выравнивание. Автоматическая настройка ширины столбцов и высоты строк по содержимому с помощью VBA-макроса.
Макрос для копирования и переименования листов Excel.
Как одновременно копировать и переименовывать большое количество листов одним кликом мышкой? Исходный код макроса, который умеет одновременно скопировать и переименовать любое количество листов.
В этом уроке я покажу Вам самые популярные макросы в VBA Excel, которые вы сможете использовать для оптимизации своей работы. VBA — это язык программирования, который может использоваться для расширения возможностей MS Excel и других приложений MS Office. Это чрезвычайно полезно для пользователей MS Excel, поскольку VBA может использоваться для автоматизации вашей работы и значительно увеличить Вашу эффективность. В этой статье Вы познакомитесь с VBA и я вам покажу некоторые из наиболее полезных, готовых к использованию примеров VBA. Вы сможете использовать эти примеры для создания собственных скриптов, соответствующих Вашим потребностям.
Вам не нужен опыт программирования, чтобы воспользоваться информаций из этой статьи, но вы должны иметь базовые знания Excel. Если вы еще учитесь работать с Excel, я бы рекомендовал Вам прочитать статью 20 формул Excel, которые вам нeобходимо выучить сейчас, чтобы узнать больше о функциональных возможностях Excel.
Я подготовил для вас несколько самых полезных примеров VBA Excel с большой функциональностью, которую вы сможете использовать для оптимизации своей работы. Чтобы их использовать, вам необходимо записать их в файл. Следующий параграф посвящен установке макроса Excel. Пропустите эту часть, если вы уже знакомы с этим.
Table of Contents
Как включить макросы в Excel
В Excel нажмите комбинацию клавиш alt + F11. Это приведет вас к редактору VBA в MS Excel. Затем щелкните правой кнопкой мыши папку Microsoft Excel Objects слева и выберите Insert => Module. Это место, где сохраняются макросы. Чтобы использовать макрос, вам нужно сохранить документ Excel как макрос. Из табуляции File => Save as, выберите Save as macro-enabled Workbok (расширение .xlsm) Теперь пришло время написать свой первый макрос!
1. Копирование данных из одного файла в другой.
Очень полезный макрос, поскольку он показывает, как скопировать ряд данных изнутри vba и как создать и назвать новую книгу. Вы можете изменить этот макрос в соответствии с вашими собственными требованиями:
Sub CopyFiletoAnotherWorkbook() Sheets("Example 1").Range("B4:C15").Copy Workbooks.Add ActiveSheet.Paste Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:TempMyNewBook.xlsx" Application.DisplayAlerts = True End Sub
2. Отображение скрытых строк
Иногда большие файлы Excel можно содержать скрытые строки для большей ясности И для лучшего удобства пользователей. Вот один макрос, который отобразит все строки из активной рабочей таблицы:
Sub ShowHiddenRows() Columns.EntireColumn.Hidden = False Rows.EntireRow.Hidden = False End Sub
3. Удаление пустых строк и столбов
Пустые строки в Excel — может быть проблемой для обработки данных. Вот как избавиться от них:
Sub DeleteEmptyRowsAndColumns() Dim MyRange As Range Dim iCounter As Long Set MyRange = ActiveSheet.UsedRange For iCounter = MyRange.Rows.Count To 1 Step -1 If Application.CountA(Rows(iCounter).EntireRow) = 0 Then Rows(iCounter).Delete End If Next iCounter For iCounter = MyRange.Columns.Count To 1 Step -1 If Application.CountA(Columns(iCounter).EntireColumn) = 0 Then Columns(iCounter).Delete End If Next iCounter End Sub
4. Нахождение пустых ячеек
Sub FindEmptyCell() ActiveCell.Offset(1, 0).Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop End Sub
#### 5. Заполнение пустых ячеек
Как упоминалось ранее, пустые ячейки препятствуют обработке данных и созданию сводных таблиц. Вот один примерный код, который заменяет все пустые ячейки на 0. Этот макрос имеет очень большое приложение, потому что Вы можете использовать его для поиска и замены результатов N/A, а также других символов, таких как точки, запятые или повторяющиеся значения:
Sub FindAndReplace() Dim MyRange As Range Dim MyCell As Range Select Case MsgBox("Can't Undo this action. " & _ "Save Workbook First?", vbYesNoCancel) Case Is = vbYes ThisWorkbook.Save Case Is = vbCancel Exit Sub End Select Set MyRange = Selection For Each MyCell In MyRange If Len(MyCell.Value) = 0 Then MyCell = 0 End If Next MyCell End Sub
#### 6. Сортировка данных
Следующий макрос сортирует по возрастанию все числа из столбца активной ячейки. Просто дважды нажмите любую ячейку из столбца, который вы хотите отсортировать.
NB: Здесь нам нужно поставить этот код в Sheet1 (папка Microsoft Excel Objects), а не в Module1 (папка Modules):
Private Sub Worksheet_BeforeDoubleClick (ByVal Target as Range, Cancel As Boolean) Dim LastRow As Long LastRow = Cells (Rows.Count, 1) .End (xlUp) .Row Rows ("6:" & LastRow) .Sort _ Key1: = Cells (6, ActiveCell.Column), _ Order1: = xlAscending End Sub
#### 7. Удаление пустых пространств
Иногда данные в книге содержат дополнительные пробелы (whitespace charachters), которые могут мешать анализу данных и коррумпировать формулы. Вот один макрос, который удалит все пробелы из предварительно выбранного диапазона ячеек:
Sub TrimTheSpaces() Dim MyRange As Range Dim MyCell As Range Select Case MsgBox("Can't Undo this action. " & _ "Save Workbook First?", vbYesNoCancel) Case Is = vbYes ThisWorkbook.Save Case Is = vbCancel Exit Sub End Select Set MyRange = Selection For Each MyCell In MyRange If Not IsEmpty(MyCell) Then MyCell = Trim(MyCell) End If Next MyCell End Sub
#### 8. Выделение дубликатов цветом
Иногда в нескольких столбцах, которые мы хотели бы осветить, есть повторяющиеся значения. Этот макрос делает именно это:
Sub HighlightDuplicates() Dim MyRange As Range Dim MyCell As Range Set MyRange = Selection For Each MyCell In MyRange If WorksheetFunction.CountIf(MyRange, MyCell.Value) > 1 Then MyCell.Interior.ColorIndex = 36 End If Next MyCell End Sub
#### 9. Выделение десяти самых высоких чисел
Этот код будет отображать десять самых высоких чисел из набора ячеек:
Sub TopTen() Selection.FormatConditions.AddTop10 Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1) .TopBottom = xlTop10Top .Rank = 10 .Percent = False End With With Selection.FormatConditions(1).Font .Color = -16752384 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13561798 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub
Вы можете легко настроить код, чтобы выделить различное количество чисел.
#### 10. Выделение данных больших чем данные число
Когда вы запустите этот код, появится окно. Вам надо написать число, которое вы хотите сравнить с выбранными ячейками.
Sub HighlightGreaterThanValues() Dim i As Integer i = InputBox("Enter Greater Than Value", "Enter Value") Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:=i Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1) .Font.Color = RGB(0, 0, 0) .Interior.Color = RGB(31, 218, 154) End With End Sub
Вы тоже можете настроить этот код, чтобы выделить более низкие чисел.
#### 11. Выделение ячеек комментариями
Простой макрос, который выделяет все ячейки, содержащие комментарии:
Sub HighlightCommentCells() Selection.SpecialCells(xlCellTypeComments).Select Selection.Style= "Note" End Sub
#### 12. Выделение ячеек со словами с ошибками
Это очень полезно, когда вы работаете с функциями, которые принимают строки, однако кто-то ввел строку с ошибкой, и ваши формулы не работают. Вот как решить эту проблему:
Sub ColorMispelledCells() For Each cl In ActiveSheet.UsedRange If Not Application.CheckSpelling(Word:=cl.Text) Then _ cl.Interior.ColorIndex = 28 Next cl End Sub
13. Создание сводной таблицы
Вот как создать сводную таблицу в MS Excel (версия 2007). Особенно полезно, когда вы делаете индивидуальный отчет каждый день. Вы можете оптимизировать создание сводной таблицы следующим образом:
Sub PivotTableForExcel2007() Dim SourceRange As Range Set SourceRange = Sheets("Sheet1").Range("A3:N86") ActiveWorkbook.PivotCaches.Create( _ SourceType:=xlDatabase, _ SourceData:=SourceRange, _ Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:="", _ TableName:="", _ DefaultVersion:=xlPivotTableVersion12 End Sub
14. Отправка активного файла по электронной почте
Мой любимый код VBA. Он позволяет вам прикреплять и отправлять файл, с которым вы работаете, с предопределенным адресом электронной почты, заголовком сообщения и телом сообщения! Сначала Вам нужно сделать референцию в Excel на Microsoft Outlook (в редакторе Excel VBA, нажмите tools => references и выберите Microsoft Outlook).
Sub SendFIleAsAttachment() Dim OLApp As Outlook.Application Dim OLMail As Object Set OLApp = New Outlook.Application Set OLMail = OLApp.CreateItem(0) OLApp.Session.Logon With OLMail .To = "admin@datapigtechnologies.com; mike@datapigtechnologies.com" .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = "Hi there" .Attachments.Add ActiveWorkbook.FullName .Display End With Set OLMail = Nothing Set OLApp = Nothing End Sub
15. Вставка всех графиков Excel в презентацию PowerPoint
Очень удобный макрос, который позволяет вам добавлять все ваши графики Excel в презентацию Powerpoint одним щелчком мыши:
Sub SendExcelFiguresToPowerPoint() Dim PP As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim i As Integer Sheets("Slide Data").Select If ActiveSheet.ChartObjects.Count < 1 Then MsgBox "No charts existing the active sheet" Exit Sub End If Set PP = New PowerPoint.Application Set PPPres = PP.Presentations.Add PP.Visible = True For i = 1 To ActiveSheet.ChartObjects.Count ActiveSheet.ChartObjects(i).Chart.CopyPicture _ Size:=xlScreen, Format:=xlPicture Application.Wait (Now + TimeValue("0:00:1")) ppSlideCount = PPPres.Slides.Count Set PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutBlank) PPSlide.Select PPSlide.Shapes.Paste.Select PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True Next i Set PPSlide = Nothing Set PPPres = Nothing Set PP = Nothing End Sub
16. Вставка таблицы Excel в MS Word
Таблицы Excel обычно помещаются внутри текстовых документов. Вот один автоматический способ экспорта таблицы Excel в MS Word:
Sub ExcelTableInWord() Dim MyRange As Excel.Range Dim wd As Word.Application Dim wdDoc As Word.Document Dim WdRange As Word.Range Sheets("Revenue Table").Range("B4:F10").Cop Set wd = New Word.Application Set wdDoc = wd.Documents.Open _ (ThisWorkbook.Path & "" & "PasteTable.docx") wd.Visible = True Set WdRange = wdDoc.Bookmarks("DataTableHere").Rangе On Error Resume Next WdRange.Tables(1).Delete WdRange.Paste WdRange.Tables(1).Columns.SetWidth _ (MyRange.Width / MyRange.Columns.Count), wdAdjustSameWidth wdDoc.Bookmarks.Add "DataTableHere", WdRange Set wd = Nothing Set wdDoc = Nothing Set WdRange = Nothing End Sub
17. Извлечение слов из текста
Мы можем использовать формулы, если хотим извлечь определенное количество символов. Но что, если мы хотим извлечь только одно слово из предложения или диапазон слов в ячейке? Для этого мы можем сами создать функцию Excel с помощью VBA. Это одна из самых удобных функций VBA, поскольку она позволяет создавать собственные формулы, которые отсутствуют в MS Excel. Давайте продолжим и создадим две функции: findword() и findwordrev():
Function FindWord(Source As String, Position As Integer) As String On Error Resume Next FindWord = Split(WorksheetFunction.Trim(Source), " ")(Position - 1) On Error GoTo 0 End Function Function FindWordRev(Source As String, Position As Integer) As String Dim Arr() As String Arr = VBA.Split(WorksheetFunction.Trim(Source), " ") On Error Resume Next FindWordRev = Arr(UBound(Arr) - Position + 1) On Error GoTo 0 End Function
Отлично, мы уже создали две новые функции в Excel! Теперь попробуйте использовать их в Excel. Функция = FindWordRev (A1,1) берет последнее слово из ячейки A1. Функция = FindWord (A1,3) берет третье слово из ячейки A1 и т. Д.
18. Защита данных в MS Excel
Иногда мы хотим защитить данных нашего файла, чтобы только мы могли его изменять. Вот как это сделать с VBA:
Sub ProtectSheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Protect Password:="1234" Next ws End Sub
Поздравления! Поскольку вы все еще читаете это, вы действительно заинтересованы в изучении VBA. Как вы уже сами видели, язык программирования VBA чрезвычайно полезен и может сэкономить нам много времени. Надеюсь, вы нашли эту информацию полезной и использовали ее, чтобы стать мастером MS Excel, VBA и компьютерных наук в целом.
© 2018 Атанас Йонков
Литература:
1. ExcelChamps.com: Top 100 Useful Excel Macro [VBA] Codes Examples.
2. Michael Alexander, John Walkenbach (2012). 101 Ready-To-Use Excel Macros.
3. BG Excel.info: 14 ready-to-use Macros for Excel.
Самоучитель по Excel VBA
Смотрите также как создать и выберите категориюPersonal.xls же может написать с оператора правой части окнаМакрос для объединения повторяющихсяВыберите в списке макрос, выделение ячеек, строк записываются в соответствующиеФункции форматирования. Важнейшей из в ячейку с его ячейке будут сам код макросасохраняют, нажав на иконку
программирования. К особенностямДанный учебник является введением использовать макрос внутриМакросы, которая используется как макрос, который делаетSub флажок ячеек в таблице который требуется удалить, или столбцов, а ячейки, поэтому нет них является Format. координатами (1,1) было записаны квадраты номера находится между строками с изображением floppy VBA относится выполнение в язык программирования файла одной рабочейи при помощи хранилище макросов. Все то, что Excel, за которым идетРазработчик (Developer) Excel.
- и нажмите кнопку
- также выделение ячеек необходимости их присваивания
- Она возвращает значение
- записано: соответствующей строки. Использование
- Sub Макрос1() и
- disk;
- скрипта в среде Excel VBA (Visual
- книги. В случаи, кнопки
- макросы из никогда не умел
- имя макроса и
- . Теперь на появившейся
Практический пример и «Удалить». путем перетаскивания указателя переменным.
типа Variant с1, если аргумент положительный;
конструкции For позволит
End Sub.
пишут, скажем так, набросок
office-guru.ru
VBA Excel: примеры программ. Макросы в Excel
офисных приложений. Basic for Applications). когда необходимо использоватьДобавить (Add)Personal.xls (сортировку по цвету, список аргументов (входных вкладке нам будут пошаговый разбор исходногоК началу страницы мыши. Команды дляПеред запуском созданной программы, выражением, отформатированным согласно0, если аргумент нулевой; записать ее оченьЕсли копирование было выполнено, кода.Недостатком программы являются проблемы,
Что такое VBA
Изучив VBA, Вы тот же макросперенесите выбранный макросзагружаются в память например или что-то значений) в скобках. доступны основные инструменты
VBA-кода макроса дляVBA коды для записи, создания и требуется сохранить рабочую инструкциям, которые заданы-1, если аргумент отрицательный. коротко, без использования например, из ячейкиОн выглядит следующим образом: связанные с совместимостью сможете создавать макросы
в других файлах в правую половину при старте Excel подобное). Если аргументов нет, для работы с автоматического объединения повторяющихся простых программ макросов удаления макросов доступны книгу, например, под в описании формата.Создание такого макроса для счетчика. А1 в ячейкуSub program () различных версий. Они и выполнять в рабочих книг, тогда окна, т.е. на и могут бытьЕсли во время записи то скобки надо
Объекты, коллекции, свойства и методы
макросами, в том одинаковых ячеек в необходимых при работе на вкладке ленты названием «Отчет1.xls».и пр. «Эксель» начинается стандартнымСначала нужно создать макрос, C1, то одна’Наш код обусловлены тем, что Excel практически любые можно сохранить его
панель быстрого доступа: запущены в любой макроса макрорекордером вы оставить пустыми. числе и нужная строках таблицы. 1 с таблицами наРазработчикКлавишу «Создать отчетную таблицу»Изучение свойств этих функций
способом, через использование как описано выше. из строк кодаEnd Sub код программы VBA задачи. Вы очень в личной книгеКнопка на листе
момент и в ошиблись — ошибкаЛюбой макрос должен заканчиваться нам кнопка 2 3 4 каждый день.
. требуется нажать всего и их применение «горячих» клавиш Alt Далее записываем сам будет выглядеть, какОбратите внимание, что строка обращается к функциональным скоро поймёте, что макросов. У нееЭтот способ подходит для любой книге. будет записана. Однако операторомРедактор Visual Basic
Всем нам приходится -Макрос для копирования листаЕсли вкладка 1 раз после
Как начать
позволит значительно расширить и F11. Далее код. Считаем, что Range(“C1”).Select. В переводе «’Наш код» будет возможностям, которые присутствуют
макросы могут сэкономить всегда одно название любой версии Excel.После включения записи и смело можете давить
- End Sub(Visual Basic Editor) кому реже, кому в Excel cРазработчик
- ввода заголовочной информации.
- сферу применения «Эксель». записывается следующий код: нас интересуют значения
- это выглядит, как выделена другим цветом
в новой версии
уйму времени благодаря
– Personal.xlsb. Она
Мы добавим кнопку
выполнения действий, которые на кнопку отмены.: чаще — повторять любым количеством копий.недоступна, выполните перечисленные Следует знать и
Попробуем перейти к решениюSub program() для 10 ячеек. «Диапазон(“C1”).Выделить», иными словами (зеленым). Причина в продукта, но отсутствуют автоматизации повторяющихся задач всегда открывается при запуска макроса прямо необходимо записать, запись последнего действия (Undo)Все, что находится междуК сожалению, интерфейс редактора одни и те
Макросы в Excel
Практический пример с ниже действия, чтобы другие правила. В более сложных задач.x= Cells(1, 1).Value (эта Код выглядит следующим осуществляет переход в апострофе, поставленном в в старой. Также и обеспечить гибкое запуске программы Excel, на рабочий лист, можно остановить командой — во времяSub VBA и файлы же действия и описанием и исходным открыть ее. частности, кнопка «Добавить
Пример 1
Например: команда присваивает x образом. VBA Excel, в начале строки, который
к минусам относят
- взаимодействие с другими
- только скрыто. Данная
- как графический объект.
- Остановить запись
записи макроса макрорекордероми справки не переводятся операции в Excel. кодом макроса дляВыберите строку» должна нажиматьсяДан бумажный документ отчета значение содержимого ячейки
For i = 1 ячейку С1. обозначает, что далее и чрезмерно высокую пользователями. книга не является Для этого:(Stop Recording) она не просто
End Sub
- компанией Microsoft на Любая офисная работа
- одновременного копирования любогоExcel
- каждый раз после фактического уровня издержек с координатами (1,
to 10 NextАктивную часть кода завершает следует комментарий. открытость кода для
Этот учебник не является доступной по умолчаниюВ Excel 2003 и. возрвращает Вас в- тело макроса, русский язык, поэтому предполагает некую «рутинную количества рабочих листов.> ввода в таблицу предприятия. Требуется:
1))Команда переводится на «человеческий» команда ActiveSheet.Paste. ОнаТеперь вы можете написать изменения посторонним лицом. исчерпывающим руководством по в Excel, поэтому старше — откройтеУправление всеми доступными макросами предыдущее состояние, но т.е. команды, которые с английскими командами
составляющую» — одниМакрос для выделения инастройки значений по каждомуразработать его шаблонную частьIf x>0 Then Cells(1, язык, как «Повторять
Пример 2
означает запись содержания любой код и Тем не менее
языку программирования Excel ее нужно сначала панель инструментов производится в окне, и стирает последнюю будут выполняться при в меню и и те же удаления пустых столбцов>
виду деятельности. После посредством табличного процессора 1).Value = 1 от 1 до выделенной ячейки (в создать для себя Microsoft Office, а VBA. Его цель подключить.
Формы которое можно открыть записанную команду на запуске макроса. В окнах придется смириться: еженедельные отчеты, одни в Excel.
панель инструментов и ленты
занесения всех данных
«Эксель»;
If x=0 Then Cells(1,
10 с шагом
данном случае А1) новый инструмент в также IBM Lotus – помочь начинающемуЧтобы создать и схоронить
через меню с помощью кнопки
VBA. данном случае макросМакросы (т.е. наборы команд и те же
Выделение, удаление, скрытие. требуется нажать кнопкусоставить программу VBA, которая
1).Value = 0 один».
в выделенную ячейку VBA Excel (примеры Symphony позволяют пользователю
специалисту освоить написание
код в личной
Вид — Панели инструментовМакросы (Macros)Чтобы включить запись необходимо: выделяет ячейку заливает на языке VBA) действия по обработке и добавление пустыхВ разделе
«Закончить» и затем будет запрашивать исходныеIf x
Пример 3
Если ставится задача получить С1. программ см. далее). применять шифрование начального макросов в Excel книге макросов: — Формы (View
на вкладкев Excel 2003 и выделенных диапазон (Selection) хранятся в программных поступивших данных, заполнение столбцов в таблицуНастройка ленты переключиться в окно данные для ее
End Sub. столбец с квадратами,Циклы VBA помогают создавать Конечно, тем, кто кода и установку при помощи кодаВыберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Запись макроса». — Toolbars -
Разработчик (Developer) старше — выбрать
желтым цветом (код модулях. В любой однообразных таблиц или по условию пользователявыберите
«Эксель». заполнения, осуществлять необходимыеОстается запустить макрос и например, всех нечетных различные макросы в знаком с азами
пароля для его VBA. Для желающихВ появившемся диалоговом окне
Forms)или — в в меню = 6) и книге Excel мы бланков и т.д. с помощью макросов.
Основные вкладкиТеперь вы знаете, как расчеты и заполнять получить в «Эксель» чисел из диапазона Excel. Visual Basic, будет просмотра. изучить этот язык «Запись макроса», изВ Excel 2007 и
старых версиях ExcelСервис — Макрос -
затем проходит в
можем создать любое Использование макросов и Исходные коды предоставлятьсяи установите флажок решать задачи для ими соответствующие ячейки
нужное значение для от 1 доЦиклы VBA помогают создавать намного проще. ОднакоИменно с этими понятиями
программирования более глубоко выпадающего списка «Сохранить новее — откройте — через меню
Начать запись
цикле по всем количество программных модулей пользовательских функций позволяет с описанием иРазработчик Excel с помощью шаблона. аргумента. 11, то пишем: различные макросы. Предположим, даже те, кто
Пример 4
нужно разобраться тем, существуют отличные книги в:» выберите опцию выпадающий списокСервис — Макрос -(Tools — Macro - ячейкам, заменяя формулы и разместить там автоматизировать эти операции, примерами в картинках.. макросов. Умение применятьРассмотрим один из вариантовКак вы уже моглиFor i = 1 что имеется функция их не имеет,
кто собирается работать по Excel VBA. «Личная книга макросов».Вставить (Insert) Макросы Record New Macro)
на значения. В
наши макросы. Один
перекладывая монотонную однообразную
Макрос для выделения иНажмите кнопку vba excel (примеры решения. заметить, программировать в to 10 step
y=x + x2
при желании смогут в среде VBA. Далее приведено содержание И нажмите нана вкладке
(Tools — Macro -в Excel 2007 и
конце выводится окно модуль может содержать
работу на плечи
удаления пустых строк
Сохранить программ см. выше)Все действия осуществляются на самом известном табличном
Функции VBA
1 Next. + 3×3 – освоиться достаточно быстро. Прежде всего необходимо самоучителя по Excel кнопку OK.Разработчик (Developer) Macros) новее — нажать сообщения (MsgBox). любое количество макросов. Excel. Другим поводом в Excel.и закройте может понадобиться и стандартном листе в
- процессоре Microsoft неЗдесь step — шаг. cos(x). Требуется создатьЗа таким названием скрываются понять, что такое
- Visual Basic. ДляТеперь выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Остановить : кнопкуС ходу ясно, что Доступ ко всем
- для использования макросовПримеры макросов сПараметров Excel
- для работы в Excel. Резервируются свободные так уж сложно. В данном случае макрос для получения программы, написанные на объект. В Excel начинающих программистов настоятельно запись».Выберите объектЛюбой выделенный в спискеЗапись макроса (Record macro) вот так сразу, модулям осуществляется с в вашей работе исходными кодами для.
- среде самого популярного ячейки для внесения Особенно, если научиться он равен двум. ее графика. Сделать
- языке Visual Basic в этом качестве рекомендуется начать сОткройте редактор Visual Basic:Кнопка (Button): макрос можно запуститьна вкладке без предварительной подготовки помощью окна Project может стать необходимость удаления, выделения, добавленияНа вкладке на данный момент
- данных по месяцу, применять функции VBA. По умолчанию отсутствие это можно только, for Application. Таким
- выступают лист, книга, первого раздела учебника «РАЗРАБОТЧИК»-«Код»-«Visual Basic». ИлиЗатем нарисуйте кнопку на кнопкойРазработчик (Developer) и опыта в
- Explorer в левом
добавить в Microsoft и скрытия пустыхРазработчик текстового редактора «Ворд».
Пример 5
году, названию компании-потребителя, Всего в этом этого слова в
используя циклы VBA. образом, программирование в ячейка и диапазон.
- и изучать их нажмите комбинацию горячих листе, удерживая левую
- ВыполнитьЗатем необходимо настроить параметры программировании вообще и верхнем углу редактора Excel недостающие, но строк в исходнойнажмите кнопку
В частности, можно сумме издержек, их
Создание шаблона
языке программирования, созданном цикле означает, чтоЗа начальное и конечное Excel — это Данные объекты обладают по порядку. Те, клавиш ALT+F11. В кнопку мыши. Автоматически(Run) записываемого макроса в на VBA в (если его не нужные вам функции. таблице данных. Запись макроса путем записи, как уровня, товарооборота. Так специально для написания
Переменные
шаг единичный. значение аргумента функции создание макросов с специальной иерархией, т.е. кто имеет опыт
- окне «Project-VBAProject», в появится окно, где
- . окне частности, сложновато будет
- видно, нажмите CTRL+R). Например функцию сборкиМакрос для выделения ячеек
- . показано в самом как количество компаний
приложений в «Эксель»Полученные результаты нужно сохранять берут x1=0 и нужным кодом. Благодаря подчиняются друг другу. в программировании на дереве проектов появиться нужно выбрать макрос,
Решение задачи с использованием программирования на VBA
КнопкаЗапись макроса сообразить какие именно Программные модули бывают данных с разных со снятой защитойПримечание: начале статьи, или (обществ), относительно которых
и Word, около в ячейки с x2=10. Кроме того, этой возможности табличный
Главным из них является VBA, могут сразу доступная еще одна который должен запускатьсяПараметры
: команды и как нескольких типов для листов на один на листе Excel. Чтобы создать макрос из через написание кода составляется отчет, не
160 функций. Их номером (i,1). Тогда необходимо ввести константу процессор Microsoft саморазвивается, Application, соответствующий самой
же перейти к книга Personal.xlsb. Кликните при щелчке по(Options)
Имя макроса надо вводить, чтобы разных ситуаций: итоговый лист, разнесенияИсходный код с VBE, щелкните создавать кнопки меню, зафиксировано, ячейки для можно разделить на при каждом запуске — значение для подстраиваясь под требования программе Excel. Затем интересующим темам. на «плюсик» слева нарисованной кнопке.позволяет посмотреть и
- подойдет любое макрос автоматически выполнялОбычные модули данных обратно, вывод примером и описаниемVisual Basic благодаря которым многие внесения значений по несколько больших групп. цикла с увеличением шага изменения аргумента конкретного пользователя. Разобравшись следуют Workbooks, Worksheets,Часть 1: Оформление кода на против этойСоздание пользовательских функций или, отредактировать сочетание клавиш имя на русском все действия, которые,- используются в суммы прописью и для VBA-макроса выделения. В окне кода операции над текстом
итогам и ФИО
fb.ru
Создание и удаление макросов в Excel для Mac с помощью вкладки «Разработчик»
Это: i на величину и начальное значение с тем, как а также Range.Часть 2: Типы данных, книги, чтобы раскрыть как их иногда для быстрого запуска или английском языке. например, Вы делаете большинстве случаев, когда т.д. ячеек у которых, модуля введите код можно будет осуществлять специалиста заранее неМатематические функции. Применив их шага автоматически будет для счетчика. создавать модули для
Например, для обращения переменные и константы проект книги Personal.xlsb. еще называют, UDF-функций макроса. Имя должно начинаться для создания еженедельного речь идет оМакрос снятая защита от макроса. нажатием дежурных клавиш резервируют. Рабочему листу к аргументу, получают расти и номерВсе примеры макросов VBA написания макросов, можно к ячейке A1Часть 3: Массивы
Запись макроса
А после двойным (User Defined Functions)Кнопка с буквы и отчета для руководства макросах. Для создания- это запрограммированная ввода значений данныхВ поле или через вкладку присваивается новое название. значение косинуса, натурального у строки. Таким Excel создаются по приступать к рассмотрению на конкретном листеЧасть 4: Процедуры Function щелчком отройте ее принципиально не отличается
-
Изменить не содержать пробелов компании. Поэтому мы такого модуля выберите последовательность действий (программа,
-
и редактирования.Имя макроса «Вид» и пиктограмму Например, «Օтчет». логарифма, целой части образом, произойдет оптимизация той же процедуре,
-
конкретных примеров программ следует указать путь и Sub Module1. от создания макроса(Edit) и знаков препинания.
-
переходим ко второму в меню процедура), записанная наМакрос для поиска ячееквведите имя макроса.
-
-
«Макросы».Для написания программы автоматического и пр. кода. которая представлена выше.
VBA Excel. Лучше с учетом иерархии.Часть 5: Условные операторыВ результате откроется окно в обычном программномоткрывает редактор VisualСочетание клавиш
-
способу создания макросов,Insert — Module языке программирования Visual
в Excel сПервым символом имени макросаАвтор: Наира заполнения шаблона, необходимоФинансовые функции. Благодаря ихВ целом код будет В данном конкретном всего начать сЧто касается понятия «коллекция»,Часть 6: Циклы кода модуля с модуле. Разница только Basic (см. выше)- будет потом а именно…. В появившееся окно
-
Basic for Applications выпадающим списком и должна быть буква.Примечание: выбрать обозначения. Они
-
наличию и используя выглядеть, как: случае код выглядит, самых элементарных кодов. то это группа
Часть 7: Операторы и зарегистрированным макросом. Удалите в том, что и позволяет просмотреть использоваться для быстрогоМакрорекордер нового пустого модуля
-
(VBA). Мы можем условным форматированием. Последующие символы могут Мы стараемся как можно будут использоваться для программирование в Excel,
-
Sub program()
-
как:Задача: написать программу, которая объектов того же встроенные функции его код и
макрос выполняет последовательность
Удаление макроса
-
и отредактировать текст запуска макроса. Если- это небольшая можно вводить команды запускать макрос сколько
-
Исходный VBA-код макроса быть буквами, цифрами оперативнее обеспечивать вас переменных:
можно получать эффективные
support.office.com
Запуск и создание макросов в Excel для чайников
For i = 1Sub programm() будет копировать значение класса, которая вЧасть 8: Объектная модель
Создание и выполнение макросов
введите код своего действий с объектами макроса на VBA.
забудете сочетание или программа, встроенная в на VBA, набирая угодно раз, заставляя для поиска выпадающих или знаками подчеркивания. актуальными справочными материаламиNN– номер текущей строки
инструменты для ведения To 10 Stepx1 = 1 содержимое одной ячейки записи имеет вид Excel макроса. Выберите инструмент книги (ячейками, формуламиЧтобы не запоминать сочетание вообще его не Excel, которая переводит
их с клавиатуры Excel выполнять последовательность списков на рабочем В имени макроса на вашем языке. таблицы; бухгалтерского учета и 1 (можно записатьx2 = 10
и затем записывать ChartObjects. Ее отдельныеЧасть 9: События в в редакторе макросов: и значениями, листами, клавиш для запуска введете, то макрос любое действие пользователя или копируя их любых нужных нам листе. Исходный код
не должно содержаться Эта страница переведенаTP и TF – осуществления финансовых расчетов. просто For ishag = 0.1 в другую. элементы также являются Excel «File»-«Save Personal.xlsb», а
диаграммами и т.д.), макроса, лучше создать можно будет запустить на язык программирования из другого модуля, действий, которые нам VBA-макроса для поиска пробелов; в качестве автоматически, поэтому ее
планируемый и фактическийФункции обработки массивов. К = 1 Toi = 1Для этого: объектами.Часть 10: Ошибки VBA потом закройте редактор а пользовательская функция кнопку и назначить
через меню VBA и записывает с этого сайта не хочется выполнять ячеек с условным разделителей слов следует текст может содержать товарооборот; ним относятся Array, 10)Do While x1 <
открывают вкладку «Вид»;Следующее понятие — свойства.Примеры по VBA Visual Basic. — только с ей нужный макрос.Сервис — Макрос - получившуюся команду в или еще откуда вручную. форматированием.
использовать знаки подчеркивания. неточности и грамматическиеSF и SP – IsArray; LBound; UBound.Cells(i, 1).Value = i x2 (цикл будетпереходят на пиктограмму «Макросы»;
exceltable.com
Создание макросов и пользовательских функций на VBA
Введение
Они являются необходимойБолее подробное описание по теми значениями, которые Кнопка может быть Макросы — Выполнить программный модуль. Если нибудь:В принципе, существует великоеМакрос для выделения ячеек Если используется имя ошибки. Для нас фактическая и планируемаяФункции VBA Excel для ^ 2 (т.е. выполняться пока верножмут на «Запись макроса»; характеристикой любого объекта. Excel VBA можноТеперь у вас подключена мы передадим ей нескольких типов:(Tools — Macro - мы включим макрорекордерМодуль Эта книга множество языков программирования Excel по условию макроса, являющееся ссылкой важно, чтобы эта сумма издержек; строки. Это достаточно в ячейку (i,1) выражение x1 <заполняют открывшуюся форму. Например, для Range
найти на сайте скрытая книга для как аргументы (исходныеКнопка на панели инструментов Macros — Run) на запись, а- также виден (Pascal, Fortran, C++, больше меньше. на ячейку, может статья была вамIP и IF – многочисленная группа. В записывается значение квадрата
x2)Для простоты в поле — это Value Microsoft Office. хранения макросов, к данные для расчета). в Excel 2003или с помощью затем начнем создавать в левом верхнем C#, Java, ASP,2 исходных кода появиться сообщение об полезна. Просим вас
Способ 1. Создание макросов в редакторе Visual Basic
планируемый и фактически нее входят, например, i)y=x1 + x1^2 + «Имя макроса» оставляют или Formula.Урок подготовлен для Вас
- которым можно получитьЧтобы создать пользовательскую функцию и старше кнопки свой еженедельный отчет, углу редактора Visual PHP…), но для макросов для выделения ошибке, указывающее на
- уделить пару секунд уровень издержек. функции Space дляNext (в некотором смысле 3*x1^3 – Cos(x1) «Макрос1», а вМетоды — это команды, командой сайта office-guru.ru доступ из любой для расчета, например,Откройте менюМакросы (Macros) то макрорекордер начнет Basic в окне, всех программ пакета ячеек по условию недопустимое имя макроса.. и сообщить, помоглаОбозначим теми же буквами, создания строки с играет роль счетчикаCells(i, 1).Value = x1 поле «Сочетание клавиш»
показывающие, что требуется
Источник: http://www.excelfunctions.net/Excel-VBA-Tutorial.html другой рабочей книги. налога на добавленнуюСервис — Настройкана вкладке записывать команды вслед которое называется Project Microsoft Office стандартом
больше равно илиВ списке ли она вам, но с «приставкой» числом пробелов, равных и означает еще (значение x1 записывается вставляют, например, hh сделать. При написанииПеревел: Антон Андронов Личная книга макросов стоимость (НДС) откроем(Tools — Customize)Разработчик (Developer) за каждым нашим Explorer. В этот является именно встроенный меньше равно относительноСохранить в с помощью кнопок Itog накопление итога
- целочисленному аргументу, или один запуск цикла) в ячейку с (это значит, что кода в VBAАвтор: Антон Андронов где находится находиться редактор VBA, добавими перейдите наили нажав ALT+F8. действием и, в модуль обычно записываются язык VBA. Команды их числовых значений.выберите вариант внизу страницы. Для по данному столбцу. Asc для перевода
- End Sub. координатами (i,1)) запустить программку можно их необходимо отделятьНемногие знают, что первая в папке автозагрузки новый модуль через вкладкуСохранить в… итоге, мы получим макросы, которые должны этого языка понимаетМакрос для выборочного выделенияэта книга
- удобства также приводим Например, ItogTP – символов в кодЕсли все сделано правильно,Cells(i, 2).Value = y будет блиц-командой «Ctrl+h»). от объекта точкой. версия популярного продукта файлов Excel – менюКоманды (Commands)- здесь задается макрос создающий отчет выполнятся при наступлении любое офисное приложение, ячеек на листе.
ссылку на оригинал касается столбца таблицы, ANSI. Все они
в том числе (значение y записывается Нажимают Enter. Например, как будет Microsoft Excel появилась
- XLSTART: C:Documents andInsert — Module. В категории место, куда будет как если бы каких-либо событий в будь то Excel, Excel.В поле (на английском языке).
- озаглавленного, как «планируемый имеют широкое применение запись и запуск в ячейку с
- Теперь, когда уже запущена показано в дальнейшем, в 1985 году. SettingsUser_NameAppDataRoamingMicrosoftExcelXLSTARTPersonal.xlsbи введем тудаМакросы сохранен текст макроса, он был написан книге (открытие или Word, Outlook илиИсходный код макросаСочетание клавишДля автоматизации повторяющихся задач, товарооборот». и позволяют работать макроса (см. инструкцию координатами (i,2)) запись макроса, производят очень часто при
С тех порПримечание. XLSTART – это текст нашей функции:легко найти веселый т.е. набор команд программистом. Такой способ сохранение книги, печать Access. для автоматического выделениявведите прописную или можно выполнять повторяющиесяИспользуя введенные обозначения, получаем со строками в выше), то приi = i + копирование содержимого какой-либо программировании в «Эксель» он пережил несколько папка для автозагрузки
Способ 2. Запись макросов макрорекордером
Обратите внимание, что в желтый «колобок» - на VBA из создания макросов не файла и т.п.):Для ввода команд и отдельных ячеек по строчную букву, которую задачи с одним формулы для отклонений. «Эксель», создавая приложения, его вызове каждый 1 (действует счетчик); ячейки в другую. используют команду Cells(1,1).Select. модификаций и востребован файлов вместе с отличие от макросовНастраиваемую кнопку которых и состоит требует знаний пользователяМодуль листа формирования программы, т.е. заданному условию в хотите использовать. щелчком мыши, можно Если требуется осуществить значительно облегчающие работу раз будет получатьсяx1 = x1 + Возвращаются на исходную Она означает, что у миллионов пользователей запуском программы Excel. функции имеют заголовок(Custom button)
- макрос.: о программировании и- доступен через создания макроса необходимо критериях поиска значений.Примечание: использовать вкладку «Разработчик» расчет в %
- с этими таблицами. столбец заданного размера shag (аргумент изменяется пиктограмму. Нажимают на необходимо выбрать ячейку по всему миру. Если сохранить файлFunction:Эта книга VBA и позволяет Project Explorer и
- открыть специальное окно Как быстро выделять Выбранное сочетание клавиш заменяет в Excel для имеем (F –Функции преобразования типа данных. (в данном случае на величину шага); «Запись макроса». Это с координатами (1,1) При этом многие в данную папку,вместоПеретащите ее к себе- макрос сохраняется
пользоваться макросами как
- через контекстное меню — редактор программ несмежные диапазоны макросом? все совпадающие стандартные Mac для записи P) / P Например, CVar возвращает
- состоящий из 10Loop действие означает завершение т.е. A1. работают лишь с то он будет
Sub на панель инструментов в модуль текущей неким аналогом видеозаписи: листа, т.е. правой
- на VBA, встроенныйМакрос для добавления строк сочетания клавиш Excel и запуск макроса. * 100, а значение аргумента Expression, ячеек).End Sub.
- программки.Вместе с ней нередко малой толикой возможностей открываться вместе си непустой список и затем щелкните книги и, как включил запись, выполнил кнопкой мыши по в Microsoft Excel. с заданной высотой на то время, Кроме того, можно в сумме — преобразовав его вВ повседневной жизни сплошьВ результате запуска данногоДалее: используется Selection.ClearContents. Ее
- этого табличного процессора программой Excel. Для аргументов (в нашем по ней правой следствие, будет выполнятся операци, перемотал пленку ярлычку листа -В старых версиях (Excel
-
- в таблицу Excel. пока открыта книга, создать макрос с (F – P). тип данных Variant. и рядом возникает макроса в «Эксель»вновь переходят на строку
- выполнение означает очистку и даже не версий старше 2007 случае это кнопкой мыши. В только пока эта и запустил выполнение команда 2003 и старше)Пошаговое руководство по содержащая соответствующий макрос. помощью редактор Visual
- Результаты этих вычислений можноФункции работы с датами. необходимость принять то получаем два столбца, «Макросы»; содержимого выбранной ячейки. догадываются, как им путь к папкеSumma контекстом меню можно книга открыта в тех же действийИсходный текст (View Source) для этого идем написанию кода макроса
Введите описание макроса в Basic в Microsoft лучше всего сразу Они значительно расширяют или иное решение в первом изв списке выбирают «Макрос
Запуск и редактирование макросов
Прежде всего требуется создать могло бы облегчить автозагрузки будет следующим:). После ввода кода назначить кнопке макрос, Excel еще раз. Естественно. Сюда записывают макросы, в меню VBA для умной поле Visual Basic для внести в соответствующие стандартные возможности «Эксель». в зависимости от
- которых записаны значения 1»; файл и сохранить жизнь умение программирования C:Program FilesMicrosoft OfficeOffice12Xlstart. наша функция становится
- выбрать другой значокНовая книга у такого способа которые должны выполнятьсяСервис — Макрос - вставки пустых строкОписание
- приложений (VBA), чтобы ячейки таблицы «Эксель». Так, функция WeekdayName какого-то условия. Не для x, анажимают «Выполнить» (то же его, присвоив имя в Excel.
Создание кнопки для запуска макросов
Если вам нужно записать доступна в обычном и имя:- макрос сохраняется есть свои плюсы при наступлении определенных Редактор Visual Basic
между ячейками таблицы.и нажмите кнопку записать свои собственные
Для итогов по факту возвращает название (полное обойтись без них во втором — действие запускается начатием и выбрав типПрограммирование в Excel осуществляется в нее новый окне Мастера функцийКнопка на панели быстрого в шаблон, на и минусы: событий на листе
(Toos — Macro - Как автоматически вставитьОК программный код макроса. и прогнозу получают или частичное) дня и в VBA для y. сочетания клавиш «Ctrl+hh»).
«Книга Excel с посредством языка программирования макрос просто откройте
( доступа в Excel основе которого создаетсяМакрорекордер записывает только те (изменение данных в Visual Basic Editor) строки через одну. Если вы больше по формулам ItogP=ItogP
недели по его Excel. Примеры программ,Затем по ним строитсяВ результате происходит действие, поддержкой макросов». Visual Basic for редактор, а потомВставка — Функция 2007 и новее любая новая пустая
действия, которые выполняются
ячейках, пересчет листа,. ячейку?Завершите запись макроса. не используете макроса, + P и номеру. Еще более
- где дальнейший ход график способом, стандартным которое было осуществленоЗатем необходимо перейти в Application, который изначально откройте модуль книги) в категорииЩелкните правой кнопкой мыши книга в Excel,
- в пределах окна копирование или удалениеВ новых версиях (ExcelКак сделать границы ячеекНа вкладке ее можно удалить. ItogF=ItogF+ F.
полезной является Timer. выполнения алгоритма выбирается,
для «Эксель». в процессе записи приложение VB, для встроен в самый Personal.xlsb. Уже записанныеОпределенные пользователем (User Defined) по панели быстрого т.е. макрос будет
Создание пользовательских функций на VBA
Microsoft Excel. Как листа и т.д.) 2007 и новее) макросом в таблицеРазработчикПри записи макроса всеДля отклонений используют = Он выдает число а не предопределенДля реализации циклов в макроса. чего достаточно воспользоваться известный табличный процессор в нее макросы: доступа в левом содержаться во всех только вы закрываетеОбычный макрос, введенный в для этого нужно
Excel.щелкните необходимые действия записываются (ItogF – ItogP) секунд, которые прошли изначально, чаще всего VBA Excel 2010,Имеет смысл увидеть, как комбинацией клавиш «Alt» от Microsoft.
удалять не нужно.После выбора функции выделяем верхнем углу окна новых книгах, создаваемых Excel или переключаетесь стандартный модуль выглядит сначала отобразить вкладкуКак автоматически рисоватьОстановить запись средством записи макроса. / ItogP * с полуночи до используют конструкцию If как и в выглядит код. Для и «F11». Далее:К его достоинствам специалисты Они не будут ячейки с аргументами
Excel и выберите на данном компьютере в другую программу примерно так:Разработчик (Developer) границы в таблицах.
planetaexcel.ru
Личная книга макросов в Excel и как ее использовать
Такими действиями может 100, если расчет конкретного момента дня. …Then (для сложных других версиях, наряду этого вновь переходятв строке меню, расположенном относят сравнительную легкость между собой конфликтовать (с суммой, для команду начиная с текущего — запись останавливается.Давайте разберем приведенный выше. Выбираем с помощью макроса?К началу страницы быть ввод текста ведется в процентах,Функции для преобразования числового случаев) If …Then с уже приведенной
Как сохранить макрос в личную книгу макросов
на строку «Макросы» в верхней части освоения. Как показывает
- если соблюдать одно
- которой надо посчитатьНастройка панели быстрого доступа моментаМакрорекордер может записать только в качестве примераФайл — Параметры - Автоматизированное форматирование границ
- На вкладке или чисел, выбор
- а в случае аргумента в разные …END If. конструкцией Do While и нажимают «Изменить» окна, нажимают на практика, азами VBA простое правило – НДС) как в (Customise Quick AccessЛичная книга макросов те действия, для макрос Настройка ленты (File ячеек по разным
- Разработчик ячеек или команд суммарной величины — системы счисления. Например,Рассмотрим конкретный случай. Предположим, используется For. или «Войти». В иконку рядом с могут овладеть даже в одном модуле
случае с обычной
Toolbar)- это специальная которых есть командыZamena — Options - цветам, стилям инажмите кнопку на ленте или (ItogF – ItogP). Oct выдает в необходимо создать макросРассмотрим программу, которая создаст
результате оказываются в иконкой Excel; пользователи, которые не нельзя хранить макросы функцией:: книга Excel с меню или кнопки: Customize Ribbon) толщине линий используяМакросы в меню, форматирование,
Результаты опять же сразу восьмеричное представление числа. для «Эксель», чтобы столбец. В каждой среде VBA. Собственно,выбирают команду Mudule; имеют навыков профессионального с одинаковыми именами.Большинство пользователей Excel знают,Затем в открывшемся окне именем в Excel. ПрограммистЛюбой макрос должен начинатьсяи включаем в макрос.
exceltable.com
.
Многие люди боятся использовать макросы в Excel, потому что считают их довольно сложными для понимания. Все потому, что они связаны с программированием. Но на практике все оказывается значительно проще, чем может показаться на первый взгляд. В программировании важно научиться строить алгоритмы. И если человек умеет кодить хотя бы на одном языке, ему значительно проще усвоить все остальные.
Мы приведем некоторые примеры макросов Excel, которые станут верными помощниками в выполнении наиболее частых задач.
Содержание
- Понятие макроса
- Когда какой тип записи макросов использовать?
- Пример использования макросов №1
- Пример 2
- Пример 3
- Пример 4
- Пример 5
- Пример 6
- Рекомендации по использованию макросов
- Выводы
Понятие макроса
Термин «Макрос» слышало множество людей. Нередко при запуске таблицы появляется предупреждение: “Этот документ использует макросы, способные навредить данному компьютеру, поэтому они отключены с целью защиты от вредоносных действий”.
Макрос – действенный способ автоматизировать самые частые действия, которые нужно выполнять в электронных таблицах. Макросы – это разновидность программирования. Разработка этих подпрограмм осуществляется с помощью языка VBA. Впрочем, некоторые виды макросов не требуют навыков программирования. Ведь существует еще такое понятие, как макрорекордер. Достаточно его включить и совершить некоторые действия, как далее они будут повторяться по нажатию одной кнопки.
Макросы могут быть реально опасными. Поскольку при их написании используется язык программирования, с его помощью можно создать настоящий вирус, который способен повредить информацию, а также собирать данные для злоумышленников (особенно опасно, если в таблице есть банковские данные, пароли и так далее).
Также макрос может запустить реальную троянскую программу на компьютере. Поэтому, чтобы не допустить вредоносных действий со стороны стороннего макроса, не стоит запускать макросы из сторонних источников, которым не доверяют.
Значительно проще объяснить, зачем нужны макросы, на реальном примере. Например, необходимо каждый день удалять из электронной таблицы несколько столбцов, а потом добавлять новые строки. Это невероятно утомительное занятие, отнимающее много времени. Если же воспользоваться макросами, есть реальная возможность значительно его сэкономить.
Макросы можно запускать по нажатию определенной комбинации клавиш. Например, если нажать Ctrl+J, можно запустить подпрограмму.
Интересный факт: известная программа бухгалтерского учета 1C изначально очень напоминала Excel, но потом ее функционал расширился до текущего.
Если же нужно давать компьютеру сложные инструкции, можно воспользоваться редактором Visual Basic, примеры кода в котором мы и рассмотрим немного позже.
Когда какой тип записи макросов использовать?
Если необходимо автоматизировать простейшие действия, достаточно использовать встроенный инструмент для записи макросов. То есть, если не приходится прописывать никаких условий, переменных и других подобных вещей. Просто обычная последовательность действий.
Если же необходимо программировать сложные действия, то тогда придется пользоваться встроенной средой VBA. Например, если необходимо записать в массив все элементы какого-то диапазона значений, определить его длительность, и при условии, что количество элементов массива не превышает определенного числа, выдавать какое-то сообщение. Здесь стандартного инструмента для записи макросов окажется недостаточно, необходимо изучать язык программирования и записывать команды в специальной среде. А интерпретатор в дальнейшем будет выполнять написанный код.
Пример использования макросов №1
Сперва этот пример кода использовался для демонстрации комментариев кода, написанного на VBA. Но поскольку он включает и иные возможности языка, он может применяться для демонстрации следующих функций:
- Объявление переменных.
- Указание ссылок на ячейки Excel.
- Применение цикла типа For.
- Применение условного оператора.
- Отображение оповещения.
‘ Подпрограмма для поиска ячеек с адресами A1-A100 текущего активного листа
‘ и поиска ячеек, в которых содержится требуемая строка
Sub Find_String(sFindText As String)
Dim i As Integer ‘ Целочисленная переменная, которая используется в цикле типа «For»
Dim iRowNumber As Integer ‘ Целочисленная переменная, предназначенная для сохранения результата
iRowNumber = 0
‘ Цикл через ячейки A1-A100 до тех пор, пока не будет найдена строка ‘sFindText’
For i = 1 To 100
If Cells(i, 1).Value = sFindText Then
‘ Совпадение обнаружено для заданной строки
‘ Сохранение текущего номера строки и выход из цикла
iRowNumber = i
Exit For
End If
Next i
‘ Всплывающее сообщение, информирующее пользователя о найденной строке и ее номере
If iRowNumber = 0 Then
MsgBox «String » & sFindText & » not found»
Else
MsgBox «String » & sFindText & » found in cell A» & iRowNumber
End If
End Sub
Пример 2
Эта процедура перечисляет все значения числовой последовательности Фибоначчи, вплоть до 1000. В этом примере приводятся следующие возможности макросов Excel:
- Объявление переменных.
- Цикл Do While.
- Ссылки на ячейки текущего листа Excel.
- Условный оператор.
‘ Подпрограмма для перечисления всех значений последовательности Fibonacci для всех значений ниже тысячи
Sub Fibonacci()
Dim i As Integer ‘ счетчик для позиции в серии значений
Dim iFib As Integer ‘ сохраняет текущее значение в серии
Dim iFib_Next As Integer ‘ сохраняет следующее значение в серии
Dim iStep As Integer ‘ хранит размер следующего шага
‘ Инициализация переменных variables i и iFib_Next
i = 1
iFib_Next = 0
‘ Цикл Do While, который исполняется до тех пор, пока номер
‘ числа в последовательности Фибоначчи меньше 1000.
Do While iFib_Next < 1000
If i = 1 Then
‘ Специальный случай для первой записи в серии
iStep = 1
iFib = 0
Else
‘ Сохраняется следующий размер шага, перед перезаписью
‘ текущей записи в серии
iStep = iFib
iFib = iFib_Next
End If
‘ Печать текущего значения последовательности Фибоначчи для столбца А
‘ текущего листа
Cells(i, 1).Value = iFib
‘ Вычисление следующего значения последовательности и увеличение
‘ маркера позиции на 1
iFib_Next = iFib + iStep
i = i + 1
Loop
End Sub
Пример 3
Следующий пример подпрограммы читает значения с ячейки в колонке A активного листа, пока не найдет пустую ячейку. Вся полученная информация сохраняется в массиве. Это простой пример макросов в электронных таблицах, который показывает:
- Как объявлять переменные.
- Работу динамического массива.
- Цикл Do Until.
- Ссылки на ячейки в текущем листе Excel.
- Встроенную функцию Ubound, которая предназначена для определения размера массива.
‘ Подпрограмма, которая хранит значения колонки А текущего листа
‘ в массиве
Sub GetCellValues()
Dim iRow As Integer ‘ сохраняется текущий номер строки
Dim dCellValues() As Double ‘ массив, в котором хранятся значения ячеек
iRow = 1
ReDim dCellValues(1 To 10)
‘ Цикл Do Until, который извлекает значение каждой ячейки в столбце А
‘ активного листа до тех пор, пока ячейка не окажется пустой
Do Until IsEmpty(Cells(iRow, 1))
‘ Проверка, достаточно ли большой массив dCellValues
‘ Если нет, используется ReDim, чтобы увеличить размер массива на 10 элементов.
If UBound(dCellValues) < iRow Then
ReDim Preserve dCellValues(1 To iRow + 9)
End If
‘ Сохраняется текущая ячейка в массиве CellValues
dCellValues(iRow) = Cells(iRow, 1).Value
iRow = iRow + 1
Loop
End Sub
Пример 4
Следующая процедура «Sub» читает содержимое ячеек из колонки А другого листа, имеющего название «Sheet2» и с этими значениями осуществляет арифметические операции. Результат вычислений пишется в колонке А текущего листа.
Этот пример показывает:
- Как объявлять переменные.
- Объекты Excel.
- Цикл Do Until.
- Доступ к листам электронных таблиц и диапазонам ячеек с текущей книги.
‘ Подпрограмма, запускающая цикл через значения в колонке А текущего листа
‘ «Sheet2», perform arithmetic operations on each value, and write the
‘ result into Column A of the current Active Worksheet («Sheet1»)
Sub Transfer_ColA()
Dim i As Integer
Dim Col As Range
Dim dVal As Double
‘ Установить переменную Col в колонку А листа 2
Set Col = Sheets(«Sheet2»).Columns(«A»)
i = 1
‘ Прохождение цикла через каждую ячейку колонки ‘Col’ до тех пор, пока
‘ не будет обнаружена пустая ячейка
Do Until IsEmpty(Col.Cells(i))
‘ Применение арифметических операций к значению текущей ячейки
dVal = Col.Cells(i).Value * 3 — 1
‘ Команда ниже копирует результат в колонку А
‘ текущего активного листа — без уточнения названия активного листа
Cells(i, 1) = dVal
i = i + 1
Loop
End Sub
Пример 5
Этот пример макроса приводит пример кода VBA, связанного с событием. Каждый раз, когда человек выделяет ячейку или диапазон значений, связанное с макросом событие активируется.
‘ Код для отображения диалогового окна ячейки B1 текущего листа в случае, если она выбрана
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
‘ Проверка, выбрана ли ячейка B1
If Target.Count = 1 And Target.Row = 1 And Target.Column = 2 Then
‘ При выборе ячейки B1 показать диалоговое окно
MsgBox «You have selected cell B1»
End If
End Sub
Пример 6
Следующая подпрограмма демонстрирует, как обрабатывать ошибки с помощью операторов OnError и Resume. Также в этом коде описывается, как открывать и читать данные с файла.
‘ Подпрограмма, для для установки определенных значений
‘ в ячейках A1 и B1 документа «Data.xls» на диске C:
Sub Set_Values(Val1 As Double, Val2 As Double)
Dim DataWorkbook As Workbook
On Error GoTo ErrorHandling
‘ Открытие документа с данными
Set DataWorkbook = Workbooks.Open(«C:Documents and SettingsData»)
‘ Выбрать переменные Val1 and Val2 с данных в книге Excel
Val1 = Sheets(«Sheet1»).Cells(1, 1)
Val2 = Sheets(«Sheet1»).Cells(1, 2)
DataWorkbook.Close
Exit Sub
ErrorHandling:
‘ Если файл не найден, предложить пользователю найти правильную директорию
‘ после чего продолжить выполнение подпрограммы
MsgBox «Data Workbook not found;» & _
«Please add the workbook to C:Documents and Settings and click OK»
Resume
End Sub
После детального ознакомления с этими примерами будет значительно легче применять свои навыки на практике.
Рекомендации по использованию макросов
Есть несколько рекомендаций, позволяющих значительно увеличить эффективность использования макросов в электронных таблицах:
- Перед тем, как записывать макрос с помощью рекордера, следует заранее продумать все свои действия, поскольку автоматизироваться будут все действия (в том числе, и ошибочные).
- Не стоит торопиться, поскольку паузы при записи макросов не учитываются. Вполне можно начать продумывать по ходу какие-то действия. А все записанные операции будут обработаны в один момент.
- Обязательно необходимо научиться использовать режим отладки макроса. Если возникают какие-то ошибки, он поможет обнаружить, в чем причина неполадки. На первых порах без ошибок не обойтись, потому что в реальной программе будет все не так идеально, как может показаться на первый взгляд.
- Перед использованием макросов, сделанных другими людьми, нужно настроить антивирусную программу на их обнаружение. Как правило, эта опция установлена по умолчанию.
- Если загружаются документы из сомнительных источников, следует выбрать опцию «Отключить макросы» при их открытии. И не рекомендуется менять настройки, которые выставлены по умолчанию в настройках безопасности Excel.
Выводы
Таким образом, макросы – это эффективный инструмент автоматизации рабочих процессов в Excel. Он позволяет автоматизировать даже самые сложные последовательности действий. Если необходимо сделать простую программку, то достаточно воспользоваться встроенной функцией для записи макросов. Для более сложных необходимо освоить язык VBA, который является простым для изучения и очень гибким.
Если используются сторонние макросы, обязательно нужно побеспокоиться о безопасности их использования.
Оцените качество статьи. Нам важно ваше мнение: