Макросы в excel 2007 для чего

Время на прочтение
7 мин

Количество просмотров 312K

Приветствую всех.

В этом посте я расскажу, что такое VBA и как с ним работать в Microsoft Excel 2007/2010 (для более старых версий изменяется лишь интерфейс — код, скорее всего, будет таким же) для автоматизации различной рутины.

VBA (Visual Basic for Applications) — это упрощенная версия Visual Basic, встроенная в множество продуктов линейки Microsoft Office. Она позволяет писать программы прямо в файле конкретного документа. Вам не требуется устанавливать различные IDE — всё, включая отладчик, уже есть в Excel.

Еще при помощи Visual Studio Tools for Office можно писать макросы на C# и также встраивать их. Спасибо, FireStorm.

Сразу скажу — писать на других языках (C++/Delphi/PHP) также возможно, но требуется научится читать, изменять и писать файлы офиса — встраивать в документы не получится. А интерфейсы Microsoft работают через COM. Чтобы вы поняли весь ужас, вот Hello World с использованием COM.

Поэтому, увы, будем учить Visual Basic.

Чуть-чуть подготовки и постановка задачи

Итак, поехали. Открываем Excel.

Для начала давайте добавим в Ribbon панель «Разработчик». В ней находятся кнопки, текстовые поля и пр. элементы для конструирования форм.

Появилась вкладка.

Теперь давайте подумаем, на каком примере мы будем изучать VBA. Недавно мне потребовалось красиво оформить прайс-лист, выглядевший, как таблица. Идём в гугл, набираем «прайс-лист» и качаем любой, который оформлен примерно так (не сочтите за рекламу, пожалуйста):

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

Результат, которого хотим добиться, выглядит примерно так:

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

Кодим

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

И вот мы в среде разработки VB. Также её можно вызвать из контекстного меню командой «Исходный текст»/«View code».

Перед вами окно с заглушкой процедуры. Можете его развернуть. Код должен выглядеть примерно так:

Sub FormatPrice()End Sub

Напишем Hello World:

Sub FormatPrice()
    MsgBox "Hello World!"
End Sub

И запустим либо щелкнув по кнопке (предварительно сняв с неё выделение), либо клавишей F5 прямо из редактора.

Тут, пожалуй, следует отвлечься на небольшой ликбез по поводу синтаксиса VB. Кто его знает — может смело пропустить этот раздел до конца. Основное отличие Visual Basic от Pascal/C/Java в том, что команды разделяются не ;, а переносом строки или двоеточием (:), если очень хочется написать несколько команд в одну строку. Чтобы понять основные правила синтаксиса, приведу абстрактный код.

Примеры синтаксиса

' Процедура. Ничего не возвращает
' Перегрузка в VBA отсутствует
Sub foo(a As String, b As String)
    ' Exit Sub ' Это значит "выйти из процедуры"
    MsgBox a + ";" + b
End Sub' Функция. Вовращает Integer
Function LengthSqr(x As Integer, y As Integer) As Integer
    ' Exit Function
    LengthSqr = x * x + y * y
End FunctionSub FormatPrice()
    Dim s1 As String, s2 As String
    s1 = "str1"
    s2 = "str2"
    If s1 <> s2 Then
        foo "123", "456" ' Скобки при вызове процедур запрещены
    End IfDim res As sTRING ' Регистр в VB не важен. Впрочем, редактор Вас поправит
    Dim i As Integer
    ' Цикл всегда состоит из нескольких строк
    For i = 1 To 10
        res = res + CStr(i) ' Конвертация чего угодно в String
        If i = 5 Then Exit For
    Next iDim x As Double
    x = Val("1.234") ' Парсинг чисел
    x = x + 10
    MsgBox xOn Error Resume Next ' Обработка ошибок - игнорировать все ошибки
    x = 5 / 0
    MsgBox xOn Error GoTo Err ' При ошибке перейти к метке Err
    x = 5 / 0
    MsgBox "OK!"
    GoTo ne

Err:
    MsgBox 

"Err!"

ne:

On Error GoTo 0 ' Отключаем обработку ошибок

    ' Циклы бывает, какие захотите
    Do While True
        Exit DoLoop 'While True
    Do 'Until False
        Exit Do
    Loop Until False
    ' А вот при вызове функций, от которых хотим получить значение, скобки нужны.
    ' Val также умеет возвращать Integer
    Select Case LengthSqr(Len("abc"), Val("4"))
    Case 24
        MsgBox "0"
    Case 25
        MsgBox "1"
    Case 26
        MsgBox "2"
    End Select' Двухмерный массив.
    ' Можно также менять размеры командой ReDim (Preserve) - см. google
    Dim arr(1 to 10, 5 to 6) As Integer
    arr(1, 6) = 8Dim coll As New Collection
    Dim coll2 As Collection
    coll.Add "item", "key"
    Set coll2 = coll ' Все присваивания объектов должны производится командой Set
    MsgBox coll2("key")
    Set coll2 = New Collection
    MsgBox coll2.Count
End Sub

Грабли-1. При копировании кода из IDE (в английском Excel) есь текст конвертируется в 1252 Latin-1. Поэтому, если хотите сохранить русские комментарии — надо сохранить крокозябры как Latin-1, а потом открыть в 1251.

Грабли-2. Т.к. VB позволяет использовать необъявленные переменные, я всегда в начале кода (перед всеми процедурами) ставлю строчку Option Explicit. Эта директива запрещает интерпретатору заводить переменные самостоятельно.

Грабли-3. Глобальные переменные можно объявлять только до первой функции/процедуры. Локальные — в любом месте процедуры/функции.

Еще немного дополнительных функций, которые могут пригодится: InPos, Mid, Trim, LBound, UBound. Также ответы на все вопросы по поводу работы функций/их параметров можно получить в MSDN.

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

Кодим много и под Excel

В этой части мы уже начнём кодить нечто, что умеет работать с нашими листами в Excel. Для начала создадим отдельный лист с именем result (лист с данными назовём data). Теперь, наверное, нужно этот лист очистить от того, что на нём есть. Также мы «выделим» лист с данными, чтобы каждый раз не писать длинное обращение к массиву с листами.

Sub FormatPrice()
    Sheets("result").Cells.Clear
    Sheets("data").Activate
End Sub

Работа с диапазонами ячеек

Вся работа в Excel VBA производится с диапазонами ячеек. Они создаются функцией Range и возвращают объект типа Range. У него есть всё необходимое для работы с данными и/или оформлением. Кстати сказать, свойство Cells листа — это тоже Range.

Примеры работы с Range

Sheets("result").Activate
Dim r As Range
Set r = Range("A1")
r.Value = "123"
Set r = Range("A3,A5")
r.Font.Color = vbRed
r.Value = "456"
Set r = Range("A6:A7")
r.Value = "=A1+A3"

Теперь давайте поймем алгоритм работы нашего кода. Итак, у каждой строчки листа data, начиная со второй, есть некоторые данные, которые нас не интересуют (ID, название и цена) и есть две вложенные группы, к которым она принадлежит (тип и производитель). Более того, эти строки отсортированы. Пока мы забудем про пропуски перед началом новой группы — так будет проще. Я предлагаю такой алгоритм:

1. Считали группы из очередной строки.
2. Пробегаемся по всем группам в порядке приоритета (вначале более крупные)
   1. Если текущая группа не совпадает, вызываем процедуру AddGroup(i, name), где i — номер группы (от номера текущей до максимума), name — её имя. Несколько вызовов необходимы, чтобы создать не только наш заголовок, но и всё более мелкие.
3. После отрисовки всех необходимых заголовков делаем еще одну строку и заполняем её данными.

Для упрощения работы рекомендую определить следующие функции-сокращения:

Function GetCol(Col As Integer) As String
    GetCol = Chr(Asc("A") + Col)
End FunctionFunction GetCellS(Sheet As String, Col As Integer, Row As Integer) As Range
    Set GetCellS = Sheets(Sheet).Range(GetCol(Col) + CStr(Row))
End FunctionFunction GetCell(Col As Integer, Row As Integer) As Range
    Set GetCell = Range(GetCol(Col) + CStr(Row))
End Function

Далее определим глобальную переменную «текущая строчка»: Dim CurRow As Integer. В начале процедуры её следует сделать равной единице. Еще нам потребуется переменная-«текущая строка в data», массив с именами групп текущей предыдущей строк. Потом можно написать цикл «пока первая ячейка в строке непуста».

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

Option Explicit ' про эту строчку я уже рассказывал
Dim CurRow As Integer
Const GroupsCount As Integer = 2
Const DataCount As Integer = 3

FormatPrice

Sub FormatPrice()
    Dim I As Integer ' строка в data
    CurRow = 1
    Dim Groups(1 To GroupsCount) As String
    Dim PrGroups(1 To GroupsCount) As String

    Sheets(

"data").Activate
    I = 2
    Do While True
        If GetCell(0, I).Value = "" Then Exit Do
        ' ...
        I = I + 1
    Loop
End Sub

Теперь надо заполнить массив Groups:

На месте многоточия

Dim I2 As Integer
For I2 = 1 To GroupsCount
    Groups(I2) = GetCell(I2, I)
Next I2
' ...
For I2 = 1 To GroupsCount ' VB не умеет копировать массивы
    PrGroups(I2) = Groups(I2)
Next I2
I =  I + 1

И создать заголовки:

На месте многоточия в предыдущем куске

For I2 = 1 To GroupsCount
    If Groups(I2) <> PrGroups(I2) Then
        Dim I3 As Integer
        For I3 = I2 To GroupsCount
            AddHeader I3, Groups(I3)
        Next I3
        Exit For
    End If
Next I2

Не забудем про процедуру AddHeader:

Перед FormatPrice

Sub AddHeader(Ty As Integer, Name As String)
    GetCellS("result", 1, CurRow).Value = Name
    CurRow = CurRow + 1
End Sub

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

For I2 = 0 To DataCount - 1
    GetCellS("result", I2, CurRow).Value = GetCell(I2, I)
Next I2

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

После цикла в конце FormatPrice

Sheets("Result").Activate
Columns.AutoFit

Всё. Можно любоваться первой версией.

Некрасиво, но похоже. Давайте разбираться с форматированием. Сначала изменим процедуру AddHeader:

Sub AddHeader(Ty As Integer, Name As String)
    Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow)).Merge
    ' Чтобы не заводить переменную и не писать каждый раз длинный вызов
    ' можно воспользоваться блоком With
    With GetCellS("result", 0, CurRow)
        .Value = Name
        .Font.Italic = True
        .Font.Name = "Cambria"
        Select Case Ty
        Case 1 ' Тип
            .Font.Bold = True
            .Font.Size = 16
        Case 2 ' Производитель
            .Font.Size = 12
        End Select
        .HorizontalAlignment = xlCenter
    End With
    CurRow = CurRow + 1
End Sub

Уже лучше:

Осталось только сделать границы. Тут уже нам требуется работать со всеми объединёнными ячейками, иначе бордюр будет только у одной:

Поэтому чуть-чуть меняем код с добавлением стиля границ:

Sub AddHeader(Ty As Integer, Name As String)
    With Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow))
        .Merge
        .Value = Name
        .Font.Italic = True
        .Font.Name = "Cambria"
        .HorizontalAlignment = xlCenterSelect Case Ty
        Case 1 ' Тип
            .Font.Bold = True
            .Font.Size = 16
            .Borders(xlTop).Weight = xlThick
        Case 2 ' Производитель
            .Font.Size = 12
            .Borders(xlTop).Weight = xlMedium
        End Select
        .Borders(xlBottom).Weight = xlMedium ' По убыванию: xlThick, xlMedium, xlThin, xlHairline
    End With
    CurRow = CurRow + 1
End Sub

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

В начале FormatPrice

Dim I As Integer ' строка в  data
CurRow = 0 ' чтобы не было пропуска в самом начале
Dim Groups(1 To GroupsCount) As String

В цикле расстановки заголовков

If Groups(I2) <> PrGroups(I2) Then
    CurRow = CurRow + 1
    Dim I3 As Integer

В точности то, что и хотели.

Надеюсь, что эта статья помогла вам немного освоится с программированием для Excel на VBA. Домашнее задание — добавить заголовки «ID, Название, Цена» в результат. Подсказка: CurRow = 0 CurRow = 1.

Файл можно скачать тут (min.us) или тут (Dropbox). Не забудьте разрешить исполнение макросов. Если кто-нибудь подскажет человеческих файлохостинг, залью туда.

Спасибо за внимание.

Буду рад конструктивной критике в комментариях.

UPD: Перезалил пример на Dropbox и min.us.

UPD2: На самом деле, при вызове процедуры с одним параметром скобки можно поставить. Либо использовать конструкцию Call Foo(«bar», 1, 2, 3) — тут скобки нужны постоянно.

Microsoft
Excel – это популярное для работы с
таблицами приложение, используемое в
офисах и домах 90% людей. Несмотря на то
что программе уже 34 года, новые возможности
продолжают добавляться в обновлениях.
Поэтому программа до сих пор популярна.
Чтобы облегчить себе работу, нужно
знать, как работают эти опции. Для начала расскажем о том, что такое
макросы, а потом – как
включить макросы в Excel
2010, 2007, 2003.

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

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

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

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

1. Отключить макросы без уведомления.
   Применяется
   для таблиц, автор которых неизвестен.
   Деактивирует сохраненные в ячейках
   макросы, не предупреждая об этом.
   Пользуйтесь им при опасности вирусов
   в таблице.
2. Отключить макросы с уведомлением.
   Этот
   режим выбран стандартно. Предлагает
   выключать макросы, но перед этим
   запрашивает разрешения пользователя.
   С ним вы сможете решать, оставлять ли,
   или нет отдельно каждый макрос.
3. Отключить макросы, кроме макросов с
   цифровой подписью.
   Похож
   на предыдущий, но автоматически разрешает
   использование макросов, подписанных
   цифровой подписью предприятия, доверие
   которому вы уже подтвердили.
4. Включить макросы.
   Из
   названия понятно, что параметр разрешает
   использование макрокоманд, записанных
   в таблицу.
5. Доверять доступ к объектной модели
   проектов VBA.

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

Как включить
макросы в Excel

Существует
три версии Экселя, где активация макросов
отличается друг от друга. Сначала
рассмотрим, как
включить макросы в Excel
2010.

Как
включить макросы в MS
Excel 2010

В
2010 версии Экселя разработчики сделали
упор на безопасность, поэтому для
включения макросов нужно сделать
следующее:

• В верхнем меню приложения нажмите
  «Файл».
• Откроется список, выбрать предпоследний
  пункт – «Параметры».
• Нажмите,
  и попадете в окно «Параметры Excel». Слева
  перейдите в «Центр управления
  безопасностью».

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

• Закройте и запустите
  Excel снова, для вступления изменений в
  силу.

Как
включить макросы в MS
Excel 2007

Здесь
способ не сильно отличается от того,
как
включить макросы в Excel
2010:

• Нажмите кнопку «Файл» (круглая желтая
  кнопка с цветными квадратами) слева
  сверху окна.
• В правой нижней части меню кликните на
  «Параметры Excel».

• Перейдите в раздел «Центр управления
  безопасностью», а затем «Параметры
  центра…»
• В открывшемся меню отметьте режим работы
  макросов, который нужен.

• Перезапустите Эксель.

Как
включить макросы в MS
Excel 2003

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

1. В
   открытом приложении нажмите на кнопку
   «Сервис» в верхнем меню.
2. В выпадающем списке нажмите на «Макрос»,
   и «Безопасность».
3. Откроется меню безопасности, где нужно
   отметить уровень безопасности для
   макросов.
4. Нажмите
   «Ок», и перезайдите в Эксель.

Способы

Включить
макрокоманды можно одним из трех путей:

• во
  время показа окна сообщения;
• с
  помощью Backstage;
• когда
  появляется предупреждение системы
  безопасности.

Во
время показа окна сообщения

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

С
помощью Backstage

Если
открыть книгу с макросами, в меню «Файл»
появляется сообщение, позволяющее
активировать их. Для этого сделайте
следующее:

1. Раскройте меню «Файл» — левая в ленте
   вверху страницы.
2. В окне «Предупреждение системы
   безопасности» кликните по «Включить
   содержимое».
3. Появится диалоговое меню, где необходимо
   будет отметить «Всегда включать активное
   содержимое этого документа».

После
того как все получилось, перезагрузите
приложение.

Активировать
на одну сессию при появлении предупреждения
системы безопасности

Способ
включения только на один раз для одной
книги:

1. Раскройте меню «Файл» — левая в ленте
   вверху страницы.
2. В окне «Предупреждение системы
   безопасности» кликните по «Включить
   содержимое».
3. Перейдите в раздел «Дополнительные
   параметры».
4. В появившемся поле активируйте пункт
   «Включить содержимое для этого сеанса»
   по очереди для каждого из макросов.
5. Сохраните изменения, кликнув «Ок».

Макрос
— это программа, состоящая из списка
команд, которые должны быть выполнены
приложением. Макрос служит для объ­единения
нескольких различных действий в одну
процедуру,
ко­торую
можно вызвать.
Такой список
команд состоит, в основ­ном,
из макрооператоров,
тесно
связанных с командами прило­жений
из MS
Office.
Большая часть макрооператоров
соответствует
командам меню или параметрам, которые
задаются в
диалоговых окнах.

Выделяются три
основные разновидности макросов:

• командные
  — наиболее распространенные макросы,
  которые обычно состоят из операторов,
  эквивалентных тем или иным командам
  меню или параметрам диалоговых окон.
  Основным предназначением таких макросов
  является выполнение дейст­вий,
  аналогичных командам меню — т. е.
  изменение окруже­ния и основных
  объектов приложения. Например, изменение
  рабочего листа или рабочего пространства
  MS Excel, сохране­ние или вывод на печать
  и т. п.
  Таким образом, в результате выполнения
  макроса вносятся изменения либо в
  обрабатывае­мый документ, либо в
  общую среду приложения;

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

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

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

В процессе работы
с MS
Excel
часто приходится многократно выполнять
однотипные действия. В этом случае
разумно создавать макросы.
От обычной
программы макрос отличается в первую
очередь тем, что типичная программа
выполняется «под контролем»
операционной
системы
(Windows),
в то время как выполнение макроса
осуществляется самим приложением
(в данном случае это MS
Excel).
Макрос может быть создан практически
так же, как и любая дру­гая программа.
Для этих целей прямо из окна приложения
MS
Excel
можно запустить редактор языка VBA.
Однако есть и более простой способ
создания макросов. Состоит он в том,
чтобы перевести MS
Excel
в режим записи макроса, выполнить все
те действия, которые должны выполняться
данным макросом, после чего выйти из
ре­жима записи макроса. Следует
отметить, что этот метод применим только
в тех случаях, когда макрос не слишком
сложен. Тем не менее, даже при работе со
сложными макросами данный метод может
быть использован для генерации «базового»
программного кода.

Работа по записи
макросов требует дополнительной
настройки конфигурации MS
Excel
2007.

ПРИМЕЧАНИЕ.
При записи макроса все необходимые
действия записываются программой записи
макроса (макрорекордер). Работа
макрорекордера во многом напоминает
запись с помощью обычного магнитофона
(диктофона). При этом перемещение курсора
по ленте и рабочей книги не включается
в записанные команды.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #

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

      Для начала — несколько слов о том, зачем это нужно. Средство VBA в MS Excel, представляет нам универсальный инструмент для быстрого и точного решения любых индивидуальных пользовательских задач в MS Excel. Можно конечно использовать и встроенные в MS Excel функции которых великое множество, однако они далеко не всегда решают поставленную задачу.
      Итак, создадим для примера простейшую программу. Будем использовать MS Excel 2007.  Откройте MS Excel, нажмите «сохранить как» и сохраните файл Вашей программы нажав «Книга ексель с поддержкой макросов». 

      Далее необходимо включить вкладку «Разработчик». Для этого нажимаем «Параметры Excel» 
       Ставим галочку на «Показывать вкладку «Разработчик» на ленте»

 
       После этого на ленте, в верху листа Excel, появится вкладка «Разработчик», которая содержит в себе инструменты для создания VBA макросов.
       Представим себе небольшую задачу — допустим мы имеем 2 числа, нам необходимо их сложить и по полученной сумме получить значение из нашей таблицы.
       Поставим в ячейки Листа1 следующие значения:

 
      на Листе2 заполним ячейки, создав таблицу из 2 столбцов

 
       Далее перейдем на Лист1, нажмем на вкладку «Разработчик», «Вставить», на ней выберем кнопку 
и нарисуем кнопку на Листе1, после чего сразу появится окно «Назначить макрос объекту», в котором выбираем «Создать» 
       После этого откроется редактор Visual Basic, и автоматически напишется наименование процедуры, которая будет выполняться при нажатии кнопки. Под названием процедуры впишем следующий код:

 
      Код выполнит следующие действия:

• MsgBox («Это мой первый Макрос!») — сообщение
• Переменной q присваивается значение ячейки на Листе1, с координатами 2 строка, 2 столбец
• Переменной w присваивается значение ячейки на Листе1, с координатами 3 строка, 2 столбец
• В ячейку на Листе1, с координатами 4 строка, 2 столбец, записывается сумма q+w

      Далее получим значение столбца В из Листа2, которое расположено на той же строке где значение нашей суммы совпадает с значением столбца А.
      Введем следующий код:

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

 
из результата видно что макрос подобрал число из таблицы на Листе2 в соответствии с нашей суммой.
      Не буду вдаваться в подробности этого хитрого кода, так как цель данной статьи — начать писать макросы. Для VBA в интернете есть масса ресурсов, с примерами и разъяснениями, хотя для автоматизации расчетов вполне хватит объема информации в справке.

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

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

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

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

Команда эта помещается в виде кнопки на панель инструментов. При нажатии кнопки все ваши записанные ранее действия выполняются автоматически. Это и есть «макрос».

Лично для меня знакомство  с  макросами в свое время превратилось в изучение программирования. Дело в том, что Microsoft Office является еще и легкой и понятной средой для этого.

В нем есть свой встроенный язык — Visual Basic for Application или сокращенно VBA. И когда  записываете макросы, Вы  вы  как бы становитесь программистом. При этом не обязательно на первых этапах знать язык. Программный код можно посмотреть уже потом, в редакторе и изучать. Как смотреть — об этом так же расскажу.

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

Но обо всем по порядку. Тем, кто после прочтения статьи заинтересуется и  захочет изучать язык VBA самостоятельно в помощь книга. А сейчас разберемся подробно, что за «макросы», как их включать.

Что означает макросы и как с ними работать?

Итак, макрос — это некий программный код, который описывает ПОСЛЕДОВАТЕЛЬНОСТЬ ваших действий в документе. Записывается даже перемещение  вашего курсора по ячейкам, нажатие клавиш. Сначала Вы записываете макрос.

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

Для начала нужно настроить Excel для работы с макросами. Это просто. На примере Office 2007 покажу как . В более поздних редакциях делается все почти аналогично. Сначала заходим в «Параметры»:

Сначала настроим «Ленту»;  нужно включить «Режим разработчика»:

Если Вы собираетесь серьезно работать с макросами — нужно включить еще одну настройку.  Здесь же переходим в «Центр управления безопасностью» и настраиваем «Параметры центра управления безопасностью»:

Нужно отключить все ограничения на запуск макросов. Это позволит Вам не только работать со своими макросами но и запускать уже готовые кем — то созданные.

Так же нужно доверять доступ к объектной модели проектов VBA. Ведь в Интернете или у коллег можно найти много готовых и интересных проектов VBA написанных для Excel, Word и пользоваться.

Что такое макрос в Excel 2007?

Мы пока что научимся записывать несложные макросы. Сделать это очень просто. В «Ленте» у нас теперь появились соответствующие значки «Разработчик»:

В этом режиме нам будут доступны и остальные функции — «режим конструктора».  Можно самостоятельно  создавать окна, кнопки. А в редакторе Visual Basic можно редактировать созданные макросы. Итак, покажу, как все это работает. При нажатии кнопки «Запись макроса»  сначала нужно будет заполнить его наименование(без пробелов), горячие клавиши вызова (не обязательно) и место где он будет сохранен:

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

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

Вы сами увидели, что процесс создания одной простенькой  демо — таблицы занимает от пяти и более минут. А макрокомандой мы  таблицу  создали за 2 секунды.  А если речь идет о сложных проектах? Ответ очевиден, создав один раз процедуру, вы сэкономите время и увеличите производительность своей работы.

После окончания записи при закрытии  Excel программа обязательно попросит сохранить изменения в «Личной книге» макросов. Не забываем согласиться; в противном случае записанный  макрос пропадет и всё придется делать заново.

Важно! «Личная книга» макросов хранится в папке пользователя по пути C:Users%Пользователь компьютера%AppDataRoamingMicrosoftExcelXLSTART. Этой книгой можно делится с другими или удалять, если что то не получилось.

Наш макрос теперь доступен по кнопке «Макросы», оттуда его можно запускать.

Что  значит макрос в Excel 2016 и для чего он предназначен?

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

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

Для начала не забудем сделать настройки MSoffice 2016. Так же идем в «Параметры», но далее  идем в «Настроить ленту»

После «Разработчик» станет видимым на «Ленте». Переходим туда. Наша  личная книга макросов по прежнему на месте, откроем ее:

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

Как включить макросы в Excel 2016 видео

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

Начинается программирование 😛 , из меню «Разработчик» вставляем кнопку в любое место нашего документа. Курсор измениться на перекрестье, затем рисуем кнопку в нужном месте:

Нашей кнопке будет автоматически назначен макрос. Имя макроса, комбинацию клавиш, ставим произвольное, сохраняем в «Этой книге». Это означает, что работать кнопка будет только в этом документе.

Далее, программа предложит способ создания макроса. Если Вы уже продвинутый VBA- програмиист, можно руками написать код, нажав «Создать». Но мы сегодня будем использовать уже знакомый нам способ — запись наших действий:

Запись начата! Мы собираемся очистить выбранные графы от содержимого, поэтому одновременно выделим нужные диапазоны в  графах «Количество» и «Цена». Для этого сначала выделим графу «Количество», затем зажимаем клавишу Ctrl и не отпуская ее выделяем нужные ячейки в графе  «Цена», после отпускаем клавишу:

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

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

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

Я  изменил текст на «Очистить». Цвет, размер текста шрифт в кнопках так же можно  менять по вкусу. Заглянем для этого в «Формат объекта»:

Там все  примерно так, как при форматировании ячейки. А изменять размеры самой кнопки и ее местоположение можно растягивая ее за края или перетаскивать:

Ну и на последок давайте заглянем в редактор VBA и посмотрим, как выглядит написанный нами программный код нашего макроса. Для этого  идем в наши «Макросы» , выбираем нужный и жмем «Войти» или «Изменить»:

Другой способ — можно  щелкнуть правой кнопкой мыши по кнопке и выбрать «Назначить макрос»; результат будет аналогичный. Открылся редактор VBA, в котором можно делать много чего интересного и полезного. Мы пока смотрим, что мы там напрограммировали:

Простой и понятный пример кода; после комментариев (выделенных зеленым) идет сам код «Выбрать диапазон ячеек сначала один, затем другой, затем   удаляем содержимое».  Закрыть редактор можно как обычное окошко — нажав на крестик. Надеюсь,  что такое макросы — Вы разобрались. Заодно узнали, как можно стать программистом.  Удачи в освоении программы!