Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Аналог СЧЁТЕСЛИ в VBA по частичному критерию, Требуется запустить расчет через VBA, т.к. массив данных очень велик, велики так же и критерии выборки.
 
#1
12.11.2019 13:02:58
Добрый день!
Необходимо обработать кучу данных через аналог формулы СЧЁТЕСЛИ (если таковой существует) в VBA, т.к. из-за формул, пли малейшей манипуляции с файлом, он начинает пересчитываться и фризить. + Сложность добавляет подсчет данных по части символов.
Как это сделать формулой, сложности нет,
Код
=СЧЁТЕСЛИ($B$7:$B$13;B3&"*")

а вот как это сделать ч/з VBA, вот тут вот я уперся в стену незнания.
Собственно прикладываю файлик, с имитированной задачей, думаю по нему всё ясно.

Может кто подсказать, как это сделать ч/з VBA?

Заранее, благодарствую.
Учусь,еще...
 
 
 
#2
12.11.2019 13:09:42
Код
Range("E3").Value = WorksheetFunction.CountIfs(Range("B7:B13"), Range("B3").Value & "*")
 
 
 
#3
12.11.2019 13:11:41
Добрый день. Может, сначала попробовать отключить автопересчет в файле и проводить пересчет только вручную, через F9? Это чтобы пересчет по каждому чиху не происходил, а происходил только в нужный момент.

Ну, или можно, используя ту же формулу, кодом получать в ячейке ее результат:
Код
    ActiveCell = Application.WorksheetFunction.CountIf(Range("B7:B13"), Range("B3") & "*")
Изменено: Пытливый - 12.11.2019 13:12:19
Кому решение нужно - тот пример и рисует.
 
 
 
#4
12.11.2019 13:40:09
Хоть и не просили, но все же вариант на Power Query.
Вот горшок пустой, он предмет простой...
 
 
 
#5
30.11.2019 20:10:36
Привет!

на массиве.
Сравнение прайсов, таблиц - без настроек
 
 
 
Страницы: 1
Наверх