Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Преобразование в колонку и максимальное повторение слова
 
#1
25.05.2017 13:08:32
Привет !  Всем продуктивного дня , уважаемые Гуру ! :)

Имеется потребность в формуле или макросе...
Имеем 6 строк с данными ( Да , Нет , 0 )
Нужно найти максимальное число повторений ПОДРЯД слово НЕТ . Т.е. не общее количество ячеек содержащих слово НЕТ , а сколько раз максимально повторяется подряд.

Анализ должен идти непрерывно т.е. для этого ( как я понимаю) надо все строки перевести одну строчку или в один столбец.
У кого какие идеи ?  
 
 
 
#2
25.05.2017 13:40:07
UDF. Без необходимости преобразования диапазона в столбец
Код
Function ПОВТОРМАКС(rng As Range, ival)
Dim arrVal
Dim I&, J&, N&
arrVal = rng.Value
For I = 1 To UBound(arrVal, 1)
    For J = 1 To UBound(arrVal, 2)
        If arrVal(I, J) = ival Then
            N = N + 1
            If N > ПОВТОРМАКС Then ПОВТОРМАКС = N
        Else
            N = 0
        End If
    Next
Next
End Function
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
25.05.2017 13:51:15
Alex.Mari, не нужно писать через 1-2 строки. Читабельность от этого лучше не становится.
 
 
 
#4
25.05.2017 13:52:28
Юрий М,Спасибо. Учтем
 
 
 
#5
25.05.2017 13:58:10
А по вопросу то что? Уже не интересно?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
25.05.2017 13:58:28
Sanja, Агонь , спасибо !
 
 
 
#7
25.05.2017 14:02:34
Alex.Mari, нет в русском языке такого слова - Агонь.
 
 
 
#8
26.05.2017 09:33:48
Sanja, Что-то не работает... во вложении файл , посмотрите , пожалуйста. Правильный результат должен быть 6.
 
 
 
#9
26.05.2017 09:35:30
Почему-же 6? Максимальное количество 'НЕТ', расположенных ПОДРЯД (я это понимаю как непрерывно), по строкам, равно 3
Изменено: Sanja - 26.05.2017 09:36:49
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
26.05.2017 09:36:18
Sanja, Может не так ТЗ сказал...
Исключая пустоту ))  
 
 
 
#11
26.05.2017 09:37:20
Цитата
Alex.Mari написал: Исключая пустоту
Вот где про ПУСТОТУ в стартовом посте?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#12
26.05.2017 09:39:46
Sanja, Не ругайтесь , пожалуйста .
 
 
 
#13
26.05.2017 09:49:08
Код
Function ПОВТОРМАКС(rng As Range, ival)
Dim arrVal(), arrTemp()
Dim I&, J&, N&
arrVal = rng.Value
For I = 1 To UBound(arrVal, 1)
    For J = 1 To UBound(arrVal, 2)
        If arrVal(I, J) <> Empty Then
            ReDim Preserve arrTemp(N)
            arrTemp(N) = arrVal(I, J)
            N = N + 1
        End If
    Next
Next
N = 0
For I = 0 To UBound(arrTemp)
    If arrTemp(I) = ival Then
        N = N + 1
        If N > ПОВТОРМАКС Then ПОВТОРМАКС = N
    Else
        N = 0
    End If
Next
End Function
Согласие есть продукт при полном непротивлении сторон
 
 
 
#14
26.05.2017 09:50:45
Sanja,Cпасибочки :)
 
 
 
#15
26.05.2017 15:48:36
Sanja, Уважаемый , всезнающий мой спаситель ))) Что=то не работает...

Отображает общее количество ...
Во вложении.
Должен отображать 16..а отображает  37
 
 
 
#16
26.05.2017 19:26:48
Цитата
Alex.Mari написал: Должен отображать 16
Да с чего 16 то? Вы логику можете объяснить? Почему в предыдущем случае пустоты МЕЖДУ повторяющимися значениями считаются как непрерывный диапазон (хотя в количество и не входят), а в данном случае не считаются?
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх