powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
10 сообщений из 10, страница 1 из 1
как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
    #33163855
p2x4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Господа, кто знает как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих каким-либо условиям?

Например: есть массив чисел А1:А100
задача: подсчитать и вывести в ячейке кол-во чисел из массива которые больше 0 и меньше 1 (типа count() с условием в SQL).
...
Рейтинг: 0 / 0
как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
    #33163935
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub TestX()
    Dim cel As Range
    Dim rng As Range
    Dim intI As Integer
    
    Set rng = Range("A1:A10")
    
    For Each cel In rng
        If cel.Value >  0  And cel.Value <  1  Then
            intI = intI +  1 
        End If
    Next cel
    
    Range("B2") = intI
End Sub
...
Рейтинг: 0 / 0
как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
    #33164015
Ну или формулой:

Код: plaintext
{=СЧЁТ(ЕСЛИ((A1:A10> 0 )*(A1:A10< 1 );A1:A10))}
...
Рейтинг: 0 / 0
как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
    #33164023
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня без макроса получилось.
Под массивом в A101 =СЧЁТЕСЛИ(A1:A22;">0")
в A102 =СЧЁТЕСЛИ(A1:A22;"<1")
в А103 =ABS(A101-A102) <=тут результат !
...
Рейтинг: 0 / 0
как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
    #33164042
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пользователь2Ну или формулой:

Код: plaintext
{=СЧЁТ(ЕСЛИ((A1:A10> 0 )*(A1:A10< 1 );A1:A10))}


Чей-то это у меня не работает
...
Рейтинг: 0 / 0
как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
    #33164051
talgat Пользователь2Ну или формулой:

Код: plaintext
{=СЧЁТ(ЕСЛИ((A1:A10> 0 )*(A1:A10< 1 );A1:A10))}


Чей-то это у меня не работает

Введи формулу:
Код: plaintext
=СЧЁТ(ЕСЛИ((A1:A10> 0 )*(A1:A10< 1 );A1:A10))
и нажми CTRL+SHIFT+ENTER
...
Рейтинг: 0 / 0
как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
    #33164060
talgatУ меня без макроса получилось.
Под массивом в A101 =СЧЁТЕСЛИ(A1:A22;">0")
в A102 =СЧЁТЕСЛИ(A1:A22;"<1")
в А103 =ABS(A101-A102) <=тут результат !
А вот твой вариант не пашет.
...
Рейтинг: 0 / 0
как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
    #33164073
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Введи формулу:
Код: plaintext
=СЧЁТ(ЕСЛИ((A1:A10> 0 )*(A1:A10< 1 );A1:A10))
и нажми CTRL+SHIFT+ENTER[/quot]

Точно. Заработало !
...
Рейтинг: 0 / 0
как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
    #33164083
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пользователь2 talgatУ меня без макроса получилось.
Под массивом в A101 =СЧЁТЕСЛИ(A1:A22;">0")
в A102 =СЧЁТЕСЛИ(A1:A22;"<1")
в А103 =ABS(A101-A102) <=тут результат !
А вот твой вариант не пашет.

Тоже твоя правда !
...
Рейтинг: 0 / 0
как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
    #33164161
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
со счётесли можно обойтись так

=СЧЁТЕСЛИ(A1:A100;"<1") - СЧЁТЕСЛИ(A1:A100;"<=0")
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как подсчитать кол-во вхождений в диапазоне, величины, удовлетворяющих условиям?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]