Задание по автоматизации в excel

Время на прочтение
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) — тут скобки нужны постоянно.

Тема урока: Автоматизация расчетов в Excel

Цель урока: Научить использовать электронные
таблицы для автоматизации расчетов

Задачи урока

Образовательные:

·        
научиться использовать электронные таблицы для
автоматизации расчетов;

·        
закрепить приобретенные навыки по заполнению,
форматированию и печати таблиц.

Воспитательные:

·        
Продолжить работу над воспитанием терпеливого и
внимательного отношения к выполняемой работе;

Развивающие:

·        
Продолжить работу по развитию любознательности,
интереса к предмету «информатика» и учению в целом;

·        
Продолжить работу над формированием общеучебных
умений: слушать объяснение учителя, самостоятельно выполнять задания учителя;

·        
Развивать логическое мышление, способность к
анализу;

База знаний и место урока

К этому уроку учащиеся знают:

·        
Что такое «электронные таблицы», их виды, функции;
назначение. Интерфейс табличного процессора Microsoft Excel;

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

·        
Арифметические действия в ЭТ, автосуммирование
числовых данных, возможности использования встроенных функций;

·        
Относительные и абсолютные ссылки;

·        
Правила копирования формул;

Основные умения:

·        
Умеют составлять и заполнять таблицы;

·        
Умеют использовать Мастер функций для ввода данных;

·        
Умеют изменять формат ячейки, размер, заливку,
объединять ячейки;

·        
Умеют копировать формулы;

·        
Умеют использовать относительные и абсолютные
ссылки;

Тип урока: Комбинированный урок;

Структура урока:

·        
Организационный этап – 2 мин;

·        
Постановка темы и целей урока – 2 мин

·        
Фронтальный опрос – 10 мин

·        
Объяснение нового материала – 10 мин

·        
Решение самостоятельной работы – 25 мин

·        
Подведение итогов. Выставление оценок (индивидуально)

Материальная база, оборудование урока

Компьютер. Мультимедийный проектор. ОС Windows
7. MS Office 2010 (табличный процессор   Excel), карточки
с заданиями. Карточка «Штатное расписание хозрасчетной больницы»;

Ход урока

I. Организационный момент: приветствие.

Проверка готовности учащихся к уроку,
отметка отсутствующих, объявление темы и цели урока.

При выполнении работы должны
соблюдаться правила ТБ при работе за ПК и правила поведения в компьютерном
классе.

II. Постановка темы и целей урока.

III. Фронтальный опрос.
Вопросы:

Каково назначение программы Excel?

Что такое адрес электронной ячейки,
из чего он состоит?

Как произвести ввод данных в ячейку?

Какие форматы данных вы знаете?

Как можно изменить высоту и ширину
ячейки в электронной таблице?

Какие способы выравнивания текста в
ячейке вы знаете?

Каким образом можно объединить ячейки
электронной таблицы?

Как перенести текст в ячейке по
словам?

Каким образом можно произвести
обрамление таблицы в Excel?

Как очистить ячейки таблицы от
данных?

Как произвести копирование
содержимого ячейки?

IV. Объяснение нового материала.

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

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

Построим модель решения этой задачи.

Поясним, что является исходными данными.
Казалось бы, ничего не дано, кроме общего фонда заработной платы. Однако
заведующему больницей известно больше: он знает, что для нормальной работы
больницы нужно 5—7 санитарок, 8—10 медсестер, 10—12 врачей, 1 заведующий
аптекой, 3 заведующих отделениями, 1 главный врач, 1 заведующий хозяйством, 1
заведующий больницей. На некоторых должно­стях число людей может меняться.
Например, зная, что найти санитарок трудно, руководитель может принять решение
о сокращении числа санитарок, чтобы увели­чить оклад каждой из них.

Итак, заведующий принимает следующую модель
задачи. За основу берется оклад санитарки, а все остальные вычисляются исходя
из него: во столько-то раз или на столько-то больше. Говоря математическим
языком, каждый оклад является линейной функцией от оклада санитарки: А´С+В, где С — оклад
санитарки; А и В—- коэффициенты, которые для каждой должности определяются
решением совета трудового коллектива.

Допустим, совет решил, что

медсестра
должна получать в 1,5 раза больше санитарки (А=1,5, В=0);

врач — в
3 раза больше санитарки (В=0, А=3);

заведующий отделением — на $30 больше, чем врач (А=3, В=30);

заведующий аптекой — в 2 раза больше санитарки (А=2, В=0);

заведующий хозяйством —на $40 больше медсестры (А=1.5, В=40);

главный врач — в 4 раза больше санитарки (А=4, В=0);

заведующий больницей — на $20 больше главного врача (А=4, В=20).

Задав количество человек на каждой
должности, можно составить уравнение: Nl´(Al´C+BI)+N2´(A2´C+B2)+…+N8´(A8´C+B8)=10000,

где N1 —
количество санитарок; N2 — количество медсестер и т. д.

В этом уравнении нам известны А1…А8
и В1…В8, а неизвестны С и NI…N8.

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

Проделать такую работу вручную трудно. Но
вам поможет электронная таблица.

Ход работы: Выполнение
задания карточки (Приложение1)

1. Отведите для каждой должности
одну строку и запишите названия должностей в столбец А .

2. В столбцах В и С укажите
соответственно коэффициенты А и В.

3. В ячейку Н5 занесите заработную плату
санитарки (в формате с фиксированной точкой и двумя знаками после нее).

4. В столбце D вычислите заработную плату для каждой должности по формуле А*С+В.

Обратите внимание! Этот столбец должен заполняться формулами с использованием абсолютной
ссылки на ячейку Н5, в которой указана зарплата санитарки. Изменение содержимого
этой ячейки должно приводить к изменению содержимого всего столбца D и
пересчету всей таблицы.

5. В столбце Е укажите количество
сотрудников на соответствующих должностях в соответствии со штатным
расписанием.

6. В столбце F вычислите заработную плату всех рабочих данной должности. Тогда сумма
элементов столбца F даст суммарный фонд заработной платы.

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

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

8. Сохраните таблицу в личном каталоге
под именем work_3.xls.

9. После получения удовлетворительного
результата отредактируйте таблицу.

9.1. Оставьте видимыми столбцы А,
D, Е, F.

Столбцы В, С можно скрыть, воспользовавшись
пунктом меню Формат. столбец, Скрыть.

 9.2. Дайте заголовок таблице
“Штатное расписание хозрасчетной больницы”          и подзаголовок “зав.
больницей Петров И. С.”.

9.3. Оформите таблицу, используя
автоформатирование. Для этого:

*                                                                                                                                   
выделите всю таблицу, включая заголовки;

*                                                                                                                                   
выберите пункт меню Формат, Автоформат;

*          
выберите удовлетворяющий вас формат.

10. Сохраните отредактированную таблицу
предъявите учителю: файл work_3.xls на экране;

V Итоги: Выясняет
степень усвоения нового материала (с каждым индивидуально).

Карточка «Штатное расписание хозрасчетной больницы»

Общий месячный фонд
зарплаты составляет 10 000.

5—7 санитарок, 8—10 медсестер, 10—12 врачей,
1 заведующий аптекой, 3 заведующих отделениями, 1 главный врач, 1 заведующий
хозяйством, 1 заведующий больницей.

медсестра
должна получать в 1,5 раза больше санитарки (А=1,5, В=0);

врач — в
3 раза больше санитарки (В=0, А=3);

заведующий отделением — на 30 больше, чем врач (А=3, В=30);

заведующий аптекой — в 2 раза больше санитарки (А=2, В=0);

заведующий хозяйством —на 40 больше медсестры (А=1.5, В=40);

главный врач — в 4 раза больше санитарки (А=4, В=0);

заведующий больницей — на 20 больше главного врача (А=4, В=20).

Ход работы

1. Отведите для каждой должности
одну строку и запишите названия должностей в столбец А .

2. В столбцах В и С укажите
соответственно коэффициенты А и В.

3. В ячейку Н5 занесите заработную плату
санитарки (в формате с фиксированной точкой и двумя знаками после нее).

4. В столбце D вычислите заработную плату для каждой должности по формуле А*С+В.

Обратите внимание! Этот столбец должен заполняться формулами с использованием абсолютной
ссылки на ячейку Н5, в которой указана зарплата санитарки. Изменение
содержимого этой ячейки должно приводить к изменению содержимого всего столбца
D и пересчету всей таблицы.

5. В столбце Е укажите количество
сотрудников на соответствующих должностях в соответствии со штатным
расписанием.

6. В столбце F вычислите заработную плату всех рабочих данной должности. Тогда сумма
элементов столбца F даст суммарный фонд заработной платы.

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

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

8. Сохраните таблицу в личном каталоге
под именем work_3.xls.

9. После получения удовлетворительного
результата отредактируйте таблицу.

9.1. Оставьте видимыми столбцы А,
D, Е, F.

Столбцы В, С можно скрыть, воспользовавшись
пунктом меню Формат. столбец, Скрыть.

 9.2. Дайте заголовок таблице
“Штатное расписание хозрасчетной больницы”          и подзаголовок “зав.
больницей Петров И. С.”.

9.3. Оформите таблицу, используя
автоформатирование. Для этого:

*                                                                                                                                   
выделите всю таблицу, включая заголовки;

*                                                                                                                                   
выберите пункт меню Формат, Автоформат;

*          
выберите удовлетворяющий вас формат.

10. Сохраните отредактированную таблицу
предъявите учителю: файл work_3.xls на экране;

• Что такое Макрос?
• Создание макроса – практический пример
• Выполнение макроса в Excel
• Заглянем под капот: Как работает макрос?
• Добавим ещё один шаг к нашей задаче…

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

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

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

Макрос в Microsoft Office (да, этот функционал работает одинаково во многих приложениях пакета Microsoft Office) – это программный код на языке программирования Visual Basic for Applications (VBA), сохранённый внутри документа. Чтобы было понятнее, документ Microsoft Office можно сравнить со страницей HTML, тогда макрос – это аналог Javascript. То, что Javascript умеет делать с данными в формате HTML, находящимися на web-странице, очень похоже на то, что макрос может делать с данными в документе Microsoft Office.

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

• Применять стили и форматирование.
• Выполнять различные операции с числовыми и текстовыми данными.
• Использовать внешние источники данных (файлы баз данных, текстовые документы и т.д.)
• Создавать новый документ.
• Проделывать все вышеперечисленные действия в любой их комбинации.

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

Для примера возьмём самый обычный файл CSV. Это простая таблица 10х20, заполненная числами от 0 до 100 с заголовками для столбцов и строк. Наша задача превратить этот набор данных в презентабельно отформатированную таблицу и сформировать итоги в каждой строке.

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

Чтобы создать макрос, откройте View (Вид) > Macros (Макросы) > Record Macro (Запись макроса…)

Дайте своему макросу имя (без пробелов) и нажмите ОК.

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

Excel сигнализирует о том, что включен режим записи макроса в двух местах. Во-первых, в меню Macros (Макросы) – вместо строки Record Macro (Запись макроса…) появилась строка Stop Recording (Остановить запись).

Во-вторых, в нижнем левом углу окна Excel. Иконка Стоп (маленький квадратик) указывает на то, что включен режим записи макроса. Нажатие на неё остановит запись. И наоборот, когда режим записи не включен, в этом месте находится иконка для включения записи макроса. Нажатие на неё даст тот же результат, что и включение записи через меню.

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

Далее, введите в ячейки формулы в соответствии с названиями заголовков (даны варианты формул для англоязычной и русифицированной версии Excel, адреса ячеек – всегда латинские буквы и цифры):

• =SUM(B2:K2) или =СУММ(B2:K2)
• =AVERAGE(B2:K2) или =СРЗНАЧ(B2:K2)
• =MIN(B2:K2) или =МИН(B2:K2)
• =MAX(B2:K2) или =МАКС(B2:K2)
• =MEDIAN(B2:K2) или =МЕДИАНА(B2:K2)

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

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

Далее, мы подведем итоги для всей таблицы, для этого делаем ещё несколько математических действий:

Соответственно:

• =SUM(L2:L21) или =СУММ(L2:L21)
• =AVERAGE(B2:K21) или =СРЗНАЧ(B2:K21) — для расчёта этого значения необходимо взять именно исходные данные таблицы. Если взять среднее значение из средних по отдельным строкам, то результат будет другим.
• =MIN(N2:N21) или =МИН(N2:N21)
• =MAX(O2:O21) или =МАКС(O2:O21)
• =MEDIAN(B2:K21) или =МЕДИАНА(B2:K21) — считаем, используя исходные данные таблицы, по причине указанной выше.

Теперь, когда с вычислениями закончили, займёмся форматированием. Для начала для всех ячеек зададим одинаковый формат отображения данных. Выделите все ячейки на листе, для этого воспользуйтесь комбинацией клавиш Ctrl+A, либо щелкните по иконке Выделить все, которая находится на пересечении заголовков строк и столбцов. Затем нажмите Comma Style (Формат с разделителями) на вкладке Home (Главная).

Далее, изменим внешний вид заголовков столбцов и строк:

• Жирное начертание шрифта.
• Выравнивание по центру.
• Заливка цветом.

И, наконец, настроим формат итоговых значений.

Вот так это должно выглядеть в итоге:

Если Вас все устраивает, остановите запись макроса.

Поздравляем! Вы только что самостоятельно записали свой первый макрос в Excel.

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

Чтобы очистить все ячейки от данных, щёлкните правой кнопкой мыши по иконке Выделить все, которая находится на пересечении заголовков строк и столбцов, и из контекстного меню выберите пункт Delete (Удалить).

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

Важный момент! Если Вы сохраните файл с расширением XLTX, то макрос в нём работать не будет. Кстати, можно сохранить книгу как шаблон Excel 97-2003, который имеет формат XLT, он тоже поддерживает макросы.

Когда шаблон сохранён, можно спокойно закрыть Excel.

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

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

• Макрос может нанести вред.
• Ещё раз прочти предыдущий пункт.

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

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

Следующим шагом, мы импортируем последний обновлённый набор данных из файла CSV (на основе такого файла мы создавали наш макрос).

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

Когда импорт будет закончен, зайдите в меню Macros (Макросы) на вкладке View (Вид) и выберите команду View Macros (Макросы).

В открывшемся диалоговом окне мы увидим строку с именем нашего макроса FormatData. Выберите его и нажмите Run (Выполнить).

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

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

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

Чтобы увидеть этот программный код, нужно в меню Macros (Макросы) на вкладке View (Вид) кликнуть View Macros (Макросы) и в открывшемся диалоговом окне нажать Edit (Изменить).

Откроется окно Visual Basic for Applications, в котором мы увидим программный код записанного нами макроса. Да, Вы правильно поняли, здесь этот код можно изменить и даже создать новый макрос. Те действия, которые мы совершали с таблицей в этом уроке, вполне можно записать с помощью автоматической записи макроса в Excel. Но более сложные макросы, с тонко настроенной последовательностью и логикой действий требуют программирования вручную.

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

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

1. Откройте файл шаблона, в котором мы сохранили макрос — FormatData.
2. Создайте новый макрос с именем LoadData.
3. В процессе записи макроса LoadData сделайте импорт данных из файла data.csv – как мы это делали в предыдущей части урока.
4. Когда импорт будет завершён, остановите запись макроса.
5. Удалите все данные из ячеек.
6. Сохраните файл, как шаблон Excel с поддержкой макросов (расширение XLTM).

Таким образом, запустив этот шаблон, Вы получаете доступ к двум макросам – один загружает данные, другой их форматирует.

Если есть желание заняться программированием, Вы можете объединить действия этих двух макросов в один – просто скопировав код из LoadData в начало кода FormatData.

Полезные макросы Excel для автоматизации рутинной работы с примерами применения для разных задач.

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

Макросы для фильтра сводной таблицы в Excel.
Как автоматизировать фильтр в сводных таблицах с помощью макроса? Исходные коды макросов для фильтрации и скрытия столбцов в сводной таблице.

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

Макросы для изменения формата ячеек в таблице Excel.
Как форматировать ячейки таблицы макросом? Изменение цвета шрифта, заливки и линий границ, выравнивание. Автоматическая настройка ширины столбцов и высоты строк по содержимому с помощью VBA-макроса.

Макрос для копирования и переименования листов Excel.
Как одновременно копировать и переименовывать большое количество листов одним кликом мышкой? Исходный код макроса, который умеет одновременно скопировать и переименовать любое количество листов.