Есть такой код. Но он действует только на одну строку. А мне надо, чтобы на каждую строку действовал до конца книги, так как таблица будет очень большая. Может можно как-то этот код иначе оформить? и плюс хотела, чтобы автоматически при выборе А1 значения - автоматически закрашивались ячейки, без нажимания на плей. Суть такая: в А1 стоит список (pw, pp,w) и при выборе определенного значения должны закрашиваться ячейки, которые не надо заполнять. Спасибо за помощь
| Код |
|---|
Sub TestColor()
If Application.WorksheetFunction.CountIf(Range("A1"), "pw") Then
Range("C1,E1,H1,J1,L1").Interior.ColorIndex = 15
Else
Range("C1,E1,H1,J1,L1").Interior.ColorIndex = xlNone
End If
If Application.WorksheetFunction.CountIf(Range("A1"), "pp") Then
Range("B1,D1,G1").Interior.ColorIndex = 15
Else
Range("B1,D1,G1").Interior.ColorIndex = xlNone
End If
If Application.WorksheetFunction.CountIf(Range("A1"), "w") Then
Range("K1,O1,Q1").Interior.ColorIndex = 15
Else
Range("K1,O1,Q1").Interior.ColorIndex = xlNone
End If
End Sub |
