Есть ли в Excel функция автоматической установки цветов фона для значений?

Question

Вчера я проанализировал файлы из Torque, приложения, которое записывает данные с автомобилей и мотоциклов. Он содержал данные, такие как обороты, скорость, ускорение, положение дроссельной заслонки и многое другое.

Для лучшего обзора я рассчитал минимальное и максимальное значения для каждого столбца. Затем я установил, т. Е. Все значения оборотов от 9000 до темно-красного, 7000 до светло-красного и ниже 1500 до серого. Я сделал это для большинства столбцов, и я сделал это вручную.

Включает ли Excel функцию, которая делает это автоматически. Я не хочу вводить минимальные и максимальные значения или говорить, что красный должен быть для значений от 8000 до 9000 или что-то вроде этого. Моя идея заключается в том, что такая функция обнаруживает минимальные и максимальные значения и как часто они находятся на листе. Тогда, т.е. первые 10% значений должны быть одного цвета и аналогичны другим значениям. В основном я хочу нажать кнопку, и после этого я хочу иметь полезные цвета для всех столбцов.

Существует ли такая функция в Excel или как дополнение?

Answer 1

Этот код VBA (Macro) поможет вам автоматически выделить максимальные и минимальные значения в активном листе.

Вместо использования жестко закодированных диапазонов данных код перебирает все используемые столбцы и корректирует их для получения различной длины.

Кроме того, я предполагаю заголовки в активном листе.

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

Как это устроено:

• Скопируйте и вставьте этот код VBA как стандартный модуль вместе с листом.
• Код выделит значения Max и Min в каждом столбце для используемого диапазона на листе, как только вы активируете его (при щелчке мышью на вкладке листа).
• Отрегулируйте цвет фона по мере необходимости.