Excel 2010 макросы for

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

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

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

В этом посте я расскажу, что такое 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

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

"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) — тут скобки нужны постоянно.

Рамакришна, Источники индийской мудрости

Сейчас … мы идем по кругу

Эта статья содержит полное руководство по VBA Do While и VBA While Loops. (Если вы ищете информацию о циклах VBA For и For Each, перейдите сюда)

Цикл VBA While существует, чтобы сделать его совместимым со старым кодом. Однако Microsoft рекомендует использовать цикл Do Loop, поскольку он более «структурирован и гибок». Оба этих цикла рассматриваются в этом посте.

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

Если вы ищете что-то конкретное, вы можете посмотреть содержание ниже.

Краткое руководство по VBA While Loops

Введение

Если вы никогда ранее не использовали циклы, тогда вы можете прочитать «Что такое циклы и зачем они вам нужны» из моего поста в журнале For Loop.

Я собираюсь сосредоточиться в основном на Do Loop в этой статье. Как я упоминал выше, мы видели, что цикл While Wend считается устаревшим. Для полноты информации я все равно его включил в эту статью.

Итак, во-первых, зачем нам нужны циклы Do While, когда у нас уже есть циклы For?

Цикл For против цикла Do While

Когда мы используем цикл For Loop, мы заранее знаем, сколько раз мы хотим его запустить. Например, мы можем захотеть запустить цикл один раз для каждого элемента в коллекции, массиве или словаре.

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

' запускается 5 раз
For i = 1 To 5

' запускается один раз для каждого элемента коллекции
For i = 1 To coll.Count

' запускается один раз для каждого элемента в arr
For i = LBound(arr) To coll.lbound(arr)

' запускается один раз для каждого значения от 1 до значения в lastRow
For i = 1 To lastRow

' запускается один раз для каждого элемента в коллекции
For Each s In coll

Цикл Do другой. Он работает:

• В то время как условие верно
• Пока условие не будет выполнено

Другими словами, количество циклов в большинстве случаев не имеет значения.

Итак, что такое условие и как мы их используем?

Условия

Условие — это утверждение, которое оценивается как истинное или ложное. Они в основном используются с операторами Loops и If. При создании условия вы используете такие знаки, как >, <, <>,> =, =.

Ниже приведены примеры условий

Вы могли заметить x = 5 как условие. Его следует путать с х = 5, при использовании в качестве назначения.

Например

' означает: значение 6 будет храниться в х
x = 6

' означает: х равен 6?
If x = 6

' означает: х равен 6?
Do While x = 6

В следующей таблице показано, как «=» используется в условиях и назначениях.

Формат цикла Do

Цикл Do можно использовать четырьмя способами, и это часто вызывает путаницу. Однако в каждом из этих четырех способов есть только небольшая разница.

Do всегда в начале первой строки, а Loop всегда в конце последней строки.

Мы можем добавить условие после любой строки.

Do [условие]
Loop

Do 
Loop [условие]

Условию предшествует While или Until, которое дает нам эти четыре возможности

Do While [условие]
Loop

Do Until [условие]
Loop

Do 
Loop While [условие]

Do 
Loop Until [условие]

Давайте посмотрим на некоторые примеры, чтобы прояснить это.

Примеры цикла Do

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

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

Следующий код показывает это

 Dim sCommand As String

    Do
        ' Получить пользовательский ввод
        sCommand = InputBox("Пожалуйста, введите элемент")

        ' Печать в Immediate Window (Ctrl + G для просмотра)
        Debug.Print sCommand

    Loop While sCommand <> ""

Код входит в цикл и продолжается до тех пор, пока не достигнет строки «Loop While». На этом этапе он проверяет, оценивается ли условие как истинное или ложное.

Если условие оценивается как ложное, то код выходит из цикла и продолжается.
Если условие оценивается как истинное, то код возвращается к строке Do и снова проходит через цикл.
Разница между наличием условия на линии Do и на линии Loop очень проста.

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

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

Sub GetInput()

    Dim sCommand As String

    ' Условие в начале
    Do While sCommand <> "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 1")
    Loop

    ' Условие в конце
    Do
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 2")
    Loop While sCommand <> "н"

End Sub

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

Однако, если мы установим для sCommand значение «н» до запуска цикла «Do While», код не войдет в цикл.

Sub GetInput2()

    Dim sCommand As String
    sCommand = "н"

    ' Цикл не будет работать, поскольку команда "н"
    Do Whilel sCommand <> "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 1")
    Loop

    ' Цикл все равно будет запущен хотя бы один раз
    Do
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 2")
    Loop While sCommand <> "н"

End Sub

Второй цикл в вышеприведенном примере (то есть Loop While) всегда будет запускаться хотя бы один раз.

While против Until

При использовании Do Loop условию должно предшествовать Until или While.

Until и While, по сути, противоположны друг другу. Они используются в VBA аналогично тому, как они используются в английском языке.

Например:

• Оставьте одежду, пока не пойдет дождь
• Оставь одежду, пока не идет дождь

Другой пример:

• Оставайся в постели, пока не станет светло
• Оставайся в постели, пока темно

Еще один пример:

• повторять, пока число не станет больше или равно десяти
• повторить пока счет меньше десяти

Как видите, использование Until и While — это просто противоположный способ написания одного и того же условия.

Примеры Until и While

Следующий код показывает циклы «While» и «Until» рядом. Как видите, единственная разница в том, что условие полностью изменено.

Примечание: знаки <> означают «не равно».

Sub GetInput()

    Dim sCommand As String

    ' Условие в начале
    Do Until sCommand = "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 1")
    Loop

    Do While sCommand <> "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 1")
    Loop

    ' Условие в конце
    Do
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 2")
    Loop Until sCommand = "н"

    Do
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 2")
    Loop While sCommand <> "н"

End Sub

• Первый цикл: запускается только в том случае, если sCommand не равен ‘н’.
• Второй цикл: запускается только в том случае, если sCommand не равен ‘н’.
• Третий цикл: будет запущен хотя бы один раз перед проверкой sCommand.
• Четвертый цикл: будет запущен хотя бы один раз перед проверкой sCommand.

Пример: проверка объектов

Примером использования Until и While является проверка объектов. Когда объект не был назначен, он имеет значение Nothing.

Поэтому, когда мы объявляем переменную книги в следующем примере, она имеет значение Nothing, пока мы не назначим ее Workbook.

Противоположностью Nothing не является Nothing, что может сбить с толку.

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

Вы можете увидеть пример кода здесь:

Dim wrk As Workbook
    Set wrk = GetFirstWorkbook()

    Do Until wrk Is Nothing
        Debug.Print wrk.Name
        Set wrk = GetNextWorkbook()
    Loop

Написание этого кода с использованием Do While было бы более запутанным, так как условие Not Is Nothing

Dim wrk As Workbook
    Set wrk = GetFirstWorkbook()

    Do While Not wrk Is Nothing
        Debug.Print wrk.Name
        Set wrk = GetNextWorkbook()
    Loop

Это делает код более понятным, и наличие четких условий — всегда хорошо. Честно говоря, разница маленькая, и выбор между «While» и «Until» действительно сводится к личному выбору.

Цикл Exit Do

Мы можем выйти из любого цикла Do с помощью оператора Exit Do.

Следующий код показывает пример использования Exit Do

Do While i < 1000
     If Cells(i,1) = "Найдено" Then 
         Exit Do
     End If
     i = i + 1
Loop 

В этом случае мы выходим из цикла Do Loop, если ячейка содержит текст «Найдено».

While Wend

Этот цикл в VBA, чтобы сделать его совместимым со старым кодом. Microsoft рекомендует использовать циклы Do, поскольку они более структурированы.

Из MSDN: «Оператор Do… Loop обеспечивает более структурированный и гибкий способ выполнения циклов».

Формат цикла VBA While Wend

Цикл VBA While имеет следующий формат:

While <Условие>
Wend

While Wend против Do

Разница между циклами VBA While и VBA Do заключается в следующем:

1. While может иметь условие только в начале цикла.
2. While не имеет версии Until.
3. Не существует оператора для выхода из цикла While, как Exit For или Exit Do.

Условие для цикла VBA While такое же, как и для цикла VBA Do While. Два цикла в приведенном ниже коде работают точно так же.

Sub GetInput()

    Dim sCommand As String

    Do While sCommand <> "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 1")
    Loop

    While sCommand <> "н"
        sCommand = InputBox("Пожалуйста, введите элемент для цикла 2")
    Wend

End Sub

Бесконечный цикл

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

Следующий код показывает бесконечный цикл

Dim cnt As Long
    cnt = 1

    'это бесконечный цикл
    Do While cnt <> 5

    Loop

В этом примере cnt установлен в 1, но он никогда не обновляется. Поэтому условие никогда не будет выполнено — cnt всегда будет меньше 5.

В следующем коде cnt обновляется каждый раз, поэтому условие будет выполнено.

Dim cnt As Long
    cnt = 1

    Do While cnt <> 5
        cnt = cnt + 1
    Loop

Как вы можете видеть, использование For Loop безопаснее для подсчета, поскольку оно автоматически обновляет счет в цикле. Ниже приведен тот же цикл с использованием For.

Dim i As Long
    For i = 1 To 4

    Next i

Это явно лучший способ сделать это. Цикл For устанавливает начальное значение, условие и счет в одну строку.

Конечно, можно использовать бесконечный цикл, используя For — это потребует немного больше усилий 🙂

 Dim i As Long
    ' Бесконечный цикл
    For i = 1 To 4
        ' i никогда не достигнет 4
        i = 1
    Next i

Работа с бесконечным циклом

Когда у вас бесконечный цикл — VBA не выдаст ошибку. Ваш код будет продолжать работать, а редактор Visual Basic не будет отвечать.

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

Вы также можете выйти из цикла, убив процесс. Нажмите Ctrl + Shift + Esc. На вкладке Процессы найдите Excel / Microsoft Excel. Щелкните правой кнопкой мыши по этому и выберите «Завершить процесс». Это закроет Excel, и вы можете потерять часть работы — так что гораздо лучше использовать Ctrl + Break или его эквивалент.

Использование функций Worksheet вместо циклов

Иногда вы можете использовать функцию листа вместо цикла.

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

Использовать функции рабочего листа очень просто. Ниже приведен пример использования Sum и Count.

Sub WorksheetFunctions()

    Debug.Print WorksheetFunction.Sum(Range("A1:A10"))

    Debug.Print WorksheetFunction.Count(Range("A1:A10"))

End Sub

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

Sub SumWithLoop()

    Dim total As Long, count As Long
    Dim rg As Range
    For Each rg In Range("A1:A10")
        ' Total
        total = total + rg
        ' Count
        If rg <> "" Then
            count = count + 1
        End If
    Next rg

    Debug.Print total
    Debug.Print count

End Sub

Резюме

Цикл Do While

• Цикл Do можно использовать 4 способами.
• Его можно использовать в начале или в конце, Do While .. Loop, Do … Loop While
• Может использоваться с Until в начале или в конце, Do Until .. Loop, Do … Loop Until
• While и Until используют противоположные условия друг к другу.
• Бесконечный цикл происходит, если ваше условие выхода никогда не будет выполнено.
• Иногда использование функции рабочего листа более эффективно, чем использование цикла.

Цикл While Wend

• Цикл Wend Wend устарел, и вы можете вместо этого использовать цикл Do.

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

Вам даже не нужно быть программистом и знать язык программирования «VBA» чтобы создавать свои макро-программы с помощью инструмента записи макросов.

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

Теперь нам доступна на ленте новая закладка «Разработчик» со всеми своими инструментами для автоматизации работы в Excel и создания макросов.

Применение VBA и макросов в Microsoft Excel

Макросы – это внутренние приложения, которые берут на себя всю рутинную работу, облегчая жизнь пользователю. Каждый пользователь может создать макрос без знания языков программирования. Для этого существует макрорекодер, который запускается с помощью кнопки «Запись макроса».

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

Как записать готовый макрос в Excel? Очень просто:

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



2. В появившимся диалоговом окне заполняем параметры макроса. И нажимаем «ОК».



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



4. Для выполнения или редактирования записанного макроса нажимаем на кнопку «Макросы» (или комбинацию клавиш ALT+F8). Появится окно со списком записанных макросов и кнопками для управления ими.

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



Как работать с макросами в Excel

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

1 Правильные имена в макросах.

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

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

2 Используйте относительные (не абсолютные) адреса ячеек

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

По умолчанию в Excel включен режим «Абсолют», но вы можете изменить его, включив кнопку «Относительные ссылки» расположенную ниже под кнопкой «Запись макроса» на панели инструментов вкладки «Разработчик»:

3 Всегда начинайте запись с курсором в A1

Абсолютный отсчет ячеек, всегда ведется с исходного положения (адрес ячейки А1) – до адреса курсора с вашими данными. Если вы сохранили ваш макрос в книге личных макросов (рекомендуется так и делать), то вы можете использовать свою программу на других листах с аналогичными данными. Независимо от того, где ваш курсор позиционируется, когда вы начинаете запись макроса! Даже если он уже находится в ячейке A1, ваш первый макрос лучше записывать после нажатия клавиш должны быть Ctrl + Home.

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

4 Всегда перемещаться с клавиш направления в момент записи макроса

Используйте кнопки со стрелками для управления курсором (Ctrl + Up, и т.п.). Позиционируйте курсор, так чтобы вы могли добавить, изменить или удалить данные внутри таблицы по мере необходимости.

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

5 Создавайте макросы для конкретных небольших задач

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

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

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

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

​Смотрите также​Как изменить формат​ для выполнения всех​ момент записи и​Userform: В этой главе​VBA (Visual Basic for​ понимать, что такое​ СУММПРОИЗВ.​ ячейки, Строка поиска.​Этот раздел предназначен для​ пользователями.​ но с «приставкой»​ числом пробелов, равных​ и означает еще​ (значение x1 записывается​ вставляют, например, hh​ кода в VBA​Немногие знают, что первая​

Что такое VBA

​ ячейки в Excel​ этих функций, в​ эффективность при выполнении.​ Вы узнаете, как​ Applications) – это​ формулы массива в​Логические функции: Узнайте, как​

​Шаблоны: Вместо того, чтобы​ пользователей, не знакомых​Этот учебник не является​ Itog накопление итога​ целочисленному аргументу, или​ один запуск цикла)​ в ячейку с​ (это значит, что​ их необходимо отделять​ версия популярного продукта​ быстро и качественно.​

​ том числе открытие​​ создавать пользовательские формы​ название языка программирования​ Excel. Одноячеечные формулы​ пользоваться логическими функциями​ создавать рабочую книгу​ с Excel.​ исчерпывающим руководством по​ по данному столбцу.​ Asc для перевода​End Sub.​ координатами (i,1))​ запустить программку можно​ от объекта точкой.​ Microsoft Excel появилась​Нестандартное условное форматирование​ и соединение всех​5 простых советов, которые​ в VBA.​ для Microsoft Office.​ массива позволяют выполнять​

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

​ Excel, такими как​ Excel с чистого​Microsoft Excel – одно​ языку программирования Excel​ Например, ItogTP –​ символов в код​Если все сделано правильно,​Cells(i, 2).Value = y​ будет блиц-командой «Ctrl+h»).​ Например, как будет​ в 1985 году.​ по значению ячейки​ листов в одну​

​ помогут в создании​Автор: Антон Андронов​ В данном разделе​ сразу серию вычислений​ ЕСЛИ, И, ИЛИ.​ листа, Вы можете​ из самых широко​ VBA. Его цель​ касается столбца таблицы,​ ANSI. Все они​

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

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

​ – помочь начинающему​ озаглавленного, как «планируемый​ имеют широкое применение​ запись и запуск​ в ячейку с​Теперь, когда уже запущена​ очень часто при​ он пережил несколько​Стили ячеек в​Используйте кнопки со стрелками​ Воспользуйтесь этими простыми​ возможности в программе​ примеры использования VBA​Примеры: Подсчёт ошибок, Подсчёт​ Игра «Бросить кости».​

​ на базе шаблона.​ истории. Сотни миллионов​ специалисту освоить написание​ товарооборот».​

Как начать

​ и позволяют работать​ макроса (см. инструкцию​ координатами (i,2))​ запись макроса, производят​ программировании в «Эксель»​ модификаций и востребован​

​ Excel и средства​ для управления курсором​ советами, которые позволяют​ Excel. Они автоматизируют​ применительно к Excel.​

• ​ уникальных значений, Подсчёт​Ссылки на ячейки: Ссылка​ Существует множество бесплатных​ людей во всём​ макросов в Excel​
• ​Используя введенные обозначения, получаем​
• ​ со строками в​ выше), то при​i = i +​
• ​ копирование содержимого какой-либо​ используют команду Cells(1,1).Select.​

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

​ управления ими.​

​ (Ctrl + Up,​

​ быстро и просто​

​ рабочие процессы и​Создание макроса: При помощи​ с критерием «ИЛИ»,​ на ячейку –​ шаблонов, которые так​ мире пользуются Microsoft​ при помощи кода​ формулы для отклонений.​

​ «Эксель», создавая приложения,​ его вызове каждый​ 1 (действует счетчик);​ ячейки в другую.​ Она означает, что​ по всему миру.​Создание шаблонов и​ и т.п.). Позиционируйте​ создавать качественные макропрограммы​ берут большую часть​ VBA Вы можете​ Суммирование каждой n-ой​ это очень важный​ и просятся, чтобы​

Макросы в Excel

​ Excel. Excel умеет​ VBA. Для желающих​ Если требуется осуществить​ значительно облегчающие работу​ раз будет получаться​x1 = x1 +​ Возвращаются на исходную​ необходимо выбрать ячейку​ При этом многие​ тем для быстрого​ курсор, так чтобы​ автоматически:​ рутинной работы пользователя​ автоматизировать задачи в​ строки, Суммирование наибольших​ элемент Excel. Поймите​ их использовали.​ работать с данными​ изучить этот язык​ расчет в %​

Пример 1

​ с этими таблицами.​ столбец заданного размера​ shag (аргумент изменяется​ пиктограмму. Нажимают на​ с координатами (1,1)​

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

• ​ форматирования.​
• ​ вы могли добавить,​
• ​Присваивайте макросам короткие, но​
• ​ на себя. Просто​

​ Excel, записывая так​ чисел, Суммирование диапазона​ разницу между относительной,​Примеры: Календарь, Бюджет, Планировщик​ любого типа и​ программирования более глубоко​ имеем (F –​Функции преобразования типа данных.​ (в данном случае​

​ на величину шага);​ «Запись макроса». Это​ т.е. A1.​ малой толикой возможностей​Защита файла паролем​ изменить или удалить​ содержательные имена. Когда​ нужно научится пользоваться​ называемые макросы. В​

​ с ошибками, Суммирование​

• ​ абсолютной и смешанной​ питания, Счет-фактура, Автоматизированный​
• ​ выполнять финансовые, математические​ существуют отличные книги​
• ​ P) / P​ Например, CVar возвращает​ состоящий из 10​

​Loop​ действие означает завершение​Вместе с ней нередко​ этого табличного процессора​

​ и шифрованием.​ данные внутри таблицы​ вы войдете вкус,​ макросами и производительность​ этом разделе Вы​ с критерием «ИЛИ»,​ ссылками, и Вы​ счет-фактура, Шаблоны по​ и статистические вычисления.​ по Excel VBA.​ * 100, а​ значение аргумента Expression,​

​ ячеек).​End Sub.​ программки.​ используется Selection.ClearContents. Ее​ и даже не​Как настроить автосохранение​ по мере необходимости.​ со временем вам​ труда возрастет в​ научитесь создавать простой​ Поиск в двух​ наверняка добьётесь успеха!​

​ умолчанию.​Диапазон: Диапазон в Excel​ Далее приведено содержание​ в сумме —​ преобразовав его в​В повседневной жизни сплошь​В результате запуска данного​

Пример 2

​Далее:​ выполнение означает очистку​ догадываются, как им​

​ документа.​Использование мыши для навигации​ придется создавать много​ десятки раз!​ макрос.​ столбцах, Наиболее часто​Примеры: Копируем точную формулу,​Проверка данных: Используйте проверку​ – это набор​ самоучителя по Excel​

​ (F – P).​ тип данных Variant.​ и рядом возникает​ макроса в «Эксель»​вновь переходят на строку​ содержимого выбранной ячейки.​ могло бы облегчить​Защита персональных данных​ является более сложным​

​ макросов. При выборе​Вам даже не нужно​MsgBox: MsgBox – это​ встречающееся слово, Система​ 3D ссылка, Создание​ данных в Excel​ из двух или​

​ Visual Basic. Для​

​Результаты этих вычислений можно​

​Функции работы с датами.​

​ необходимость принять то​

​ получаем два столбца,​

​ «Макросы»;​Прежде всего требуется создать​ жизнь умение программирования​ в файле.​ и не так​

​ в диалоговом окне​ быть программистом и​

​ диалоговое окно в​ линейных уравнений.​ внешней ссылки, Гиперссылки.​ и будьте уверены,​

​ более ячеек. В​ начинающих программистов настоятельно​ лучше всего сразу​ Они значительно расширяют​

​ или иное решение​ в первом из​

​в списке выбирают «Макрос​ файл и сохранить​ в Excel.​

​Защита листа и​

​ надежным в момент​

​ их легче найти​ знать язык программирования​ VBA, при помощи​Эта глава рассказывает о​Дата и время: Чтобы​ что пользователи введут​ этой главе Вы​ рекомендуется начать с​

​ внести в соответствующие​ стандартные возможности «Эксель».​ в зависимости от​

Пример 3

​ которых записаны значения​ 1»;​ его, присвоив имя​Программирование в Excel осуществляется​ ячеек в Excel.​ записи. Когда дело​ с короткими и​

​ «VBA» чтобы создавать​ которого можно показывать​ мощных инструментах, которые​ ввести дату в​ в ячейку только​ найдёте обзор некоторых​ первого раздела учебника​ ячейки таблицы «Эксель».​ Так, функция WeekdayName​

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

​ свои макро-программы с​ информационные сообщения пользователям​

​ предлагает Excel для​ Excel, используйте символы-разделители:​ подходящее значение.​ очень важных операций​ и изучать их​

​Для итогов по факту​ возвращает название (полное​ обойтись без них​ во втором —​ действие запускается начатием​ «Книга Excel с​

​ Visual Basic for​ списке скрытых листов.​ использовать мышь лучше​

​ VBA предоставляет вам​ помощью инструмента записи​ Вашей программы.​ анализа данных.​ слеш (/), тире​Примеры: Отбросить недопустимые даты,​ с диапазонами.​

​ по порядку. Те,​ и прогнозу получают​ или частичное) дня​ и в VBA​ для y.​ сочетания клавиш «Ctrl+hh»).​ поддержкой макросов».​ Application, который изначально​Проверка ввода данных​ только для вызова​ возможность указать описание​

​ макросов.​Объекты Workbook и Worksheet:​

​Сортировка: В Excel Вы​

​ (-) или точку​ Ограничение бюджета, Предотвращение​Примеры: Последовательность Фибоначчи, Пользовательские​ кто имеет опыт​ по формулам ItogP=ItogP​ недели по его​

​ Excel. Примеры программ,​Затем по ним строится​В результате происходит действие,​Затем необходимо перейти в​ встроен в самый​

​ в Excel и​ меню.​ к имени. Обязательно​Сначала надо включить панель​

​ Узнайте больше об​

​ можете сортировать по​ (.). Чтобы ввести​ дублирования записей, Коды​ списки, Примечания, Скрытие​ в программировании на​ + P и​ номеру. Еще более​ где дальнейший ход​ график способом, стандартным​ которое было осуществлено​ приложение VB, для​

Пример 4

​ известный табличный процессор​ ее особенности.​Держите ваши макросы для​ используйте ее.​ разработчика. Для этого​ объектах Workbook и​ одному или нескольким​ время, используйте двоеточие​ продуктов, Выпадающий список,​ строк и столбцов,​ VBA, могут сразу​ ItogF=ItogF+ F.​ полезной является Timer.​ выполнения алгоритма выбирается,​ для «Эксель».​ в процессе записи​ чего достаточно воспользоваться​

​ от Microsoft.​Автоматическое создание таблиц​ небольших специфичных задач.​Имя макроса обязательно должно​ в меню «Файл»​ Worksheet в VBA.​

​ столбцам. Расположите данные​

​ (:). Дату и​

​ Зависимые выпадающие списки.​

​ Пропускать пустые ячейки,​ же перейти к​Для отклонений используют =​ Он выдает число​ а не предопределен​Для реализации циклов в​

​ макроса.​

​ комбинацией клавиш «Alt»​К его достоинствам специалисты​ Excel.​ Чем больше программный​ начинаться с букв​

​ открываем группу опций​Объект Range: Объект Range​

​ по убыванию или​ время можно вводить​

​Сочетания клавиш: Сочетания клавиш​

​ Транспонирование, Объединение и​

​ интересующим темам.​ (ItogF – ItogP)​ секунд, которые прошли​ изначально, чаще всего​

Функции VBA

​ VBA Excel 2010,​Имеет смысл увидеть, как​ и «F11». Далее:​ относят сравнительную легкость​Автоматическое добавление строк​ код в макросе,​ и не может​ «Параметры». В появившемся​ – это ячейка​ по возрастанию.Примеры: Сортировка​ в одну ячейку.​ позволяют увеличивать скорость​ пересечение.​Часть 1: Оформление кода​ / ItogP *​ с полуночи до​

• ​ используют конструкцию If​ как и в​ выглядит код. Для​в строке меню, расположенном​ освоения. Как показывает​
• ​ и столбцов в​ тем медленнее он​ содержать пробелы, символы​ окне «Параметры Excel»​ (или ячейки) Вашего​ по цвету, Обратный​Примеры: Функция РАЗНДАТ, Будние​
• ​ работы, используя клавиатуру​Формулы и функции: Формула​Часть 2: Типы данных,​
• ​ 100, если расчет​ конкретного момента дня.​ …Then (для сложных​ других версиях, наряду​ этого вновь переходят​ в верхней части​ практика, азами VBA​ таблицу.​ работает, особенно если​ или знаки препинания.​ открываем группу «Настройка​ листа. Это самый​ список, Случайный список.​ и рабочие дни,​ вместо мыши.​ – это выражение,​ переменные и константы​
• ​ ведется в процентах,​Функции для преобразования числового​ случаев) If …Then​ с уже приведенной​ на строку «Макросы»​
• ​ окна, нажимают на​ могут овладеть даже​Стили таблиц для​ это требуется для​ После первого символа,​ ленты». Обратите внимание​ важный объект VBA.​Фильтрация: Настройте фильтр для​ Дней до дня​Примеры: Функциональные клавиши, Подсказки​ которое вычисляет значение​Часть 3: Массивы​ а в случае​
• ​ аргумента в разные​ …END If.​ конструкцией Do While​ и нажимают «Изменить»​ иконку рядом с​
• ​ пользователи, которые не​ автоматического форматирования диапазонов​ выполнения многих функций​ вы можете использовать​ на правую колонку​Переменные: В этом разделе​ данных в Excel,​
• ​ рождения, Табель, Последний​

​ клавиш.​ ячейки. Функции –​Часть 4: Процедуры Function​ суммарной величины —​

Пример 5

​ системы счисления. Например,​Рассмотрим конкретный случай. Предположим,​ используется For.​

​ или «Войти». В​ иконкой Excel;​ имеют навыков профессионального​

• ​ ячеек.​ или рассчитать много​ больше букв, цифр​
• ​ настроек под аналогичным​ Вы научитесь объявлять,​ чтобы видеть только​ день месяца, Праздники,​Печать: Эта глава научит​ это предопределённые формулы,​ и Sub​

​ (ItogF – ItogP).​ Oct выдает в​

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

​ необходимо создать макрос​Рассмотрим программу, которая создаст​ результате оказываются в​выбирают команду Mudule;​ программирования. К особенностям​Возможности умной таблицы.​ формул в большой​ или нижнее подчеркивание,​ названием «Настройка ленты».​ инициализировать и отображать​ записи, удовлетворяющие определённому​ Квартал, День года.​ вас отправлять листы​ доступные в Excel.​Часть 5: Условные операторы​Результаты опять же сразу​ восьмеричное представление числа.​ для «Эксель», чтобы​

Переменные

​ столбец. В каждой​ среде VBA. Собственно,​сохраняют, нажав на иконку​ VBA относится выполнение​Удаление дубликатов с​

• ​ электронной таблице.​ но максимальная длина​
• ​ В ней следует​ переменную в VBA.​ критерию.Примеры: Числовые и​
• ​Текстовые функции: Excel предлагает​ Excel на печать​Примеры: Процентное изменение, Имена​
• ​Часть 6: Циклы​ записываются в соответствующие​Функции форматирования. Важнейшей из​

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

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

​ отметить галочкой опцию​Выражение «If Then»: Используйте​ текстовые фильтры, Фильтры​ огромное количество функций​ и задавать некоторые​ в формулах, Динамический​Часть 7: Операторы и​ ячейки, поэтому нет​ них является Format.​

​ координатами (1,1) было​ записаны квадраты номера​ находится между строками​ disk;​

​ офисных приложений.​Абсолютные относительные адреса​ процесс отдельно, вы​ символов.​ «Разработчик» как показано​

​ выражение «If Then»​ по дате, Расширенный​ для самых различных​ важные настройки при​ именованный диапазон, Параметры​ встроенные функции​ необходимости их присваивания​ Она возвращает значение​

​ записано:​ соответствующей строки. Использование​ Sub Макрос1() и​пишут, скажем так, набросок​Недостатком программы являются проблемы,​

​ ячеек в формуле.​ можете быстро просмотреть​Абсолютный адрес ячейки –​ ниже на рисунке:​

​ в VBA, чтобы​ фильтр, Форма данных,​ операций с текстовыми​ печати.​ вставки, Строка состояния,​Часть 8: Объектная модель​ переменным.​ типа Variant с​1, если аргумент положительный;​ конструкции For позволит​ End Sub.​ кода.​ связанные с совместимостью​Автоматический пересчет формул​ результаты для проверки​ это точное местонахождение​Теперь нам доступна на​

​ выполнять строки кода,​ Удаляем дубликаты, Структурирование​ строками.​Примеры: Режимы просмотра, Разрывы​ Быстрые операции.​ Excel​Перед запуском созданной программы,​ выражением, отформатированным согласно​0, если аргумент нулевой;​ записать ее очень​Если копирование было выполнено,​Он выглядит следующим образом:​ различных версий. Они​ и вручную.​ точности их выполнения.​ курсора, когда информация​ ленте новая закладка​ если встречается определённое​ данных.​Примеры: Разделение строки, Количество​ страниц, Верхние и​Этот раздел даёт базовые​Часть 9: События в​ требуется сохранить рабочую​

​ инструкциям, которые заданы​

fb.ru

Самоучитель по Excel VBA

​-1, если аргумент отрицательный.​ коротко, без использования​ например, из ячейки​Sub program ()​ обусловлены тем, что​Трехмерные ссылки в​Если нельзя разбить длинный​ о его размещении​ «Разработчик» со всеми​ условие.​Условное форматирование: Условное форматирование​ экземпляров текста, Количество​ нижние колонтитулы, Номера​ понятия по работе​ Excel​ книгу, например, под​

​ в описании формата.​Создание такого макроса для​ счетчика.​ А1 в ячейку​’Наш код​ код программы VBA​ формулах.​ макрос на короткие​ записывается в макро-адреса​ своими инструментами для​Цикл: Циклы – это​ в Excel позволяет​ слов, Текст по​ страниц, Печать заголовков,​ в Excel.​Часть 10: Ошибки VBA​ названием «Отчет1.xls».​и пр.​ «Эксель» начинается стандартным​Сначала нужно создать макрос,​ C1, то одна​End Sub​ обращается к функциональным​Зависимость формул и​ приложения, а требуется​ с жесткой привязкой​

• ​ автоматизации работы в​
• ​ мощнейшая из техник​ выделить ячейки определённым​
• ​ столбцам, Верхний и​
• ​ Центрирование на странице,​Лента меню: Когда Вы​
• ​Примеры по VBA​
• ​Клавишу «Создать отчетную таблицу»​
• ​Изучение свойств этих функций​ способом, через использование​
• ​ как описано выше.​ из строк кода​
• ​Обратите внимание, что строка​ возможностям, которые присутствуют​
• ​ структура их вычисления.​
• ​ проверить его функциональность​

​ к конкретной ячейке​ Excel и создания​ программирования. Цикл в​ цветом в зависимости​

​ нижний регистр, Удалить​ Печать сетки и​
​ запускаете Excel, на​
​Более подробное описание по​

​ требуется нажать всего​

office-guru.ru

300 примеров по Excel

​ и их применение​ «горячих» клавиш Alt​ Далее записываем сам​ будет выглядеть, как​ «’Наш код» будет​ в новой версии​Как убрать ошибки​ пошагово («отладкой»). Нажмите​​ в момент записи.​ макросов.​ VBA позволяет Вам​​ от содержащихся в​ ненужные символы, Сравнение​ заголовков строк/столбцов, Область​ Ленте меню открывается​ Excel VBA можно​ 1 раз после​ позволит значительно расширить​

• ​ и F11. Далее​
• ​ код. Считаем, что​
• ​ Range(“C1”).Select. В переводе​
• ​ выделена другим цветом​
• ​ продукта, но отсутствуют​

​ в ячейках.​ клавишу F8 каждый​ Абсолютные адреса ограничивают​Макросы – это внутренние​ обрабатывать диапазон ячеек​ них значений.Примеры: Управление​ текста, Функции НАЙТИ​ печати.​ вкладка Главная. Узнайте,​ найти на сайте​ ввода заголовочной информации.​ сферу применения «Эксель».​ записывается следующий код:​ нас интересуют значения​ это выглядит, как​

​ (зеленым). Причина в​ в старой. Также​Зависимости формул и​ раз, когда вы​ возможности макроса, если​ приложения, которые берут​ снова и снова,​ правилами, Гистограммы, Цветовые​ и ПОИСК, Функции​

Введение

​Обмен данными и общий​ как сворачивать и​ Microsoft Office.​

​ Следует знать и​Попробуем перейти к решению​Sub program()​ для 10 ячеек.​ «Диапазон(“C1”).Выделить», иными словами​ апострофе, поставленном в​ к минусам относят​ построение их схемы.​ хотите перейти к​ будут добавляться /​ на себя всю​

1. ​ написав для этого​ шкалы, Наборы значков,​ ПОДСТАВИТЬ и ЗАМЕНИТЬ.​ доступ: Узнайте, как​ настраивать Ленту.​Урок подготовлен для Вас​ другие правила. В​ более сложных задач.​

   ​x= Cells(1, 1).Value (эта​ Код выглядит следующим​ осуществляет переход в​ начале строки, который​ и чрезмерно высокую​Проверка вводимых значений.​

2. ​ следующему шагу выполнения​ удаляться данные на​ рутинную работу, облегчая​ всего лишь несколько​ Новое правило, Поиск​Функции поиска и ссылок:​

   ​ можно отправить данные​Примеры: Панель быстрого доступа,​ командой сайта office-guru.ru​ частности, кнопка «Добавить​ Например:​

Основы

​ команда присваивает x​ образом.​ VBA Excel, в​

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

   ​ строк кода.​ дубликатов, Закрашивание чередующихся​

2. ​ Узнайте всё о​ Excel в документ​ Вкладка Разработчик.​Источник: http://www.excelfunctions.net/Excel-VBA-Tutorial.html​ строку» должна нажиматься​

   ​Дан бумажный документ отчета​ значение содержимого ячейки​For i = 1​ ячейку С1.​

3. ​ следует комментарий.​ изменения посторонним лицом.​ значению.​ программы останавливается, когда​ список данных будет​ пользователь может создать​Ошибки макросов: Этот раздел​ строк, Сравнение двух​ функциях Excel для​ Word или в​

   ​Рабочая книга: Книгой называют​Перевел: Антон Андронов​ каждый раз после​ фактического уровня издержек​ с координатами (1,​

4. ​ to 10 Next​Активную часть кода завершает​Теперь вы можете написать​ Тем не менее​Имена диапазонов с​ он видит ошибку.​

   ​ становиться больше. Относительные​ макрос без знания​ научит справляться с​ списков, Конфликт правил,​ работы со ссылками​ другие файлы. Кроме​ файл Excel. Когда​Автор: Антон Андронов​ ввода в таблицу​

5. ​ предприятия. Требуется:​ 1))​Команда переводится на «человеческий»​ команда ActiveSheet.Paste. Она​ любой код и​ Microsoft Office, а​

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

6. ​ Чеклист.​ и массивами, таких​ этого, из множества​ Вы запускаете Excel,​Ищите примеры работы в​ значений по каждому​разработать его шаблонную часть​If x>0 Then Cells(1,​ язык, как «Повторять​ означает запись содержания​

   ​ создать для себя​ также IBM Lotus​Область видимости имени​ ошибку, которую легко​

7. ​ курсор к конкретному​ этого существует макрорекодер,​ Excel.​Диаграммы: Простейшая диаграмма в​ как ВПР, ГПР,​ приведенных примеров вы​

   ​ автоматически создаётся пустая​ Excel? Хотите найти​ виду деятельности. После​ посредством табличного процессора​ 1).Value = 1​

8. ​ от 1 до​ выделенной ячейки (в​ новый инструмент в​ Symphony позволяют пользователю​

   ​ на листе.​ найти с помощью​

9. ​ адресу ячейки.​ который запускается с​Операции со строками: В​ Excel может быть​ ПОИСКПОЗ, ИНДЕКС и​ узнаете, как предоставить​

   ​ рабочая книга.​ понятную инструкцию, которая​ занесения всех данных​ «Эксель»;​If x=0 Then Cells(1,​ 10 с шагом​ данном случае А1)​ VBA Excel (примеры​

10. ​ применять шифрование начального​Имена диапазонов с​ «отладки» или записать​По умолчанию в Excel​ помощью кнопки «Запись​ этом разделе Вы​ более красноречивой, чем​ ВЫБОР.​ общий доступ к​Примеры: Сохраняем в формате​ позволит в совершенстве​

    ​ требуется нажать кнопку​составить программу VBA, которая​ 1).Value = 0​ один».​ в выделенную ячейку​ программ см. далее).​ кода и установку​ относительным адресом ссылки.​ по-новому.​

11. ​ включен режим «Абсолют»,​ макроса».​ найдёте сведения о​ таблица полная чисел.​Примеры: Налоговые ставки, Функция​

    ​ книге Excel.​ Excel 97-2003, Просмотр​ овладеть великим множеством​ «Закончить» и затем​ будет запрашивать исходные​

Функции

​If x​Если ставится задача получить​ С1.​ Конечно, тем, кто​ пароля для его​Автоматически изменяемые диапазоны​Самоучитель Excel с примерами​ но вы можете​В этом режиме все​ самых важных функциях​

1. ​ Вы увидите: диаграммы​ СМЕЩ, «Левый” поиск,​Примеры: Лист Excel в​ нескольких рабочих книг,​ инструментов Excel, причем​ переключиться в окно​ данные для ее​End Sub.​ столбец с квадратами,​

   ​Циклы VBA помогают создавать​ знаком с азами​ просмотра.​ ячеек.​ для ежедневной офисной​

2. ​ изменить его, включив​ действия пользователя макрорекодер​ для работы со​ – это не​

   ​ Двумерный поиск, Поиск​ Word, Сохранить в​

3. ​ Рабочая область, Автовосстановление.​ быстро и легко?​ «Эксель».​ заполнения, осуществлять необходимые​Остается запустить макрос и​ например, всех нечетных​ различные макросы в​ Visual Basic, будет​

   ​Именно с этими понятиями​Изменяемые диапазоны и​ работы менеджера. Это​

4. ​ кнопку «Относительные ссылки»​ в Excel записывает,​ строковыми элементами в​ сложно.Примеры: Гистограмма, График,​ максимального значения, Функция​ PDF, Общий доступ​Рабочий лист: Лист –​ Предлагаем Вашему вниманию​Теперь вы знаете, как​ расчеты и заполнять​

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

5. ​ иллюстрированный пошаговый справочник​ расположенную ниже под​ переводя на язык​ VBA.​ Круговая диаграмма, Линейчатая​

   ​ ДВССЫЛ.​ к книге, SkyDrive,​ это набор ячеек,​самоучитель по работе в​ решать задачи для​ ими соответствующие ячейки​ нужное значение для​ от 1 до​Циклы VBA помогают создавать​

6. ​ даже те, кто​ кто собирается работать​Автоматическое создание графиков​ пользователя, в котором​ кнопкой «Запись макроса»​ программирования VBA-код в​Дата и время: Научитесь​ диаграмма, Диаграмма с​

   ​Финансовые функции: Этот раздел​ Excel Online, Импорт​ в которых Вы​ Excel на простых​ Excel с помощью​

7. ​ шаблона.​ аргумента.​ 11, то пишем:​ различные макросы. Предположим,​

   ​ их не имеет,​ в среде VBA.​ и диаграмм.​ детально описаны решения​ на панели инструментов​

8. ​ автоматическом режиме. После​ работать с датой​ областями, Точечная диаграмма,​ рассказывает о наиболее​

   ​ данных из Access,​ храните и обрабатываете​ примерах​ макросов. Умение применять​Рассмотрим один из вариантов​

9. ​Как вы уже могли​For i = 1​ что имеется функция​ при желании смогут​ Прежде всего необходимо​Как построить график​ различных задач в​

   ​ вкладки «Разработчик»:​ завершения записи мы​ и временем в​

10. ​ Ряды данных, Оси,​ популярных финансовых функциях​ Microsoft Query, Импорт​ данные. По умолчанию​. Здесь Вы найдёте​

    ​ vba excel (примеры​ решения.​ заметить, программировать в​

11. ​ to 10 step​ y=x + x2​ освоиться достаточно быстро.​ понять, что такое​ функции в Excel.​ области аналитики, учета,​Абсолютный отсчет ячеек, всегда​ получаем готовую программу,​

    ​ VBA.​ Лист диаграммы, Линия​ Excel.​ и экспорт текстовых​ каждая рабочая книга​ ответы на самые​ программ см. выше)​Все действия осуществляются на​ самом известном табличном​ 1 Next.​ + 3×3 –​За таким названием скрываются​

Анализ данных

​ объект. В Excel​Как сделать диаграмму​ статистики, анализа данных,​ ведется с исходного​

1. ​ которая сама выполняет​События: События – это​ тренда, Предел погрешностей,​Примеры: Кредиты различной длительности,​ файлов, XML.​ Excel содержит три​ различные вопросы и​ может понадобиться и​
2. ​ стандартном листе в​ процессоре Microsoft не​Здесь step — шаг.​ cos(x). Требуется создать​ программы, написанные на​ в этом качестве​ с процентами.​ финансовых расчетов и​ положения (адрес ячейки​ те действия, которые​
3. ​ действия, совершаемые пользователями,​ Спарклайны, Комбинированная диаграмма,​ Инвестиции и аннуитет,​Защита: Зашифруйте файл Excel​ листа (в Excel​ научитесь применять Excel​ для работы в​ Excel. Резервируются свободные​ так уж сложно.​ В данном случае​ макрос для получения​ языке Visual Basic​ выступают лист, книга,​
4. ​Как построить лепестковую​ вычислений. В самоучителе​ А1) – до​ выполнял пользователь при​ которые запускают выполнение​ Диаграмма-спидометр, Диаграмма-термометр, Диаграмма​ Расчёт сложных процентов,​ при помощи пароля.​ 2010 и более​ на практике. Самоучитель​ среде самого популярного​ ячейки для внесения​ Особенно, если научиться​ он равен двум.​ ее графика. Сделать​ for Application. Таким​
5. ​ ячейка и диапазон.​ диаграмму.​ описаны методы организации​ адреса курсора с​ записи.​ кода VBA.​ Ганта, Диаграмма Парето.​
6. ​ График погашения кредита,​ Только зная пароль,​ ранних версиях).​ состоит из пяти​
7. ​ на данный момент​ данных по месяцу,​ применять функции VBA.​ По умолчанию отсутствие​
8. ​ это можно только,​ образом, программирование в​ Данные объекты обладают​Пузырьковая диаграмма в​ рабочего пространства Excel,​ вашими данными. Если​Как записать готовый макрос​Массив: Массив – это​Сводные таблицы: Сводные таблицы​
9. ​ Амортизация.​ можно будет открыть​Примеры: Масштаб, Разделяем лист,​ разделов:​ текстового редактора «Ворд».​ году, названию компании-потребителя,​

VBA

​ Всего в этом​ этого слова в​ используя циклы VBA.​ Excel — это​ специальной иерархией, т.е.​ Инфографике.​ которые позволяют использовать​ вы сохранили ваш​

1. ​ в Excel? Очень​ группа переменных. В​ – один из​Статистические функции: Здесь Вы​ этот файл.​ Закрепление областей, Группировка​Введение​ В частности, можно​
2. ​ сумме издержек, их​ языке программирования, созданном​ цикле означает, что​За начальное и конечное​ создание макросов с​ подчиняются друг другу.​
3. ​Поверхностная диаграмма и​ программу как персональный​ макрос в книге​ просто:​
4. ​ VBA Вы можете​ самых мощных инструментов​ найдёте обзор самых​Примеры: Защита книги, Защита​ листов, Консолидация, Просмотр​
5. ​Основы​ путем записи, как​ уровня, товарооборота. Так​ специально для написания​
6. ​ шаг единичный.​ значение аргумента функции​ нужным кодом. Благодаря​Главным из них является​ пример ее построения.​ рабочий станок с​
7. ​ личных макросов (рекомендуется​На вкладке «Разработчик» нажимаем​ сослаться на определённую​ Excel. Сводная таблица​ полезных статистических функций​ листа, Блокировка ячеек,​ нескольких листов, Проверка​Функции​ показано в самом​
8. ​ как количество компаний​ приложений в «Эксель»​Полученные результаты нужно сохранять​ берут x1=0 и​
9. ​ этой возможности табличный​ Application, соответствующий самой​Построение линии тренда​ высокой производительностью и​ так и делать),​ кнопку «Запись макроса».​ переменную (элемент) массива,​
10. ​ позволит выделить суть​ Excel.​ Книга только для​ правописания.​
11. ​Анализ данных​ начале статьи, или​ (обществ), относительно которых​ и Word, около​
12. ​ в ячейки с​ x2=10. Кроме того,​ процессор Microsoft саморазвивается,​ программе Excel. Затем​ в Excel для​ комфортным управлением данными.​ то вы можете​В появившимся диалоговом окне​
13. ​ используя для этого​ из огромного набора​Примеры: Отрицательные числа на​ чтения, Пометить как​Форматирование ячеек: При форматировании​VBA​ через написание кода​
14. ​ составляется отчет, не​ 160 функций. Их​ номером (i,1). Тогда​ необходимо ввести константу​ подстраиваясь под требования​ следуют Workbooks, Worksheets,​ анализа графика.​Вводим в ячейку​ использовать свою программу​
15. ​ заполняем параметры макроса.​ имя массива и​ данных.​ нули, Случайные числа,​ окончательную.​ ячеек в Excel,​
16. ​Каждый раздел содержит несколько​ создавать кнопки меню,​ зафиксировано, ячейки для​ можно разделить на​

​ при каждом запуске​

office-guru.ru

Как работать с макросами в Excel 2010 без программирования кода

​ — значение для​ конкретного пользователя. Разобравшись​ а также Range.​Построение графиков в​ число как текст.​ на других листах​ И нажимаем «ОК».​ числовой индекс элемента.​Таблицы: Таблицы нужны для​ Функция РАНГ, ПЕРСЕНТИЛЬ​Узнайте, как функции в​

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

​ с тем, как​ Например, для обращения​ Excel практическая работа.​Заполнение ячеек в​ с аналогичными данными.​После завершения нажимаем на​Function и Sub: В​ того, чтобы выполнять​ и КВАРТИЛЬ, ПРЕДСКАЗ​ Excel помогают сэкономить​ внешний вид содержимого,​ главе вы найдете​ операции над текстом​ итогам и ФИО​ Это:​

​ i на величину​ и начальное значение​ создавать модули для​ к ячейке A1​Интерполяция графика и​ Excel знаками после​ Независимо от того,​

Применение VBA и макросов в Microsoft Excel

​ кнопку «Остановить запись»,​ Visual Basic for​ анализ имеющихся данных​ и ТЕНДЕНЦИЯ.​ время. Если Вы​ не изменяя самого​ ознакомительный урок, раскрывающий​ можно будет осуществлять​ специалиста заранее не​Математические функции. Применив их​ шага автоматически будет​ для счетчика.​

​ написания макросов, можно​ на конкретном листе​ табличных данных.​ запятой.​ где ваш курсор​ после чего макрос​ Applications функция (Function)​ быстро и легко.​Округление: В этом разделе​ только начинаете знакомство​ значения.​ основные понятия и​

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

1. ​ расти и номер​Все примеры макросов VBA​
2. ​ приступать к рассмотрению​ следует указать путь​Спарклайн позволяет создать​
3. ​4 способа заменить​ позиционируется, когда вы​ будет автоматически сохранен.​ может возвращать значение,​
4. ​Анализ «Что-если»: Анализ «Что-если»​ описаны три самых​ с функциями в​Примеры: Десятичные знаки, Денежный​ положения, и несколько​ или через вкладку​ присваивается новое название.​ значение косинуса, натурального​

​ у строки. Таким​ Excel создаются по​ конкретных примеров программ​ с учетом иерархии.​ мини график в​ точку на запятую​ начинаете запись макроса!​Для выполнения или редактирования​ в то время​ в Excel позволяет​ популярных функции для​ Excel, то рекомендуем​

​ против финансового, Форматы​

Как работать с макросами в Excel

​ простых и понятных​ «Вид» и пиктограмму​ Например, «Օтчет».​ логарифма, целой части​ образом, произойдет оптимизация​ той же процедуре,​ VBA Excel. Лучше​Что касается понятия «коллекция»,​

1 Правильные имена в макросах.

​ ячейке.​ в Excel.​ Даже если он​ записанного макроса нажимаем​ как процедура (Sub)​ подставлять различные значения​ округления чисел в​ Вам сначала познакомиться​ даты и времени,​ примеров. Хотите узнать​ «Макросы».​Для написания программы автоматического​ и пр.​ кода.​

​ которая представлена выше.​ всего начать с​ то это группа​Работа с шаблонами​​ уже находится в​ на кнопку «Макросы»​ – не может.​ (сценарии) в формулы.​ Excel. Это функции​ с главой Введение​ Дроби, Текст в​

2 Используйте относительные (не абсолютные) адреса ячеек

​ об Excel намного​Автор: Наира​ заполнения шаблона, необходимо​Финансовые функции. Благодаря их​В целом код будет​ В данном конкретном​ самых элементарных кодов.​ объектов того же​ графиков.​Как автоматически заполнить​ ячейке A1, ваш​ (или комбинацию клавиш​Объект Application: Главным в​Поиск Решения: В арсенале​ ОКРУГЛ, ОКРУГЛВВЕРХ и​ в формулы и​ число, Число в​ больше? Немедленно приступайте​

​Данный учебник является введением​ выбрать обозначения. Они​ наличию и используя​ выглядеть, как:​ случае код выглядит,​Задача: написать программу, которая​ класса, которая в​Уравнения и задачи​ ячейки в MS​

3 Всегда начинайте запись с курсором в A1

​ первый макрос лучше​ ALT+F8). Появится окно​ иерархии объектов является​ Excel есть инструмент,​ ОКРУГЛВНИЗ.​ функции.​ текст, Пользовательские числовые​ к изучению Microsoft​ в язык программирования​ будут использоваться для​ программирование в Excel,​Sub program()​ как:​ будет копировать значение​ записи имеет вид​ на подбор параметра.​ Excel с большими​ записывать после нажатия​ со списком записанных​ сам Excel. Мы​ который называется «Поиск​Примеры: Отбрасываем десятичные знаки,​СЧЁТ и СУММ: Чаще​ форматы, Формат по​ Excel вместе с​

​ Excel VBA (Visual​ переменных:​ можно получать эффективные​For i = 1​Sub programm()​ содержимое одной ячейки​ ChartObjects. Ее отдельные​3 примера использования​ таблицами.​ клавиш должны быть​ макросов и кнопками​ называем его объект​ Решения». Он использует​ Ближайшее кратное, Четные​ всего в Excel​ образцу, Стили ячеек,​

4 Всегда перемещаться с клавиш направления в момент записи макроса

​ Офис-Гуру! С нами​ Basic for Applications).​NN– номер текущей строки​ инструменты для ведения​ To 10 Step​x1 = 1​ и затем записывать​ элементы также являются​ подбора параметра.​

​Пример как изменить​ Ctrl + Home.​ для управления ими.​ Application. Объект Application​ различные методы анализа​ и нечетные.​ используются функции, которые​ Темы.​ вам будет гораздо​

5 Создавайте макросы для конкретных небольших задач

​ Изучив VBA, Вы​ таблицы;​ бухгалтерского учета и​ 1 (можно записать​x2 = 10​ в другую.​ объектами.​Надстройка поиск решения​ сразу все цены​Пример: Представьте себе, что​С помощью макропрограмм можно​

​ открывает доступ ко​ вычислений для поиска​Ошибки в формулах: Эта​ подсчитывают количество и​Найти и выделить: В​

​ проще!​ сможете создавать макросы​TP и TF –​ осуществления финансовых расчетов.​ просто For i​shag = 0.1​Для этого:​Следующее понятие — свойства.​ и подбор нескольких​ в Excel.​ каждый месяц вы​ увеличить производительность труда​ многим параметрам, связанным​ наилучших решений для​ глава научит Вас​ сумму. Вы можете​ этой главе Вы​

exceltable.com

Самоучитель Excel с примерами для пользователей среднего уровня

​Данный курс по Excel​ и выполнять в​ планируемый и фактический​Функции обработки массивов. К​ = 1 To​i = 1​открывают вкладку «Вид»;​ Они являются необходимой​ параметров.​Быстрое заполнение и​ получаете десятки таблиц​ пользователя в десятки​ с самим приложением​ задач оптимизации всех​ справляться с некоторыми​ посчитать количество и​ научитесь использовать два​ – это перевод​

Самообучение в программе Excel среднего уровня

Раздел 1: Решения проблем с введением данных в ячейки

​ Excel практически любые​ товарооборот;​
​ ним относятся Array,​ 10)​Do While x1 <​
​переходят на пиктограмму «Макросы»;​ характеристикой любого объекта.​Сценарии в Excel​
​ редактирование шаблона таблиц.​

Раздел 2: Автоматическое заполнение ячеек таблиц

​ из всех филиалов.​ раз. Но чтобы​ Excel.​ видов.​
​ распространёнными ошибками в​ сумму значений, выбранных​ очень полезных инструмента​
​ очень популярного англоязычного​ задачи. Вы очень​
​SF и SP –​ IsArray; LBound; UBound.​Cells(i, 1).Value = i​
​ x2 (цикл будет​жмут на «Запись макроса»;​ Например, для Range​

Раздел 3: Форматирование ячеек

​ позволяют прогнозировать результат.​Копирование формул без​ От вас требуется​
​ использовать запись пользовательских​Элементы управления ActiveX: Научитесь​Пакет анализа: Пакет анализа​
​ формулах Excel.​ по одному или​ Excel: Найти и​
​ сайта-самоучителя – excel-easy.com,​ скоро поймёте, что​ фактическая и планируемая​

Раздел 4: Защита данных

​Функции VBA Excel для​ ^ 2 (т.е.​
​ выполняться пока верно​заполняют открывшуюся форму.​
​ — это Value​Сортировка и фильтр​
​ изменения адресов относительных​ организовать данные и​
​ макросов на все​ создавать элементы управления​
​ – это надстройка​Примеры: ЕСЛИОШИБКА, ЕОШИБКА, Циклическая​ по нескольким критериям.​

Раздел 5: Работа с таблицами

​ заменить и Перейти.​ который посещают десятки​
​ макросы могут сэкономить​ сумма издержек;​ строки. Это достаточно​
​ в ячейку (i,1)​ выражение x1 <​Для простоты в поле​
​ или Formula.​
​ на примере базы​ ссылок.​

Раздел 6: Формулы в Excel

​ рассчитать показатели, чтобы​ 100% следует соблюдать​
​ ActiveX, такие как​ Excel, которая предоставляет​
​ ссылка, Зависимости формул,​Примеры: Подсчёт вхождений текста,​
​Примеры: Особенности инструмента «Найти»,​ тысяч человек ежедневно!​
​ уйму времени благодаря​IP и IF –​
​ многочисленная группа. В​ записывается значение квадрата​
​ x2)​

Раздел 7: Имена диапазонов ячеек

​ «Имя макроса» оставляют​Методы — это команды,​
​ данных клиентов.​Простые расчеты и​
​ произвести еще один​ простые правила, которые​
​ кнопки, текстовые поля,​ инструменты для анализа​
​ Ошибка плавающей запятой.​ Подсчёт логических значений,​
​ Удаляем пустые строки,​ Думаю, что и​

Раздел 8: Создание диаграмм и графиков в Excel

​ автоматизации повторяющихся задач​ планируемый и фактически​
​ нее входят, например,​ i)​
​y=x1 + x1^2 +​ «Макрос1», а в​
​ показывающие, что требуется​Обучение сводным таблицам​
​ вычисления без использования​ ежемесячный отчет. Вы​
​ существенно влияют на​ поля со списком​
​ финансовых, статистических и​Формулы массива: Изучив эту​ Подсчёт пустых и​
​ Отличия по строкам,​ вас он не​
​ и обеспечить гибкое​ уровень издержек.​
​ функции Space для​Next (в некотором смысле​ 3*x1^3 – Cos(x1)​
​ поле «Сочетание клавиш»​ сделать. При написании​

Раздел 9: Подбор параметра, поиск решения и сценарии

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

Раздел 10: Подбор параметра, поиск решения и сценарии

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

exceltable.com

​Cells(i, 1).Value = x1​

• Создаём макрос при помощи команды Запись макроса
• Цикл FOR
• Конструкция IF
• Конструкция CASE

Многие люди думают, что макросы в Excel – это очень трудно, но это не так. В этой статье Вы найдёте несколько интересных и простых примеров, как можно автоматизировать Ваши повседневные задачи в Excel. Макрос – это программа на Visual Basic, созданная для того, чтобы автоматизировать задачи в Microsoft Office. В своих примерах я использую Excel 2010, но с таким же успехом Вы можете использовать Excel 2007.

Создаем макрос при помощи команды «Запись макроса»

1. Для начала откройте вкладку View (Вид) на Ленте. В выпадающем списке Macros (Макросы) нажмите кнопку Record Macro (Запись макроса).Откроется диалоговое окно Record Macro (Запись Макроса).

   

2. Задайте имя макросу (не допускаются пробелы и специальные символы), клавишу быстрого вызова, а также, где бы Вы хотели сохранить свой макрос. При желании, Вы можете добавить описание.
3. С этого момента макрос записывает действия. Например, Вы можете ввести слово «Hello» в ячейку A1.
4. Теперь снова нажмите иконку Macros (Макросы) и в раскрывшемся меню выберите Stop Recording (Остановить запись).

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

Кроме этого, Вы можете связать макрос с кнопкой. Для этого:

1. На вкладке File (Файл) нажмите Options (Параметры) > Quick Access Toolbar (Панель быстрого доступа).
2. В поле Choose commands from (Выбрать команды из) выберите All Commands (Все команды).
3. Найдите команду Option Button (Кнопка), нам нужна та, что относится к разделу Form Control (Элементы управления формы). Выделите ее и нажмите Add (Добавить). Затем нажмите ОК, чтобы закрыть параметры Excel.
4. Выберите команду, только что добавленную на Панель быстрого доступа, и начертите контур кнопки на рабочем листе Excel.
5. Назначьте макрос объекту.

Примечание: Если у вас включена вкладка Developer (Разработчик), то получить доступ к элементам управления формы можно с нее. Для этого перейдите на вкладку Developer (Разработчик), нажмите на иконку Insert (Вставить) и из раскрывающегося меню выберите нужный элемент.

Не знаете, как отобразить вкладку Developer (Разработчик)? Excel 2007: жмем на кнопку Office > Excel Options (Параметры Excel) > Popular (Основные) и ставим галочку напротив опции Show Developer tab in the Ribbon (Показывать вкладку «Разработчик» на ленте). Excel 2010: жмем по вкладке File (Файл) > Options (Параметры) > Customize Ribbon (Настройка ленты) и в правом списке включаем вкладку Developer (Разработчик).

Цикл FOR

В следующем примере Вы увидите, как использовать цикл FOR. Цикл FOR позволяет нам выполнить повторение цикла с разными значениями. Давайте посмотрим, как можно заполнить числами от 1 до 5 ячейки A1:A5.

Для этого на вкладке Developer (Разработчик) нажмите Visual Basic. Дважды кликните по объекту из списка Microsoft Excel Objects, в котором должен быть сохранён макрос. Введите вот такой код:

Sub Macro1 ()
   For n = 1 To 5
      Cells(n, 1) = n
   Next n
End Sub

Сохраните файл. Чтобы выполнить макрос, перейдите View > Macros > View Macros (Вид > Макросы > Макросы), выберите из списка название нужного макроса и нажмите Run (Выполнить).

Следующий код отображает фразу «Hello World» в окне сообщений Windows.

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

В следующем примере мы создаём сообщение с выбором Yes (Да) или No (Нет). Если выбрать вариант Yes (Да), то значение ячейки будет удалено.

Sub MacroName()
   Dim Answer As String
 
   Answer = MsgBox("Are you sure you want to delete the cell values ?", 
      vbQuestion + vbYesNo, "Delete cell")
 
   If Answer = vbYes Then
      ActiveCell.ClearContents
   End If
End Sub

Давайте проверим этот код. Выделите ячейку и запустите макрос. Вам будет показано вот такое сообщение:

Если Вы нажмёте Yes (Да), значение в выделенной ячейке будет удалено. А если No (Нет) – значение сохранится.

Конструкция IF

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

Sub MacroName()
   Dim CellValue As Integer
   CellValue = ActiveCell.Value

   If CellValue > 20 Then
      With Selection.Font
         .Color = -16776961
      End With
   Else
      With Selection.Font
         .ThemeColor = xlThemeColorLight2
         .TintAndShade = 0
      End With
   End If
End Sub

Для проверки этого кода выберем ячейку со значением больше 20:

Когда Вы запустите макрос, цвет шрифта изменится на красный:

При выполнении второго условия шрифт станет синим:

Конструкция CASE

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

Sub MacroName()
   Dim CellValue As Integer
   CellValue = ActiveCell.Value
 
   Select Case CellValue
      Case 60 To 200
         MsgBox "The person is old"

      Case 30 To 59
         MsgBox "The person is adult"
 
      Case 18 To 29
         MsgBox "The person is young"
 
      Case 0 To 17
         MsgBox "The person is a child"
 
      Case Else
         MsgBox "Unknown age"
 
   End Select
End Sub

Чтобы протестировать этот пример, Вы должны выбрать ячейку со значением и запустить макрос. Если значение выбранной ячейки, к примеру, равно 44, то будет показано вот такое сообщение:

Заключение

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