Всем доброго дня. Есть хорошая формула "СЧЁТЕСЛИМН" Далее в коде нужно подсчитать количество по двум критериям, по одному диапазону критерий "аннулирован" , по второму диапазону "ИСТИНА" Код: [vba]
Код
Dim Анулированных Анулированных = Application.WorksheetFunction.CountIfs(Range("AB7:AB1500"), "аннулирован", Range("AU7:AU1500"), "истина")
[/vba] При пошаговом выполнении кода через F8 , переменная всегда ноль, то есть не считает и далее хочу вывести месседж: [vba]
Код
If Анулированных > 0 Then MsgBox ("В программе " & Анулированных & " анулированных заказов") End If
[/vba]
Где допускаю ошибку ? Файл примера приложен. Спасибо!
Всем доброго дня. Есть хорошая формула "СЧЁТЕСЛИМН" Далее в коде нужно подсчитать количество по двум критериям, по одному диапазону критерий "аннулирован" , по второму диапазону "ИСТИНА" Код: [vba]
Код
Dim Анулированных Анулированных = Application.WorksheetFunction.CountIfs(Range("AB7:AB1500"), "аннулирован", Range("AU7:AU1500"), "истина")
[/vba] При пошаговом выполнении кода через F8 , переменная всегда ноль, то есть не считает и далее хочу вывести месседж: [vba]
Код
If Анулированных > 0 Then MsgBox ("В программе " & Анулированных & " анулированных заказов") End If
[/vba]
Где допускаю ошибку ? Файл примера приложен. Спасибо!antycapral
antycapral, здравствуйте, у Вас диапазоны прописаны с 7-й строчки, а нужно со 2-й. И Вместо Истина / Ложь в VBA пишем True / False [vba]
Код
Sub test() Dim Анулированных Анулированных = Application.WorksheetFunction.CountIfs(Range("AB2:AB1500"), "аннулирован", Range("AU2:AU1500"), True) If Анулированных > 0 Then MsgBox ("В программе " & Анулированных & " анулированных заказов") End If End Sub
[/vba]
antycapral, здравствуйте, у Вас диапазоны прописаны с 7-й строчки, а нужно со 2-й. И Вместо Истина / Ложь в VBA пишем True / False [vba]
Код
Sub test() Dim Анулированных Анулированных = Application.WorksheetFunction.CountIfs(Range("AB2:AB1500"), "аннулирован", Range("AU2:AU1500"), True) If Анулированных > 0 Then MsgBox ("В программе " & Анулированных & " анулированных заказов") End If End Sub
Pelena, Manyasha, Спасибо! В реальном файле все данные начинаются с 7 строки, сори что поспешил и в примере накосячил И спасибо за "Вместо Истина / Ложь в VBA пишем True / False "
Pelena, Manyasha, Спасибо! В реальном файле все данные начинаются с 7 строки, сори что поспешил и в примере накосячил И спасибо за "Вместо Истина / Ложь в VBA пишем True / False " antycapral
Добавлено. О! Сколько уже понаписать успели! Добавлено добавлено И как-то странно у Вас - где-то "Аннулированных" с двумя "н", а где-то с одной._Boroda_