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

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

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

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

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

Редактор Visual Basic

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

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

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

Учебник Excel VBA

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

Урок подготовлен для Вас командой сайта office-guru.ru

Перевел: Антон Андронов
Правила перепечатки
Еще больше уроков по Microsoft Excel

Оцените качество статьи. Нам важно ваше мнение:

Автоматический запуск VBA-программ

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

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

В табл. 4.1-4.3 представлены приемы, которые можно использовать в самых популярных VBA-приложениях для автоматического запуска VBA-программ.

Таблица 4.1. Автоматическое выполнение VBA-программ при запуске приложения с помощью ярлыка

Приложение	Команда, добавляемая в поле Файл на вкладке Ярлык
Microsoft Word		Вместо VBA напечатайте имя своей VBA программы
Microsoft Access		Выполняет все макросы из указанного вами списка. Чтобы выполнить процедуру VBA, макрос Access должен включать макрокоманду ЗапускПрограммы

Таблица 4.2. Автоматическое выполнение VBA-программ в Word с помощью назначения программам специальных имен

Имя VBA-программы	Условие автоматического выполнения программы
	При запуске Word При создании каждого нового документа
	При открытии любого существующего документа При закрытии документа При выходе из Word

Замечание. Макрос AutoExec должен храниться в шаблоне Обычный ( normal.dot ).

Таблица 4.3. Выполнение VBA-программ с помощью процедур обработки событий (создание процедур обработки событий обсуждается в главе 14)

Приложение	Условие автоматического вызова процедуры	Используйте объект	Создайте процедуру обработки события
	При создании нового документа		Document Opened
	При сохранении документа под другим именем		Document SavedAs
Microsoft Word	При открытии документа
Microsoft Word	При создании нового документа
Microsoft Word	При закрытии документа
Microsoft Excel	При открытии любой рабочей книги
Microsoft Excel	При открытии конкретной рабочей книги
Microsoft Excel	При создании новой рабочей книги

Замечание. Совсем немногие из длинного списка событий Visio, Word и Excel относятся ко всему документу.

Работа с ярлыками Windows

Некоторые приложения позволяют выполнить программный код VBA с помощью добавления команд к имени приложения при его запуске (см. табл. 4.1). Если вы не хотите утруждать себя набиранием этих команд в командной строке DOS, модифицируйте или создайте подходящий ярлык Windows, который будет вызывать это приложение.

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

В этом диалоговом окне перейдите на вкладку Ярлыки. В текстовом поле Файл после имени самого приложения напечатайте нужную команду. Например, чтобы при запуске Word выполнялась процедура VBA, текст в поле Файл должен выглядеть примерно так:

C:Microsoft OfficeWINWORD.EXE /mAutomaticNovel

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

Поделитесь на страничке

Следующая глава >

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

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

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

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

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

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

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

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

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

Пьер Корнель

Угадай, если сможешь, и выбери, если посмеешь

Краткое руководство по VBA If Statement

Описание	Формат	Пример
If Then	If Then End If	If score = 100 Then Debug.Print «Отлично» End If
If Else	If Then Else End If	If score = 100 Then Debug.Print «Отлично» Else Debug.Print «Попробуй снова» End If
If ElseIf	If Then ElseIf Then End If	If score = 100 Then Debug.Print «Отлично» ElseIf score > 50 Then Debug.Print «Пройдено» ElseIf score <= 50 Then Debug.Print «Попробуй снова» End If
Else и ElseIf (Else должно идти после ElseIf’s)	If Then ElseIf Then Else End If	If score = 100 Then Debug.Print «Отлично» ElseIf score > 50 Then Debug.Print «Пройдено» ElseIf score > 30 Then Debug.Print «Попробуй снова» Else Debug.Print «Ой» End If
If без Endif (Только одна строка)	If Then	If value <= 0 Then value = 0

В следующем коде показан простой пример использования оператора VBA If

If Sheet1.Range(«A1»).Value > 5 Then Debug.Print «Значение больше 5.» ElseIf Sheet1.Range(«A1»).Value < 5 Then Debug.Print «Значение меньше 5.» Else Debug.Print «Значение равно 5.» End If

Что такое IF и зачем оно тебе?

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

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

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

Важным словом в последнем предложении является проверка. Оператор If используется для проверки значения, а затем для выполнения задачи на основе результатов этой проверки.

Тестовые данные

Мы собираемся использовать следующие тестовые данные для примеров кода в этом посте.

Формат операторов VBA If Then

Формат оператора If Then следующий

If Then

За ключевым словом If следуют условие и ключевое слово Then

Каждый раз, когда вы используете оператор If Then, вы должны использовать соответствующий оператор End If.

Когда условие оценивается как истинное, обрабатываются все строки между If Then и End If.

If Then End If

Чтобы сделать ваш код более читабельным, рекомендуется делать отступы между операторами If Then и End If.

Отступ между If и End If

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

Sub … End Sub
If Then … End If
If Then… ElseIf … Else … Endif
For … Next
Do While … Loop
Select Case … End Case

Для отступа в коде вы можете выделить строки для отступа и нажать клавишу Tab. Нажатие клавиш Shift + Tab сделает отступ кода, т.е. переместит его на одну вкладку влево.

Вы также можете использовать значки на панели инструментов Visual Basic для отступа кода.

Если вы посмотрите на примеры кода на этом сайте, вы увидите, что код имеет отступ.

Простой пример If Then

Следующий код выводит имена всех студентов с баллами более 50.

Sub ChitatOcenki() Dim i As Long ‘ Пройдите столбцы отметок For i = 2 To 11 ‘ Проверьте, больше ли баллов,чем 50 If Sheet1.Range(«C» &amp; i).Value > 50 Then ‘ Напечатайте имя студента в «Immediate Window» (Ctrl + G) Debug.Print Sheet1.Range(«A» &amp; i).Value &amp; » » &amp; Sheet1.Range(«B» &amp; i).Value End If Next End Sub

Результаты:

• Василий Кочин
• Максим Бородин
• Дмитрий Маренин
• Олеся Клюева
• Евгений Яшин

Поэкспериментируйте с этим примером и проверьте значение или знак > и посмотрите, как изменились результаты.

Условия IF

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

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

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

Когда в условии используется «=», это означает, что «левая сторона равна правой стороне».

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

Использование «=»	Тип	Значение
Loop Until x = 5	Условие	Равен ли x пяти
Do While x = 5	Условие	Равен ли x пяти
If x = 5 Then	Условие	Равен ли x пяти
For x = 1 To 5	Присваивание	Установите значение х = 1, потом = 2 и т.д.
x = 5	Присваивание	Установите х до 5
b = 6 = 5	Присваивание и условие	Присвойте b результату условия 6 = 5
x = MyFunc(5,6)	Присваивание	Присвойте х значение, возвращаемое функцией

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

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

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

Использование If ElseIf

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

Sub IspElseIf() If Marks >= 85 Then Debug.Print «Высший балл» ElseIf Marks >= 75 Then Debug.Print «Отлично» End If End Sub

Важно понимать, что порядок важен. Условие If проверяется первым.

Если это правда, то печатается «Высший балл», и оператор If заканчивается.

Если оно ложно, то код переходит к следующему ElseIf и проверяет его состояние.

Давайте поменяемся местами If и ElseIf из последнего примера. Код теперь выглядит так

Sub IspElseIfNeverno() ‘ Этот код неверен, так как ElseIf никогда не будет верным If Marks >= 75 Then Debug.Print «Отлично» ElseIf Marks >= 85 Then ‘ код никогда не достигнет здесь Debug.Print «Высший балл» End If End Sub

В этом случае мы сначала проверяем значение более 75. Мы никогда не будем печатать «Высший балл», потому что, если значение больше 85, это вызовет первый оператор if.

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

If marks >= 75 And marks < 85 Then Debug.Print «Отлично» ElseIf marks >= 85 And marks <= 100 Then Debug.Print «Высший балл» End If

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

Использование If Else

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

Sub IspElse() If Marks >= 85 Then Debug.Print «Высший балл» ElseIf Marks >= 75 Then Debug.Print «Отлично» ElseIf Marks >= 55 Then Debug.Print «Хорошо» ElseIf Marks >= 40 Then Debug.Print «Удовлетворительно» Else ‘ Для всех других оценок Debug.Print «Незачет» End If End Sub

Так что, если это не один из других типов, то это провал.

Давайте напишем некоторый код с помощью наших примеров данных и распечатаем студента и его классификацию.

Sub DobClass() ‘ получить последнюю строку Dim startRow As Long, lastRow As Long startRow = 2 lastRow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row Dim i As Long, Marks As Long Dim sClass As String ‘ Пройдите столбцы отметок For i = startRow To lastRow Marks = Sheet1.Range(«C» &amp; i).Value ‘ Проверьте отметки и классифицируйте соответственно If Marks >= 85 Then sClass = «Высший балл» ElseIf Marks >= 75 Then sClass = «Отлично» ElseIf Marks >= 55 Then sClass = «Хорошо» ElseIf Marks >= 40 Then sClass = «Удовлетворительно» Else ‘ Для всех других оценок sClass = «Незачет» End If ‘ Запишите класс в столбец E Sheet1.Range(«E» &amp; i).Value = sClass Next End Sub

Результаты выглядят так: в столбце E — классификация баллов

Используя If And/If Or

В выражении If может быть несколько условий. Ключевые слова VBA And и Or позволяют использовать несколько условий.

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

Давайте снова посмотрим на наши примеры данных. Теперь мы хотим напечатать всех студентов, которые набрали от 50 до 80 баллов.

Мы используем Аnd, чтобы добавить дополнительное условие. Код гласит: если оценка больше или равна 50 и меньше 75, напечатайте имя студента.

Sub ProverkaStrokiOcenok() Dim i As Long, marks As Long For i = 2 To 11 ‘ Хранить оценки для текущего студента marks = Sheet1.Range(«C» &amp; i).Value ‘ Проверьте, если отметки больше 50 и меньше 75 If marks >= 50 And marks < 80 Then ‘ Напечатайте имя и фамилию в Immediate window (Ctrl+G) Debug.Print Sheet1.Range(«A» &amp; i).Value &amp; Sheet1.Range(«B» &amp; i).Value End If Next End Sub

Вывести имя и фамилию в результаты:

• Дмитрий Маренин
• Олеся Клюева
• Евгений Яшин

В нашем следующем примере мы хотим знать, кто из студентов сдавал историю или геометрию. Таким образом, в данном случае мы говорим, изучал ли студент «История» ИЛИ изучал ли он «Геометрия» (Ctrl+G).

Sub ChitatObektOcenki() Dim i As Long, marks As Long ‘ Пройдите столбцы отметок For i = 2 To 11 marks = Sheet1.Range(«D» &amp; i).Value ‘ Проверьте, если отметки больше 50 и меньше 80 If marks = «История» Or marks = «Геометрия» Then ‘ Напечатайте имя и фамилию в Immediate window (Ctrl+G) Debug.Print Sheet1.Range(«A» &amp; i).Value &amp; » » &amp; Sheet1.Range(«B» &amp; i).Value End If Next End Sub

Результаты:

• Василий Кочин
• Александр Грохотов
• Дмитрий Маренин
• Николай Куликов
• Олеся Клюева
• Наталия Теплых
• Дмитрий Андреев

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

Использование IF AND

And работает следующим образом:

Условие 1	Условие 2	Результат
ИСТИНА	ИСТИНА	ИСТИНА
ИСТИНА	ЛОЖЬ	ЛОЖЬ
ЛОЖЬ	ИСТИНА	ЛОЖЬ
ЛОЖЬ	ЛОЖЬ	ЛОЖЬ

Что вы заметите, так это то, что And верно только тогда, когда все условия выполняются.

Использование IF OR

Ключевое слово OR работает следующим образом

Условие 1	Условие 2	Результат
ИСТИНА	ИСТИНА	ИСТИНА
ИСТИНА	ЛОЖЬ	ИСТИНА
ЛОЖЬ	ИСТИНА	ИСТИНА
ЛОЖЬ	ЛОЖЬ	ЛОЖЬ

Что вы заметите, так это то, что OR ложно, только когда все условия ложны.

Смешивание And и Or может затруднить чтение кода и привести к ошибкам. Использование скобок может сделать условия более понятными.

Sub OrSAnd() Dim subject As String, marks As Long subject = «История» marks = 5 If (subject = «Геометрия» Or subject = «История») And marks >= 6 Then Debug.Print «ИСТИНА» Else Debug.Print «ЛОЖЬ» End If End Sub

Использование IF NOT

Также есть оператор NOT. Он возвращает противоположный результат условия.

Условие	Результат
ИСТИНА	ЛОЖЬ
ЛОЖЬ	ИСТИНА

Следующие две строки кода эквивалентны.

If marks < 40 Then If Not marks >= 40 Then

так же, как и

If True Then If Not False Then

и

If False Then If Not True Then

Помещение условия в круглые скобки облегчает чтение кода

If Not (marks >= 40) Then

Распространенное использование Not — при проверке, был ли установлен объект. Возьмите Worksheet для примера. Здесь мы объявляем рабочий лист.

Dim mySheet As Worksheet ‘ Некоторый код здесь

Мы хотим проверить действительность mySheet перед его использованием. Мы можем проверить, если это Nothing.

If mySheet Is Nothing Then

Нет способа проверить, является ли это чем-то, поскольку есть много разных способов, которым это может быть что-то. Поэтому мы используем NOT с Nothing.

If Not mySheet Is Nothing Then

Если вы находите это немного запутанным, вы можете использовать круглые скобки, как здесь

If Not (mySheet Is Nothing) Then

Функция IIF

VBA имеет функцию, аналогичную функции Excel If. В Excel вы часто используете функцию If следующим образом:

= ЕСЛИ (F2 =»»,»», F1 / F2)

Формат

= If (условие, действие, если ИСТИНА, действие, если ЛОЖЬ).

VBA имеет функцию IIf, которая работает так же. Давайте посмотрим на примере. В следующем коде мы используем IIf для проверки значения переменной val. Если значение больше 10, мы печатаем ИСТИНА, в противном случае мы печатаем ЛОЖЬ.

Sub ProveritVal() Dim result As Boolean Dim val As Long ‘ Печатает ИСТИНА val = 11 result = IIf(val > 10, ИСТИНА, ЛОЖЬ) Debug.Print result ‘ печатает ЛОЖЬ val = 5 result = IIf(val > 10, ИСТИНА, ЛОЖЬ) Debug.Print result End Sub

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

Sub ProveritDiapazonOcenok() Dim i As Long, marks As Long For i = 2 To 11 ‘ Хранить оценки для текущего студента marks = Sheet1.Range(«C» &amp; i).Value ‘ Проверьте, прошел ли студент или нет If marks >= 40 Then ‘ Запишите имена для столбца F Sheet1.Range(«E» &amp; i) = «Удовлетворительно» Else Sheet1.Range(«E» &amp; i) = «Незачет» End If Next End Sub

В следующем фрагменте кода мы будем использовать функцию IIf. Код здесь намного аккуратнее.

Sub ProveritDiapazonOcenok () Dim i As Long, marks As Long For i = 2 To 11 ‘ Хранить оценки для текущего студента marks = Sheet1.Range(«C» &amp; i) ‘ Проверьте, прошел ли студент или нет Sheet1.Range(«E» &amp; i).Value = IIf(marks >= 40,»Удовлетворительно»,»Незачет») Next End Sub

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

Использование Nested IIf

Вы также можете вкладывать IIf-операторы, как в Excel. Это означает использование результата одного IIf с другим. Давайте добавим еще один тип результата в наши предыдущие примеры. Теперь мы хотим напечатать «Отлично», «Удовлетворительно» или «Незачетт» для каждого студента.

Используя обычный VBA, мы сделали бы это так

Sub ProveritRezultatiTip2() Dim i As Long, marks As Long For i = 2 To 11 ‘ Хранить оценки для текущего студента marks = Sheet1.Range(«C» &amp; i).Value If marks >= 75 Then Sheet1.Range(«E» &amp; i).Value = «Отлично» ElseIf marks >= 40 Then ‘ Запишите имена для столбца F Sheet1.Range(«E» &amp; i).Value = «Удовлетворительно» Else Sheet1.Range(«E» &amp; i).Value = «Незачет» End If Next End Sub

Используя вложенные IIfs, мы могли бы сделать это так

Sub IspNestedIIF() Dim i As Long, marks As Long, result As String For i = 2 To 11 marks = Sheet1.Range(«C» &amp; i).Value result = IIf(marks >= 55,»Хорошо»,IIf(marks >= 40,»Удовлетворительно»,»Незачет»)) Sheet1.Range(«E» &amp; i).Value = result Next End Sub

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

Чего нужно остерегаться

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

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

marks = 0 total = IIf(marks = 0, 0, 60 / marks)

Однако, когда отметки равны нулю, код выдаст ошибку «Делить на ноль». Это потому, что он оценивает как Истинные, так и Ложные утверждения. Здесь ложное утверждение, т.е. (60 / Marks), оценивается как ошибка, потому что отметки равны нулю.

Если мы используем нормальный оператор IF, он будет запускать только соответствующую строку.

marks = 0 If marks = 0 Then ‘Выполняет эту строку только когда отметки равны нулю total = 0 Else ‘Выполняет только эту строку, когда отметки не равны нулю total = 60 / marks End If

Это также означает, что если у вас есть функции для ИСТИНА и ЛОЖЬ, то обе будут выполнены. Таким образом, IIF будет запускать обе функции, даже если он использует только одно возвращаемое значение. Например:

‘ Обе функции будут выполняться каждый раз total = IIf(marks = 0, Func1, Func2)

IF против IIf

Так что лучше?

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

Кроме того, как мы обсуждали в последнем разделе, IIF всегда оценивает части ИСТИНА и ЛОЖЬ, поэтому, если вы имеете дело с большим количеством данных, оператор IF будет быстрее.

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

Использование Select Case

Оператор Select Case — это альтернативный способ написания статистики If с большим количеством ElseIf. Этот тип операторов вы найдете в большинстве популярных языков программирования, где он называется оператором Switch. Например, Java, C #, C ++ и Javascript имеют оператор switch.

Формат

Select Case Case Case Case Case Else End Select

Давайте возьмем наш пример DobClass сверху и перепишем его с помощью оператора Select Case.

Sub DobavitClass() ‘ получить последнюю строку Dim startRow As Long, lastRow As Long startRow = 2 lastRow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row Dim i As Long, Marks As Long Dim sClass As String ‘ Пройдите столбцы отметок For i = startRow To lastRow Marks = Sheet1.Range(«C» &amp; i).Value ‘ Проверьте отметки и классифицируйте соответственно If Marks >= 85 Then sClass = «Высший балл» ElseIf Marks >= 75 Then sClass = «Отлично» ElseIf Marks >= 55 Then sClass = «Хорошо» ElseIf Marks >= 40 Then sClass = «Удовлетворительно» Else ‘ Для всех других оценок sClass = «Незачет» End If ‘ Запишите класс в столбец E Sheet1.Range(«E» &amp; i).Value = sClass Next End Sub

Ниже приведен тот же код с использованием оператора Select Case. Главное, что вы заметите, это то, что мы используем «Case 85 to 100” rather than «marks >=85 And marks <=100”. , а не «marks >=85 And marks <=100”.

Sub DobavitClassSSelect() ‘ получить первую и последнюю строки Dim firstRow As Long, lastRow As Long firstRow = 2 lastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row Dim i As Long, marks As Long Dim sClass As String ‘ Пройдите столбцы отметок For i = firstRow To lastRow marks = Sheet1.Range(«C» &amp; i).Value ‘ Проверьте отметки и классифицируйте соответственно Select Case marks Case 85 To 100 sClass = «Высший балл» Case 75 To 84 sClass = «Отлично» Case 55 To 74 sClass = «Хорошо» Case 40 To 54 sClass = «Удовлетворительно» Case Else ‘ Для всех других оценок sClass = «Незачет» End Select ‘ Запишите класс в столбец E Sheet1.Range(«E» &amp; i).Value = sClass Next End Sub

Использование Case Is

Вы можете переписать оператор select в том же формате, что и оригинальный ElseIf. Вы можете использовать Is с Case.

Select Case marks Case Is >= 85 sClass = «Высший балл» Case Is >= 75 sClass = «Отлично» Case Is >= 55 sClass = «Хорошо» Case Is >= 40 sClass = «Удовлетворительно» Case Else ‘ Для всех других оценок sClass = «Незачет» End Select

Вы можете использовать Is для проверки нескольких значений. В следующем коде мы проверяем, равны ли оценки 5, 7 или 9.

Sub TestNeskZnach() Dim marks As Long marks = 7 Select Case marks Case Is = 5, 7, 9 Debug.Print True Case Else Debug.Print False End Select End Sub

Попробуйте это упражнение

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

Мы будем использовать ячейку G1, чтобы написать имя субъекта.

В колонках от H до L запишите всех студентов, которые имеют оценки по этому предмету. Мы хотим классифицировать их результат как успешный или неудачный. Оценка ниже 40 — неудача, оценка 40 или выше — Зачет.

Колонка H: Имя

Колонка I: Фамилия

Колонка J: Баллы

Колонка H: Предмет

Столбец I: Тип результата — Зачет или Незачет

Если ячейка G1 содержит «Геометрия», то ваш результат должен выглядеть следующим образом:

Ответ на упражнение

Следующий код показывает, как выполнить вышеупомянутое упражнение.

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

Sub ZapisatRezultat() ‘ Получить тему Dim subject As String subject = Sheet1.Range(«G1»).Value If subject = «» Then Exit Sub End If ‘ Получить первый и последний ряд Dim firstRow As Long, lastRow As Long firstRow = 2 lastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row ‘ Очистить любой существующий вывод Sheet1.Range(«H:L»).ClearContents ‘ Отслеживать выходной ряд Dim outRow As Long outRow = 1 Dim i As Long, marks As Long, rowSubject As String ‘ Прочитать данные For i = firstRow To lastRow marks = Sheet1.Range(«C» &amp; i).Value rowSubject = Sheet1.Range(«D» &amp; i).Value If rowSubject = subject Then ‘ Запишите данные студента, если предмет Геометрия Sheet1.Range(«A» &amp; i &amp; «:» &amp; «D» &amp; i).Copy Sheet1.Range(«H» &amp; outRow).PasteSpecial xlPasteValues ‘ Запишите Зачет или Незачет If marks < 40 Then Sheet1.Range(«L» &amp; outRow).Value = «Незачет» ElseIf marks >= 40 Then Sheet1.Range(«L» &amp; outRow).Value = «Зачет» End If ‘ Переместить вывод в следующую строку outRow = outRow + 1 End If Next i End Sub

Хотя ответы от Mokubai и hBy2Py кажутся великолепными и действительно позволяют вам показать редактор VBA, кажется, что по крайней мере в Excel из Microsoft Office Professional Plus 2016 все еще не разрешается просматривать код.

Мне довелось владеть этой версией, и я был уверен, что получил вредоносный XLS и хотел проверить его. После его открытия в Excel он открылся в безопасном режиме, как обычно, и, конечно, я не собирался отказываться от этого режима. Когда я открыл VBA Editor, как указали другие респонденты, мне представили … пустой VBA Editor . Панель «Project Explorer» содержательно отображала «Нет открытых проектов», хотя я еще не закрыл файл XLS. Просто для тестирования я открыл второй документ (одна из моих работ), и он сразу же появился в VBA Editor и был (должным образом) полностью лишен VBA. Однако документ из Интернета не был указан в редакторе VBA .

Я потратил немного времени, пытаясь понять, почему это так, и не нашел причин. Кажется, что моя редакция Excel просто не отправляет модули VBA в редактор VBA, когда документ загружается в безопасном режиме. К сожалению, в редакторе VBA отсутствует некоторая функция «открыть VBA из документа Office», поэтому очевидно, что Excel — это мозг, и он должен сначала распаковать / декодировать / что угодно XLS.

Решение оказалось довольно простым.

1. Нажмите Ribbon-> Developer->MacroSecurity
2. альтернативно, File-> Options-> SecurityCenter(последняя группа опций) -> Settings-> Macros)
3. Помните (или запишите), каковы текущие настройки
4. Измените их на «Блокировать все макросы без уведомления»
5. Подтвердите, закройте, снова откройте документ, снова откройте редактор VBA
6. Восстановите исходные настройки, когда вы закончили играть с огнем

Последствия:

• уведомление не показывалось
• документ был полностью загружен
• макросы не были выполнены
• VBA Editor получил модули и представил весь код

Если вам любопытно: да, это действительно был злой, крошечный пример:

Function marcopoloko() marcopoloko = Left(«CM to inches converter», 2) + Right(«fed.ex», 4) + «e » + «/c» + numneroop + amagilocard End Function ‘Sub Workbook_Open() ‘If xlTickMarkOutside > 0 Then ‘Shell marcopoloko + «»»», xlXmlExportSuccess ‘End If ‘End Sub