Гистограмма внутри ячейки excel

Допустим нам нужно проанализировать финансовые показатели фирмы. Для этого у нас имеется отчет в таблице с числами и датами. Естественно максимально эффективно ощутить пользу условного форматирования можно при большом объеме данных на тысячи ячеек. Но чтобы освоить базовые принципы построения цветовых шкал гистограммы в ячейка, нам хватит данных небольшой таблицы.

Гистограмма в ячейке Excel и условное форматирование

В данном примере, чтобы продемонстрировать показательную небольшую таблицу. Пример отчета финансовых показателей фирмы на начало года:

В первую очередь графически экспонируем в таблице количество заказов. В старых версиях Excel для реализации данной задачи нужно было прибегать к написанию сложных макросов или выполнять большой объемы работы, вручную вводить множество формул и форматировать диапазоны ячеек. Но начиная с версии Excel 2010 можно очень быстро получить такой эффект. В принципе достаточно просто выделить диапазон E4:E15 и присвоить форматирование гистограммой: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Гистограммы»-«Синяя»:

Но к сожалению гистограммы, по умолчанию будут вставлены в ячейки со значениями исходных данных. Поэтому будем использовать более находчивый способ. Для этой цели:

1. В ячейку F2 введите относительную ссылку на ячейку =E2 и скопируйте ее вдоль целого столбца. А потом выделите диапазон F2:F13 и выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Гистограммы»-«Другие правила».



2. В появившемся окне «Создание правила форматирования» выберите опцию: «Форматировать все ячейки на основании их значений» и поставьте галочку на против опции «Показывать только столбец».



3. При необходимости выберите желаемый цвет и нажмите на кнопку ОК.

В результате с помощью условного форматирования мы добавили цветные шкалы гистограммы в ячейки Excel. Размер каждой шкалы соответственный размеру числовым значениям ячеек. К тому же сама гистограмма находится рядом с исходными значениями, не закрывая их в соседнем столбце.



Чтобы удалить только эти гистограммы выделите диапазон F2:F13 и выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Удалить правила»-«Удалить правила из выделенных ячеек». Или еще проще удалите целый столбец F предварительно выделив его (F:F), нажмите комбинацию горячих клавиш CTRL+-(минус).

С помощью инструмента «Условное форматирование», можно автоматически присваивать форматы для ячеек либо целых диапазонов на основе критериев, которые определяются пользователем. В Excel предусмотрено много готовых решений для автоматического форматирования при реализации которых, от пользователя не требуется знаний для сложных логических операций. К сожалению, когда нужно применить сложные и уникальные правила форматирования недостаточно предустановленных готовых решений. В таком случае Excel предоставляет возможность для создания собственного правила, критерии которого описываются формулами с логическим результатом вычисления.

Функционирование условного форматирования легче всего продемонстрировать на конкретном примере. Допустим у нас имеется множество числовых значений, которые содержат ячейки столбца. Нам нужно сделать так, чтобы все ячейки, которые содержат числовые значения размером больше чем 100 были выделены красным цветом.

Чтобы реализовать данную задачу инструмент «Условное форматирование» проанализирует каждую ячейку на соответствие из значений с предварительно установленными пользователем значениями в критериях. Если в процессе такого теста, например, ячейка A2 (A2>100) возвращает результат «ИСТИНА», сразу ей присваивается новый формат, предварительно определенный пользователем. В противные случаи тест возвращает результат «ЛОЖЬ» и ячейка сохранит свой изначальный формат (не обязательно по умолчанию «Общий», а тот который был ей присвоен до теста).

Естественно это очень простой пример, с которым справиться даже пользователь Excel начального уровня. Уникальную пользу условного форматирования можно по-настоящему ощутить во время его использования при больших объемах данных, где сложно найти определенные значения. Возможность применения формул в качестве критериев для правил условного форматирования, позволяет выполнять сложные трюки в Excel с анализом и экспонированием числовых или текстовых значений без использования сложных макросов.

Минидиаграммы в ячейках листа

Способ 1. Спарклайны в Excel 2010

Одним из революционных нововведений в крайней версии Microsoft Excel 2010 стали инфокривые sparklines — миниграфики, помещающиеся внутри ячеек и наглядно отображающие динамику числовых данных:

Чтобы создать подобные миниграфики, нужно выделить ячейки, куда мы хотим их поместить и воспользоваться кнопками группы Спарклайны (Sparklines) с вкладки Вставка (Insert):

В открывшемся диалоговом окне нужно задать диапазон исходных данных и диапазон вывода:

Созданные миниграфики можно всячески форматировать и настраивать  с помощью динамической вкладки Конструктор (Design):

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

Поскольку спарклайн не является отдельным графическим объектом, а выступает, по сути, в роли фона ячейки, то он нисколько не помешает ввести в ячейку текст, числа или другую информацию. Это открывает простор для фантазии — если немного пошаманить с выравниванием введенного текста, шириной и высотой ячейки, то можно достичь интересных результатов:

Что делать, если у вас пока старая версия Excel? Или нужен тип графика, которого нет в наборе спарклайнов? Переходим к следующим способам!

Способ 2. Дополнительные надстройки для микрографиков

На самом деле, идея подобных графиков витала в воздухе уже достаточно давно. Еще для 2003 версии Excel существовало несколько надстроек с подобным функционалом, самым известными из которых были замечательная бесплатная Sparklines Эдварда Тафта и и платные BonaVista microcharts (169$) и Bissantz SparkMaker (200$). Да и я в свое время тоже пытался сделать что-то подобное в надстройке PLEX.

Если брать в качестве примера бесплатную надстройку Sparklines, то после ее подключения мы получим новую вкладку (или панель инструментов) примерно такого вида:

Как легко заметить, эта надстройка умеет строить заметно больше трех типов диаграмм

Единственный минус — надстройку нужно будет установить на всех компьютерах, где вы планируете работать с файлом, содержащим такие диаграммы.

Способ 3. Повтор символов N-раз

«Бюджетным вариантом» одномерных микрографиков являются повторяющиеся однотипные символы, имитирующие линейчатую диаграмму. Для этого можно воспользоваться текстовой функцией ПОВТОР (REPT), которая умеет выводить в ячейку любой заданный символ нужное количество раз. Для вывода нестандартных символов (зная их код) можно использовать функцию СИМВОЛ (CHAR). В общем и целом это выглядит так:

Символ с кодом 103 — черный прямоугольник шрифта Webdings, поэтому не забудьте установить этот шрифт для ячеек C2:C12. Также можно поиграться с символами других шрифтов, например в столбце Е использован символ с кодом 110 из шрифта Wingdings.

Способ 4. Макросы

Способ представляет собой улучшенный предыдущий вариант, где набор повторяющихся символов (используется знак «|») создает не формула, а простая пользовательская функция на VBA. Причем для каждой ячейки создается отдельный столбец, т.к. функция использует символ переноса строки после каждого числа — выглядит это примерно так:

Чтобы использовать этот трюк у себя в файле, открываем редактор VBA (Alt+F11), добавляем новый модуль в книгу (меню Insert — Module) и копируем туда код функции NanoChart:

Function NanoChart(rng As Range) As String
    Const MaxSymbols = 10

    For Each cell In rng
        outstr = outstr & WorksheetFunction.Rept("|", cell / WorksheetFunction.Max(rng) * MaxSymbols) & Chr(10)
    Next cell
    NanoChart = outstr
End Function

Затем вставляем функцию NanoChart в нужные ячейки, указывая в качестве аргументов числовые данные, как на рисунке выше. Для получившихся ячеек с микрографиками необходимо включить перенос по словам и поворот на 90 градусов через меню Формат — Ячейки — Выравнивание (Format — Cells — Alignment). Константа MaxSymbols задает длину максимально высокого столбца в минигистограмме.

Еще один подобный способ честно подсмотрен на сайте http://www.dailydoseofexcel.com/. Заключается в добавлении в файл пользовательской функции на VBA для автоматического построения спарклайнов — миниатюрных графиков внутри ячеек. Открываем редактор VBA (Alt+F11), добавляем новый модуль в книгу (меню Insert — Module) и копируем туда этот код на Visual Basic:

Function LineChart(Points As Range, Color As Long) As String
    Const cMargin = 2
    Dim rng As Range, arr() As Variant, i As Long, j As Long, k As Long
    Dim dblMin As Double, dblMax As Double, shp As Shape
 
    Set rng = Application.Caller
 
    ShapeDelete rng
 
    For i = 1 To Points.Count
        If j = 0 Then
            j = i
        ElseIf Points(, j) > Points(, i) Then
            j = i
        End If
        If k = 0 Then
            k = i
        ElseIf Points(, k) < Points(, i) Then
            k = i
        End If
    Next
    dblMin = Points(, j)
    dblMax = Points(, k)
 
    With rng.Worksheet.Shapes
        For i = 0 To Points.Count - 2
            Set shp = .AddLine( _
                cMargin + rng.Left + (i * (rng.Width - (cMargin * 2)) / (Points.Count - 1)), _
                cMargin + rng.Top + (dblMax - Points(, i + 1)) * (rng.Height - (cMargin * 2)) / (dblMax - dblMin), _
                cMargin + rng.Left + ((i + 1) * (rng.Width - (cMargin * 2)) / (Points.Count - 1)), _
                cMargin + rng.Top + (dblMax - Points(, i + 2)) * (rng.Height - (cMargin * 2)) / (dblMax - dblMin))
 
            On Error Resume Next
            j = 0: j = UBound(arr) + 1
            On Error GoTo 0
            ReDim Preserve arr(j)
            arr(j) = shp.Name
        Next
 
        With rng.Worksheet.Shapes.Range(arr)
            .Group
 
            If Color > 0 Then .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color
        End With
 
    End With
 
    LineChart = ""
End Function
 
Sub ShapeDelete(rngSelect As Range)
    Dim rng As Range, shp As Shape, blnDelete As Boolean
 
    For Each shp In rngSelect.Worksheet.Shapes
        blnDelete = False
        Set rng = Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), rngSelect)
        If Not rng Is Nothing Then
            If rng.Address = Range(shp.TopLeftCell, shp.BottomRightCell).Address Then blnDelete = True
        End If
 
        If blnDelete Then shp.Delete
    Next
End Sub

Теперь в мастере функций в категории Определенные пользователем появилась новая функция LineChart c двумя аргументами — диапазоном и кодом цвета графика. Если ее вставить в пустую ячейку, например, справа от числовой строки и скопировать затем, как обычно, на весь столбец, то получим весьма симпатичное отображение числовых данных в виде миниграфиков:

Ссылки по теме

• Микрографики в надстройке PLEX
• Что такое макросы, куда вставлять код макросов на VBA, как их использовать.
• Бесплатная надстройка Sparklines Эдварда Тафта (англ.)