Программирование vba excel на примерах

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

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

Я подготовил для вас несколько самых полезных примеров VBA Excel с большой функциональностью, которую вы сможете использовать для оптимизации своей работы. Чтобы их использовать, вам необходимо записать их в файл. Следующий параграф посвящен установке макроса 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. Создание сводной таблицы

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

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

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

 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

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

Sub ProtectSheets()
    
        Dim ws As Worksheet
    
        For Each ws In ActiveWorkbook.Worksheets
    
        ws.Protect Password:="1234"
        Next ws
End Sub

Содержание рубрики VBA Excel на сайте «Время не ждёт». Систематизация статей по тематическим группам для ускорения поиска нужной информации по заданной теме.

Знакомство с VBA Excel

Начинаем программировать с нуля

Памятка для начинающих

Первая кнопка (для начинающих)

Первая форма (для начинающих)

Первая функция (для начинающих)

Правильные имена переменных и процедур

Свойства ячейки (объекта Range)

Свойство ActiveCell объекта Application

Свойство Selection объекта Application

Методы VBA Excel

Метод Application.Goto

Метод Application.InputBox (синтаксис, параметры)

Метод Application.Intersect (пересечение диапазонов)

Метод Application.OnKey

Метод Application.OnTime

Метод Application.Union (объединение диапазонов)

Метод Controls.Add пользовательской формы

Метод CreateTextFile (синтаксис, параметры)

Метод Find объекта Range

Метод FindNext объекта Range

Метод Hyperlinks.Add (создание гиперссылки)

Метод OpenTextFile (синтаксис, параметры)

Метод Range.AutoFill (автозаполнение ячеек)

Метод Range.Insert (вставка со сдвигом ячеек)

Метод Range.Justify (переупорядочивание текста)

Метод Range.PasteSpecial (специальная вставка)

Метод Range.Replace (замена текста в ячейках)

Метод Range.Show

Метод WorksheetFunction.Match (поиск позиции)

Метод WorksheetFunction.Sum – сумма аргументов

Метод WorksheetFunction.SumIf

Метод WorksheetFunction.SumIfs

Метод WorksheetFunction.Transpose

Метод WorksheetFunction.VLookup

Методы Count, CountA и CountBlank

Методы CountIf и CountIfs

Методы очистки ячеек (Range.Clear и другие)

Открытие сайта методом FollowHyperlink

Удаление ячеек со сдвигом (Range.Delete)

Объект Range в VBA Excel

Автоподбор высоты объединенной ячейки

Автоподбор ширины объединенной ячейки

Вставка пустой строки или столбца

Вставка формулы в ячейку

Выделенный диапазон ячеек (адрес, выбор, строки)

Выравнивание текста в ячейке

Вырезание, копирование и вставка ячеек (диапазонов)

Диапазон ячеек и массив (обмен значениями)

Диапазон ячеек пуст (определение)

Объединение ячеек и его отмена

Переменная диапазона ячеек (As Range)

Программное создание границ ячеек

Размер ячейки (высота строки, ширина столбца)

Свойства Column и Columns объекта Range

Свойства Row и Rows объекта Range

Свойство Areas объекта Range

Свойство Cells объекта Range

Свойство End объекта Range

Свойство Range.Characters

Свойство Range.CurrentRegion

Свойство Range.Hidden

Свойство Range.Offset

Свойство Range.Resize (синтаксис, примеры)

Свойство Range.Text

Свойство Range.WrapText (перенос текста)

Цвет текста (шрифта) в ячейке

Цвет ячейки (заливка, фон)

Узор (рисунок) в ячейке

Форматирование текста в ячейке (объект Font)

Ячейки (обращение, запись, чтение, очистка)

Объекты VBA Excel

Объект Collection (создание, методы, примеры)

Объект Dictionary (свойства, методы, примеры)

Объект DocumentProperties — свойства документа

Объект FileSystemObject

Объект PageSetup (параметры страницы)

Объект TextStream (свойства и методы)

Рабочая книга (открыть, создать новую, закрыть)

Рабочий лист (обращение, переименование, скрытие)

Рабочий лист (создание, копирование, удаление)

Регулярные выражения (объекты, свойства, методы)

Операторы в VBA Excel

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

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

Оператор Beep (одиночный звуковой сигнал)

Оператор If…Then…Else и функция IIf

Оператор On Error (обработка ошибок)

Оператор Open (синтаксис, параметры)

Оператор Select Case (синтаксис, примеры)

Оператор SendKeys (имитация нажатия клавиш)

Оператор With

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

Операторы чтения и записи в файл

Переменные в VBA Excel

Глобальная переменная

Ключевое слово Me

Количество измерений массива

Массивы (одномерные, многомерные, динамические)

Пользовательские типы данных (оператор Type)

Тип данных Decimal

Типы данных

Примеры кода VBA Excel

Автоматическая запись текущей даты и времени

Автоматическое заполнение интервала дат (периода)

Бегущая, ползущая и танцующая строки

Буфер обмена (копирование, вставка, очистка)

Вставка рисунка в ячейку

Выбор случайной ячейки из диапазона

Генератор случайных чисел (Rnd и Randomize)

Генерация документов (реестр, массив, бланк)

Генерация документов и отчетов

Добавление кнопки в контекстное меню

Запуск макроса при изменении ячейки

Изменение свойств пользовательской формы

Имитация движения и кликов мыши

Квадратные ячейки (тетрадные клетки)

Копирование данных с одного листа на другой

Копирование и перемещение файлов

Копирование строк по условию

Номер последней заполненной строки

Определение координат элемента массива

Отбор неповторяющихся значений

Отбор уникальных значений с помощью Collection

Отбор уникальных значений с помощью Dictionary

Открыта или закрыта книга (проверка состояния)

Открытие файла другой программы из кода VBA Excel

Ошибки в таблице – поиск и исправление

Парсинг сайтов, html-страниц и файлов

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

Перемещение листа и его отмена

Переход к ячейке по адресу из формулы

Переход по ссылке к ячейке в другой книге

Поиск значения в таблице

Поиск и выделение дубликатов в столбце

Пользовательская автоформа (создание)

Проверка существования листа

Программное создание графика (диаграммы)

Программное создание модуля

Программное создание формы

Работа с умной таблицей

Расчет рабочего времени

Сбор данных из открытых книг

Секундомер в ячейке рабочего листа

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

Создание простого тестового задания

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

Создание файлов

Создание, копирование, перемещение папок

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

Сортировка таблицы (диапазона)

Сохранение книг и листов в PDF

Сохранение массива в текстовый файл

Список папок

Список файлов в папке

Сравнение прайс-листов

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

Удаление книги из собственного кода

Удаление повторяющихся значений в диапазоне ячеек

Удаление пустых строк

Удаление файлов

Учет расхода воды и других ресурсов

Число Пи (значение)

Экспорт и импорт пользовательской формы

Прочее в VBA Excel

Включение режима конструктора

Время работы макроса

Знаки подстановки для шаблонов

Кавычки в коде — двойные и ёлочки

Колонтитулы

Конвертация цвета из Long в RGB

Копирование, перемещение и поворот фигур

Объявление функций в 64-разрядных версиях

Округление чисел (особенности)

Открыть папку (каталог) в проводнике

Параметры и аргументы

Преобразование текста в число

Работа с трехмерными диапазонами

Работа с фигурами (Shapes)

Свойства файла — вывод информации о файле

Свойство Application.WindowState

Смена кодировки UTF-8 на ANSI (Windows-1251)

Смена раскладки клавиатуры

Сохранение файла рабочей книги

Сочетание клавиш для процедуры (макроса)

Стандартная палитра из 56 цветов

Стандартный диалог выбора файлов Application.GetOpenFilename

Работа с Word из кода VBA Excel

Bookmarks – закладки в документе Word

Вставка таблицы Excel в документ Word

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

Создание и открытие документов Word

Создание таблиц в документе Word

Управление приложением Word

Редактор VBA Excel

Debug — отладка программы

Вызов процедуры Sub из другой подпрограммы VBA

Защита паролем и снятие защиты проекта VBA

Личная книга макросов (создание, предназначение)

Макросы (запись, запуск, пример)

Модуль (импорт, экспорт, удаление)

Модуль, процедура, форма

Окно Immediate (отладка кода, вычисления)

Перенос кода процедуры и текста на новую строку

События VBA Excel

Событие Worksheet.SelectionChange

Функции в VBA Excel

Изменение значений других ячеек из функции

Пользовательская функция (синтаксис, компоненты)

Проверка переменных и выражений

Работа с текстом (функции)

Удаление лишних пробелов (LTrim, RTrim, Trim)

Функции Left, Mid, Right (вырезать часть строки)

Функции Space, String и StrReverse

Функция Beep API (звуковой сигнал, мелодия)

Функция Choose (синтаксис, компоненты, примеры)

Функция FileDateTime

Функция Filter (фильтрация массива)

Функция Format (синтаксис, параметры, примеры)

Функция FreeFile

Функция Hex

Функция InputBox (синтаксис, параметры, значения)

Функция InStr (синтаксис, параметры, примеры)

Функция InStrRev (синтаксис, параметры, примеры)

Функции Int и Fix

Функция Join (синтаксис, параметры, значения)

Функция MicroTimer

Функция MsgBox (синтаксис, параметры, значения)

Функция Replace (замена подстроки)

Функция Shell

Функция Split (синтаксис, параметры, значения)

Функция StrComp (сравнение строк)

Функция StrConv (смена регистра букв)

Функция Switch (синтаксис, примеры)

Функция Timer (примеры)

Функция Val (примеры)

Функция для вычисления факториала

Функции для работы с датой

Функция преобразования HTML-цвета в число

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

Циклы в VBA Excel

Цикл Do Until… Loop

Цикл Do While… Loop

Цикл For Each… Next

Цикл For… Next

Цикл While… Wend

Циклы (краткое описание)

Элементы управления в VBA Excel

ComboBox – заполнение поля со списком

ListBox – заполнение списка данными

Заполнение списка ComboBox по условию

Маска ввода в TextBox

Привязка события к элементу управления

Программное раскрытие ComboBox

Размеры и расположение элементов управления

Свойства SelStart, SelLength, SelText (TextBox)

Свойство Picture элементов управления

Сочетания клавиш для кнопок

Удаление элементов ActiveX с рабочего листа

Удаление элементов управления формы с листа

Элемент управления CheckBox (флажок)

Элемент управления ComboBox (поле со списком)

Элемент управления CommandButton (кнопка)

Элемент управления DTPicker

Элемент управления Frame (рамка)

Элемент управления Image

Элемент управления Label (метка, надпись)

Элемент управления ListBox (список)

Элемент управления MultiPage

Элемент управления OptionButton (переключатель)

Элемент управления RefEdit (редактор ссылок)

Элемент управления ScrollBar (полоса прокрутки)

Элемент управления SpinButton (счетчик)

Элемент управления TabStrip

Элемент управления TextBox (текстовое поле)

Элемент управления ToggleButton (выключатель)

Элемент управления TreeView (древовидная структура)