O Excel tem uma função para definir automaticamente cores de fundo para valores?

0

Ontem analisei um arquivo do Torque, um aplicativo que registra dados de carros e motos. Continha dados como RPM, velocidade, aceleração, posição do acelerador e muito mais.

Para obter uma visão geral melhor, calculei o min e max de cada coluna. Então eu configurei, ou seja, todos os valores de RPM acima de 9.000 para vermelho escuro, 7.000 para vermelho claro e abaixo de 1.500 para cinza. Eu fiz isso para a maioria das colunas, e fiz isso manualmente.

O Excel inclui uma função para fazer isso automaticamente. Eu não quero inserir valores mínimos e máximos, ou dizer vermelho deve ser para valores de 8.000 a 9.000 ou algo assim. Minha ideia é que essa função detecta os valores mínimo e máximo e com que frequência eles estão na planilha. Então, ou seja, os 10% principais valores devem estar em uma cor e semelhantes a outros valores. Basicamente eu quero clicar em um botão e depois disso eu quero ter cores úteis para todas as colunas.

Essa função existe no Excel ou como um complemento?

    
por Edgar 09.10.2018 / 06:18

1 resposta

0

Este código VBA (Macro) ajudará você a destacar automaticamente o & Valores mínimos na planilha ativa.

No lugar do uso de Intervalos de Dados Codificados, o código faz um loop através de quaisquer colunas usadas e as ajusta para ter diferentes comprimentos.

Além disso, eu suponho cabeçalhos na Folha ativa.

Private Sub Worksheet_Activate()
Dim Myrng As Range
Dim rng As Range
Dim lCol As Long
Dim lLastRow As Long

ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNone

  With ActiveSheet
    For lCol = 2 To .UsedRange.Columns.Count

      lLastRow = .Cells(.Rows.Count, lCol).End(xlUp).Row
      Set rng = .Range(.Cells(2, lCol), .Cells(lLastRow, lCol))

      For Each Myrng In rng

       If Myrng.value = Application.WorksheetFunction.Max(rng) Then
        Myrng.Interior.ColorIndex = 6
       End If

       If Myrng.value = Application.WorksheetFunction.Min(rng) Then
        Myrng.Interior.ColorIndex = 10
       End If

      Next
    Next lCol
  End With

End Sub

Como funciona:

  • Copiar & Cole este código VBA como módulo padrão com a folha.
  • O código destacará Max & Valores mínimos em cada coluna para o intervalo usado na planilha assim que você ativar (no clique do mouse na guia Planilha).
  • Ajuste a cor de fundo conforme necessário.
por 09.10.2018 / 08:29