Страницы: 1
RSS
Закрашивание ячеек по условию, Автоматическое закрашивание ячеек с данными в таблице, по критериям из другой таблицы
 
Здравствуйте!

Помогите решить задачу при помощи макроса. В VBA не силен. Excel 2010.

Задача состоит в следующем:

Нужно закрасить ячейки с данными в таблице, на листе ГРАФИК КР, используя условия из таблицы, на листе КРИТЕРИИ. Т.е., в таблице на листе КРИТЕРИИ есть строка ДВС с наработкой до КР 18000, рядом диапазон от 17900 до 18500, соответственно все ячейки со значениями попадающие в этот диапазон, в таблице на листе ГРАФИК КР, должны за краситься. Соответственно должны использоваться все критерии из таблицы листа КРИТЕРИИ.

Во вложении пример!
Изменено: ScRapCo - 24.10.2013 10:23:05
 
Формула УФ
=AND(N3>КРИТЕРИИ!$C$3;N3<КРИТЕРИИ!$D$3)
 
Спасибо! Через УФ задача решена, нужно через макрос.
 
Нужно только для ДВС сделать?
 
Для всех критериев, которые в таблице, на листе КРИТЕРИИ.
 
Запустите этот макрос. Активным должен быть первый лист:
Код
Sub DVS()
Dim rCell As Range, iMin As Long, iMax As Long, i As Integer
    With Sheets("КРИТЕРИИ")
        For i = 3 To 30
            iMin = .Cells(i, 3).Value
            iMax = .Cells(i, 4).Value
            For Each rCell In Range("F3:AI14")
                If rCell.Value >= iMin Then
                    If rCell.Value <= iMax Then rCell.Interior.ColorIndex = 6
                End If
            Next
        Next
    End With
End Sub
 
Юрий М, большое спасибо! Очень вам благодарен!
 
Только с таким подходом не разобраться - что у кого закрашено: все одним цветом))
 
Ну, можно отфильтровать в критериях по мч и посмотреть. А если залить разными цветами каждый критерий, как будет выглядеть макрос? :)
 
Хотя правильнее наверное будет разбить на цветовые группы, например: 20000 - оранжевый, 18000 - желтый, 16000 - красный и тд..
 
Макрос усложнится, да и цветов "нормальных" не хватит.
Вариант: заливаем нужными цветами столбец В на втором листе, а ячейки заливаем именно таким цветом. Но всё равно не очень наглядно: разве запомнить все соответствия?..
 
И что делать с теми, которые перекрываются...
 
Ну вот и разделить на группы цветов, смотрим в таблицу критериев  и ищем соответствующие цвету значения. Соответственно перекрывающиеся будут одного цвета. Все равно будет более наглядно, в отличии от одного цвета! :) Если есть желание написать такой макрос, буду признателен, а так все равно большое вам спасибо за помощь!
 
Закрасьте несколько ячеек столбца Е на втором листе различными цветами (кроме жёлтого). Если будут найдены нужные ячейки - они будут покрашены в аналогичный цвет, а если они там остались незалитыми то в жёлтый.
Код
Sub DVS()
Dim rCell As Range, iMin As Long, iMax As Long, i As Integer
    With Sheets("КРИТЕРИИ")
        For i = 3 To 30
            iMin = .Cells(i, 3).Value
            iMax = .Cells(i, 4).Value
            For Each rCell In Range("F3:AI14")
                If rCell.Value >= iMin Then
                    If rCell.Value <= iMax Then
                        If .Cells(i, 5).Interior.ColorIndex = xlNone Then
                            rCell.Interior.ColorIndex = 6
                        Else
                            rCell.Interior.ColorIndex = .Cells(i, 5).Interior.ColorIndex
                        End If
                    End If
                End If
            Next
        Next
    End With
End Sub
 
Классно! Юрий М, огромнейшее Вам спасибо!
Страницы: 1
Наверх