Условное форматирование средствами VBA

[Acro]

Sub Color_PAmp()
Set PAmpRange = Range("E2:E28")

For Each cell In PAmpRange
Select Case cell.Value
    Case "G0K"
        cell.Interior.ColorIndex = 50
    Case "L0D", "C0D", "R0D"
        cell.Interior.ColorIndex = 39
    Case "L0M", "C0M", "R0M"
        cell.Interior.ColorIndex = 36
    Case "F0W"
        cell.Interior.ColorIndex = 37
End Select
Next cell
End Sub

Вот так я смог закрасить диапазон исходя из одного параметра, который содержится в самой ячейку.
Дальше пошло усложнение. Надо окрашивать ячейку в зависимости от значения 2-х неких ячеек, по вертикали и горизонтали. Но в процессе не получается окрасить ячейку даже исходя из одного параметра находящегося в другой ячейке по горизонтали:

Sub Color_S()
Set SkillRange = Range("V2:AS28")

For Each cell In SkillRange
Select Case cell(E & cell.Row).Value
    Case "L0D", "C0D", "R0D"
        cell.Interior.ColorIndex = 1
    Case "L0M", "C0M", "R0M"
        cell.Interior.ColorIndex = 2
End Select
Next cell
End Sub

И компилятор не ругается и результата - ноль. Не выходит потому что не понимает какую ячейку красить "Each cell In SkillRange" или "cell(E & cell.Row)"?

[EducatedFool]

Попробуйте такой вариант:

Sub Color_S()
    Set SkillRange = Range("V2:AS28"): Dim cell As Range

    For Each cell In SkillRange
        With cell
            Select Case Range("E" & .Row).Value
                Case "L0D", "C0D", "R0D": .Interior.ColorIndex = 1
                Case "L0M", "C0M", "R0M": .Interior.ColorIndex = 2
                Case Else: .Interior.ColorIndex = 4 ' для проверки
            End Select
        End With
    Next cell
End Sub

Или, что то же самое:

Sub Color_S2()
    Application.ScreenUpdating = False
    Set SkillRange = Range("V2:AS28"): Dim cell As Range

    For Each cell In SkillRange
        With cell
            Select Case .EntireRow.Cells(5).Value ' значение в 5-м столбце той же строки
                Case "L0D", "C0D", "R0D": .Interior.ColorIndex = 1
                Case "L0M", "C0M", "R0M": .Interior.ColorIndex = 2
                Case Else: .Interior.ColorIndex = 5    ' для проверки
            End Select
        End With
    Next cell
End Sub

А если Вы опишите условия, на основании которых должны окрашиваться ячейки,
то можно будет уже переделать этот код, исходя из Ваших требований.

Сейчас каждая из ячеек диапазона SkillRange окрашивается только в зависимости от значения, находящегося в столбце Е той же строки.

Из какой строки должно браться значение для второго условия?

[Acro]

Работает на ура, переделал свой Color_PAmp() из первого поста по аналогии с вашим решением.
Что касается второго условия, то по обьему вариантов (24) оно наверное должно быть первым по счету. Если можете укажите хотя бы направление в котором стоит искать решение.

[EducatedFool]

Можно сделать и с двумя условиями, но код получится трудночитаемый.
Да и редактировать его в случае необходимости будет сложновато.

Не проще ли сделать дополнительный лист (возможно, скрытый),
в котором будут все возможные столбцы и все возможные строки
(имеются ввиду все возможные наименования строк и столбцов)
и все ячейки в этой таблице будут заранее разукрашены в нужные цвета.
(примерно так, как Вы их разукрасили для образца в диапазоне [a12:y15])

А потом макрос будет считывать с этого скрытого листа цвет ячейки на пересечении нужной строки и нужного столбца, и красить ячейки в соответствующий цвет.

Так получится проще, да и редактировать цветовую гамму будет намного легче.

[Acro]

Блин, решение с использованием шаблона - это гениально! Вот что значит опыт.

[Acro]

Застрял на "диапазон относительно ячейки"
Диапазон лежит справа от ячейки RC[17]:RC[40]



Выбор ячеек и диапазонов ячеек в Excel с помощью процедур Visual Basic, как то не могу адаптировать изложенное.