Пример макроса в excel с таблицами

Полезные макросы 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.

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

Создание и удаление умной таблицы

Создание умной таблицы

Создается умная таблица Excel с помощью следующего кода:

ActiveSheet.ListObjects.Add(xlSrcRange, Range(«$A$1:$L$15»), , xlNo).Name _ = «МояТаблица1»

В данном примере:

ActiveSheet — лист, на котором создается таблица, может быть любой лист рабочей книги Excel.

Range(«$A$1:$L$15») — диапазон, который преобразуется в таблицу. Можно использовать и такую форму: Range(Cells(1, 1), Cells(15, 12)), где индексы строк и столбцов можно заменить переменными.

xlNo — указывает, что первая строка выбранного диапазона не содержит заголовки столбцов (граф) будущей таблицы, и их необходимо добавить. В этом случае будет добавлена дополнительная строка с наименованиями столбцов по умолчанию: Столбец1, Столбец2, Столбец3 и т.д., которые в дальнейшем можно переименовать (количество строк в таблице, включая строку заголовков, получится на одну больше, чем в указанном диапазоне). Если в диапазоне уже содержатся заголовки столбцов будущей таблицы, то следует указать вместо xlNo значение xlYes. В этом случае первая строка указанного диапазона будет преобразована в строку заголовков, а если она будет не заполнена, то добавятся названия столбцов по умолчанию: Столбец1, Столбец2, Столбец3 и т.д. (количество строк в таблице, включая строку заголовков, будет то же, что и в указанном диапазоне).

МояТаблица1 — имя, присваиваемое создаваемой таблице. Имя должно быть без пробелов: при указании в коде VBA названия таблицы с пробелами, во время его выполнения Excel заменит пробелы знаками подчеркивания (по крайней мере, так происходит в Excel 2016).

Таблица будет создана со стилем по умолчанию (TableStyleMedium2 в Excel 2016).

Стиль умной таблицы

Присвоение стиля таблице (изменение стиля) осуществляется с помощью свойства TableStyle объекта ListObjects:

ActiveSheet.ListObjects(«МояТаблица1»).TableStyle = «TableStyleMedium15»

Свойство TableStyle может принимать следующие значения:

• TableStyleLight (светлый) с индексом от 1 до 21 (в Excel 2016);
• TableStyleMedium (средний) с индексом от 1 до 28 (в Excel 2016);
• TableStyleDark (темный) с индексом от 1 до 11 (в Excel 2016).

Например, TableStyleLight5, TableStyleMedium24, TableStyleDark8.

Чтобы отменить стиль таблицы в коде VBA, необходимо свойству TableStyle присвоить пустую строку:

ActiveSheet.ListObjects(«МояТаблица1»).TableStyle = «»

Этому коду соответствует выбор в разделе «Конструктор» на ленте инструментов Excel самого первого значка стилей в разделе «Светлый».

Добавление строки итогов

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

ActiveSheet.ListObjects(«МояТаблица1»).ShowTotals = True

Удаляется строка итогов умной таблицы так:

ActiveSheet.ListObjects(«МояТаблица1»).ShowTotals = False

Удаление умной таблицы

Удалить умную таблицу очень просто:

ActiveSheet.ListObjects(«МояТаблица1»).Delete

Создание пользовательской таблицы

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

Для создания такой таблицы необходимо:

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

Подробнее о создании пользовательской таблицы в Примере 2.

Примеры создания таблиц

Задание для примеров

Набор данных для примеров создания таблиц

Допустим, на лист Excel переданы данные для заполнения табличной части товарного чека со следующими условиями:

• в табличной части 5 граф: № п/п, Наименование, Количество, Цена и Сумма;
• сколько наименований добавил пользователь неизвестно.

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

• определить количество строк;
• добавить строку заголовков;
• отобразить сетку (границы ячеек);
• добавить строку итогов.

Таблицу будем оформлять двумя способами: путем создания умной и пользовательской таблиц.

Пример 1 — умная таблица

Упаковываем набор данных из задания в умную таблицу:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test1() ‘Объявляем переменную для присвоения ей количества строк Dim a As Long ‘Определяем количество строк a = Cells(1, 1).CurrentRegion.Rows.Count ‘Создаем умную таблицу с добавлением строки заголовков ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1),Cells(a, 5)), , xlNo).Name _ = «ТоварныйЧек1» ‘Изменяем названия граф Cells(1, 1) = «№ п/п» Cells(1, 2) = «Наименование» Cells(1, 3) = «Количество» Cells(1, 4) = «Цена» Cells(1, 5) = «Сумма» ‘Добавляем строку итогов ActiveSheet.ListObjects(«ТоварныйЧек1»).ShowTotals = True ‘Стиль оставляем по умолчанию End Sub

Результат выполнения кода Примера 1 получится такой:

Умная таблица из заданного набора данных

Пример 2 — «обычная» таблица

Упаковываем набор данных из задания в пользовательскую таблицу:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub test2() ‘Объявляем переменную для присвоения ей количества строк Dim a As Long ‘Определяем количество строк a = Cells(1, 1).CurrentRegion.Rows.Count ‘Добавляем строку заголовков Cells(1, 1).EntireRow.Insert ‘Указываем названия граф Cells(1, 1) = «№ п/п» Cells(1, 2) = «Наименование» Cells(1, 3) = «Количество» Cells(1, 4) = «Цена» Cells(1, 5) = «Сумма» ‘Добавляем сетку Range(Cells(1, 1), Cells(a + 1, 5)).Borders.LineStyle = True ‘Добавляем строку итогов Cells(a + 2, 4) = «Итого:» With Cells(a + 2, 5) .FormulaR1C1 = «=SUM(R[-« & a & «]C:R[-1]C)» .Borders.LineStyle = True .Font.Bold = True End With ‘Выделяем заголовки жирным шрифтом и ‘применяем автоподстройку ширины столбцов With Range(Cells(1, 1), Cells(1, 5)) .Font.Bold = True .EntireColumn.AutoFit End With End Sub

Результат выполнения кода Примера 2 получится такой:

Пользовательская таблица из заданного набора данных

Если решите поэкспериментировать с моим кодом, добавьте любые данные в пять колонок на активном листе Excel, количество строк может быть любым, в пятой графе должны быть числа.

---

О работе с умной таблицей (обращение к ячейкам, строкам и столбцам; добавление и удаление строк и столбцов) рассказано в статье VBA 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. Эти таблицы содержат всю необходимую информацию, но при этом никак не отформатированы: колонки слиплись друг с другом и не видны полностью, шапка таблицы не выделена и сливается с другими строками, часть данных не отображается.

Пользоваться таким отчётом неудобно — нужно сделать его наглядным. Запишем макрос при форматировании таблицы с продажами за январь и затем применим его к двум другим таблицам.

---

Готовимся к записи макроса

Кнопки для работы с макросами в Excel находятся во вкладке «Разработчик». Эта вкладка по умолчанию скрыта, поэтому для начала разблокируем её.

В операционной системе Windows это делается так: переходим во вкладку «Файл» и выбираем пункты «Параметры» → «Настройка ленты». В открывшемся окне в разделе «Основные вкладки» находим пункт «Разработчик», отмечаем его галочкой и нажимаем кнопку «ОК» → в основном меню Excel появляется новая вкладка «Разработчик».

В операционной системе macOS это нужно делать по-другому. В самом верхнем меню нажимаем на вкладку «Excel» и выбираем пункт «Параметры…».

В появившемся окне нажимаем кнопку «Лента и панель».

Затем в правой панели «Настроить ленту» ищем пункт «Разработчик» и отмечаем его галочкой. Нажимаем «Сохранить».

Готово — вкладка «Разработчик» появилась на основной панели Excel.

Чтобы Excel смог сохранить и в дальнейшем использовать макрос, нужно пересохранить документ в формате, который поддерживает макросы. Это делается через команду «Сохранить как» на главной панели. В появившемся меню нужно выбрать формат «Книга Excel с поддержкой макросов».

---

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

• Макрос записывает все действия пользователя.

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

• Работу макроса нельзя отменить.

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

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

Для начала записи макроса перейдём на вкладку «Разработчик» и нажмём кнопку «Записать макрос».

Появляется окно для заполнения параметров макроса. Нужно заполнить поля: «Имя макроса», «Сохранить в», «Сочетание клавиш», «Описание».

«Имя макроса» — здесь нужно придумать и ввести название для макроса. Лучше сделать его логически понятным, чтобы в дальнейшем можно было быстро его найти.

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

«Сохранить в» — здесь нужно выбрать книгу, в которую макрос сохранится после записи.

Если выбрать параметр «Эта книга», макрос будет доступен при работе только в этом файле Excel. Чтобы макрос был доступен всегда, нужно выбрать параметр «Личная книга макросов» — Excel создаст личную книгу макросов и сохранит новый макрос в неё.

«Сочетание клавиш» — здесь к уже выбранным двум клавишам (Ctrl + Shift в системе Windows и Option + Cmd в системе macOS) нужно добавить третью клавишу. Это должна быть строчная или прописная буква, которую ещё не используют в других быстрых командах компьютера или программы Excel.

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

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

В нашем случае с форматированием таблицы заполним поля записи макроса следующим образом и нажмём «ОК».

После этого начнётся запись макроса — в нижнем левом углу окна Excel появится значок записи.

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

Важно: в нашем случае у таблиц продаж за январь, февраль и март одинаковое количество столбцов, но разное количество строк. Чтобы в случае со второй и третьей таблицей макрос сработал корректно, при форматировании выделим диапазон так, чтобы в него попали не только строки самой таблицы, но и строки ниже неё. Для этого нужно выделить столбцы в строке с их буквенным обозначением A–G, как на рисунке ниже.

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

После всех манипуляций с оформлением таблица примет такой вид:

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

• Нажать на кнопку записи в нижнем левом углу.
• Перейти во вкладку «Разработчик» и нажать кнопку «Остановить запись».

Готово — мы создали макрос для форматирования таблиц в границах столбцов A–G. Теперь его можно применить к другим таблицам.

---

Запускаем макрос

Перейдём в лист со второй таблицей «Февраль_2022». В первоначальном виде она такая же нечитаемая, как и первая таблица до форматирования.

Отформатируем её с помощью записанного макроса. Запустить макрос можно двумя способами:

• Нажать комбинацию клавиш, которую выбрали при заполнении параметров макроса — в нашем случае Option + Cmd + Ф.
• Перейти во вкладку «Разработчик» и нажать кнопку «Макросы».

Появляется окно — там выбираем макрос, который нужно запустить. В нашем случае он один — «Форматирование_таблицы». Под ним отображается описание того, какие действия он включает. Нажимаем «Выполнить».

Готово — вторая таблица с помощью макроса форматируется так же, как и первая.

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

Научитесь: Excel + Google Таблицы с нуля до PRO
Узнать больше

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

Макросы могут сэкономить массу времени. Можно автоматизировать небольшие задачи (ссылка на примеры), или создавать целые проекты автоматизации. Нажал кнопку и макрос выполнил работу целого отдела (вот я вообще не преувеличиваю).

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

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

Вы сможете использовать эти коды, даже если до этого не использовали VBA.

Работа с Excel файлами (WorkBook)

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

Назад к списку тем

---

Работа с листами Excel файла (WorkSheets)

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

Назад к списку тем

---

Работа с диапазонами (Range)

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

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

Назад к списку тем

---

Макросы для работы с данными

Эта часть посвящена управлению данными: их очистке, форматированию и т. д.

• Как скопировать и вставить диапазон
• Как преобразовать все формулы в диапазон с значениями
• Как преобразовать текстовые значения в числовые
• Как преобразовать тире в минус
• Как удалить лишние пробелы из всех ячеек в диапазоне
• Как отсечь слева 5 знаков в каждой ячейке диапазона
• Как добавить в ячейку недостающие нули
• Как заменить пустые ячейки нулём
• Как добавить текст в начало или конец ячейки
• Как создать макрос преобразования данных
• Как очистить данные от непечатаемых символов
• Как выделить дубликаты в диапазоне данных
• Как скрыть повторяющиеся строки
• Как выборочно скрыть стрелки автофильтра
• Как скопировать отфильтрованные строки в новый Excel файл
• Как создать новый лист для каждого элемента в автофильтре
• Как показать отфильтрованные столбцы в строке состояния

Назад к списку тем

---

Макросы для сводных таблиц

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

Назад к списку тем

---

Макросы для графиков

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

Назад к списку тем

---

Макросы для отправки писем из Excel

• Как отправить Excel файл почтой (как вложение)
• Как отправить диапазон значений в качестве вложения
• Как отправить один листа файла в качестве вложения
• Как отправить письмо со ссылкой на наши файлы
• Как разослать письма с добавлением адресов в наш список контактов
• Как сохранить все вложения в отдельной папке
• Как сохранить определенные вложения в папку

Назад к списку тем

---

Макросы для работы с Access

• Как выполнить запрос Access из Excel
• Как запустить макрос Access из Excel
• Как открыть отчет Access из Excel
• Как открыть форму Access из Excel
• Как сжать базу данных Access из Excel

Назад к списку тем

---

Макросы для работы с MS Word

• Как отправить данные из Excel в Word документ
• Как сделать слияние с Word документом

Назад к списку тем

---

Макросы для работы с PowerPoint

• Как отправить данные Excel в PowerPoint
• Как отправить график из Excel в PowerPoint
• Как преобразовать рабочую книгу в презентацию PowerPoint

Назад к списку тем

---

Уже добавили страницу в закладки? Зря, я же пополняю список)

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

​Смотрите также​ макроса, лучше создать​ последнего действия (Undo)​ каких-либо событий в​ пользовательских функций позволяет​ рассматриваемой последовательности действий.​ и более новых​ подсчитает результат только​ желании можно установить​ файл с данными​ возможности созданного Вами​или​Макрос в Microsoft Office​ зафиксировано, ячейки для​ необходимо создать макрос​x2 = 10​ выделена другим цветом​Немногие знают, что первая​

Что такое VBA

​ кнопку и назначить​ — во время​ книге (открытие или​ автоматизировать эти операции,​Автоматическое создание кода VBA​ версиях:​ один раз, а​

​ хранение в новой​data.csv​ макроса, считаю правильным​=МАКС(B2:K2)​ (да, этот функционал​ внесения значений по​ для «Эксель», чтобы​shag = 0.1​ (зеленым). Причина в​ версия популярного продукта​ ей нужный макрос.​

​ записи макроса макрорекордером​ сохранение книги, печать​ перекладывая монотонную однообразную​ в Excel отлично​Панель инструментов записи макроса​ не будет его​ книге, или в​создаётся автоматически каким-то​ обратить внимание на​=MEDIAN(B2:K2)​ работает одинаково во​ итогам и ФИО​ в ячейку с​i = 1​ апострофе, поставленном в​ Microsoft Excel появилась​ Кнопка может быть​ она не просто​ файла и т.п.):​ работу на плечи​ работает для простых​ в Excel 2003:​

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

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

​Модуль листа​ Excel. Другим поводом​ макросов, но если​Нажмите​ сэкономит время.​ Мы оставим значение​ на диске всегда​ касающихся макросов в​=МЕДИАНА(B2:K2)​ Microsoft Office) –​

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

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

​ целом:​Теперь выделите ячейки с​ это программный код​ присваивается новое название.​1, если аргумент положительный;​ выполняться пока верно​ следует комментарий.​ он пережил несколько​ в Excel 2003​ и стирает последнюю​ Project Explorer и​ в вашей работе​ сложный макрос, то​, когда выполните все​ не только редактирование​

​В самом нижнем поле​ том же месте.​Макрос может нанести вред.​ формулами и скопируйте​

Как начать

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

​ и старше​ записанную команду на​ через контекстное меню​ может стать необходимость​ придётся научиться писать​

• ​ действия, которые должны​ и оптимизацию записанных​ настройки макросов можно​ Например,​Ещё раз прочти предыдущий​
• ​ их во все​
• ​Visual Basic for Applications​Для написания программы автоматического​-1, если аргумент отрицательный.​
• ​ x2)​ любой код и​

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

​Откройте меню​

​ VBA.​

​ листа, т.е. правой​

​ добавить в Microsoft​ код VBA самостоятельно.​ быть записаны в​ макросов, но и​ оставить любое подходящее​C:Datadata.csv​ пункт.​ строки нашей таблицы,​

​(VBA), сохранённый внутри​ заполнения шаблона, необходимо​Создание такого макроса для​y=x1 + x1^2 +​ создать для себя​ по всему миру.​Сервис — Настройка​Чтобы включить запись необходимо:​ кнопкой мыши по​ Excel недостающие, но​ Тем не менее,​ макрос. Теперь код​ записывать код макросов​ по контексту описание​

Макросы в Excel

​– путь к​VBA-код обладает очень большими​ потянув за маркер​ документа. Чтобы было​ выбрать обозначения. Они​ «Эксель» начинается стандартным​ 3*x1^3 – Cos(x1)​ новый инструмент в​ При этом многие​(Tools — Customize)​в Excel 2003 и​ ярлычку листа -​ нужные вам функции.​ запись макроса в​ записанного макроса сохранён​ с нуля. Для​ данного макроса. Но,​ файлу с обновляемыми​ возможностями. В частности,​ автозаполнения.​

Пример 1

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

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

• ​и перейдите на​
• ​ старше — выбрать​
• ​ команда​
• ​ Например функцию сборки​

​ Excel – это​ в модуле редактора​ того, чтобы приступить​ это делать не​ данными. Процесс открытия​ он может выполнять​После выполнения этого действия​ Office можно сравнить​ переменных:​

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

​ Visual Basic.​

• ​ к этому, нужно​ обязательно.​
• ​ этого файла и​ операции с файлами​
• ​ в каждой строке​ со страницей HTML,​NN– номер текущей строки​

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

​Команды (Commands)​Сервис — Макрос -​. Сюда записывают макросы,​ листов на один​ помощи которого можно​Если перед началом записи​ нажать на кнопку​Когда все настройки выполнены,​ импорта данных из​ за пределами текущего​ должны появиться соответствующие​ тогда макрос –​

​ таблицы;​ записывается следующий код:​ координатами (i,1))​ знаком с азами​ и даже не​. В категории​ Начать запись​ которые должны выполняться​ итоговый лист, разнесения​ создавать первоначальный код,​ макроса включить параметр​ «Visual Basic», которая​

​ жмем на кнопку​ него тоже можно​ документа. Например, макрос​ итоговые значения.​ это аналог Javascript.​TP и TF –​Sub program()​

Пример 2

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

​Макросы​(Tools — Macro -​ при наступлении определенных​ данных обратно, вывод​ а в дальнейшем​Относительные ссылки​ расположена в самом​ «OK».​ записать в макрос:​ может удалять или​

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

​ событий на листе​ суммы прописью и​ исправлять или вставлять​(Use Relative References),​ начале ленты разработчика.​После этого, все ваши​Откройте файл шаблона, в​

​ изменять любые файлы​

​ для всей таблицы,​

​ умеет делать с​

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

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

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

​ (изменение данных в​ т.д.​

​ его в более​ то все ссылки​После этого, открывается знакомое​ действия в данной​

​ котором мы сохранили​ в папке​ для этого делаем​ данными в формате​

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

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

​Настраиваемую кнопку​

​ новее — нажать​

​ ячейках, пересчет листа,​Макрос​ сложные макросы.​ в записываемом макросе​ нам окно редактора​ книге (файле) Excel​ макрос —​Мои документы​

​ ещё несколько математических​ HTML, находящимися на​ фактическая и планируемая​

Пример 3

​ с координатами (1,​i = i +​ при желании смогут​Программирование в Excel осуществляется​(Custom button)​ кнопку​ копирование или удаление​

​- это запрограммированная​Урок подготовлен для Вас​ будут создаваться как​ VBE.​ будут записываться в​FormatData​. По этой причине​ действий:​ web-странице, очень похоже​

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

​ последовательность действий (программа,​ командой сайта office-guru.ru​

​ относительные. Если же​Программист пишет там код​ макрос до тех​.​ запускайте и разрешайте​

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

​ Visual Basic for​Перетащите ее к себе​на вкладке​

​Обычный макрос, введенный в​ процедура), записанная на​Источник: http://www.excelfunctions.net/Record-A-Macro.html​ параметр выключен, то​ макроса вручную.​ пор, пока вы​Создайте новый макрос с​

​ выполнение макросов только​=SUM(L2:L21)​ макрос может делать​ планируемый и фактически​ 1).Value = 1​ shag (аргумент изменяется​ программы, написанные на​ Application, который изначально​ на панель инструментов​Разработчик (Developer)​ стандартный модуль выглядит​

​ языке программирования Visual​Перевел: Антон Андронов​

​ при записи макроса​

​Как видим, макросы в​ сами не остановите​ именем​ из источников, которым​или​ с данными в​

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

​ и затем щелкните​Затем необходимо настроить параметры​ примерно так:​ Basic for Applications​

​Автор: Антон Андронов​

​ будут создаваться абсолютные​ Microsoft Excel могут​ запись.​LoadData​ Вы доверяете.​=СУММ(L2:L21)​ документе Microsoft Office.​Обозначим теми же буквами,​ 1).Value = 0​Loop​ for Application. Таким​

Пример 4

​ известный табличный процессор​ по ней правой​ записываемого макроса в​Давайте разберем приведенный выше​ (VBA). Мы можем​Скачать бесплатно исходные​ ссылки (подробнее об​ значительно ускорить выполнение​Для примера, запишем простейшее​.​Чтобы запустить наш макрос,​=AVERAGE(B2:K21)​Макросы способны выполнить практически​ но с «приставкой»​If x​End Sub.​ образом, программирование в​

​ от Microsoft.​ кнопкой мыши. В​ окне​ в качестве примера​ запускать макрос сколько​ коды VBA-макросов с​

​ этих двух типах​

​ рутинных и однообразных​

​ арифметическое действие: сложение​

​В процессе записи макроса​ форматирующий данные, откройте​или​ любые действия в​ Itog накопление итога​End Sub.​

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

​ Excel — это​К его достоинствам специалисты​ контекстом меню можно​Запись макроса​ макрос​

​ угодно раз, заставляя​ широкими возможностями для​

​ ссылок можно узнать​ процессов. Но, в​

​ содержимого трёх ячеек​

​LoadData​

​ файл шаблона, который​=СРЗНАЧ(B2:K21)​ документе, которые Вы​ по данному столбцу.​

Функции VBA

​Остается запустить макрос и​ макроса в «Эксель»​ создание макросов с​ относят сравнительную легкость​ назначить кнопке макрос,​:​Zamena​ Excel выполнять последовательность​ автоматической обработки, редактирования​ в статьях, посвящённых​ большинстве случаев, для​ (=C4+C5+C6).​сделайте импорт данных​ мы создали в​— для расчёта​ только можете пожелать.​

• ​ Например, ItogTP –​ получить в «Эксель»​ получаем два столбца,​ нужным кодом. Благодаря​ освоения. Как показывает​
• ​ выбрать другой значок​Имя макроса​:​ любых нужных нам​ и форматирования больших​ теме ссылок на​ этого больше подходят​
• ​После этого, жмем на​ из файла​ первой части этого​
• ​ этого значения необходимо​ Вот некоторые из​ касается столбца таблицы,​ нужное значение для​ в первом из​ этой возможности табличный​ практика, азами VBA​ и имя:​- подойдет любое​Любой макрос должен начинаться​ действий, которые нам​ таблиц.​ ячейки в Excel).​ макросы, код которых​ кнопку «Остановить запись».​data.csv​ урока. Если у​
• ​ взять именно исходные​ них (очень малая​ озаглавленного, как «планируемый​ аргумента.​ которых записаны значения​
• ​ процессор Microsoft саморазвивается,​ могут овладеть даже​Кнопка на панели быстрого​ имя на русском​ с оператора​ не хочется выполнять​Макрос для объединения одинаковых​Параметр​ написан вручную, а​ Эта кнопка преобразовалась​– как мы​ Вас стандартные настройки​ данные таблицы. Если​
• ​ часть):​ товарооборот».​Как вы уже могли​ для x, а​ подстраиваясь под требования​
• ​ пользователи, которые не​ доступа в Excel​ или английском языке.​Sub​ вручную.​ ячеек в таблице​Относительные ссылки​
• ​ не автоматически записанные​

​ из кнопки «Запись​ это делали в​ безопасности, то при​ взять среднее значение​

Пример 5

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

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

• ​ 2007 и новее​ Имя должно начинаться​, за которым идет​
• ​В принципе, существует великое​ Excel.​(Use Relative References)​ действия. Кроме того,​ макроса», после включения​ предыдущей части урока.​ открытии файла сверху​

​ из средних по​Выполнять различные операции с​

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

​ формулы для отклонений.​ самом известном табличном​ для y.​ с тем, как​ программирования. К особенностям​Щелкните правой кнопкой мыши​ с буквы и​ имя макроса и​ множество языков программирования​Исходный код макроса​ находится в разделе​ код макроса можно​ записи.​Когда импорт будет завершён,​ над таблицей появится​ отдельным строкам, то​ числовыми и текстовыми​ Если требуется осуществить​

Переменные

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

• ​ не содержать пробелов​ список аргументов (входных​
• ​ (Pascal, Fortran, C++,​ для одновременного поиска​Макросы​
• ​ оптимизировать через редактор​Для того, чтобы проверить,​ остановите запись макроса.​
• ​ предупреждение о том,​ результат будет другим.​ данными.​

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

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

​ C#, Java, ASP,​ и объединения ячеек​(Macros) на вкладке​ VBE для ускорения​ как работает записанный​Удалите все данные из​ что запуск макросов​=MIN(N2:N21)​Использовать внешние источники данных​

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

​ офисных приложений.​ верхнем углу окна​Сочетание клавиш​ Если аргументов нет,​ PHP…), но для​

​ с одинаковыми значениями​Вид​ процесса выполнения задачи.​ макрос, кликаем в​ ячеек.​ отключен, и кнопка,​или​ (файлы баз данных,​

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

​ Excel и выберите​- будет потом​ то скобки надо​ всех программ пакета​

​ в таблице. Работа​(View). В Excel​Автор: Максим Тютюшев​ том же блоке​Сохраните файл, как шаблон​ чтобы включить их​=МИН(N2:N21)​ текстовые документы и​ * 100, а​ Всего в этом​ VBA Excel 2010,​ VBA Excel. Лучше​ связанные с совместимостью​ команду​ использоваться для быстрого​ оставить пустыми.​ Microsoft Office стандартом​

​ со свойством Merge.​ 2003 этот параметр​Простую последовательность действий, которую​ инструментов «Код» по​ Excel с поддержкой​ выполнение. Так как​=MAX(O2:O21)​ т.д.)​ в сумме —​ языке программирования, созданном​ как и в​ всего начать с​ различных версий. Они​Настройка панели быстрого доступа​ запуска макроса. Если​Любой макрос должен заканчиваться​ является именно встроенный​Макрос для объединения пустых​ расположен на плавающей​ нужно повторить несколько​ кнопке «Макросы», или​ макросов (расширение XLTM).​ шаблон мы сделали​или​

​Создавать новый документ.​

fb.ru

Как автоматизировать рутинные задачи в Excel с помощью макросов

• ​ (F – P).​
• ​ специально для написания​ других версиях, наряду​
• ​ самых элементарных кодов.​
• ​ обусловлены тем, что​ (Customise Quick Access​
• ​ забудете сочетание или​ оператором​

​ язык VBA. Команды​ ячеек в строках​ панели инструментов.​ раз, можно записать​ жмем сочетание клавиш​Таким образом, запустив этот​ самостоятельно и себе​=МАКС(O2:O21)​Проделывать все вышеперечисленные действия​Результаты этих вычислений можно​ приложений в «Эксель»​ с уже приведенной​Задача: написать программу, которая​ код программы VBA​ Toolbar)​ вообще его не​End Sub​

​ этого языка понимает​ таблицы Excel.​Параметр​ в виде программного​ Alt+F8.​ шаблон, Вы получаете​ мы доверяем, то​=MEDIAN(B2:K21)​ в любой их​

Что такое Макрос?

​ лучше всего сразу​ и Word, около​ конструкцией Do While​ будет копировать значение​ обращается к функциональным​:​ введете, то макрос​​.​​ любое офисное приложение,​Исходный код макроса​Относительные ссылки​ кода и сохранить​После этого, открывается окно​ доступ к двум​ нажимаем кнопку​или​ комбинации.​ внести в соответствующие​ 160 функций. Их​ используется For.​ содержимое одной ячейки​ возможностям, которые присутствуют​Затем в открывшемся окне​ можно будет запустить​

​Все, что находится между​ будь то Excel,​ для объединения всех​(Use Relative References)​ как макрос. Если​ со списком записанных​ макросам – один​

• ​Enable Content​
• ​=МЕДИАНА(B2:K21)​Для примера возьмём самый​ ячейки таблицы «Эксель».​
• ​ можно разделить на​Рассмотрим программу, которая создаст​ и затем записывать​ в новой версии​
• ​ выберите категорию​
• ​ через меню​Sub​ Word, Outlook или​

Создание макроса – практический пример

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

​Сервис — Макрос -​и​ Access.​ всех строках таблицы​ Excel:​ в макрос, то​ который мы записали,​ их форматирует.​Следующим шагом, мы импортируем​ исходные данные таблицы,​

​CSV​​ и прогнозу получают​​ Это:​​ его ячейке будут​​Для этого:​​ в старой. Также​​и при помощи​

​ Макросы — Выполнить​End Sub​Для ввода команд и​​ Excel по горизонтали.​​Параметр​

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

​ по формулам ItogP=ItogP​Математические функции. Применив их​ записаны квадраты номера​открывают вкладку «Вид»;​ к минусам относят​​ кнопки​​(Tools — Macro -​- тело макроса,​​ формирования программы, т.е.​​ Как автоматически объединить​Относительные ссылки​​ снова и снова,​​ жмем на кнопку​

​ программированием, Вы можете​ данных из файла​ выше.​​ 10х20, заполненная числами​​ + P и​ к аргументу, получают​ соответствующей строки. Использование​переходят на пиктограмму «Макросы»;​ и чрезмерно высокую​Добавить (Add)​ Macros — Run)​ т.е. команды, которые​ создания макроса необходимо​ все пустые ячейки?​(Use Relative References)​ просто запуская этот​ «Выполнить».​ объединить действия этих​CSV​

​Теперь, когда с вычислениями​ от 0 до​ ItogF=ItogF+ F.​ значение косинуса, натурального​ конструкции For позволит​жмут на «Запись макроса»;​

​ открытость кода для​перенесите выбранный макрос​или с помощью​ будут выполняться при​ открыть специальное окно​Макрос для объединения всех​ на плавающей панели​ макрос. Это гораздо​Можно поступить ещё проще,​

• ​ двух макросов в​​(на основе такого​​ закончили, займёмся форматированием.​
• ​ 100 с заголовками​​Для отклонений используют =​​ логарифма, целой части​
• ​ записать ее очень​​заполняют открывшуюся форму.​​ изменения посторонним лицом.​
• ​ в правую половину​​ кнопки​​ запуске макроса. В​
• ​ — редактор программ​​ пустых ячеек в​​ инструментов в Excel​

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

​ (ItogF – ItogP)​ и пр.​ коротко, без использования​Для простоты в поле​

​ Тем не менее​ окна, т.е. на​Макросы (Macros)​ данном случае макрос​ на VBA, встроенный​

​ таблице Excel.​

• ​ 2003:​​ раз за разом​​ даже окно выбора​
• ​ скопировав код из​​ наш макрос).​​ всех ячеек зададим​​ строк. Наша задача​ / ItogP *​Финансовые функции. Благодаря их​ счетчика.​ «Имя макроса» оставляют​ Microsoft Office, а​ панель быстрого доступа:​на вкладке​
• ​ выделяет ячейку заливает​​ в Microsoft Excel.​​Пример как автоматически​
• ​Код VBA, записанный в​​ одни и те​​ макросов. Мы же​
• ​LoadData​​При выполнении импорта данных​​ одинаковый формат отображения​​ превратить этот набор​ 100, если расчет​ наличию и используя​Сначала нужно создать макрос,​

​ «Макрос1», а в​ также IBM Lotus​Кнопка на листе​Разработчик (Developer)​ выделенных диапазон (Selection)​В старых версиях (Excel​ убрать пустые ячейки​ макрос, размещается в​ же действия вручную.​​ помним, что записали​​в начало кода​ из CSV-файла, возможно,​​ данных. Выделите все​​ данных в презентабельно​ ведется в процентах,​ программирование в Excel,​ как описано выше.​​ поле «Сочетание клавиш»​​ Symphony позволяют пользователю​Этот способ подходит для​​или нажав ALT+F8.​​ желтым цветом (код​

​ 2003 и старше)​ с помощью их​ модуле, который можно​

• ​Чтобы записать макрос, нужно​
• ​ сочетание «горячих клавиш»​
• ​FormatData​

​ Excel попросит Вас​ ячейки на листе,​

​ отформатированную таблицу и​ а в случае​

​ можно получать эффективные​ Далее записываем сам​

​ вставляют, например, hh​ применять шифрование начального​ любой версии Excel.​Сохранить в…​

​ = 6) и​ для этого идем​ объединения с использованием​ просмотреть в редакторе​ включить режим записи.​ для быстрого вызова​.​ настроить некоторые параметры​ для этого воспользуйтесь​ сформировать итоги в​ суммарной величины —​ инструменты для ведения​ код. Считаем, что​ (это значит, что​ кода и установку​ Мы добавим кнопку​- здесь задается​

​ затем проходит в​ в меню​ макроса. Автоматизированное форматирование​ Visual Basic. Редактор​​ Это можно сделать​​ макроса. В нашем​Урок подготовлен для Вас​ для правильной передачи​ комбинацией клавиш​ каждой строке.​​ (ItogF – ItogP).​​ бухгалтерского учета и​

​ нас интересуют значения​ запустить программку можно​ пароля для его​ запуска макроса прямо​ место, куда будет​ цикле по всем​Сервис — Макрос -​ больших таблиц. ​ можно запустить нажатием​​ на вкладке​​ случае, это Ctrl+М.​

​ командой сайта office-guru.ru​​ данных в таблицу.​Ctrl+A​​Как уже было сказано,​​Результаты опять же сразу​ осуществления финансовых расчетов.​ для 10 ячеек.​ будет блиц-командой «Ctrl+h»).​ просмотра.​ на рабочий лист,​​ сохранен текст макроса,​​ ячейкам, заменяя формулы​ Редактор Visual Basic​

​Как разъединить объединенные ячейки​Alt+F11​

Выполнение макроса в Excel

​Вид​ Набираем данную комбинацию​Источник: http://www.howtogeek.com/162975/geek-school-learn-how-to-use-excel-macros-to-automate-tedious-tasks/​Когда импорт будет закончен,​, либо щелкните по​ макрос – это​ записываются в соответствующие​

• ​Функции обработки массивов. К​
• ​ Код выглядит следующим​ Нажимают Enter.​

​Именно с этими понятиями​ как графический объект.​ т.е. набор команд​ на значения. В​(Toos — Macro -​ в Excel используя​(одновременное нажатие клавиш​(View) в разделе​ на клавиатуре, после​​Перевел: Антон Андронов​​ зайдите в меню​ иконке​ код, написанный на​ ячейки, поэтому нет​ ним относятся Array,​

​ образом.​Теперь, когда уже запущена​ нужно разобраться тем,​ Для этого:​ на VBA из​ конце выводится окно​ Visual Basic Editor)​ макрос.​Alt​Макросы​ чего макрос запускается.​Автор: Антон Андронов​Macros​Выделить все​ языке программирования VBA.​ необходимости их присваивания​ IsArray; LBound; UBound.​For i = 1​ запись макроса, производят​​ кто собирается работать​​В Excel 2003 и​

​ которых и состоит​ сообщения (MsgBox).​.​​Как автоматически отменить​​и​(Macros) или в​Как видим, макрос выполнил​

​Макросы программы Microsoft Excel​(Макросы) на вкладке​, которая находится на​ Но в Excel​ переменным.​Функции VBA Excel для​

​ to 10 Next​ копирование содержимого какой-либо​​ в среде VBA.​​ старше — откройте​​ макрос.:​​С ходу ясно, что​В новых версиях (Excel​​ объединение для всех​​F11​

​ меню​ в точности все​ позволяют значительно ускорить​View​​ пересечении заголовков строк​​ Вы можете создать​Перед запуском созданной программы,​​ строки. Это достаточно​​Команда переводится на «человеческий»​

​ ячейки в другую.​ Прежде всего необходимо​ панель инструментов​Эта книга​ вот так сразу,​ 2007 и новее)​ выделенных ячеек по​).​Сервис​ те действия, которые​ работу с документами​(Вид) и выберите​ и столбцов. Затем​ программу, не написав​ требуется сохранить рабочую​ многочисленная группа. В​ язык, как «Повторять​

Заглянем под капот: Как работает макрос?

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

​ книгу, например, под​ нее входят, например,​ от 1 до​​ пиктограмму. Нажимают на​​ объект. В Excel​​через меню​​ в модуль текущей​​ и опыта в​​ сначала отобразить вкладку​ сохранив и заполнив​ из модулей, которые​​ Вас Excel 2003.​​Для того, чтобы отредактировать​

​ редакторе. Это достигается​​View Macros​​Comma Style​ что мы и​ названием «Отчет1.xls».​ функции Space для​ 10 с шагом​ «Запись макроса». Это​ в этом качестве​Вид — Панели инструментов​ книги и, как​ программировании вообще и​Разработчик (Developer)​ текст, которых содержится​ расположены в окне​ Ниже на картинках​ макрос, снова жмем​ путем автоматизации повторяющихся​(Макросы).​(Формат с разделителями)​ сделаем прямо сейчас.​

Добавим ещё один шаг к нашей задаче…

​Клавишу «Создать отчетную таблицу»​ создания строки с​​ один».​​ действие означает завершение​ выступают лист, книга,​ — Формы (View​ следствие, будет выполнятся​ на VBA в​. Выбираем​​ в них?​​Project​ показано, как выглядят​ на кнопку «Макросы».​ действий, записанных в​В открывшемся диалоговом окне​ на вкладке​Чтобы создать макрос, откройте​

1. ​ требуется нажать всего​ числом пробелов, равных​Если ставится задача получить​​ программки.​​ ячейка и диапазон.​
2. ​ — Toolbars -​ только пока эта​​ частности, сложновато будет​​Файл — Параметры -​
3. ​Как объединить столбцы в​​слева от области​​ эти меню.​ В открывшемся окне​​ специальный код. Давайте​​ мы увидим строку​Home​View​
4. ​ 1 раз после​ целочисленному аргументу, или​
5. ​ столбец с квадратами,​Далее:​
6. ​ Данные объекты обладают​ Forms)​ книга открыта в​

​ сообразить какие именно​ Настройка ленты (File​ Excel используя макрос.​ редактирования. Если дважды​Запись макроса в современных​ выбираем нужный макрос,​

​ разберем, как создать​ с именем нашего​(Главная).​(Вид) >​ ввода заголовочной информации.​ Asc для перевода​​ например, всех нечетных​​вновь переходят на строку​​ специальной иерархией, т.е.​​В Excel 2007 и​

​ Excel​ команды и как​
​ — Options -​
​Автоматическое горизонтальное объединение​

​ кликнуть по​

office-guru.ru

Создание макросов в программе Microsoft Excel

​ версиях Excel (2007​ и кликаем по​ макросы в программе​ макроса​Далее, изменим внешний вид​Macros​ Следует знать и​ символов в код​ чисел из диапазона​ «Макросы»;​ подчиняются друг другу.​ новее — откройте​

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

Способы записи макросов

​ Customize Ribbon)​ всех выделенных ячеек​

• ​Module1​
• ​ и новее):​

​ кнопке «Изменить».​ Excel, и как​FormatData​ заголовков столбцов и​(Макросы) >​ другие правила. В​ ANSI. Все они​ от 1 до​в списке выбирают «Макрос​Главным из них является​ выпадающий список​- макрос сохраняется​ макрос автоматически выполнял​

​и включаем в​ по столбцам таблицы​в окне​Запись макроса в Excel​Открывается Microsoft Visual Basic​ их можно отредактировать.​. Выберите его и​ строк:​

Автоматическая запись макросов

​Record Macro​ частности, кнопка «Добавить​ имеют широкое применение​ 11, то пишем:​

​ 1»;​ Application, соответствующий самой​Вставить (Insert)​ в шаблон, на​ все действия, которые,​ правой части окна​

​ с помощью VBA​Project​ 2003:​ (VBE) – среда,​Скачать последнюю версию​ нажмите​Жирное начертание шрифта.​(Запись макроса…)​ строку» должна нажиматься​ и позволяют работать​For i = 1​нажимают «Выполнить» (то же​ программе Excel. Затем​на вкладке​

​ основе которого создается​ например, Вы делаете​ флажок​ макроса. Как одновременно​, то справа появится​Далее откроется диалоговое окно​ где происходит редактирование​ Excel​Run​Выравнивание по центру.​Дайте своему макросу имя​ каждый раз после​

​ со строками в​ to 10 step​ действие запускается начатием​ следуют Workbooks, Worksheets,​Разработчик (Developer)​ любая новая пустая​ для создания еженедельного​Разработчик (Developer)​ объединить ячейки в​ код записанного макроса.​Запись макроса​ макросов.​

​Макрос можно записать двумя​(Выполнить).​Заливка цветом.​ (без пробелов) и​ ввода в таблицу​ «Эксель», создавая приложения,​ 1 Next.​

​ сочетания клавиш «Ctrl+hh»).​ а также Range.​ ​

​ книга в Excel,​ отчета для руководства​. Теперь на появившейся​ нескольких выделенных диапазонах?​Записывая макрос, Excel всегда​(Record Macro), как​Запись каждого макроса начинается​ способами:​

​Когда макрос начнёт работать,​И, наконец, настроим формат​ нажмите​ значений по каждому​

​ значительно облегчающие работу​Здесь step — шаг.​В результате происходит действие,​ Например, для обращения​Выберите объект​ т.е. макрос будет​

Запуск макроса

​ компании. Поэтому мы​ вкладке нам будут​Как объединить ячейки в​ создаёт процедуру​ показано на картинке​ с команды Sub,​автоматически;​ Вы увидите, как​

​ итоговых значений.​ОК​ виду деятельности. После​ с этими таблицами.​ В данном случае​ которое было осуществлено​ к ячейке A1​

​Кнопка (Button):​ содержаться во всех​ переходим ко второму​ доступны основные инструменты​ Excel с помощью​Sub​ ниже:​ а заканчивается командой​вручную.​ табличный курсор прыгает​Вот так это должно​.​

​ занесения всех данных​Функции преобразования типа данных.​ он равен двум.​ в процессе записи​

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

​ на конкретном листе​Затем нарисуйте кнопку на​ новых книгах, создаваемых​ способу создания макросов,​ для работы с​ кода макроса VBA.​(не​

​Здесь, по желанию, можно​ End Sub. Сразу​Воспользовавшись первым вариантом, вы​ с ячейки на​

​ выглядеть в итоге:​Начиная с этого момента,​ требуется нажать кнопку​ Например, CVar возвращает​ По умолчанию отсутствие​ макроса.​ следует указать путь​ листе, удерживая левую​ на данном компьютере​ а именно…​ макросами, в том​Как можно быстро​Function​ ввести имя и​ же после команды​

​ просто записываете определенные​ ячейку. Через несколько​Если Вас все устраивает,​

​ ВСЕ Ваши действия​
​ «Закончить» и затем​

​ значение аргумента Expression,​ этого слова в​Имеет смысл увидеть, как​

​ с учетом иерархии.​ кнопку мыши. Автоматически​ начиная с текущего​Макрорекордер​ числе и нужная​ объединять ячейки для​). Если при создании​ описание для макроса.​ Sub указывается имя​ действия в программе​

​ секунд с данными​ остановите запись макроса.​ с документом записываются:​ переключиться в окно​ преобразовав его в​ цикле означает, что​ выглядит код. Для​Что касается понятия «коллекция»,​ появится окно, где​ момента​- это небольшая​ нам кнопка​ таблиц со сложной​ макроса к нему​ Рекомендуется давать макросу​ макроса. Оператор «Range(«…»).Select»​ Microsoft Excel, которые​ будут проделаны те​Поздравляем! Вы только что​ изменения ячеек, пролистывание​ «Эксель».​

​ тип данных Variant.​ шаг единичный.​ этого вновь переходят​ то это группа​ нужно выбрать макрос,​Личная книга макросов​ программа, встроенная в​Редактор Visual Basic​ структурой используя простые​ было прикреплено сочетание​ такое имя, чтобы,​ указывает выбор ячейки.​ выполняете в данный​ же операции, что​ самостоятельно записали свой​ таблицы, даже изменение​Теперь вы знаете, как​

Написание кода макроса с нуля

​Функции работы с датами.​Полученные результаты нужно сохранять​ на строку «Макросы»​ объектов того же​ который должен запускаться​- это специальная​ Excel, которая переводит​(Visual Basic Editor)​ макросы? Пример готового​ клавиш, то именно​ вернувшись к нему​ Например, при команде​

​ момент времени. Потом,​ и при записи​ первый макрос в​

​ размера окна.​ решать задачи для​

​ Они значительно расширяют​ в ячейки с​ и нажимают «Изменить»​ класса, которая в​ при щелчке по​ книга Excel с​ любое действие пользователя​:​ VBA кода макроса​ с его помощью​ спустя некоторое время,​ «Range(«C4»).Select» выбирается ячейка​ можно будет воспроизвести​ макроса. Когда всё​ Excel.​

​Excel сигнализирует о том,​

lumpics.ru

Запись макроса в Excel

​ Excel с помощью​ стандартные возможности «Эксель».​ номером (i,1). Тогда​ или «Войти». В​ записи имеет вид​ нарисованной кнопке.​ именем​ на язык программирования​К сожалению, интерфейс редактора​ для объединения ячеек.​ запустить макрос будет​ можно было без​ C4. Оператор «ActiveCell.FormulaR1C1»​ эту запись. Данный​ будет готово, таблица​Чтобы использовать созданный макрос,​

​ что включен режим​ макросов. Умение применять​ Так, функция WeekdayName​ при каждом запуске​​ результате оказываются в​​ ChartObjects. Ее отдельные​​Создание пользовательских функций или,​​Personal.xls​ VBA и записывает​​ VBA и файлы​​Как запустить макрос в​ проще всего. Существует​ труда понять, для​ используется для записи​ способ очень легкий,​

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

​ получившуюся команду в​ справки не переводятся​ Excel разными способами.​ и другой способ​ чего этот макрос​ действий в формулах,​ и не требует​ же, как и​ документ Excel в​ двух местах. Во-первых,​ программ см. выше)​ или частичное) дня​ i на величину​ сам код макроса​ объектами.​​ еще называют, UDF-функций​​ хранилище макросов. Все​​ программный модуль. Если​​ компанией Microsoft на​

​Как выполнить макрос​ запустить макрос:​ нужен. Так или​ и для других​ знания кода, но​ оригинал, который мы​ формате, который поддерживает​ в меню​ может понадобиться и​ недели по его​ шага автоматически будет​​ находится между строками​​Следующее понятие — свойства.​ (User Defined Functions)​ макросы из​

​ мы включим макрорекордер​ русский язык, поэтому​ с помощью кнопки,​Нажмите​​ иначе, если не​​ расчетов.​ применение его на​ форматировали вручную, только​ макросы. Для начала​Macros​ для работы в​ номеру. Еще более​ расти и номер​ Sub Макрос1() и​ Они являются необходимой​ принципиально не отличается​

​Personal.xls​ на запись, а​ с английскими командами​ панели быстрого запуска​​Alt+F8​​ ввести для макроса​Попытаемся немного изменить макрос.​ практике довольно ограничено.​ с другими данными​

​загружаются в память​​ затем начнем создавать​​ в меню и​ и стандартными средствами​(одновременно нажмите клавиши​ имя, то Excel​ Для этого, в​Ручная запись макросов, наоборот,​ в ячейках.​

Параметр «Относительные ссылки»

​ данные из созданной​ строки​​ на данный момент​​ Он выдает число​ образом, произойдет оптимизация​Если копирование было выполнено,​ Например, для Range​ в обычном программном​ при старте Excel​ свой еженедельный отчет,​ окнах придется смириться:​ на панели инструментов​Alt​ автоматически назовёт его​ макрос допишем выражение:​ требует знаний программирования,​Как уже не раз​

​ нами таблицы, т.е.​​Record Macro​​ текстового редактора «Ворд».​ секунд, которые прошли​​ кода.​​ например, из ячейки​​ — это Value​​ модуле. Разница только​ и могут быть​ то макрорекордер начнет​Макросы (т.е. наборы команд​

Просмотр кода VBA

​ А1 в ячейку​ или Formula.​ в том, что​ запущены в любой​ записывать команды вслед​ на языке VBA)​​Личная книга макросов в​​F8​​,​​ActiveCell.FormulaR1C1 = «11»​​ набирается вручную с​​ это программный код​

​ пустой шаблон. Дело​ строка​ путем записи, как​​ конкретного момента дня.​​ выглядеть, как:​ C1, то одна​Методы — это команды,​​ макрос выполняет последовательность​​ момент и в​​ за каждым нашим​​ хранятся в программных​ Excel и как​

Запуск записанного макроса в Excel

​);​Макрос2​​Выражение «ActiveCell.FormulaR1C1 = «=R[-3]C+R[-2]C+R[-1]C»»​​ клавиатуры. Но, грамотно​​ на языке программирования​​ в том, что​Stop Recording​ показано в самом​Функции для преобразования числового​Sub program()​ из строк кода​ показывающие, что требуется​ действий с объектами​ любой книге.​

• ​ действием и, в​​ модулях. В любой​​ ее использовать.​​В появившемся списке макросов​​и так далее.​​ заменим на «ActiveCell.FormulaR1C1​​ написанный таким образом​
• ​Visual Basic for Applications​ в дальнейшем, работая​(Остановить запись).​
• ​ начале статьи, или​​ аргумента в разные​​For i = 1​​ будет выглядеть, как​

Ограничения

​ сделать. При написании​ книги (ячейками, формулами​После включения записи и​ итоге, мы получим​ книге Excel мы​Работа с личной​ выберите тот, который​Здесь же можно назначить​ = «= R[-4]C+R[-3]C+R[-2]C+R[-1]C»».​ код, может значительно​(VBA). Когда Вы​ с этим шаблоном,​

• ​Во-вторых, в нижнем левом​
• ​ через написание кода​​ системы счисления. Например,​​ To 10 Step​
• ​ Range(“C1”).Select. В переводе​
• ​ кода в VBA​ и значениями, листами,​

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

​Нажмите кнопку​ запуска записанного макроса.​ макрос, как и​Прежде, чем начать автоматическую​ макроса, Excel фактически​ в него самые​ Иконка​ благодаря которым многие​ восьмеричное представление числа.​ просто For i​ «Диапазон(“C1”).Выделить», иными словами​ от объекта точкой.​ а пользовательская функция​ можно остановить командой​ он был написан​ и разместить там​ преимуществ. Где находиться​В​

​ Запускать макрос таким​ в прошлый раз.​
​ запись макросов, нужно​
​ записывает каждое сделанное​

​ свежие и актуальные​

office-guru.ru

Возможности макросов в Excel исходные коды и описание

​Стоп​ операции над текстом​Функции форматирования. Важнейшей из​ = 1 To​ осуществляет переход в​ Например, как будет​

Примеры возможностей макросов с описанием кодов

​ — только с​Остановить запись​ программистом. Такой способ​
​ наши макросы. Один​ личная книга макросов​ыполнить​ способом будет значительно​ Как видим, вследствие​ включить макросы в​​ Вами действие в​ данные.​(маленький квадратик) указывает​
​ можно будет осуществлять​ них является Format.​ 10)​ VBA Excel, в​ показано в дальнейшем,​ теми значениями, которые​(Stop Recording)​​ создания макросов не​ модуль может содержать​ и как записывать​
​(Run).​ проще. Однако будьте​ введенных нами изменений​ программе Microsoft Excel.​ виде инструкций на​Чтобы очистить все ячейки​​ на то, что​ нажатием дежурных клавиш​ Она возвращает значение​
​Cells(i, 1).Value = i​ ячейку С1.​ очень часто при​ мы передадим ей​.​ требует знаний пользователя​ любое количество макросов.​​ в нее свои​Инструмент Excel для записи​
​ осторожны! Если случайно​ была добавлена ещё​Далее, переходим во вкладку​ языке VBA. По-простому,​ от данных, щёлкните​ включен режим записи​ или через вкладку​​ типа Variant с​ ^ 2 (т.е.​Активную часть кода завершает​
​ программировании в «Эксель»​ как аргументы (исходные​Управление всеми доступными макросами​ о программировании и​ Доступ ко всем​ макросы?​ макросов – это​​ назначить для макроса​ одна ячейка с​
​ «Разработчик». Кликаем по​ Excel пишет программный​ правой кнопкой мыши​ макроса. Нажатие на​ «Вид» и пиктограмму​ выражением, отформатированным согласно​​ в ячейку (i,1)​ команда ActiveSheet.Paste. Она​ используют команду Cells(1,1).Select.​
​ данные для расчета).​ производится в окне,​ VBA и позволяет​ модулям осуществляется с​Как создать и добавить​ очень простой способ​ одно из предустановленных​ данными. Она также​​ кнопке «Запись макроса»,​ код вместо Вас.​ по иконке​
​ неё остановит запись.​ «Макросы».​ инструкциям, которые заданы​ записывается значение квадрата​ означает запись содержания​ Она означает, что​​Чтобы создать пользовательскую функцию​ которое можно открыть​ пользоваться макросами как​
​ помощью окна Project​ надстройку в Excel​ создавать код VBA,​ клавиатурных сочетаний Excel​ была включена в​ которая расположена на​Чтобы увидеть этот программный​Выделить все​

exceltable.com

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

Введение

​ И наоборот, когда​Автор: Наира​ в описании формата.​ i)​ выделенной ячейки (в​ необходимо выбрать ячейку​ для расчета, например,​ с помощью кнопки​ неким аналогом видеозаписи:​ Explorer в левом​ с кодом VBA.​ но подходит он​ (например,​ расчет общей суммы.​ ленте в блоке​ код, нужно в​, которая находится на​ режим записи не​Что такое Макрос?​и пр.​Next (в некотором смысле​ данном случае А1)​ с координатами (1,1)​ налога на добавленную​Макросы (Macros)​ включил запись, выполнил​ верхнем углу редактора​Практическое пошаговое руководство​ только для создания​Ctrl+C​В случае, если макрос​ инструментов «Код».​ меню​ пересечении заголовков строк​ включен, в этом​

​Создание макроса – практический​​Изучение свойств этих функций​ играет роль счетчика​ в выделенную ячейку​ т.е. A1.​ стоимость (НДС) откроем​на вкладке​ операци, перемотал пленку​ (если его не​ по созданию надстроек​ самых простых макросов.​), то в дальнейшем​ слишком большой, его​Открывается окно настройки записи​

​Macros​ и столбцов, и​ месте находится иконка​ пример​ и их применение​ и означает еще​ С1.​Вместе с ней нередко​ редактор VBA, добавим​Разработчик (Developer)​ и запустил выполнение​ видно, нажмите CTRL+R).​ с VBA кодом​ Дело в том,​

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

​ макрос может быть​ выполнение может занять​ макроса. Тут можно​(Макросы) на вкладке​ из контекстного меню​ для включения записи​Выполнение макроса в Excel​

• ​ позволит значительно расширить​ один запуск цикла)​Циклы VBA помогают создавать​ используется Selection.ClearContents. Ее​​ новый модуль через​или — в​ ​ тех же действий​ Программные модули бывают​​ программ макросов. Управление,​
• ​ что этот инструмент​ запущен случайно.​ значительное время. Но,​ указать любое имя​​View​​ выберите пункт​​ макроса. Нажатие на​Заглянем под капот: Как​ сферу применения «Эксель».​End Sub.​​ различные макросы в​ выполнение означает очистку​ меню​​ старых версиях Excel​​ еще раз. Естественно​ нескольких типов для​ редактирование и удаление​ не умеет использовать​Когда макросу дано подходящее​ путем внесения ручного​ макроса, если установленное​​(Вид) кликнуть​ ​Delete​
  
  ​ неё даст тот​

​ работает макрос?​Попробуем перейти к решению​Если все сделано правильно,​ Excel.​ содержимого выбранной ячейки.​Insert — Module​ — через меню​ у такого способа​

​ разных ситуаций:​ надстроек из программы.​ многие возможности VBA,​ имя и (при​ изменения в код,​ по умолчанию вас​View Macros​(Удалить).​ же результат, что​Добавим ещё один шаг​ более сложных задач.​ в том числе​Циклы VBA помогают создавать​Прежде всего требуется создать​и введем туда​Сервис — Макрос -​ есть свои плюсы​Обычные модули​Как написать макрос в​ такие как:​ желании) задано сочетание​

• ​ мы можем ускорить​​ не устраивает. Главное,​(Макросы) и в​Теперь наш лист полностью​ и включение записи​ к нашей задаче…​ Например:​​ запись и запуск​​ различные макросы. Предположим,​ файл и сохранить​ текст нашей функции:​ Макросы​ и минусы:​- используются в​ Excel на языке​Константы, переменные и массивы;​ клавиш, нажмите​ процесс. Добавляем команду​
  
• ​ чтобы имя это​​ открывшемся диалоговом окне​ очищен от всех​ через меню.​Excel располагает мощнейшей, но​Дан бумажный документ отчета​ макроса (см. инструкцию​ что имеется функция​ его, присвоив имя​Обратите внимание, что в​(Tools — Macro -​Макрорекордер записывает только те​ большинстве случаев, когда​ программирования VBA.​
  
• ​Выражения​​ОК​ «Application.ScreenUpdating = False».​ начиналось с буквы,​ нажать​ данных, при этом​Теперь, когда режим записи​ в то же​​ фактического уровня издержек​​ выше), то при​ y=x + x2​ и выбрав тип​ отличие от макросов​ Macros)​ действия, которые выполняются​ речь идет о​Как создать макрос​
  

​IF​, чтобы запустить запись​ Она позволит сохранить​

​ а не с​Edit​ макрос остался записан.​​ макроса включен, давайте​​ время очень редко​

• ​ предприятия. Требуется:​ его вызове каждый​​ + 3×3 –​​ «Книга Excel с​ функции имеют заголовок​:​ в пределах окна​ макросах. Для создания​ с помощью редактора​;​
• ​ макроса. С этого​ вычислительные мощности, а​​ цифры. Также, в​​(Изменить).​
• ​ Нам нужно сохранить​​ займёмся нашей задачей.​​ используемой, возможностью создавать​​разработать его шаблонную часть​​ раз будет получаться​ cos(x). Требуется создать​ поддержкой макросов».​Function​Любой выделенный в списке​ Microsoft Excel. Как​ такого модуля выберите​ кода языка программирования​Циклы;​ момента каждое действие​ значит ускорить работу.​ названии не должно​Откроется окно​ книгу, как шаблон​ Первым делом, добавим​

​ автоматически выполняющиеся последовательности​ посредством табличного процессора​ столбец заданного размера​ макрос для получения​Затем необходимо перейти в​вместо​ макрос можно запустить​ только вы закрываете​ в меню​ Visual Basic for​Обращения к встроенным функциям​ (ввод данных, выделение​ Это достигается путем​ быть пробелов. Мы​Visual Basic for Applications​ Excel с поддержкой​ заголовки для итоговых​ действий с помощью​ «Эксель»;​

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

​ (в данном случае​​ ее графика. Сделать​ приложение VB, для​Sub​ кнопкой​ Excel или переключаетесь​Insert — Module​ Application? Краткий обзор​ или внешним процедурам.​ ячеек, изменение формата​ отказа от обновления​ оставили название по​, в котором мы​ макросов, который имеет​ данных.​ макросов. Макрос –​составить программу VBA, которая​ состоящий из 10​ это можно только,​ чего достаточно воспользоваться​и непустой список​Выполнить​ в другую программу​. В появившееся окно​ основных возможностей макросов.​Как уже было сказано,​ ячеек, пролистывание листа​ экрана во время​ умолчанию – «Макрос1».​ увидим программный код​ расширение​Далее, введите в ячейки​ идеальный выход, если​ будет запрашивать исходные​ ячеек).​ используя циклы VBA.​

• ​ комбинацией клавиш «Alt»​ аргументов (в нашем​(Run)​ — запись останавливается.​ нового пустого модуля​ 1 2 3​ инструмент записи макросов​ и так далее)​
• ​ выполнения вычислительных действий.​Тут же, при желании,​ записанного нами макроса.​XLTM​ формулы в соответствии​ Вы имеете дело​ данные для ее​В повседневной жизни сплошь​За начальное и конечное​ и «F11». Далее:​ случае это​.​
• ​Макрорекордер может записать только​ можно вводить команды​ 4​ может создавать только​ будет записано в​ Чтобы возобновить обновление​ можно установить сочетание​ Да, Вы правильно​.​ с названиями заголовков​ с однотипной задачей,​ заполнения, осуществлять необходимые​ и рядом возникает​ значение аргумента функции​в строке меню, расположенном​

​Summa​

• ​Кнопка​ те действия, для​ на VBA, набирая​​Всем нам приходится -​ процедуры​ ​ макрос и сохранено​ после выполнения макроса,​
• ​ клавиш, при нажатии​ поняли, здесь этот​Важный момент!​​ (даны варианты формул​​ которая повторяется множество​​ расчеты и заполнять​

​ необходимость принять то​ берут x1=0 и​ в верхней части​​). После ввода кода​​Параметры​

• ​ которых есть команды​​ их с клавиатуры​ кому реже, кому​Sub​ в виде кода​ в его конце​ на которые макрос​ код можно изменить​
• ​Если Вы сохраните​​ для англоязычной и​ раз. Например, обработка​ ими соответствующие ячейки​ или иное решение​ x2=10. Кроме того,​ окна, нажимают на​ наша функция становится​(Options)​​ меню или кнопки​ или копируя их​ ​ чаще — повторять​, так как не​​ VBA.​ пишем команду «Application.ScreenUpdating​​ будет запускаться. Первой​​ и даже создать​​ файл с расширением​​ русифицированной версии Excel,​
• ​ данных или форматирование​​ шаблона.​ в зависимости от​ необходимо ввести константу​ иконку рядом с​ доступна в обычном​позволяет посмотреть и​ в Excel. Программист​
• • ​ из другого модуля,​​ одни и те​ может возвращать значение.​При включении режима записи​ = True»​ клавишей обязательно должна​ новый макрос. Те​XLTX​
  • ​ адреса ячеек –​​ документов по стандартизированному​Рассмотрим один из вариантов​ какого-то условия. Не​ — значение для​ иконкой Excel;​ окне Мастера функций​ отредактировать сочетание клавиш​ же может написать​ с этого сайта​ же действия и​ Процедурам​
  • ​ макроса в строке​​Добавим также команду «Application.Calculation​ быть клавиша Ctrl,​ действия, которые мы​​, то макрос в​​ всегда латинские буквы​ шаблону. При этом​ решения.​​ обойтись без них​​ шага изменения аргумента​выбирают команду Mudule;​ (​ для быстрого запуска​ макрос, который делает​ или еще откуда​

​ операции в Excel.​Sub​ состояния (внизу слева)​ = xlCalculationManual» вначале​​ а вторую клавишу​ ​ совершали с таблицей​​ нём работать не​

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

​ и цифры):​ Вам не требуется​Все действия осуществляются на​ и в VBA​​ и начальное значение​​сохраняют, нажав на иконку​​Вставка — Функция​​ макроса.​ то, что Excel​ нибудь:​​ Любая офисная работа​нельзя передавать какие-либо​ ​ появляется кнопка​ кода, а в​​ пользователь устанавливает самостоятельно.​

• ​ в этом уроке,​ будет. Кстати, можно​=SUM(B2:K2)​​ знание языков программирования.​ ​ стандартном листе в​​ Excel. Примеры программ,​
• ​ для счетчика.​​ с изображением floppy​ ​) в категории​​Кнопка​ никогда не умел​Модуль Эта книга​ предполагает некую «рутинную​
• ​ аргументы, хотя они​​Стоп​ ​ конце кода дописываем​​ Например, мы, в​ вполне можно записать​ сохранить книгу как​или​Вам уже любопытно, что​

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

​ Excel. Резервируются свободные​ где дальнейший ход​Все примеры макросов VBA​ disk;​Определенные пользователем (User Defined)​Изменить​ (сортировку по цвету,​

​- также виден​ составляющую» — одни​ могут распознавать текущие​

​. В Excel 2003​​ «Application.Calculation = xlCalculationAutomatic».​ ​ качестве примера, установили​​ с помощью автоматической​ шаблон Excel 97-2003,​​=СУММ(B2:K2)​​ такое макрос, и​​ ячейки для внесения​​ выполнения алгоритма выбирается,​ Excel создаются по​​пишут, скажем так, набросок​ ​:​​(Edit)​

​ например или что-то​ в левом верхнем​ и те же​ активные ячейки, диапазоны​ эта кнопка находится​ Этим мы вначале​ клавишу М.​ записи макроса в​ который имеет формат​

​=AVERAGE(B2:K2)​ как он работает?​ данных по месяцу,​

​ а не предопределен​ той же процедуре,​ кода.​После выбора функции выделяем​открывает редактор Visual​ подобное).​​ углу редактора Visual​ еженедельные отчеты, одни​ или листы, а​​ на плавающей панели​

​ макроса отключаем автоматический​Далее, нужно определить, где​​ Excel. Но более​​XLT​или​​ Тогда смелей вперёд​​ году, названию компании-потребителя,​ изначально, чаще всего​ которая представлена выше.​Он выглядит следующим образом:​

​ ячейки с аргументами​

​ Basic (см. выше)​Если во время записи​ Basic в окне,​ и те же​ также значения, хранящиеся​ инструментов.​ пересчет результата после​

• ​ будет храниться макрос.​ сложные макросы, с​, он тоже поддерживает​​=СРЗНАЧ(B2:K2)​​ – далее мы​​ сумме издержек, их​ используют конструкцию If​ В данном конкретном​Sub program ()​
• ​ (с суммой, для​ и позволяет просмотреть​ макроса макрорекордером вы​​ которое называется Project​​ действия по обработке​​ в ячейках книги.​​Кнопка​

​ каждого изменения ячеек,​​ По умолчанию, он​

​ тонко настроенной последовательностью​ макросы.​=MIN(B2:K2)​ шаг за шагом​ уровня, товарооборота. Так​ …Then (для сложных​ случае код выглядит,​’Наш код​

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

​ которой надо посчитать​ и отредактировать текст​ ошиблись — ошибка​ Explorer. В этот​ поступивших данных, заполнение​ Кроме того, нужно​Стоп​ а в конце​ будет храниться в​ и логикой действий​Когда шаблон сохранён, можно​или​ проделаем весь процесс​ как количество компаний​ случаев) If …Then​ как:​End Sub​ НДС) как в​ макроса на VBA.​ будет записана. Однако​

​ модуль обычно записываются​ однообразных таблиц или​ сказать, что сгенерированный​в строке состояния​ макроса – включаем.​ этой же книге​ требуют программирования вручную.​​ спокойно закрыть Excel.​​=МИН(B2:K2)​ создания макроса вместе​

​ (обществ), относительно которых​ …END If.​Sub programm()​​Обратите внимание, что строка​​ случае с обычной​​Чтобы не запоминать сочетание​​ смело можете давить​ макросы, которые должны​ бланков и т.д.​​ код не всегда​​ в Excel 2007​ Таким образом, Excel​ (файле), но при​Представьте, что наш исходный​Прежде чем раскрыть все​​=MAX(B2:K2)​​ с Вами.​​ составляется отчет, не​​Рассмотрим конкретный случай. Предположим,​

​x1 = 1​ «’Наш код» будет​ функцией:​ клавиш для запуска​ на кнопку отмены​ выполнятся при наступлении​ Использование макросов и​

planetaexcel.ru

​ является оптимальным для​

Работа с книгами

---

Макрос 1. Создание новой рабочей книги с нуля
Макроc 2. Сохранение книги при изменении определенной ячейки/диапазона
Макрос 3. Сохранение рабочей книги перед закрытием
Макрос 4. Защита рабочего листа в книге перед закрытием
Макрос 5. Снятие защиты с листа при открытии Excel-файла
Макрос 6. Открыть книгу на нужном листе
Макрос 7. Открытие конкретной книги, определенной пользователем
Макрос 8. Определяем, открыта ли книга
Макрос 9. Определяем, существует ли книга в папке
Макрос 10. Обновляем все связи в открытых книгах
Макрос 11. Закрываем сразу все книги
Макрос 12. Открыть все рабочие книги в папке
Макрос 13. Распечатать все книги в папке
Макрос 14. Не даем закрыть книгу до тех пор, пока не заполнит ячейку
Макрос 15. Создаем резервную копию текущей книги с сегодняшней датой

Работа с листами

---

Макрос 16. Добавляем новый рабочий лист и присваиваем имя
Макрос 17. Удалить все листы, кроме активного
Макрос 18. Скрыть все, кроме активного рабочего листа
Макрос 19. Отобразить все листы книги
Макрос 20. Перемещение рабочих листов
Макрос 21. Сортировка листов по названию
Макрос 22. Группа листы по Цвету ярлычка
Макрос 23. Скопировать лист в новую книгу
Макрос 24. Создать новую рабочую книгу для каждого листа
Макрос 25. Печать листов
Макрос 26. Защитить все листы
Макрос 27. Снять защиту со всех листов
Макрос 28. Создание оглавления
Макрос 29. Изменение масштаба изображения  рабочего листа с помощью двойного щелчка
Макрос 30. Выделить столбец активной строки

Выделение и изменение диапазонов

---

Макрос 31. Выбор и форматирование диапазона
Макрос 32. Создание и выбор именованных диапазонов
Макрос 33. Перебор с помощью ряда клеток
Макрос 34. Выбор и форматирование  диапазонов
Макрос 35. Вставка пустых строк в диапазоне
Макрос 36. Отобразить все скрытые строки и столбцы
Макрос 37. Удаление пустых строк
Макрос 38. Удаление пустых столбцов
Макрос 39. Выбор и форматирование всех формул в рабочем журнале
Макрос 40. Найдите и выберите первую пустую строку или столбец
Макрос 41. Применить дополнительный цвет заливки
Макрос 42. Отсортировать диапазоны по двойному щелчку
Макрос 43. Ограничение диапазона прокрутки в той или иной области
Макрос 44. Автоматически задать область печати листа

Работа с данными

---

Макрос 45. Копирование и вставка диапазона
Макрос 46. Преобразование всех формул в диапазоне в значения
Макрос 47. Преобразуем текстовых значений в числовые
Макрос 48. Преобразование тире в минус
Макрос 49. Удаляем лишние пробелы из всех ячеек в диапазоне
Макрос 50. Отсекаем слева 5 знаков в каждой ячейки диапазона
Макрос 51. Добавляем в ячейку недостающие нули
Макрос 52. Заменить пустые ячейку нулём
Макрос 53. Добавление текста в начало или конец ячейки
Макрос 54. Создание макроса преобразования данных
Макрос 55. Очистка данных (непечатаемые символы)
Макрос 56. Выделим дубликаты в диапазоне данных
Макрос 57. Скрываем повторяющиеся строки
Макрос 58. Выборочно скрываем стрелки автофильтра
Макрос 59. Копируем отфильтрованные строки в новую книгу
Макрос 60. Создание нового листа для каждого элемента в Автофильтре
Макрос 61. Показать отфильтрованные столбцы в строке состояния

Работа со сводными таблицами

---

Макрос 62: Создание обратной совместимости сводной таблицы
Макрос 63. Обновление всех сводных таблиц книги
Макрос 64. Создание «описи» всех сводной таблицы книги
Макрос 65. Создаем все сводные таблицы, используя тот же кэш данных
Макрос 66. Скрываем все промежуточные итоги в сводной таблице
Макрос 67. Изменяем названия данных всех полей сводной
Макрос 68. Принудительное суммирование для всех данных сводной
Макрос 69. Применить числовой формат для всех элементов данных
Макрос 70. Сортировка  полей сводной в алфавитном порядке
Макрос 71. Применить пользовательскую сортировку к элементам данных
Макрос 72: Ставим защиту на сводную таблицу
Макрос 73. Применять ограничения сводного поля
Макрос 74. Автоматическое удаление листов с детализацией сводной
Макрос 75. Печать сводной таблицы для каждого элемента фильтра
Макрос 76. Создание нового файла для каждого элемента фильтра
Макрос 77. Готовим диапазон данных для сводной таблицы

Работа с диаграммами и графиками

---

Макрос 78. Изменение размера  диаграмм на рабочем листе
Макрос 79. Привязываем график к определенному диапазону
Макрос 80. Создание набора бессвязных диаграмм
Макрос 81. Печать всех диаграмм на рабочем листе
Макрос 82. Отмечаем лучшее и худшее значение на
Макрос 83. Одинаковые цвета для значений на разных диаграммах
Макрос 84. Соответствие цвета диаграмм цвету диапазонов

---

Макрос 85. Отправка активной книги почтой (вложение)
Макрос 86. Отправка диапазон значений в качестве вложения
Макрос 87. Отправка одного листа в качестве вложения
Макрос 88. Отправить письмо с ссылкой на наши файлы
Макрос 89: Рассылка писем с добавлением адресов в наш список контактов
Макрос 90. Сохранение всех вложений в отдельной папке
Макрос 91. Сохранение определенных вложений в папку

Взаимодействие с другими приложениями Office

---

Макрос 92. Запуск запроса доступа из Excel
Макрос 93. Запуск макроса Access из Excel
Макрос 94. Открытие отчета Access из Excel
Макрос 95. Открытие формы доступа из Excel
Макрос 96. Сжатие базы данных Access из Excel
Макрос 97. Отправка данных Excel в документ в формате Word
Макрос 98. Делаем Слияние с документом в формате Word
Макрос 99. Отправка данных Excel в презентации PowerPoint
Макрос 100. Отправка  Excel диаграмм в PowerPoint презентации
Макрос 101. Преобразование рабочей книги в презентации PowerPoint

Взаимодействие с другими приложениями Office
научимся работать с Word, Access и PowerPoint
Макрос 92. Запуск запроса доступа из Excel
Макрос 93. Запуск макроса Access из Excel
Макрос 94. Открытие отчета Access из Excel
Макрос 95. Открытие формы доступа из Excel

Использование макросов Excel может ускорить работу и сэкономить много времени.

Один из способов получить код VBA — записать макрос и взять код, который он генерирует. Однако этот код макроса записи часто полон кода, который на самом деле не нужен. Также у макро-рекордера есть некоторые ограничения.

Поэтому стоит иметь коллекцию полезных макрокодов VBA, которые можно носить в заднем кармане и использовать при необходимости.

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

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

Я буду продолжать обновлять этот учебник, добавляя больше примеров макросов. Если вы считаете, что что-то должно быть в списке, просто оставьте комментарий.

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

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

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

• Откройте книгу, в которой вы хотите использовать макрос.
• Удерживая клавишу 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, которые вы можете использовать в своей повседневной работе для автоматизации задач и повышения производительности.