Использование макросов Excel может ускорить работу и сэкономить много времени.
Один из способов получить код VBA - записать макрос и взять код, который он генерирует. Однако этот код макроса записи часто полон кода, который на самом деле не нужен. Также у макро-рекордера есть некоторые ограничения.
Поэтому стоит иметь коллекцию полезных макрокодов VBA, которые можно носить в заднем кармане и использовать при необходимости.
Хотя написание макрокода Excel VBA на начальном этапе может занять некоторое время, после его завершения вы можете сохранить его доступным в качестве справочника и использовать в следующий раз, когда он понадобится.
В этой обширной статье я собираюсь перечислить несколько полезных примеров макросов Excel, которые мне часто нужны и которые я храню в моем личном хранилище.
Я буду продолжать обновлять этот учебник, добавляя больше примеров макросов. Если вы считаете, что что-то должно быть в списке, просто оставьте комментарий.
Вы можете добавить эту страницу в закладки для дальнейшего использования.
Теперь, прежде чем я перейду к примеру макроса и дам вам код VBA, позвольте мне сначала показать вам, как использовать эти примеры кодов.
Использование кода из примеров макросов Excel
Вот шаги, которые необходимо выполнить, чтобы использовать код из любого из примеров:
- Откройте книгу, в которой вы хотите использовать макрос.
- Удерживая клавишу ALT, нажмите F11. Откроется редактор VB.
- Щелкните правой кнопкой мыши любой из объектов в проводнике проекта.
- Перейдите в Insert -> Module.
- Скопируйте и вставьте код в окно кода модуля.
Если в примере говорится, что вам нужно вставить код в окно кода рабочего листа, дважды щелкните объект рабочего листа и скопируйте и вставьте код в окно кода.
После того, как вы вставили код в книгу, вам необходимо сохранить его с расширением .XLSM или .XLS.
Как запустить макрос
После того, как вы скопировали код в редакторе VB, выполните следующие действия для запуска макроса:
- Перейдите на вкладку Разработчик.
- Щелкните Макросы.
- В диалоговом окне «Макрос» выберите макрос, который нужно запустить.
- Нажмите кнопку «Выполнить».
Если вы не можете найти вкладку разработчика на ленте, прочтите это руководство, чтобы узнать, как ее получить.
Связанное руководство: различные способы запуска макроса в Excel.
Если код вставлен в окно кода рабочего листа, вам не нужно беспокоиться о его запуске. Он будет автоматически запускаться при выполнении указанного действия.
Теперь перейдем к полезным примерам макросов, которые помогут автоматизировать работу и сэкономить время.
Примечание. Вы найдете множество примеров апострофа (‘), за которым следует пара строк. Это комментарии, которые игнорируются при запуске кода и помещаются как заметки для себя / читателя.
Если вы обнаружите ошибку в статье или коде, пожалуйста, дайте мне знать.
Примеры макросов Excel
В этой статье рассматриваются следующие примеры макросов:
Показать все рабочие листы за один раз
Если вы работаете с книгой, в которой есть несколько скрытых листов, вам нужно отображать эти листы один за другим. Это может занять некоторое время, если есть много скрытых листов.
Вот код, который покажет все рабочие листы в книге.
'Этот код отобразит все листы в книге Sub UnhideAllWoksheets () Dim ws As Worksheet для каждого ws в ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub
В приведенном выше коде используется цикл VBA (для каждого) для просмотра всех листов в книге. Затем он изменяет видимое свойство рабочего листа на видимое.
Вот подробное руководство о том, как использовать различные методы для отображения листов в Excel.
Скрыть все рабочие листы, кроме активного листа
Если вы работаете с отчетом или панелью мониторинга и хотите скрыть всю таблицу, кроме той, которая содержит отчет / панель мониторинга, вы можете использовать этот код макроса.
'Этот макрос скроет весь рабочий лист, кроме активного листа Sub HideAllExceptActiveSheet () Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name ActiveSheet.Name Then ws.Visible = xlSheetHidden Next ws End Sub
Сортировка листов по алфавиту с помощью VBA
Если у вас есть книга с большим количеством листов и вы хотите отсортировать их в алфавитном порядке, этот код макроса может оказаться действительно полезным. Это может быть так, если у вас есть имена листов в виде лет, имен сотрудников или продуктов.
'Этот код будет отсортировать листы по алфавиту Sub SortSheetsTabName () Application.ScreenUpdating = False Dim ShCount As Integer, i As Integer, j As Integer ShCount = Sheets.Count For i = 1 To ShCount - 1 For j = i + 1 To ShCount If Sheets (j) .Name <Sheets (i) .Name Then Sheets (j) .Move before: = Sheets (i) End If Next j Next i Application.ScreenUpdating = True End Sub
Защитите все рабочие листы за один раз
Если у вас много листов в книге и вы хотите защитить все листы, вы можете использовать этот код макроса.
Это позволяет вам указать пароль в коде. Этот пароль понадобится вам, чтобы снять защиту с листа.
'Этот код защитит все листы за один раз Sub ProtectAllSheets () Dim ws As Worksheet Dim password As String password = "Test123"' замените Test123 нужным паролем. Для каждого ws In Worksheets ws.Protect password: = password Далее ws Конец подписки
Снять защиту со всех листов за один раз
Если у вас есть защищенные некоторые или все рабочие листы, вы можете просто использовать небольшую модификацию кода, используемого для защиты листов, чтобы снять его защиту.
'Этот код защитит все листы за один раз. Sub ProtectAllSheets () Dim ws As Worksheet Dim password As String password = "Test123"' замените Test123 нужным паролем. For Each ws In Worksheets () ws.Unprotect password: = password Next ws Конец подписки
Обратите внимание, что пароль должен совпадать с паролем, который использовался для блокировки рабочих листов. В противном случае вы увидите сообщение об ошибке.
Показать все строки и столбцы
Этот код макроса покажет все скрытые строки и столбцы.
Это может быть действительно полезно, если вы получили файл от кого-то другого и хотите убедиться, что в нем нет скрытых строк / столбцов.
'Этот код отобразит все строки и столбцы в подменю рабочего листа UnhideRowsColumns () Columns.EntireColumn.Hidden = False Rows.EntireRow.Hidden = False End Sub
Разъединить все объединенные ячейки
Обычно ячейки объединяют в одну. Пока он выполняет свою работу, при объединении ячеек вы не сможете сортировать данные.
Если вы работаете с листом с объединенными ячейками, используйте приведенный ниже код, чтобы объединить все объединенные ячейки за один раз.
'Этот код объединит все объединенные ячейки Sub UnmergeAllCells () ActiveSheet.Cells.UnMerge End Sub
Обратите внимание, что вместо «Объединить и центрировать» я рекомендую использовать параметр «Центрировать по всему выделению».
Сохранить книгу с отметкой времени в ее имени
Много времени, возможно, вам понадобится создать версии своей работы. Они очень полезны в длинных проектах, когда вы работаете с файлом в течение долгого времени.
Хорошая практика - сохранить файл с отметками времени.
Использование временных меток позволит вам вернуться к определенному файлу, чтобы увидеть, какие изменения были внесены или какие данные были использованы.
Вот код, который автоматически сохранит книгу в указанной папке и добавит метку времени при каждом сохранении.
'Этот код сохранит файл с меткой времени в его имени Sub SaveWorkbookWithTimeStamp () Тусклая метка времени в виде строки timestamp = Format (Date, "dd-mm-yyyy") & "_" & Format (Time, "hh-ss") ThisWorkbook.SaveAs "C: UsersUsernameDesktopWorkbookName" и отметка времени End Sub
Вам необходимо указать расположение папки и имя файла.
В приведенном выше коде «C: UsersUsernameDesktop - это папка, которую я использовал. Вам необходимо указать папку, в которой вы хотите сохранить файл. Кроме того, я использовал общее имя «WorkbookName» в качестве префикса имени файла. Вы можете указать то, что связано с вашим проектом или компанией.
Сохраняйте каждый рабочий лист как отдельный PDF-файл
Если вы работаете с данными за разные годы, подразделения или продукты, вам может потребоваться сохранить разные рабочие листы в виде файлов PDF.
Хотя это может занять много времени, если выполнить его вручную, VBA действительно может его ускорить.
Вот код VBA, который сохранит каждый рабочий лист как отдельный PDF-файл.
'Этот код сохранит каждый рабочий лист как отдельный PDF-файл Sub SaveWorkshetAsPDF () Dim ws As Worksheet для каждого ws в рабочих таблицах ws.ExportAsFixedFormat xlTypePDF, "C: UsersSumitDesktopTest" & ws.Name & ".pdf" Next ws End Sub
В приведенном выше коде я указал адрес папки, в которой я хочу сохранить PDF-файлы. Кроме того, каждый PDF-файл получит то же имя, что и рабочий лист. Вам нужно будет изменить расположение этой папки (если только ваше имя не Sumit и вы не сохраняете его в тестовой папке на рабочем столе).
Обратите внимание, что этот код работает только с листами (а не с таблицами диаграмм).
Сохраняйте каждый рабочий лист как отдельный PDF-файл
Вот код, который сохранит всю вашу книгу в виде PDF-файла в указанной папке.
'Этот код сохранит всю книгу как PDF Sub SaveWorkshetAsPDF () ThisWorkbook.ExportAsFixedFormat xlTypePDF, "C: UsersSumitDesktopTest" & ThisWorkbook.Name & ".pdf" End Sub
Вам нужно будет изменить расположение папки, чтобы использовать этот код.
Преобразование всех формул в значения
Используйте этот код, если у вас есть рабочий лист, содержащий множество формул, и вы хотите преобразовать эти формулы в значения.
'Этот код преобразует все формулы в значения Sub ConvertToValues () With ActiveSheet.UsedRange .Value = .Value End With End Sub
Этот код автоматически определяет используемые ячейки и преобразует их в значения.
Защита / блокировка ячеек с помощью формул
Вы можете заблокировать ячейки с помощью формул, когда у вас много вычислений, и вы не хотите случайно удалить или изменить его.
Вот код, который заблокирует все ячейки с формулами, в то время как все остальные ячейки не заблокированы.
'Этот код макроса заблокирует все ячейки с формулами Sub LockCellsWithFormulas () с ActiveSheet .Unprotect .Cells.Locked = False .Cells.SpecialCells (xlCellTypeFormulas) .Locked = True .Protect AllowDeletingRows: = True End With End Sub
Связанное руководство: Как заблокировать ячейки в Excel.
Защитить все рабочие листы в книге
Используйте приведенный ниже код, чтобы защитить все рабочие листы в книге за один раз.
'Этот код будет защищать все листы в книге Sub ProtectAllSheets () Dim ws As Worksheet для каждого ws In Worksheets ws.Protect Next ws End Sub
Этот код будет просматривать все рабочие листы один за другим и защищать его.
Если вы хотите снять защиту со всех листов, используйте в коде ws.Unprotect вместо ws.Protect.
Вставлять строку после каждой другой строки в выделенном фрагменте
Используйте этот код, если вы хотите вставить пустую строку после каждой строки в выбранном диапазоне.
'Этот код вставит строку после каждой строки в выбранном Sub InsertAlternateRows () Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng.EntireRow.Count For i = 1 To CountRow ActiveCell.EntireRow. Вставьте ActiveCell.Offset (2, 0). Выберите Next i End Sub
Точно так же вы можете изменить этот код, чтобы вставить пустой столбец после каждого столбца в выбранном диапазоне.
Автоматически вставлять дату и время в соседнюю ячейку
Отметка времени - это то, что вы используете, когда хотите отслеживать действия.
Например, вы можете отслеживать действия, например, когда были понесены конкретные расходы, в какое время был создан счет-фактура продажи, когда был произведен ввод данных в ячейку, когда последний раз обновлялся отчет и т. Д.
Используйте этот код для вставки отметки даты и времени в соседнюю ячейку, когда делается запись или редактируется существующее содержимое.
'Этот код вставит метку времени в соседнюю ячейку Private Sub Worksheet_Change (ByVal Target As Range) При ошибке GoTo Handler Если Target.Column = 1 And Target.Value "" Тогда Application.EnableEvents = False Target.Offset (0, 1) = Format (Now (), «дд-мм-гггг чч: мм: сс») Application.EnableEvents = True End If Handler: End Sub
Обратите внимание, что вам нужно вставить этот код в окно кода рабочего листа (а не в окно кода модуля, как мы это делали до сих пор в других примерах макросов Excel). Для этого в редакторе VB дважды щелкните имя листа, на котором вы хотите использовать эту функцию. Затем скопируйте и вставьте этот код в окно кода этого листа.
Кроме того, этот код заставляет работать, когда ввод данных выполняется в столбце A (обратите внимание, что в коде есть строка Target.Column = 1). Вы можете изменить это соответствующим образом.
Выделите альтернативные строки в выделенном фрагменте
Выделение альтернативных строк может значительно повысить удобочитаемость ваших данных. Это может быть полезно, когда вам нужно сделать распечатку и просмотреть данные.
Вот код, который мгновенно выделяет альтернативные строки в выделенном фрагменте.
'Этот код будет выделять альтернативные строки в выделении Sub HighlightAlternateRows () Dim Myrange As Range Dim Myrow As Range Set Myrange = Selection For Each Myrow In Myrange.Rows If Myrow.Row Mod 2 = 1 Then Myrow.Interior.Color = vbCyan End Если следующий Myrow End Sub
Обратите внимание, что в коде я указал цвет как vbCyan. Вы также можете указать другие цвета (например, vbRed, vbGreen, vbBlue).
Выделите ячейки с ошибками в написании слов
В Excel нет проверки орфографии, как в Word или PowerPoint. Хотя вы можете запустить проверку орфографии, нажав клавишу F7, нет визуальной подсказки, когда есть орфографическая ошибка.
Используйте этот код, чтобы мгновенно выделить все ячейки, в которых есть орфографическая ошибка.
'Этот код будет выделять ячейки, содержащие слова с ошибками Sub HighlightMisspelledCells () Dim cl As Range For Each cl In ActiveSheet.UsedRange If Not Application.CheckSpelling (word: = cl.Text) Then cl.Interior.Color = vbRed End If Next cl End Sub
Обратите внимание, что выделенные ячейки содержат текст, который Excel считает орфографической ошибкой. Во многих случаях он также выделяет названия или названия брендов, которых он не понимает.
Обновить все сводные таблицы в книге
Если у вас в книге несколько сводных таблиц, вы можете использовать этот код для одновременного обновления всех этих сводных таблиц.
'Этот код обновит всю сводную таблицу в подпрограмме Workbook Sub RefreshAllPivotTables () Dim PT As PivotTable для каждого PT в ActiveSheet.PivotTables PT.RefreshTable Next PT End Sub
Вы можете узнать больше об обновлении сводных таблиц здесь.
Измените регистр букв выбранных ячеек на верхний регистр
Хотя в Excel есть формулы для изменения регистра букв текста, он заставляет вас делать это в другом наборе ячеек.
Используйте этот код, чтобы мгновенно изменить регистр букв в выделенном тексте.
'Этот код изменит выделение на верхний регистр Sub ChangeCase () Dim Rng As Range For Each Rng In Selection.Cells If Rng.HasFormula = False Then Rng.Value = UCase (Rng.Value) End If Next Rng End Sub
Обратите внимание, что в этом случае я использовал UCase, чтобы сделать текстовый регистр Upper. Вы можете использовать LCase для нижнего регистра.
Выделите все ячейки комментариями
Используйте приведенный ниже код, чтобы выделить все ячейки, в которых есть комментарии.
'Этот код будет выделять ячейки с комментариями` Sub HighlightCellsWithComments () ActiveSheet.Cells.SpecialCells (xlCellTypeComments) .Interior.Color = vbBlue End Sub
В этом случае я использовал vbBlue, чтобы придать ячейкам синий цвет. Вы можете изменить его на другие цвета, если хотите.
Выделите пустые ячейки с помощью VBA
Хотя вы можете выделить пустую ячейку с помощью условного форматирования или с помощью диалогового окна «Перейти к специальному», если вам приходится делать это довольно часто, лучше использовать макрос.
После создания вы можете разместить этот макрос на панели быстрого доступа или сохранить его в своей личной книге макросов.
Вот код макроса VBA:
'Этот код выделит все пустые ячейки в Sub HighlightBlankCells () Dim Dataset как Range Set Dataset = Selection Dataset.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbRed End Sub
В этом коде я указал, что пустые ячейки будут выделены красным цветом. Вы можете выбрать другие цвета, такие как синий, желтый, голубой и т. Д.
Как отсортировать данные по одному столбцу
Вы можете использовать приведенный ниже код для сортировки данных по указанному столбцу.
Sub SortDataHeader () Range ("DataRange"). Sort Key1: = Range ("A1"), Order1: = xlAscending, Header: = xlYes End Sub
Обратите внимание, что я создал именованный диапазон с именем DataRange и использовал его вместо ссылок на ячейки.
Также здесь используются три ключевых параметра:
- Key1 - это тот, по которому вы хотите отсортировать набор данных. В приведенном выше примере кода данные будут отсортированы на основе значений в столбце A.
- Порядок - здесь вам нужно указать, хотите ли вы отсортировать данные в порядке возрастания или убывания.
- Заголовок - здесь вам нужно указать, есть ли у ваших данных заголовки или нет.
Узнайте больше о том, как сортировать данные в Excel с помощью VBA.
Как отсортировать данные по нескольким столбцам
Предположим, у вас есть набор данных, как показано ниже:
Ниже приведен код, который сортирует данные по нескольким столбцам:
Sub SortMultipleColumns () с ключом ActiveSheet.Sort .SortFields.Add: = Range ("A1"), Order: = xlAscending .SortFields.Add Key: = Range ("B1"), Order: = xlAscending .SetRange Range ("A1 : C13 ") .Header = xlYes. Применить End With End Sub
Обратите внимание, что здесь я указал сначала сортировку по столбцу A, а затем по столбцу B.
Результат будет примерно таким, как показано ниже:
Как получить только числовую часть из строки в Excel
Если вы хотите извлечь только числовую часть или только текстовую часть из строки, вы можете создать пользовательскую функцию в VBA.
Затем вы можете использовать эту функцию VBA на листе (как и обычные функции Excel), и она будет извлекать из строки только числовую или текстовую часть.
Что-то вроде того, что показано ниже:
Ниже приведен код VBA, который создаст функцию для извлечения числовой части из строки:
'Этот код VBA создаст функцию для получения числовой части из строки. Функция GetNumeric (CellRef As String) Dim StringLength As Integer StringLength = Len (CellRef) For i = 1 To StringLength If IsNumeric (Mid (CellRef, i, 1) ) Затем Result = Result & Mid (CellRef, i, 1) Next i GetNumeric = Result End Function
Вам нужно поместить код в модуль, а затем вы можете использовать функцию = GetNumeric на листе.
Эта функция будет принимать только один аргумент, который является ссылкой на ячейку, из которой вы хотите получить числовую часть.
Точно так же ниже приведена функция, которая вернет вам только текстовую часть из строки в Excel:
'Этот код VBA создаст функцию для получения текстовой части из строки. Функция GetText (CellRef As String) Dim StringLength As Integer StringLength = Len (CellRef) For i = 1 To StringLength If Not (IsNumeric (Mid (CellRef, i, 1))) Затем Result = Result & Mid (CellRef, i, 1) Next i GetText = Result End Function
Итак, это некоторые из полезных кодов макросов Excel, которые вы можете использовать в своей повседневной работе для автоматизации задач и повышения производительности.
