Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Количество значений

Автор: Izuver 20.1.2007, 00:24

С помощью какого свойства можно подсчитать количество значений удовлетворяющее условию, формулой, например, это будет выгладить так:
=СЧЁТЕСЛИ(B:B;">300")?

Автор: RockClimber 20.1.2007, 13:16

В макросе, что ли? Тогда так:

Код


dim a as Long
a = Application.WorksheetFunction.CountIf(Range("B:B"), ">100")

Автор: Izuver 20.1.2007, 21:55

А что стандарта нет, только через лист?

Автор: RockClimber 21.1.2007, 13:50

Стандарта? Это как? А так чем плохо?

Автор: Izuver 26.1.2007, 00:58

Не используя "Application.WorksheetFunction", а так не плохо.

Автор: mihanik 26.1.2007, 08:11

Если

Цитата(Izuver @ 26.1.2007, 00:58

)

Не используя "Application.WorksheetFunction",

То это надо написать макрос, который бы "пробегал" по каждой клетке в нужном столбце и проверял число по условию.
Число подходит? - Тогда счётчик значений + 1

По-моему так...

Автор: RockClimber 27.1.2007, 00:23

Вся проблема в том, что WorksheetFunction работает намного быстрее, чем цикл. При числе проверяемых ячеек больше 1000 разница исчисляется секундами...

Автор: Izuver 28.1.2007, 01:00

Нет, так нет. Тем не менее спасибо за "Application.WorksheetFunction".
Именно для того что бы не создавать цикл я поднял этот вопрос.