Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
закрасить ячейки в строке при условии повторения одинаковых символов
 
#1
30.11.2018 01:22:19
Как сделать так ,чтоб  ячейки при повторении подряд больше 4 букв (В)  заливались цветом?
Изменено: JIP - 30.11.2018 01:24:27
 
 
 
#2
30.11.2018 04:53:12
JIP,Вариант макросом
Код
Sub test()
Application.ScreenUpdating = False
lrow = Cells(Rows.Count, 1).End(xlUp).Row
lcol = Cells(1, Columns.Count).End(xlToLeft).Column

For i = 1 To lrow
    For j = 1 To lcol
        n = j
        Do While Cells(i, j) = "в"
            j = j + 1
        Loop
        If (j - n) > 4 Then Range(Cells(i, n), Cells(i, j - 1)).Interior.Color = vbRed
    Next j
Next i
Application.ScreenUpdating = True
End Sub
 
 
 
#3
30.11.2018 10:07:00
Пример на условном форматировании
Код
=ЕСЛИОШИБКА(ЕСЛИ(И(A7="в";ИЛИ(И(B7="в";C7="в";D7="в");И(XFD7="в";XFC7="в";XFB7="в")));"истина";"ложь");"ложь")
 
 
 
#4
30.11.2018 11:29:20
Alex9000, посмотрите ссылки в своей формуле УФ. Такое иногда бывает при незакрепленных ссылках. Нужно вернуться и исправить. Логическое выражение не нужно писать текстом, можно писать ЛОЖЬ или ИСТИНА. Или 1/0, для условия в УФ нет разницы, что будет в результате - число или логика

JIP, заливка нужна только первых пяти повторений или диапазона с повторениями >4?
 
 
 
#5
01.12.2018 01:38:09
Заливка нужна если в строке больше > 4 (вввв+), подряд.
В случае ( В; ВВ; ВВВ; ВВВВ)  заливка не требуется.  
 
 
 
#6
01.12.2018 01:56:20
Для диапазона $E$1:$AE$4
=ИЛИ(СЧЁТЕСЛИ(СМЕЩ(A1:E1;;СТРОКА($1:$5)-1;1;5);"в")=5)
Для левых 4-х столбцов похожее (не делал), но нужно обрезать левые ссылки. Да и в правых 4-х придется исправлять, если правее таблицы будут другие данные с указанной буквой.
Проще сместить диапазон и начинать его со столбца Е (и изменить диапазон действия формулы УФ)
 
 
 
Страницы: 1
Наверх