Abaixo, veremos um programa em Excel VBA que colore o valor máximo de um gama dinâmica.
Situação:
Cada vez que adicionamos um número e clicamos no botão de comando, queremos que o Excel VBA colore o valor máximo desses números.
Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:
1. Primeiro, declaramos uma variável e dois objetos Range. Uma variável do tipo Double que chamamos de máximo. Chamamos os objetos Range de rng e cell.
Dim maximum As Double, rng As Range, cell As Range
2. Adicionamos a linha que altera a cor de fundo de todas as células para 'Sem preenchimento'.
Cells.Interior.ColorIndex = 0
3. Inicializamos rng com os números. Usamos a propriedade CurrentRegion para isso. CurrentRegion é útil quando não sabemos com antecedência os limites exatos de um intervalo.
Defina rng = Range ("A1"). CurrentRegion
4. Inicializamos no máximo com o valor máximo dos números. Usamos a função de planilha Max para encontrar o valor máximo.
máximo = WorksheetFunction.Max (rng)
5. Finalmente, colorimos o valor máximo. Usamos um For Each Next Loop.
Para cada célula em rng
Se cell.Value = maximum Then cell.Interior.ColorIndex = 22
Próxima célula
Nota: em vez do número ColorIndex 22 (vermelho), você pode usar qualquer número ColorIndex.
6. Adicione um número.
Resultado quando você clica no botão de comando na planilha:
