Abaixo, veremos um programa em Excel VBA que percorre toda a primeira coluna e colore todos os valores inferiores a um determinado valor.
Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:
1. Primeiro, declare uma variável chamada i do tipo Long. Usamos uma variável do tipo Long aqui porque as variáveis Long têm maior capacidade do que as variáveis inteiras.
Dim i enquanto
2. Em seguida, adicione a linha de código que altera a cor da fonte de todas as células na coluna A para preto.
Colunas (1) .Font.Color = vbBlack
3. Adicione o loop.
Para i = 1 para Rows.Count
Proximo eu
Observação: as planilhas podem ter até 1.048.576 linhas no Excel 2007 ou posterior. Não importa a versão que você está usando, a linha de código acima percorre todas as linhas.
4. Em seguida, colorimos todos os valores inferiores ao valor inserido na célula D2. As células vazias são ignoradas. Adicione as seguintes linhas de código ao loop.
If Cells (i, 1) .Value <Range ("D2"). Value And Not IsEmpty (Cells (i, 1) .Value) Then
Células (i, 1) .Font.Color = vbRed
Fim se
Resultado quando você clica no botão de comando na planilha (isso pode demorar um pouco):
