Комбинации ЕСЛИ(ИЛИ) и ЕСЛИ(И) и их использование в проверке и фильтрации

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

Sub IfOr()
Worksheets(1).Range("L2").FormulaLocal = "=ЕСЛИ(ИЛИ(G2 =" & Chr(34) & "Утиль производства ГМ" & Chr(34) & ";G2 =" & Chr(34) & "Анализы СЭС" & Chr(34) & ";G2 =" & Chr(34) & "Игредиенты производства АР" & Chr(34) & ";G2 =" & Chr(34) & "Ингредиенты производства ГМ" & Chr(34) & ";G2 =" & Chr(34) & "Сертификация" & Chr(34) & ";G2 =" & Chr(34) & "Дегустация" & Chr(34) & ");1;0)"
n = Sheets("Sheet1").Range("H1").CurrentRegion.Rows.Count
Worksheets(1).Range("L2").AutoFill Destination:=Worksheets(1).Range("L2:L" & n), Type:=xlFillDefault
Worksheets(1).Range("L1") = "Проверка подтипов"
End Sub

Оператор И используется точно также. Пример формулы из поста ООО в VBA:

Worksheets(1).Range("L2").FormulaLocal = "=ЕСЛИ(И(I2 =" & Chr(34) & "рец." & Chr(34) & ";Q2 =" & Chr(34) & "Производство" & Chr(34) & ");1;0)"

Комментарии

Популярные сообщения из этого блога

Запуск макросов в автоматическом режиме по расписанию

Пакетная обработка отчетов

Отправка отчетов по электронной почте