Não raro nomeamos um intervalo (range) de dados para a manipulação mais precisa deste, também podemos fazê-lo para cuidar de certos aspectos de formatação. Abaixo temos um código que faz um loop através de cada célula do intervalo nomeado usando um loop For Each...Next. Se o valor de qualquer célula do intervalo exceder o valor da constante Limit, a cor da célula será alterada para amarelo.
Sub ApplyColor()
Const Limit As Integer = 25
For Each c In Range ("MyRngBernardes")
If c.Value > Limit Then
Let c.Interior.ColorIndex = 27
End If
Next c
End Sub
Código funcional e prático para montar semáforos em uma planilha de dados que aponta resultados.
Tags: Bernardes, VBA, Office, Excel, color, range, intervalo, loop
André Luiz Bernardes
A&A® - Work smart, not hard.
.com
Nenhum comentário:
Postar um comentário