Отобрать строки с закрашенными ячейками

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Отобрать строки с закрашенными ячейками (Формулы/Formulas)

l-lisa

Дата: Понедельник, 19.12.2016, 15:58 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 312

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Добрый день, подскажите пожалуйста, можно ли каким -то образом, пометить строки в таблице которая содержит закрашенные ячейки? То есть , к примеру если в строке попадается хотя бы одна закрашенная ячейка, то ставить напротив такой строки 1

К сообщению приложен файл: 9934563.xlsx (8.8 Kb)

Ответить

TimSha

Дата: Понедельник, 19.12.2016, 16:06 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 627

Репутация: 94 ±

Замечаний: 0% ±

Excel 2013 Pro +

По какому принципу красили - по такому и сделать пометку в отдельном поле...

"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)

Ответить

l-lisa

Дата: Понедельник, 19.12.2016, 16:09 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 312

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата TimSha, 19.12.2016 в 16:06, в сообщении № 2 ()

По какому принципу красили - по такому и сделать пометку в отдельном поле

Принцип не известен

Ответить

_Boroda_

Дата: Понедельник, 19.12.2016, 16:09 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16886

Репутация: 6611 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Такой вариант
[vba]

Код

Sub tt()
    r1_ = Range("A" & Rows.Count).End(3).Row
    Range("F6:F" & r1_).ClearContents
    For i = 6 To r1_
    fff = Range("A" & i).Resize(, 5).Interior.Color
        If fff = 0 Then
            Range("F" & i) = 1
        End If
    Next i
End Sub

[/vba]

К сообщению приложен файл: 9934563_1.xlsm (17.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995