Как подсчитать количество ячеек удовлетворяющих условию

Как подсчитать количество ячеек в диапазоне которые имеют значение, идентичное переменной например, "Client".

Пробовал просто ввести в ячейку формулу листа (Счётесли) через макрос, но выдает ошибку "type mismatch", которую не смог устранить.


Формула листа которую хотел применить.

Sheets("Client").Range("indi25").Formula R1C1 = _
"=COUNTIF(Sheets(""Main"").Cells(" + FRow + "," + 4 + "):Sheets(""Main"").Cells(" + n + "," + 4 + ");" + eClient + ")"

0

к сожалению, ваши "пробы" очень далеки от правильной формулы и правильного кода.
включите запись макроса
введите формулу вручную
остановите запись макроса
проанализируйте, что именно записалось и где нужно заменить константы на переменные.

если что-то не получится - возвращайтесь на форум.
с примером файла, примером проблемного кода (в этом же файле) и вашими попытками.

0

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


ActiveCell.FormulaR1C1 = _
"=COUNTIF(Main!R[19464]C[-9]:R[19489]C[-9],Main!R[19471]C[-9])"


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

Файл-оригинал с кодом прикрепил,

и сейчас подумал, вопрос правильнее было бы поставить в таком виде:

Есть ли (наверняка ведь есть) аналог формулы листа СЧЁТЕСЛИ в VBA и как его реализовать?

Вложения

WorkPro_2012.zip (1.70 Мб, 10 просмотров)

0

Ай, я вовсе забыл что там пароль стоит.
Отправлю повторно (без пароля).
Проблемный код в первом листе под одноименной кнопкой "Проблемный код".

(Там еще inputbox вылезет, спросит номер последней строки диапазона, но можно просто жжать ОК)

Макрос предназначался чтобы выбрать из данных записи клиента начиная с активной строки до указанной строки (или до конца) и составить из них отделную таблицу в новой книге.

0

Вот файл с кодом. Имя макроса с проблемой ClientSells

Вложения

WorkPro_2012.7z (405.0 Кб, 23 просмотров)

0

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

ActiveCell.FormulaR1C1 = _ "=COUNTIF(Main!R[19464]C[-9]:R[19489]C[-9],Main!R[19471]C[-9])"

допустим, в макросе вы высчитали нужные числа (отметьте - в таком виде (стиль ссылок R1C1) это относительные смещения относительно той ячейки, в которой будет формула)

тогда так:

1

Решил проблему, идя по указанному вами направлению.
(Только вместо "&" поставил "+")

Спасибо огромное!

0

To Ikki. Здравствуйте! А не будет нагляднее и проще что-то в духе Sumproduct instead CountIf?
Имею ввиду что-то типа:

dim mSTR$: dim a#: activecell.Value = Evaluate("sumproduct((a1:d10 = """ & mStr & """)*(d1:d10=" & a & "))")

Для меня RC - страшный сон.

0

СУММПРОИЗВ и СУММЕСЛИ - далеко не идентичные варианты.
в общем случае, конечно же.

1