Написать макрос для excel примеры - Word и Excel - помощь в работе с программами

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

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

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

- - - 1. Копирование данных из одного файла в другой.
    - 2. Отображение скрытых строк
    - 3. Удаление пустых строк и столбов
    - 4. Нахождение пустых ячеек
    - 13. Создание сводной таблицы
    - 14. Отправка активного файла по электронной почте
    - 15. Вставка всех графиков Excel в презентацию PowerPoint
    - 16. Вставка таблицы Excel в MS Word
    - 17. Извлечение слов из текста
    - 18. Защита данных в MS Excel

Как включить макросы в 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 и компьютерных наук в целом.

Литература:

1. ExcelChamps.com: Top 100 Useful Excel Macro [VBA] Codes Examples.

2. Michael Alexander, John Walkenbach (2012). 101 Ready-To-Use Excel Macros.

3. BG Excel.info: 14 ready-to-use Macros for Excel.

Источник

Введение

Всем нам приходится — кому реже, кому чаще — повторять одни и те же действия и операции в Excel. Любая офисная работа предполагает некую «рутинную составляющую» — одни и те же еженедельные отчеты, одни и те же действия по обработке поступивших данных, заполнение однообразных таблиц или бланков и т.д. Использование макросов и пользовательских функций позволяет автоматизировать эти операции, перекладывая монотонную однообразную работу на плечи Excel. Другим поводом для использования макросов в вашей работе может стать необходимость добавить в Microsoft Excel недостающие, но нужные вам функции. Например функцию сборки данных с разных листов на один итоговый лист, разнесения данных обратно, вывод суммы прописью и т.д.

Макрос — это запрограммированная последовательность действий (программа, процедура), записанная на языке программирования Visual Basic for Applications (VBA). Мы можем запускать макрос сколько угодно раз, заставляя Excel выполнять последовательность любых нужных нам действий, которые нам не хочется выполнять вручную.

В принципе, существует великое множество языков программирования (Pascal, Fortran, C++, C#, Java, ASP, PHP…), но для всех программ пакета Microsoft Office стандартом является именно встроенный язык VBA. Команды этого языка понимает любое офисное приложение, будь то Excel, Word, Outlook или Access.

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

Для ввода команд и формирования программы, т.е. создания макроса необходимо открыть специальное окно — редактор программ на VBA, встроенный в Microsoft Excel.

В старых версиях (Excel 2003 и старше) для этого идем в меню Сервис — Макрос — Редактор Visual Basic (Toos — Macro — Visual Basic Editor).
В новых версиях (Excel 2007 и новее) для этого нужно сначала отобразить вкладку Разработчик (Developer). Выбираем Файл — Параметры — Настройка ленты (File — Options — Customize Ribbon) и включаем в правой части окна флажок Разработчик (Developer). Теперь на появившейся вкладке нам будут доступны основные инструменты для работы с макросами, в том числе и нужная нам кнопка Редактор Visual Basic (Visual Basic Editor)

:

К сожалению, интерфейс редактора VBA и файлы справки не переводятся компанией Microsoft на русский язык, поэтому с английскими командами в меню и окнах придется смириться:

Макросы (т.е. наборы команд на языке VBA) хранятся в программных модулях. В любой книге Excel мы можем создать любое количество программных модулей и разместить там наши макросы. Один модуль может содержать любое количество макросов. Доступ ко всем модулям осуществляется с помощью окна Project Explorer в левом верхнем углу редактора (если его не видно, нажмите CTRL+R). Программные модули бывают нескольких типов для разных ситуаций:

Обычные модули — используются в большинстве случаев, когда речь идет о макросах. Для создания такого модуля выберите в меню Insert — Module. В появившееся окно нового пустого модуля можно вводить команды на VBA, набирая их с клавиатуры или копируя их из другого модуля, с этого сайта или еще откуда нибудь:
Модуль Эта книга — также виден в левом верхнем углу редактора Visual Basic в окне, которое называется Project Explorer. В этот модуль обычно записываются макросы, которые должны выполнятся при наступлении каких-либо событий в книге (открытие или сохранение книги, печать файла и т.п.):
Модуль листа — доступен через Project Explorer и через контекстное меню листа, т.е. правой кнопкой мыши по ярлычку листа — команда Исходный текст (View Source). Сюда записывают макросы, которые должны выполняться при наступлении определенных событий на листе (изменение данных в ячейках, пересчет листа, копирование или удаление листа и т.д.)

Обычный макрос, введенный в стандартный модуль выглядит примерно так:

Давайте разберем приведенный выше в качестве примера макрос Zamena:

Любой макрос должен начинаться с оператора Sub, за которым идет имя макроса и список аргументов (входных значений) в скобках. Если аргументов нет, то скобки надо оставить пустыми.
Любой макрос должен заканчиваться оператором End Sub.
Все, что находится между Sub и End Sub — тело макроса, т.е. команды, которые будут выполняться при запуске макроса. В данном случае макрос выделяет ячейку заливает выделенных диапазон (Selection) желтым цветом (код = 6) и затем проходит в цикле по всем ячейкам, заменяя формулы на значения. В конце выводится окно сообщения (MsgBox).

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

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

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

Макрорекордер записывает только те действия, которые выполняются в пределах окна Microsoft Excel. Как только вы закрываете Excel или переключаетесь в другую программу — запись останавливается.
Макрорекордер может записать только те действия, для которых есть команды меню или кнопки в Excel. Программист же может написать макрос, который делает то, что Excel никогда не умел (сортировку по цвету, например или что-то подобное).
Если во время записи макроса макрорекордером вы ошиблись — ошибка будет записана. Однако смело можете давить на кнопку отмены последнего действия (Undo) — во время записи макроса макрорекордером она не просто возрвращает Вас в предыдущее состояние, но и стирает последнюю записанную команду на VBA.

Чтобы включить запись необходимо:

в Excel 2003 и старше — выбрать в меню Сервис — Макрос — Начать запись (Tools — Macro — Record New Macro)
в Excel 2007 и новее — нажать кнопку Запись макроса (Record macro) на вкладке Разработчик (Developer)

Затем необходимо настроить параметры записываемого макроса в окне Запись макроса:

Имя макроса — подойдет любое имя на русском или английском языке. Имя должно начинаться с буквы и не содержать пробелов и знаков препинания.
Сочетание клавиш — будет потом использоваться для быстрого запуска макроса. Если забудете сочетание или вообще его не введете, то макрос можно будет запустить через меню Сервис — Макрос — Макросы — Выполнить (Tools — Macro — Macros — Run) или с помощью кнопки Макросы (Macros) на вкладке Разработчик (Developer) или нажав ALT+F8.
Сохранить в… — здесь задается место, куда будет сохранен текст макроса, т.е. набор команд на VBA из которых и состоит макрос.:

Эта книга — макрос сохраняется в модуль текущей книги и, как следствие, будет выполнятся только пока эта книга открыта в Excel
Новая книга — макрос сохраняется в шаблон, на основе которого создается любая новая пустая книга в Excel, т.е. макрос будет содержаться во всех новых книгах, создаваемых на данном компьютере начиная с текущего момента
Личная книга макросов — это специальная книга Excel с именем Personal.xls, которая используется как хранилище макросов. Все макросы из Personal.xls загружаются в память при старте Excel и могут быть запущены в любой момент и в любой книге.

После включения записи и выполнения действий, которые необходимо записать, запись можно остановить командой Остановить запись (Stop Recording).

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

Управление всеми доступными макросами производится в окне, которое можно открыть с помощью кнопки Макросы (Macros) на вкладке Разработчик (Developer) или — в старых версиях Excel — через меню Сервис — Макрос — Макросы (Tools — Macro — Macros):

Любой выделенный в списке макрос можно запустить кнопкой Выполнить (Run).
Кнопка Параметры (Options) позволяет посмотреть и отредактировать сочетание клавиш для быстрого запуска макроса.
Кнопка Изменить (Edit) открывает редактор Visual Basic (см. выше) и позволяет просмотреть и отредактировать текст макроса на VBA.

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

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

Кнопка на панели инструментов в Excel 2003 и старше

Откройте меню Сервис — Настройка (Tools — Customize) и перейдите на вкладку Команды (Commands). В категории Макросы легко найти веселый желтый «колобок» — Настраиваемую кнопку (Custom button):

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

Кнопка на панели быстрого доступа в Excel 2007 и новее

Щелкните правой кнопкой мыши по панели быстрого доступа в левом верхнем углу окна Excel и выберите команду Настройка панели быстрого доступа (Customise Quick Access Toolbar):

Затем в открывшемся окне выберите категорию Макросы и при помощи кнопки Добавить (Add) перенесите выбранный макрос в правую половину окна, т.е. на панель быстрого доступа:

Кнопка на листе

Этот способ подходит для любой версии Excel. Мы добавим кнопку запуска макроса прямо на рабочий лист, как графический объект. Для этого:

В Excel 2003 и старше — откройте панель инструментов Формы через меню Вид — Панели инструментов — Формы (View — Toolbars — Forms)
В Excel 2007 и новее — откройте выпадающий список Вставить (Insert) на вкладке Разработчик (Developer)

Выберите объект Кнопка (Button):

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

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

Создание пользовательских функций или, как их иногда еще называют, UDF-функций (User Defined Functions) принципиально не отличается от создания макроса в обычном программном модуле. Разница только в том, что макрос выполняет последовательность действий с объектами книги (ячейками, формулами и значениями, листами, диаграммами и т.д.), а пользовательская функция — только с теми значениями, которые мы передадим ей как аргументы (исходные данные для расчета).

Чтобы создать пользовательскую функцию для расчета, например, налога на добавленную стоимость (НДС) откроем редактор VBA, добавим новый модуль через меню Insert — Module и введем туда текст нашей функции:

Обратите внимание, что в отличие от макросов функции имеют заголовок Function вместо Sub и непустой список аргументов (в нашем случае это Summa). После ввода кода наша функция становится доступна в обычном окне Мастера функций (Вставка — Функция) в категории Определенные пользователем (User Defined):

После выбора функции выделяем ячейки с аргументами (с суммой, для которой надо посчитать НДС) как в случае с обычной функцией:

Источник

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

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

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

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

Важно

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

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

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

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

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

К сведению

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Объект.Действие с объектом или свойство объекта

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

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

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

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

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

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

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

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

Selection.NumberFormat = «#,##0»

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

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

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

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

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

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

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

‘——————

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

Columns(«A:C»).Select

Selection.AutoFilter

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

Operator:=xlAnd

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

Range(«A1:C34»).Select

Selection.Font.Bold = True

Selection.AutoFilter

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

With ActiveSheet.PageSetup

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

.CenterHorizontally = True

.Zoom = 75

End With

End Sub

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

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

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

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

Функция InputBox

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

Zapros = InputBox(«Текст запроса», <«Текст в шапке окна»>, <Значение по умолчанию>,…)

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

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

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

Важно

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

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

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

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

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

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

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

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

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

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

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

Процедура While

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

Do While <условие, которое должно быть верным для выполнения процедуры>

<список команд>

Loop

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Row_End = Row_End +1

Loop

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

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

«текст» & переменная & «текст».

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

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

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

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

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

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

‘ ——————

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

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

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

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

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

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

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

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

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

Row_End = Row_End +1

Loop

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

Columns(«A:C»).Select

Selection.AutoFilter

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

Operator:=xlAnd

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

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

Selection.Font.Bold = True

Selection.AutoFilter

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

With ActiveSheet.PageSetup

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

.CenterHorizontally = True

.Zoom = 75

End With

End Sub

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

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

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

Функция MsgBox

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

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

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

MsgBox «Текст сообщения», <Вид кнопок>, <«Текст в шапке окна»>,…

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

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

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

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

YesNo = MsgBox(«Текст сообщения», <Вид кнопок>, <«Текст в шапке окна»>,…)

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

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

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

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

Процедура If

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

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

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

else

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

End If

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

Команда Exit Sub

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

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

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

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

If Row_End = 100 Then

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

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

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

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

End If

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

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

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

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

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

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

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

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

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

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

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

Статья опубликована в журнале «Справочник экономиста» № 4, 2016.

Источник

Содержание

Способы записи макросов в Excel
Создание макросов
Создать макрос в Excel с помощью макрорекордера
Написание макросов в Excel
Настройка разрешения для использования макросов в Excel
Вариант 1: Автоматическая запись макросов
Запуск макроса
Редактирование макроса
Создание кнопки для запуска макросов в панели инструментов
Создание графической кнопки на листе Excel
Чтобы записать макрос, следует:
Отображение вкладки “Разработчик” в ленте меню
Абсолютная и относительная запись макроса
Расширение файлов Excel, которые содержат макросы
Что нельзя сделать с помощью макрорекодера?
Редактор Visual Basic
Запускаем выполнение макроса
Корректируем макрос

Макрос записывается двумя способами: автоматически и вручную. Воспользовавшись первым вариантом, вы просто записываете определенные действия в Microsoft Excel, которые выполняете в данный момент времени. Потом можно будет воспроизвести эту запись. Такой метод очень легкий и не требует знания кода, но применение его на практике довольно ограничено. Ручная запись, наоборот, требует знаний программирования, так как код набирается вручную с клавиатуры. Однако грамотно написанный таким образом код может значительно ускорить выполнение процессов.

Создание макросов

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

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

Создать макрос в Excel с помощью макрорекордера

Для начала проясним, что собой представляет макрорекордер и при чём тут макрос.

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

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

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

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

в версии Excel от 2007 и к более новым вам нужно на вкладке «Разработчик» нажать кнопочку «Запись макроса»

в версиях Excel от 2003 и к более старым (они еще очень часто используются) вам нужно в меню «Сервис» выбрать пункт «Макрос» и нажать кнопку «Начать запись».

Следующим шагом в работе с макрорекордером станет настройка его параметров для дальнейшей записи макроса, это можно произвести в окне «Запись макроса», где:

поле «Имя макроса» — можете прописать понятное вам имя на любом языке, но должно начинаться с буквы и не содержать в себе знаком препинания и пробелы;

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

поле «Сохранить в…» — вы можете задать то место, куда будет сохранен (но не послан) текст макроса, а это 3 варианта:

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

«Новая книга» — макрос будет сохранен в тот шаблон, на основе которого в Excel создается пустая новая книга, а это значит, что макрос станет доступен во всех книгах, которые будут создаваться на этом компьютере с этого момента;

«Личная книга макросов» — является специальной книгой макросов Excel, которая называется «Personal.xls» и используется как специальное хранилище-библиотека макросов. При старте макросы из книги «Personal.xls» загружаются в память и могут быть запущены в любой книге в любой момент.

поле «Описание» — здесь вы можете описать, что и как должен делать макрос, для чего он создавался и какие функции несет, это чисто информативное поле, что называется на память.

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

Написание макросов в Excel

Код макроса Excel написанный на языке Visual Basic for Application (VBA), а его выполняет инструмент приложения, к которому он присоединен. Большинство этих инструментов не доступно на уровне окна программы Excel. Как написать макрос.

Теперь продемонстрируем на примере информацию о том, как писать, редактировать и выполнять код макроса.

Чтобы написать макрос:

Откройте рабочую книгу Excel, в которой необходимо использовать макрос: «РАЗРАБОТЧИК»-«Код»-«Visual Basic». Или нажмите комбинацию горячих клавиш ALT+F11.

Перед началом работы в редакторе следует сделать простую настройку. Выберите инструмент в редакторе Visual Basic: «Tools»-«Options». И на вкладке «Editor» активируйте опцию «Require Variable Declaration». Это позволит реализовать автоматическое заполнение инструкций Options Explicit в начале каждого ново созданного кода. А в поле ввода «Tab Width:» укажите значение 2 вместо 4-х. Это позволит уменьшить ширину кода. Данная настройка редактора распространяется на все листы, но в границах одной рабочей книги.

Выберите инструмент: «Insert»-«Module» чтобы создать новый стандартный модуль для макросов. В появившемся окне модуля под текстом Option Explicit введите следующий код макроса:

SubMyMakros() DimpolzovatelAs String Dimdata_segodnyaAs Date polzovatel = Application.UserName data_segodnya = Now MsgBox"Макрос запустил пользователь: "& polzovatel & vbNewLine & data_segodnya End Sub

Нажмите на кнопку в редакторе «Run Macro» или клавишу F5 на клавиатуре. В появившемся окне «Macros» нажмите на кнопку «Run», чтобы посмотреть результат работы макроса.

Примечание. Если в главном меню отсутствует закладка «РАЗРАБОТЧИК», тогда ее необходимо активировать в настройках: «ФАЙЛ»-«Параметры»-«Настроить ленту». В правом списке «Основные вкладки:» активируйте галочкой опцию «Разработчик» и нажмите на кнопку ОК.

Настройка разрешения для использования макросов в Excel

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

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

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

Подробнее: Включение и отключение макросов в Microsoft Excel

Когда все готово, приступаем к записи.

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

Открывается окно настройки записи макроса. Тут можно указать любое имя для него, если установленное по умолчанию вас не устраивает. Главное, чтобы имя это начиналось с буквы, а не с цифры, а также в названии не должно быть пробелов. Мы оставили название по умолчанию – «Макрос1».

Тут же при желании можно установить сочетание клавиш, при нажатии на которые макрос будет запускаться. Первой клавишей обязательно должна быть Ctrl, а вторую пользователь устанавливает самостоятельно. Мы в качестве примера установили клавишу М.

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

В самом нижнем поле можно оставить любое подходящее по контексту описание макроса, но это делать не обязательно. Когда все настройки выполнены, жмем на кнопку «OK».

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

Для примера запишем простейшее арифметическое действие: сложение содержимого трех ячеек (=C4+C5+C6).

Когда алгоритм был выполнен, щелкаем на кнопку «Остановить запись». Эта кнопка преобразовалась из кнопки «Запись макроса» после включения записи.

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

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

Кликаем в том же блоке инструментов «Код» по кнопке «Макросы» или жмем сочетание клавиш Alt + F8.

После этого открывается окно со списком записанных макросов. Ищем макрос, который мы записали, выделяем его и кликаем на кнопку «Выполнить».

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

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

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

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

Снова щелкаем на кнопку «Макросы». В открывшемся окне выбираем нужный и кликаем по кнопке «Изменить».

Открывается «Microsoft Visual Basic» (VBE) – среда, где происходит их редактирование.

Запись каждого макроса начинается с команды Sub, а заканчивается командой End Sub. Сразу же после Sub указывается имя макроса. Оператор Range("…").Select указывает выбор ячейки. Например, при команде «Range(«C4»).Select» выбирается ячейка «C4». Оператор ActiveCell.FormulaR1C1 используется для записи действий в формулах и других расчетов.

Попытаемся немного изменить макрос, дописав выражение:
Range("C3").Select ActiveCell.FormulaR1C1 = "11"

Выражение ActiveCell.FormulaR1C1 = "=R[-3]C+R[-2]C+R[-1]C" заменим на ActiveCell.FormulaR1C1 = "= R[-4]C+R[-3]C+R[-2]C+R[-1]C".

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

В случае если макрос слишком большой, его выполнение может занять значительное время, но внесением ручного изменения в код мы можем ускорить процесс. Добавляем команду Application.ScreenUpdating = False. Она позволит сохранить вычислительные мощности, а значит, ускорить работу. Это достигается путем отказа от обновления экрана во время выполнения вычислительных действий. Чтобы возобновить обновление после выполнения макроса, в его конце пишем команду Application.ScreenUpdating = True.

Добавим также команду Application.Calculation = xlCalculationManual в начало кода, а в его конец дописываем Application.Calculation = xlCalculationAutomatic. Этим мы сначала отключаем автоматический пересчет результата после каждого изменения ячеек, а в конце макроса – включаем. Таким образом, Excel подсчитает результат только один раз, а не будет его постоянно пересчитывать, чем сэкономит время.

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

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

Кнопка в панели инструментов в MS Excel 2003 и более старше. Вам нужно в меню «Сервис» в пункте «Настройки» перейти на доступную вкладку «Команды» и в окне «Категории» выбрать команду «Настраиваемая кнопка» обозначена жёлтым колобком или смайликом, кому как понятней или удобней. Вытащите эту кнопку на свою панель задач и, нажав правую кнопку мыши по кнопке, вызовите ее контекстное меню, в котором вы сможете отредактировать под свои задачи кнопку, указав для нее новую иконку, имя и назначив нужный макрос.

Кнопка в панели вашего быстрого доступа в MS Excel 2007 и более новее. Вам нужно клацнуть правой кнопкой мышки на панели быстрого доступа, которое находится в верхнем левом углу окна MS Excel и в открывшемся контекстном меню выбираете пункт «Настройка панели быстрого доступа». В диалоговом окне настройки вы выбираете категорию «Макросы» и с помощью кнопки «Добавить» вы переносите выбранный со списка макрос в другую половинку окна для дальнейшего закрепления этой команды на вашей панели быстрого доступа.

Создание графической кнопки на листе Excel

Данный способ доступен для любой из версий MS Excel и заключается он в том, что мы вынесем кнопку прямо на наш рабочий лист как графический объект. Для этого вам нужно:

В MS Excel 2003 и более старше переходите в меню «Вид», выбираете «Панель инструментов» и нажимаете кнопку «Формы».

В MS Excel 2007 и более новее вам нужно на вкладке «Разработчик» открыть выпадающее меню «Вставить» и выбрать объект «Кнопка».

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

Чтобы записать макрос, следует:

Войти во вкладку «разработчик».

Выбрать запись макроса.

Выбрать имя макроса (в имени нельзя использовать пробелы и дефисы);

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

Выбрать место сохранения:

— при сохранении в «Эта книга» макрос будет работать только в текущем документе;

— при сохранении в «Личная книга» макрос будет работать во всех документах на Вашем компьютере.

Можно добавить описание макроса, оно поможет Вам вспомнить, какие действия совершает макрос.

Нажать «Ок».

Если вы не указали сочетание клавиш, запись начнется сразу после нажатия кнопки «Ок».

Когда идет запись, Вы должны совершать требуемую последовательность действий.

Когда закончите, нажимайте кнопку остановить запись.

Записанные макросы отображаются в книге макросов.

Чтобы их посмотреть следует нажать кнопку «макросы». В появившемся окне появится список макросов. Выберете нужный макрос и нажмите «Выполнить».

Макросы, находящиеся в книге можно редактировать. Для этого нужно выбрать макрос и нажать кнопку «Изменить». При нажатии на кнопку «Изменить» откроется редактор макросов с записанным на языке VBA скриптом.

Отображение вкладки “Разработчик” в ленте меню

Перед тем как записывать макрос, нужно добавить на ленту меню Excel вкладку “Разработчик”. Для этого выполните следующие шаги:

Щелкните правой кнопкой мыши по любой из существующих вкладок на ленте и нажмите «Настроить ленту». Он откроет диалоговое окно «Параметры Excel».

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

Нажмите «ОК».

В результате на ленте меню появится вкладка “Разработчик”

Абсолютная и относительная запись макроса

Вы уже знаете про абсолютные и относительные ссылки в Excel? Если вы используете абсолютную ссылку для записи макроса, код VBA всегда будет ссылаться на те же ячейки, которые вы использовали. Например, если вы выберете ячейку A2 и введете текст “Excel”, то каждый раз – независимо от того, где вы находитесь на листе и независимо от того, какая ячейка выбрана, ваш код будет вводить текст “Excel” в ячейку A2.

Если вы используете параметр относительной ссылки для записи макроса, VBA не будет привязываться к конкретному адресу ячейки. В этом случае программа будет “двигаться” относительно активной ячейки. Например, предположим, что вы уже выбрали ячейку A1, и вы начинаете запись макроса в режиме относительной ссылки. Теперь вы выбираете ячейку A2, вводите текст Excel и нажмите клавишу Enter. Теперь, если вы запустите этот макрос, он не вернется в ячейку A2, вместо этого он будет перемещаться относительно активной ячейки. Например, если выбрана ячейка B3, она переместится на B4, запишет текст “Excel” и затем перейдет к ячейке K5.

Теперь давайте запишем макрос в режиме относительных ссылок:

Выберите ячейку A1.

Перейдите на вкладку “Разработчик”.

В группе “Код” нажмите кнопку “Относительные ссылки”. Он будет подсвечиваться, указывая, что он включен.

Нажмите кнопку “Запись макроса”.

В диалоговом окне “Запись макроса” введите имя для своего макроса. Например, имя “ОтносительныеСсылки”.

В опции “Сохранить в” выберите “Эта книга”.

Нажмите “ОК”.

Выберите ячейку A2.

Введите текст “Excel” (или другой как вам нравится).

Нажмите клавишу Enter. Курсор переместиться в ячейку A3.

Нажмите кнопку “Остановить запись” на вкладке “Разработчик”.

Макрос в режиме относительных ссылок будет сохранен.

Теперь сделайте следующее.

Выберите любую ячейку (кроме A1).

Перейдите на вкладку “Разработчик”.

В группе “Код” нажмите кнопку “Макросы”.

В диалоговом окне “Макрос” кликните на сохраненный макрос “ОтносительныеСсылки”.

Нажмите кнопку “Выполнить”.

Как вы заметите, макрос записал текст “Excel” не в ячейки A2. Это произошло, потому что вы записали макрос в режиме относительной ссылки. Таким образом, курсор перемещается относительно активной ячейки. Например, если вы сделаете это, когда выбрана ячейка B3, она войдет в текст Excel – ячейка B4 и в конечном итоге выберет ячейку B5.

Вот код, который записал макрорекодер:

Sub ОтносительныеСсылки() ' ' ОтносительныеСсылки Макрос ' ' ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = "Excel" ActiveCell.Offset(1, 0).Range("A1").Select End Sub

Обратите внимание, что в коде нет ссылок на ячейки B3 или B4. Макрос использует Activecell для ссылки на текущую ячейку и смещение относительно этой ячейки.

Не обращайте внимание на часть кода Range(«A1»). Это один из тех случаев, когда макрорекодер добавляет ненужный код, который не имеет никакой цели и может быть удален. Без него код будет работать отлично.

Расширение файлов Excel, которые содержат макросы

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

До Excel 2007 был достаточен один формат файла – .xls. Но с 2007 года .xlsx был представлен как стандартное расширение файла. Файлы, сохраненные как .xlsx, не могут содержать в себе макрос. Поэтому, если у вас есть файл с расширением .xlsx, и вы записываете / записываете макрос и сохраняете его, он будет предупреждать вас о сохранении его в формате с поддержкой макросов и покажет вам следующее диалоговое окно:

Если вы выберете “Нет”, Excel сохранить файл в формате с поддержкой макросов. Но если вы нажмете “Да”, Excel автоматически удалит весь код из вашей книги и сохранит файл как книгу в формате .xlsx. Поэтому, если в вашей книге есть макрос, вам нужно сохранить его в формате .xlsm, чтобы сохранить этот макрос.

Что нельзя сделать с помощью макрорекодера?

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

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

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

Вы не можете создавать циклы с помощью макрорекордера. Но можете записать одно действие, а цикл добавить вручную в редакторе кода.

Вы не можете анализировать условия: вы можете проверить условия в коде с помощью макрорекордера. Если вы пишете код VBA вручную, вы можете использовать операторы IF Then Else для анализа условия и запуска кода, если true (или другой код, если false).

Редактор Visual Basic

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

Запускаем выполнение макроса

Чтобы проверить работу записанного макроса, нужно сделать следующее:

В той же вкладке (“Разработчик”) и группе “Код” нажимаем кнопку “Макросы” (также можно воспользоваться горячими клавишами Alt+F8).

В отобразившемся окошке выбираем наш макрос и жмем по команде “Выполнить”.Примечание: Есть более простой вариант запустить выполнение макроса – воспользоваться сочетанием клавиш, которое мы задали при создании макроса.

Результатом проверки будет повторение ранее выполненных (записанных) действий.

Корректируем макрос

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

Нажимаем кнопку “Макросы” (или комбинацию Ctrl+F8).

В появившемся окошке выбираем наш макрос и щелкаем “Изменить”.

На экране отобразится окно редактора “Microsoft Visual Basic”, в котором мы можем внести правки. Структура каждого макроса следующая:

открывается с команды “Sub”, закрывается – “End Sub”;

после “Sub” отображается имя макроса;

далее указано описание (если оно есть) и назначенная комбинация клавиш;

команда “Range(“…”).Select” возвращает номер ячейки. К примеру, “Range(“B2″).Select” отбирает ячейку B2.

В строке “ActiveCell.FormulaR1C1” указывается значение ячейки или действие в формуле.

Давайте попробуем скорректировать макрос, а именно, добавить в него ячейку B4 со значением 3. В код макроса нужно добавить следующие строки:
Range("B4").Select ActiveCell.FormulaR1C1 = "3"

Для результирующей ячейки D2, соответственно, тоже нужно изменить начальное выражение на следующее:
ActiveCell.FormulaR1C1 = "=RC[-2]*R[1]C[-2]*R[2]C[-2]".Примечание: Обратите внимание, что адреса ячеек в данной строке (ActiveCell.FormulaR1C1) пишутся в стиле R1C1.

Когда все готово, редактор можно закрывать (просто щелкаем на крестик в правом верхнем углу окна).

Запускаем выполнение измененного макроса, после чего можем заметить, что в таблице появилась новая заполненная ячейка (B4 со значением “3”), а также, пересчитан результат с учетом измененной формулы.

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

Добавив в конце команду Application.ScreenUpdating = False мы можем ускорить работу, так как во время выполнения макроса, изменения на экране отображаться не будут.

Если потребуется снова вернуть отображение на экране, пишем команду: Application.ScreenUpdating = True.

Чтобы не нагружать программу пересчетом после каждого внесенного изменения, в самом начале пишем команду Application.Calculation = xlCalculationManual, а в конце – Application.Calculation = xlCalculationAutomatic. Теперь вычисление будет выполняться только один раз.

Источники

https://lumpics.ru/how-to-create-a-macro-in-excel/

https://MicroExcel.ru/sozdanie-makrosov/

http://topexcel.ru/kak-sozdat-makros-v-excel/

https://exceltable.com/vba-macros/kak-napisat-makros

https://office-guru.ru/excel/samouchitel-po-rabote-s-makrosami-v-excel-449.html

http://RuExcel.ru/simple-macros/

https://micro-solution.ru/excel/vba/first-macros

Источник

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

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

необязательным, рекомендуется его Office и другие статья была вам Посмотрите, что произойдет. неточности и грамматические Excel пишет программныйПрежде чем раскрыть все=MIN(N2:N21)(Макросы) >Что такое Макрос? для макроса в для быстрого вызова. пошаговый пример с в таблице. РаботаНа вкладкеНа вкладкеНазначение макроса кнопке

заполнить. Кроме того, программы, которые поддерживают полезна. Просим васДополнительные сведения о создании ошибки. Для нас код вместо Вас. возможности созданного ВамиилиRecord Macro

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

Создание макроса – практический окне «Параметры Excel»-«ПанельОбратите внимание! В диалоговом картинками и фрагментом со свойством Merge.РазработчикРазработчикВы можете назначить макрос желательно ввести понятное Visual Basic для уделить пару секунд макросов см. в важно, чтобы этаЧтобы увидеть этот программный макроса, считаю правильным=МИН(N2:N21)(Запись макроса…) пример быстрого доступа», из окне «Параметры макроса» простейшего готового кодаМакрос для объединения пустыхщелкнитенажмите кнопку

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

обратить внимание на
=MAX(O2:O21)Дайте своему макросу имяВыполнение макроса в Excel
правого списка элементов доступно поле для VBA. ячеек в строках
Макросы
Запись макроса его на панель полезно вам и

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

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

. быстрого доступа или всем, кто запускает макрос, который сначала с помощью кнопокСведения о запуске макросов уделить пару секундMacros касающихся макросов в=МАКС(O2:O21)

нажмите работает макрос? доступа» следует выделить Данное описание будет запустить макрос дляИсходный код макроса связанные с книгой.

В поле ленту. макрос. Если у обновляет таблицу в внизу страницы. Для

см. в статье и сообщить, помогла(Макросы) на вкладке целом:=MEDIAN(B2:K21)ОК

Добавим ещё один шаг макрос и нажать доступно внизу при понимания, но сложный для объединения всех При этом откроетсяИмя макросаНазначение макроса для элемента вас много макросов, Excel, а затем удобства также приводим Запуск макроса. ли она вам,

ViewМакрос может нанести вред.или. к нашей задаче… на кнопку «Изменить». выборе макроса из для реализации: пустых ячеек во диалоговое окновведите название макроса. управления на листе описания помогут быстро открывает Outlook для ссылку на оригиналДействия перед записью макроса с помощью кнопок(Вид) кликнутьЕщё раз прочти предыдущий

=МЕДИАНА(B2:K21)Начиная с этого момента,Excel располагает мощнейшей, но Будет предложена небольшая списка. Рекомендуем всегдаВыберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы».

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

View Macros пункт.— считаем, используя
 ВСЕ Ваши действия в то же галерея иконок для
 подписывать свои макросы.В появившемся окне «Макрос» Excel по горизонтали.
. чтобы можно было формам и элементам
 они нужны. электронной почте.Для автоматизации повторяющихся задач,

Убедитесь в том, что удобства также приводим(Макросы) и вVBA-код обладает очень большими исходные данные таблицы, с документом записываются:

время очень редко нового оформления внешнего Такой пользовательский тон из списка всех

Как автоматически объединитьПримечание: быстро найти нужный ActiveX на листе.Чтобы начать запись макроса,

Чтобы записать макрос, следуйте

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

доступных макросов дляМакрос для объединения всех чем впервые запускатьПримечание: в файлах OfficeОКНа вкладке записи макросов вРазработчикДля автоматизации часто выполняемыхEdit операции с файламиТеперь, когда с вычислениями размера окна. действий с помощью инструментов. оценен, когда список данной рабочей книги пустых ячеек в записанный макрос, сохраните Первым символом имени макросаУзнайте, как включать и

.Разработчик Microsoft Excel. Представьте

. По умолчанию вкладка
в Microsoft Excel
(Изменить).

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

Excel сигнализирует о том, макросов. Макрос –

Главным недостатком размещения кнопки пополниться десятками макросов.

Excel выберите любой таблице Excel. книгу или создайте должна быть буква.

отключать макросы вВыполните действия, которые нужнов группе имеют даты вРазработчик задач можно записатьОткроется окно документа. Например, макрос Для начала для что включен режим идеальный выход, если с макросом наПолезный совет! Старайтесь не понравившийся вам иПример как автоматически ее копию, чтобы Последующие символы могут

файлах Office. записать.Код форматах случайных ине видна, поэтому макрос. Макрос представляетVisual Basic for Applications может удалять или всех ячеек зададим записи макроса в Вы имеете дело панели инструментов является

использовать популярные комбинации нажмите на кнопку убрать пустые ячейки предотвратить внесение нежелательных быть буквами, цифрамиОткрытие редактора Visual BasicНа вкладкенажмите кнопку вы хотите применить необходимо выполнить указанные собой действие (или

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

Запись макроса ко всем адресам

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

ниже действия. набор действий), которое увидим программный код в папке данных. Выделите все в меню которая повторяется множество

будет всегда доступна
работы с Excel:Программа макроса выполнить свои

объединения с использованием не устраивают результаты В имени макросаALT+F11в группе. единый формат. МакросВыберите можно выполнять любое записанного нами макроса.Мои документы ячейки на листе,Macros раз. Например, обработка для других файлов,

CTRL+S; CTRL+A; CTRL+T; функции. макроса. Автоматизированное форматирование выполнения макроса, вы не должно содержаться.Код-ИЛИ- сделать это заExcel количество раз. При Да, Вы правильно. По этой причине для этого воспользуйтесь(Макросы) – вместо данных или форматирование даже когда файл CTRL+C; CTRL+V; CTRL+SHIFT+LТеперь мы можем двигаться больших таблиц.  можете закрыть книгу,

пробелов; в качествеПоиск справки по использованиюнажмите кнопкуНажмите вас. Запись макроса,> создании макроса записываются

поняли, здесь этот запускайте и разрешайте комбинацией клавиш строки документов по стандартизированному с этим макросом

и т.п. Ведь от простого кКак разъединить объединенные ячейки не сохраняя ее. разделителей слов следует редактора Visual BasicОстановить записьALT применив нужный формат

Параметры щелчки мышью и код можно изменить выполнение макросов толькоCtrl+ARecord Macro шаблону. При этом будет закрыт. И тогда их предназначение

еще простейшему) Ведь в Excel используяНиже приведены дополнительные сведения использовать знаки подчеркивания.Узнайте, как найти справку.+ и затем воспроизводить> нажатия клавиш. После и даже создать из источников, которым, либо щелкните по(Запись макроса…) появилась Вам не требуется если в такие будет изменено. В

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

запускать макросы таким макрос. о работе с Если используется имя по элементам Visual-ИЛИ-T макроса при необходимости.Лента и панель создания макроса его новый макрос. Те Вы доверяете. иконке строка

знание языков программирования. случаи нажать на окне «Параметры макроса» способом весьма неудобно.Как автоматически отменить макросами в Excel. макроса, являющееся ссылкой Basic.Нажмите+Windows MacOS . можно отредактировать, чтобы

действия, которые мыЧтобы запустить наш макрос,Выделить всеStop RecordingВам уже любопытно, что кнопку запуска макроса, так же присутствует Далее рассмотрим более объединение для всехЗадача на ячейку, можетС помощью редактора VisualALTMПри записи макроса всеВ категории изменить выполняемые им совершали с таблицей форматирующий данные, откройте, которая находится на(Остановить запись).

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

такое макрос, и тогда откроется файл возможность использовать в простые варианты. выделенных ячеек поОписание появиться сообщение об Basic (VBE) вы++ необходимые действия записываютсяНастроить ленту действия. в этом уроке, файл шаблона, который пересечении заголовков строкВо-вторых, в нижнем левом

как он работает? где он находиться комбинациях клавиш клавишуПолезный совет! Если вы строкам и столбцам
Включение и отключение макросов ошибке, указывающее на можете добавлять вT
R в виде кодав спискеДопустим, что необходимо каждый вполне можно записать мы создали в и столбцов. Затем углу окна Excel.
Тогда смелей вперёд и только потом
SHIFT. Как только хотите отредактировать макрос
сохранив и заполнивУзнайте, как включать и недопустимое имя макроса..

записанный код собственные+. Visual Basic дляОсновные вкладки месяц создавать отчет

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

В списке переменные, управляющие структуры
M
В поле

приложений (VBA). Такими

office-guru.ru

Краткое руководство: создание макроса

установите флажок для главного бухгалтера. записи макроса в урока. Если уComma StyleСтоп шаг за шагомЕсли вы хотите запускать клавиатуры для поля в списке выше в них? Excel для Mac.Сохранить в и другие элементы,+Имя макроса действиями может бытьРазработчик Требуется выделить красным Excel. Но более Вас стандартные настройки

(Формат с разделителями)(маленький квадратик) указывает проделаем весь процесс макрос только из ввода «Сочетание клавиш: описанного инструмента иКак объединить столбцы вСоздание, выполнение, изменение иливыберите книгу, в которые не поддерживаетRвведите название макроса. ввод текста или, а затем нажмите цветом и полужирным

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

Процедура

 Сделайте имя понятным, чисел, выбор ячеек

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

 «Войти», а неАвтоматическое горизонтальное объединение

Чтобы сэкономить время на сохранить макрос. Так как средствоНа вкладке чтобы можно было или команд наСохранить
с просроченными счетами. и логикой действий над таблицей появится(Главная). макроса. Нажатие наМакрос в Microsoft Office свой исходный код? для комбинации, естественно используйте кнопку «Изменить». всех выделенных ячеек выполнении часто повторяющихся
Как правило, макросы сохраняются записи макросов фиксируетРазработчик быстро найти нужный
ленте или в. Для этого можно требуют программирования вручную. предупреждение о том,

Далее, изменим внешний вид неё остановит запись.

(да, этот функционал В такие случаи с использованием клавиши

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

заголовков столбцов и И наоборот, когда работает одинаково во прекрасным решением будет SHIFT на клавиатуре,

войти вы всегда с помощью VBA соответствующую последовательность действийтой же книге

Дальнейшие действия

выполняемый во времяМакросыПримечание: строк или столбцов
макрос, который быстро файл с данными

Процедура

 отключен, и кнопка, строк:

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

, чтобы просмотреть макросы, Первым символом имени макроса и даже импортНа вкладке применяет такое форматированиеdata.csv чтобы включить их
Жирное начертание шрифта. включен, в этом Microsoft Office) – листе Excel и ввода поменяется на исходному коду выбранного объединить ячейки в Узнайте, как создавать нужно, чтобы данный потребоваться удалить ненужный

 связанные с книгой. должна быть буква.

данных из внешнегоРазработчик к выделенным ячейкам.создаётся автоматически каким-то выполнение. Так как
Выравнивание по центру. месте находится иконка это программный код назначить ей запуск «Сочетание клавиш: CTRL+ макроса. Автоматически откроется нескольких выделенных диапазонах? и выполнять макросы. макрос был всегда код. Просмотр записанного Кроме того, можно
Последующие символы могут источника, такого какнажмите кнопкуWindows macOS 
процессом и сохраняется шаблон мы сделалиЗаливка цветом. для включения записи на языке программирования конкретного макроса. Для SHIFT+».

 редактор Visual BasicКак объединить ячейки в

Копирование модуля макроса в доступен при работе кода — отличный

нажать клавиши быть буквами, цифрами Microsoft Access. VisualЗапись макросаДействия перед записью макроса на диске всегда самостоятельно и себеИ, наконец, настроим формат макроса. Нажатие наVisual Basic for Applications

этого:В результате будет немного именно в том Excel с помощью другую книгу

в Excel, выберите способ научиться программироватьALT+F8 или знаками подчеркивания.

Дальнейшие действия

Basic для приложений. в одном и мы доверяем, то итоговых значений.

support.office.com

Автоматизация задач с помощью средства записи макросов — Excel

 неё даст тот(VBA), сохранённый внутриВыберите инструмент: «РАЗРАБОТЧИК»-«Элементы управления»-«Вставить»-«Кнопка длиннее комбинация, которая месте где написан кода макроса VBA.Если книга содержит макрос вариант Личная книга на VBA или. При этом откроется В имени макроса (VBA) является частьюЕсли необходимо, заполните поляМакросы и средства VBA том же месте. нажимаем кнопкуВот так это должно же результат, что документа. Чтобы было (элемент управления формы». позволит расширить варианты,

код данного макроса.Как можно быстро VBA, который нужно макросов. Если вы отточить свои навыки. диалоговое окно не должно содержаться языка программирования VisualИмя макроса находятся на вкладке Например,Enable Content выглядеть в итоге: и включение записи понятнее, документ Microsoft

Выделите курсором мышки место

чтобы обойти часто Кнопка «Изменить» к объединять ячейки для использовать где-либо еще, выберете этот параметр,Пример изменения записанного кодаМакрос пробелов; в качестве Basic. Он доступен,РазработчикC:Datadata.csv(Включить содержимое).Если Вас все устраивает, через меню. Office можно сравнить где и как используемые горячие клавиши. сожалению, не для таблиц со сложной этот модуль можно Excel создаст скрытую можно найти в. разделителей слов следует в большинстве приложенийСочетание клавиш, которая по умолчанию– путь кСледующим шагом, мы импортируем остановите запись макроса.

Теперь, когда режим записи со страницей HTML, будет вставлена кнопкаExcel позволяет пользователям запускать всех макросов работает структурой используя простые скопировать в другую личную книгу макросов статье Начало работыВнимание: использовать знаки подчеркивания. Office. Хотя VBAи скрыта, поэтому сначала файлу с обновляемыми последний обновлённый наборПоздравляем! Вы только что макроса включен, давайте тогда макрос –

для запуска макроса. макросы с помощью одинаково. макросы? Пример готового книгу с помощью Personal.xlsb (если она с VBA в Макросы нельзя отменить. Прежде Если используется имя

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

позволяет автоматизировать процессыОписание

нужно включить ее. данными. Процесс открытия данных из файла самостоятельно записали свой займёмся нашей задачей. это аналог Javascript.В появившемся окне «Назначить панели быстрого доступаВнимание! Макросы, созданные в
VBA кода макроса редактора Microsoft Visual еще не существует) Excel. чем впервые запускать
макроса, являющееся ссылкой в приложениях Office, а затем нажмите Дополнительные сведения см. этого файла иCSV первый макрос в Первым делом, добавим То, что Javascript макрос объекту» из к инструментам. Данная надстройках Excel, могут для объединения ячеек. Basic. и сохранит макросПеред записью макросов полезно

записанный макрос, сохраните на ячейку, может

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

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

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

 данными в формате выберите желаемый и находиться в самом не доступны в Excel разными способами. или графическому элементу из этой папкиМакрос, записанный для работы ее копию, чтобы ошибке, указывающее на уметь программировать или, чтобы начать записьЗапись макроса записать в макрос: наш макрос). нам нужно сохранитьДалее, введите в ячейки
HTML, находящимися на нажмите на кнопку верху окна программы. списке диалогового окнаКак выполнить макросНа листе щелкните правой автоматически открываются при с диапазоном Excel, предотвратить внесение нежелательных недопустимое имя макроса.. знать язык VBA, макроса. Откройте файл шаблона, вПри выполнении импорта данных документ Excel в формулы в соответствии web-странице, очень похоже ОК.Чтобы запустить макрос с «Макрос» в целях с помощью кнопки, кнопкой мыши объект, каждом запуске Excel, будет выполняться только
изменений. Если васЧтобы назначить сочетание клавиш так как всеВыполните действия, которые нужноВ группе

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

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

можете закрыть книгу,

Сочетание клавишВажно знать, что при заполнение столбца данных.Разработчик. для правильной передачи данные из созданной русифицированной версии Excel, документе Microsoft Office.

Работа с макросами, записанными в Excel

созданной кнопке иЩелкните на самую последнюю скрыты от сторонних РАЗРАБОТЧИК? макрос и выберите «Макрос» (см. следующий диапазон новую строку, не сохраняя ее.введите любую строчную записи макроса регистрируютсяНа вкладкенажмите кнопкуСоздайте новый макрос с

 данных в таблицу. нами таблицы, т.е. адреса ячеек –Макросы способны выполнить практически в появившемся контекстном кнопку на панели пользователей. Но еслиЛичная книга макросов в команду раздел). макрос не будетНиже приведены дополнительные сведения

или прописную букву. почти все вашиРазработчик

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

именем


Когда импорт будет закончен, сделать из неё	всегда латинские буквы любые действия в меню выберите опцию
быстрого доступа (стрелка	ввести правильно соответственное Excel и какНазначить макросЧтобы назначить сочетание клавиш применяться к ней. о работе с Рекомендуется использовать сочетания
действия. Поэтому если	в группе.LoadData зайдите в меню
пустой шаблон. Дело и цифры):	документе, которые Вы «Изменить текст». Удалите вниз), чтобы получить значение в поле ее использовать.. для запуска макроса,Если вам нужно записать
макросами в Excel. клавиш с	вы допустите ошибку,КодЕсли необходимо, заполните поля.Macros в том, что=SUM(B2:K2) только можете пожелать. старый и введите доступ к меню «Имя макроса:» тоРабота с личнойВ поле
в поле	длинную последовательность задач,ЗадачаCTRL например нажмете ненажмите кнопку
Имя макросаВ процессе записи макроса	(Макросы) на вкладке в дальнейшем, работаяили
Вот некоторые из новый текст «Мой	«Настроить панель», в все кнопки в книгой макросов и
Назначить макроса	Сочетание клавиш советуем вместо этогоОписание
+ ту кнопку, средство	Остановить запись,LoadData

Работа с записанным кодом в редакторе Visual Basic (VBE)

View с этим шаблоном,=СУММ(B2:K2) них (очень малая макрос». котором необходимо выбрать диалоговом окне будут краткий обзор еевыберите макрос, которыйвведите любую строчную использовать несколько болееИзменение параметров безопасности макросовSHIFT записи макросов зарегистрирует.Сочетание клавишсделайте импорт данных(Вид) и выберите мы будем импортировать

=AVERAGE(B2:K2) часть):После создания кнопки можно опцию «Другие команды». активными. А значит

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

преимуществ. Где находиться вы хотите назначить.

или прописную букву. мелких макросов. в Excel, так как они это действие. ВБолее подробное изучение макросаи из файла команду
в него самыеилиПрименять стили и форматирование. ее настроить, изменив В результате чего
готовы к работе личная книга макросовНазначение макроса кнопке Рекомендуется использовать сочетанияВ макросе могут содержатьсяСведения о параметрах безопасности будут заменять собой таком случае можно Описаниеdata.csvView Macros свежие и актуальные=СРЗНАЧ(B2:K2)Выполнять различные операции с ее размеры и

откроется окно «Параметры с данным макросом и как записыватьВы можете назначить макрос клавиш, которые еще и задачи, не

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

значении. стандартные сочетания клавиш

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

 его на панель командам, так как Процесс макроса можетЗапуск макроса в Excel, пока код VBA. Поэтому программирования Visual Basic.OK предыдущей части урока. мы увидим строку от данных, щёлкните=МИН(B2:K2)Использовать внешние источники данных щелкните правой кнопкой доступ и другим надстройки или доверительнымКак создать и добавить
быстрого доступа или они будут переопределять охватывать прочие приложенияМакросы можно запускать различными открыта книга, содержащая

перед записью процессаЧтобы изменить макрос, на, чтобы начать записьКогда импорт будет завершён, с именем нашего правой кнопкой мыши=MAX(B2:K2) (файлы баз данных, мышки по кнопке, путем: «ФАЙЛ»-«Параметры»-«Панель быстрого лицом. надстройку в Excel ленту. совпадающие с ними Office и другие способами, например с макрос. Например, если следует хорошо проработать вкладке макроса. остановите запись макроса. макроса по иконкеили текстовые документы и
а потом нажмите доступа». Или щелкнув с кодом VBA.Назначение макроса для элемента стандартные сочетания клавиш программы, которые поддерживают помощью сочетания клавиш, назначить сочетание клавиш его. Чем точнееразработчикВыполните действия, которые нужноУдалите все данные изFormatDataВыделить все=МАКС(B2:K2)
т.д.) клавишу Esc на правой кнопкой мышкиДля каждого макроса вПрактическое пошаговое руководство

управления на листе в Excel, пока Visual Basic для графического объекта, панелиCTRL+Z вы запишете последовательность,нажмите кнопку Макросы автоматизировать, например ввод ячеек.. Выберите его и, которая находится на=MEDIAN(B2:K2)Создавать новый документ. клавиатуре, чтобы скрыть по любой панели
Excel можно присвоить по созданию надстроекВы можете назначать макросы открыта книга, содержащая
приложений (VBA). Например, быстрого доступа, кнопки
(Отменить), вы не тем более эффективно , выберите имя стандартного текста илиСохраните файл, как шаблон

Работа с макросами, записанными в Excel

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

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

закладке и выбрать клавиш. Благодаря этому программ макросов. Управление,

ActiveX на листе.

В поле


макрос, который сначала	открытии книги. для функции «Отменить»Макросы и средства VBA
кнопкуНа вкладке	макросов (расширение XLTM).(Выполнить). из контекстного менюТеперь выделите ячейки с комбинации. с помощью которых опцию «Настройка панели
вы можете вызывать редактирование и удаление	Открытие редактора Visual BasicОписание обновляет таблицу вИзменение макроса в данном экземпляре находятся на вкладкеизменитьРазработчик
Таким образом, запустив этотКогда макрос начнёт работать,	выберите пункт формулами и скопируйтеДля примера возьмём самый можно изменять ее быстрого доступа». свою макропрограмму при надстроек из программы.На вкладкепри необходимости введите Excel, а затемС помощью редактора Visual Excel.Разработчик
. Откроется редактор Visual	щелкните шаблон, Вы получаете Вы увидите, какDelete их во все
обычный файл размеры. Наведите курсор	В левом выпадающем списке нажатии определенной комбинацииКак написать макрос в
Разработчик	краткое описание действий открывает Outlook для Basic можно изменятьВ списке, которая по умолчанию Basic.Остановить запись доступ к двум табличный курсор прыгает(Удалить). строки нашей таблицы,
CSV мышки на любой	«Выбрать команду из:» клавиш на клавиатуре. Excel на языке

support.office.com

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

щелкните макроса. ее отправки по макросы, присоединенные кСохранить в скрыта, поэтому сначала

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

Обратите внимание на то,. макросам – один
с ячейки наТеперь наш лист полностью потянув за маркер. Это простая таблица маркер на гранях выберите опцию «Макросы». Что может быть программирования VBA.Visual Basic
Хотя это необязательная в электронной почте. книге.выберите книгу, в нужно включить ее. как в немБолее подробное изучение макроса загружает данные, другой ячейку. Через несколько очищен от всех
автозаполнения. 10х20, заполненная числами или углах кнопкиВ левом списке элементов ее проще?Как создать макросили выберите поле Описание, рекомендуетсяМакросы и средства VBA
Копирование модуля макроса в которой вы хотите Дополнительные сведения см. выглядят записанные действия. их форматирует. секунд с данными данных, при этомПосле выполнения этого действия
от 0 до и удерживая левую ниже выберите необходимыйЧтобы присвоить свою комбинацию с помощью редактораСервис введите один. Полезно находятся на вкладке другую книгу сохранить макрос.
в статье Отображение Возможно, часть кодаПри редактировании макроса можноЕсли есть желание заняться будут проделаны те макрос остался записан. в каждой строке 100 с заголовками клавишу мышки перетягивайте,
макрос и нажмите клавиш для определенного кода языка программирования> введите понятное описаниеРазработчикЕсли книга содержит макросКак правило, макросы сохраняются вкладки «Разработчик».
будет понятной. немного изучить язык программированием, Вы можете же операции, что Нам нужно сохранить должны появиться соответствующие для столбцов и изменяя таким образом на кнопку «Добавить». макроса следует сделать Visual Basic for
Макрос сведениями, которые могут, которая по умолчанию VBA, который нужно в расположенииПеред записью макросов полезноИзмените код, закройте редактор программирования Visual Basic. объединить действия этих
и при записи книгу, как шаблон итоговые значения. строк. Наша задача ее размеры. Теперь В результате чего так: Application? Краткий обзор

exceltable.com

Как запустить макрос в Excel разными способами

> быть полезны для скрыта, поэтому сначала использовать где-либо еще,Эта книга знать следующее: Visual Basic иЧтобы изменить макрос, в двух макросов в макроса. Когда всё Excel с поддержкойДалее, мы подведем итоги превратить этот набор нажмите на кнопку в правом списке

Снова выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы». основных возможностей макросов.Редактор Visual Basic вас или других нужно включить ее. этот модуль можно

Как выполнить макрос VBA в Excel

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

один – просто
будет готово, таблица макросов, который имеет для всей таблицы, данных в презентабельно левой кнопкой мышки элементов появиться кнопкаВ появившемся диалоговом окне 1 2 3.

пользователей, которые будутВыберите

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

расширение для этого делаем отформатированную таблицу и и удерживая ее для нового инструмента «Макрос» выберите желаемую 4Поиск справки по использованию выполняться макрос. ПриExcel книгу с помощью был всегда доступен будет выполняться толькоУзнайте о том, какна вкладкеLoadData же, как иXLTM ещё несколько математических сформировать итоги в перемещайте кнопку по

быстрого запуска вашего макропрограмму из спискаЕсли уже имеете код редактора Visual Basic создании много макросы,> редактора Microsoft Visual при работе в для ячеек этого создавать и запускатьРазработчикв начало кода оригинал, который мы. действий: каждой строке. листу документа Excel макроса. Справа от и нажмите на макроса записанный вУзнайте, как найти справку описание помогут вамПараметры

Basic.

Запуск макроса с помощью горячих клавиш

Excel, выберите пункт диапазона. Поэтому если макросы. Дополнительные сведениянажмите кнопкуFormatData форматировали вручную, толькоВажный момент!Соответственно:Как уже было сказано, в любое другое

правого списка элементов кнопку «Параметры». рабочей книге или по элементам Visual

быстро определять, какие
>Назначение макроса объекту, фигуре Личная книга макросов. вы добавите в см. в статье
Макросы. с другими даннымиЕсли Вы сохраните=SUM(L2:L21) макрос – это место. Чтобы затвердить можно использовать стрелки

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

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

.На листе щелкните правой вариант, Excel создаст макрос не будет и удаление макроса. и нажмите кнопку командой сайта office-guru.ruКак уже не разXLTX=СУММ(L2:L21) языке программирования VBA. сделайте щелчок левой и порядка расположения поле ввода «Сочетание несколькими способами. Если коды VBA-макросов с может потребоваться угадать.В категории кнопкой мыши объект, скрытую личную книгу применяться к ней.Примечание:ИзменитьИсточник: http://www.howtogeek.com/162975/geek-school-learn-how-to-use-excel-macros-to-automate-tedious-tasks/ упоминалось, макрос —, то макрос в

SHIFT.

=AVERAGE(B2:K21) Но в Excel кнопкой мышки в кнопок инструментов на клавиш: CTRL+» введите

Как запустить макрос на панели быстрого доступа

еще нет кода широкими возможностями дляЧтобы начать запись макроса,Настроить ленту рисунка, фигуры или макросов Personal.xlsb (еслиЕсли вам нужно записать

Мы стараемся как можно. Запустится редактор VisualПеревел: Антон Андронов это программный код

нём работать неили Вы можете создать любую область листа панели быстрого доступа. маленькую или большую макроса или вы автоматической обработки, редактирования нажмите кнопкув списке элемент, к которому она еще не длинную последовательность задач, оперативнее обеспечивать вас Basic.Автор: Антон Андронов на языке программирования будет. Кстати, можно=СРЗНАЧ(B2:K21) программу, не написав (например, по любой
И нажмите ОК. латинскую букву. И еще не знаете,
и форматирования большихОКОсновные вкладки нужно назначить существующий существует) и сохранит советуем вместо этого актуальными справочными материаламиОбратите внимание на то,Примечание:Visual Basic for Applications сохранить книгу как— для расчёта и строчки кода, ячейке) вне областиТеперь на панели быстрого нажмите на кнопку как его написать,

таблиц..установите флажок макрос и выберите макрос в ней. использовать несколько более

на вашем языке. как в нем Мы стараемся как можно(VBA). Когда Вы шаблон Excel 97-2003, этого значения необходимо что мы и кнопки. доступа появилась еще ОК. тогда сначала прочитайтеМакрос для объединения одинаковыхВыполните действия, которые нужноРазработчик командуВ поле

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

Запуск макроса с помощью кнопки на рабочем листе Excel

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

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

краткое описание действий относящиеся к Excel. неточности и грамматическиеИзмените код, закройте редактор Эта страница переведена Вами действие в макросы. из средних по(Вид) > же выполниться назначенный же запуститься макрос. Как видно теперь VBA. для одновременного поискащелкните.Назначить макроса макроса. Процесс макроса может ошибки. Для нас Visual Basic и автоматически, поэтому ее виде инструкций наКогда шаблон сохранён, можно отдельным строкам, тоMacros ей код VBA.Полезный совет! Чтобы изменить вашему макросу присвоенаВ данной статье для и объединения ячеекОстановить записьЧтобы записать макрос, следуйтевыберите макрос, которыйХотя поле «Описание» является охватывать прочие приложения

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

exceltable.com

результат будет другим.

Источник