Сумма залитых ячеек excel

Skip to content

Сумма по цвету и подсчёт по цвету в Excel

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

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

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

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

Функции и макросы, которые мы рассмотрим в этой статье, помогут нам сделать следующее:

  • Как посчитать по цвету и суммировать по цвету на листе Excel
  • Как суммировать по цвету и сосчитать по цвету во всей рабочей книге
  • Пользовательские функции для получения цвета ячейки, цвета шрифта и цветового кода
  • Как считать по цвету и суммировать ячейки, окрашенные с использованием условного форматирования
  • Самый быстрый способ подсчета и суммирования ячеек по цвету в Excel

Как посчитать по цвету и суммировать по цвету на листе Excel

Предположим, у вас есть таблица со списком заказов, в которой ячейки в столбце «Количество» окрашены в зависимости от их значения в колонке «Выполнение» и даты: ячейки с выполняемыми заказами сроком до 30 дней от текущей даты  — желтые,  уже выполненные — зеленые, а просроченные заказы — красные.

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

  1. Откройте книгу Excel и нажмите Alt+F11, чтобы открыть редактор Visual Basic (VBE).
  2. Щелкните правой кнопкой мыши имя своей книги в разделе «Project–VBAProject» в правой части экрана, а затем выберите «Вставить» > «Модуль» в контекстном меню.

  1. Добавьте в вашу рабочую книгу следующий код:
Function GetCellColor(xlRange As Range)
  Dim indRow, indColumn As Long
  Dim arResults()
  Dim colorVal As Variant
  
  Application.Volatile
 
  If xlRange Is Nothing Then
      Set xlRange = Application.ThisCell
  End If
 
  If xlRange.Count > 1 Then
    ReDim arResults(1 To xlRange.Rows.Count, 1 To xlRange.Columns.Count)
     For indRow = 1 To xlRange.Rows.Count
       For indColumn = 1 To xlRange.Columns.Count
         colorVal = xlRange(indRow, indColumn).Interior.Color
         arResults(indRow, indColumn) = (colorVal Mod 256) & ", " & ((colorVal  256) Mod 256) & ", " & (colorVal  65536)
       Next
     Next
   GetCellColor = arResults
  Else
   colorVal = xlRange.Cells(1, 1).Interior.Color
   GetCellColor = (colorVal Mod 256) & ", " & ((colorVal  256) Mod 256) & ", " & (colorVal  65536)
  End If
End Function
 
Function GetCellFontColor(xlRange As Range)
  Dim indRow, indColumn As Long
  Dim arResults()
  Dim colorVal As Variant
 
  Application.Volatile
 
  If xlRange Is Nothing Then
      Set xlRange = Application.ThisCell
  End If
 
  If xlRange.Count > 1 Then
    ReDim arResults(1 To xlRange.Rows.Count, 1 To xlRange.Columns.Count)
     For indRow = 1 To xlRange.Rows.Count
       For indColumn = 1 To xlRange.Columns.Count
         colorVal = xlRange(indRow, indColumn).Font.Color
         arResults(indRow, indColumn) = (colorVal Mod 256) & ", " & ((colorVal  256) Mod 256) & ", " & (colorVal  65536)
       Next
     Next
   GetCellFontColor = arResults
  Else
   colorVal = xlRange.Cells(1, 1).Font.Color
   GetCellFontColor = (colorVal Mod 256) & ", " & ((colorVal  256) Mod 256) & ", " & (colorVal  65536)
  End If
End Function

Function CountCellsByColor(rData As Range, cellRefColor As Range) As Long
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim cntRes As Long
 
    Application.Volatile
    cntRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Interior.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Interior.Color Then
            cntRes = cntRes + 1
        End If
    Next cellCurrent
 
    CountCellsByColor = cntRes
End Function
 
Function SumCellsByColor(rData As Range, cellRefColor As Range)
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim sumRes
 
    Application.Volatile
    sumRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Interior.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Interior.Color Then
            sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
        End If
    Next cellCurrent
 
    SumCellsByColor = sumRes
End Function
 
Function CountCellsByFontColor(rData As Range, cellRefColor As Range) As Long
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim cntRes As Long
 
    Application.Volatile
    cntRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Font.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Font.Color Then
            cntRes = cntRes + 1
        End If
    Next cellCurrent
 
    CountCellsByFontColor = cntRes
End Function
 
Function SumCellsByFontColor(rData As Range, cellRefColor As Range)
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim sumRes
 
    Application.Volatile
    sumRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Font.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Font.Color Then
            sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
        End If
    Next cellCurrent
 
    SumCellsByFontColor = sumRes
End Function
  1. Сохраните свою книгу как «Книга Excel с поддержкой макросов (.xlsm)».

Если вы новичок и вам сложно работать с VBA, вы можете найти подробные пошаговые инструкции и несколько полезных советов в этом руководстве: Как вставить и запустить код VBA в Excel .

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

CountCellsByColor( диапазон ; код цвета )

здесь и далее эти аргументы означают:

диапазон – диапазон ячеек, в которых вы хотите произвести подсчеты по цвету,

код цвета – адрес ячейки-образца, цвет фона или шрифта которой соответствуют искомому цвету фона или шрифта.

В этом примере мы используем формулу, =CountCellsByColor(D2:D21;A24), где D2:D21— это диапазон, в котором вы хотите посчитать количество ячеек с цветом, а A24 — это ячейка, закрашенная нужным нам цветом, красным в нашем случае.

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

Если у вас есть числовые данные в цветных ячейках (например, столбец Количество в нашей таблице), вы можете сложить значения на основе определенного цвета, используя аналогичную функцию SumCellsByColor:

SumCellsByColor( диапазон ; код цвета)

Как показано на скриншоте выше, мы использовали формулу суммы по цвету, =SumCellsByColor(D2:D21;A24), где D2:D21 — это диапазон, а A24 — ячейка с образцом цвета.

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

На скриншоте ниже вы видите, как можно подсчитать количество значений, написанных красным цветом.

=CountCellsByFontColor(D2:D21;A24)

Аналогично подсчитываем сумму чисел, имеющих определённый цвет шрифта, при помощи формулы:

=SumCellsByFontColor(D2:D21;A24)

Примечание. Если после применения вышеупомянутого кода VBA вам потребуется раскрасить еще несколько ячеек вручную, то сумма и количество окрашенных ячеек не будут пересчитаны автоматически, чтобы отразить произошедшие изменения. Пожалуйста, не сердитесь на нас, это не ошибка кода :)

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

Итак, после раскрашивания ячеек вручную, просто поместите курсор в любую ячейку и нажмите F2, а затем Enter. То есть, сделайте вид, что меняете содержимое какой-либо ячейки. Сумма и количество в пользовательской функции тут же будут обновлены. То же самое относится и к другим макросам, которые считают по цвету.

Как суммировать по цвету и сосчитать по цвету во всей рабочей книге

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

Function WbkCountCellsByColor(cellRefColor As Range)
  Dim vWbkRes
  Dim wshCurrent As Worksheet
 
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
 
  vWbkRes = 0
  For Each wshCurrent In Worksheets
    wshCurrent.Activate
    vWbkRes = vWbkRes + CountCellsByColor(wshCurrent.UsedRange, cellRefColor)
  Next
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
 
  WbkCountCellsByColor = vWbkRes
End Function
 
Function WbkSumCellsByColor(cellRefColor As Range)
  Dim vWbkRes
  Dim wshCurrent As Worksheet
 
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
 
  vWbkRes = 0
  For Each wshCurrent In Worksheets
    wshCurrent.Activate
    vWbkRes = vWbkRes + SumCellsByColor(wshCurrent.UsedRange, cellRefColor)
  Next
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
 
  WbkSumCellsByColor = vWbkRes
End Function

Вы используете этот макрос так же, как и предыдущий код, и выводите количество и сумму цветных ячеек с помощью следующих формул =WbkCountCellsByColor() и =WbkSumCellsByColor() соответственно. 

Единственный аргумент, который нужен этим функциям, это адрес ячейки с нужным цветом.

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

=WbkSumCellsByColor(A1)   

Формула отобразит сумму всех ячеек, закрашенных тем же цветом, на всех листах в вашей рабочей книге.

Пользовательские функции для получения цвета ячейки, цвета шрифта и цветового кода

Здесь вы найдете перечень всех функций, которые мы использовали ранее, а также несколько новых, которые извлекают цветовые коды.

Зачем они нам? Но ведь если ваша таблица окрашена не совсем стандартными цветами (например, светло-зеленым), то подобрать образец цвета для функций, которые мы рассматривали выше, будет весьма затруднительно. Если же у вас будет код нужного цвета, вы сможете использовать его при форматировании ячейки-образца, чтобы получить точное соответствие цвета.

Если вы вдруг забыли, как можно вручную раскрасить ячейку в нужный цвет, то напомню. Жмем Ctrl+1, затем Заливка – Другие цвета – Спектр – RGB формат. Вот туда и вставляем полученный код. Точное соответствие цвета будет обеспечено.

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

Функции для подсчета по цвету:

  • CountCellsByColor(диапазон; код цвета) ­– считает ячейки с заданным цветом фона.

В приведенном выше примере мы использовали следующую формулу для подсчета ячеек по цвету 

= CountCellsByColor (F2: F14, A17) 

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

  • CountCellsByFontColor(диапазон; код цвета) – подсчитывает ячейки с указанным цветом шрифта.

Формулы для суммирования по цветам:

  • SumCellsByColor(диапазон; код цвета) – вычисляет сумму ячеек с определенным цветом фона.
  • SumCellsByFontColor(диапазон; код цвета) – вычисляет сумму ячеек с определенным цветом шрифта.

Функции для получения кода цвета ячейки:

  • GetCellFontColor(ячейка) – возвращает цветовой код цвета шрифта указанной ячейки.
  • GetCellColor(ячейка) – возвращает цветовой код цвета фона указанной ячейки.

Вот примеры использования функции цвета ячейки:

А на этим скриншоте мы получаем цветовой RGB код шрифта.

Как считать по цвету и суммировать ячейки, окрашенные с использованием условного форматирования

Если вы применили условное форматирование к ячейкам на основе их значений и теперь хотите посчитать эти ячейки по цвету или просуммировать значения в закрашенных ячейках, то у меня плохие новости — не существует универсальной определяемой пользователем функции, которая бы суммировала по цвету или пересчитала закрашенные условным форматированием ячейки и вывела бы полученные числа прямо в указанные клетки таблицы. По крайней мере мне о такой функции не известно, увы :(

Конечно, вы можете найти в Интернете тонны кода VBA, который пытается это сделать, но все эти коды (по крайней мере, примеры, с которыми я сталкивался), не обрабатывают условное форматирование, такое как «Форматировать все ячейки на основе их значений», «Форматировать только наибольшие или наименьшие значения», «Форматировать только значения выше или ниже среднего», «Форматировать только уникальные или повторяющиеся значения». Кроме того, почти все эти коды VBA имеют ряд особенностей и ограничений, из-за которых они могут работать некорректно с определенными книгами или типами данных. В общем, вы можете испытать удачу и поискать в Google идеальное решение, и если вы его найдете, пожалуйста, вернитесь и опубликуйте свое открытие здесь!

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

Приведенный ниже макрос VBA преодолевает вышеупомянутые ограничения и работает в электронных таблицах Microsoft Excel со всеми типами условного форматирования. Он отображает количество выделенных определенным цветом ячеек и сумму значений в этих ячейках, независимо от того, какой тип условного форматирования используется на листе.

Sub SumCountByConditionalFormat()
  Dim indRefColor As Long
  Dim cellCurrent As Object
  Dim cntRes As Long
  Dim sumRes
  Dim cntCells As Long
  Dim indCurCell As Long
 
  cntRes = 0
  sumRes = 0
  
  Set cellCurrent = Selection
  adr = Mid(cellCurrent.Address, InStr(cellCurrent.Address, ",") + 1, 20)
  adr1 = Left(adr, 4)
  adr2 = Left(cellCurrent.Address, InStr(cellCurrent.Address, ",") - 1)
  Range(adr2).Activate
  indRefColor = ActiveCell.DisplayFormat.Interior.Color
  Range(adr).Activate
  cntCells = Selection.CountLarge
  Range(adr).Select
  Range(adr).Activate
 Set cellCurrent = Selection
 For indCurCell = 1 To (cntCells - 1)
    If indRefColor = cellCurrent(indCurCell).DisplayFormat.Interior.Color Then
        cntRes = cntRes + 1
        sumRes = WorksheetFunction.Sum(cellCurrent(indCurCell), sumRes)
    End If
  Next
  MsgBox "Count=" & cntRes & vbCrLf & "Sum= " & sumRes & vbCrLf & vbCrLf & _
    "Color=" & Left("000000", 6 - Len(Hex(indRefColor))) & _
    Hex(indRefColor) & vbCrLf, , "Count & Sum by Conditional Format color"
End Sub

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

Опишем процесс пошагово:

  1. Добавьте приведенный выше код на лист, как описано в первом параграфе статьи .
  2. Выберите ячейку с нужным цветом.
  3. Нажмите и удерживайте Ctrl.
  4. Выберите диапазон, в котором вы хотите подсчитать цветные ячейки и/или суммировать по цвету, если у вас есть числовые данные.
  5. Отпустите клавишу Ctrl.
  6. НажНажмите комбинацию  Alt+F8, чтобы открыть список макросов в вашей книге.
  7. Выберите макрос SumCountByConditionalFormat и нажмите «Выполнить» .

Покажем эти действия на скриншотах. Используем пример данных, с которыми мы уже работали в первых параграфах этой статьи. Только теперь они окрашены в столбце В при помощи условного форматирования.

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

Затем дополнительно, удерживая Ctrl, выделяем диапазон ячеек в столбце D, по которым нужно выполнить подсчет ячеек определенного цвета.

Выполняем макрос, как показано на скриншоте ниже.

В результате вы увидите следующее сообщение с результатами:

Для этого примера мы выбрали столбец «Количество» и получили следующие цифры:

  1. Count — это количество ячеек определенного цвета, красного в нашем случае, который отмечает ячейки «Просрочен».
  2. Sum — это сумма значений всех красных ячеек в выбранной колонке, т.е. общее количество «Просроченных» заказов.
  3. Color — это шестнадцатеричный код цвета выбранной ячейки, в нашем случае D5.

Таким образом мы можем посчитать сумму и количество по цвету ячеек с условным форматированием.

Самый быстрый способ подсчета и суммирования ячеек по цвету в Excel

Я могу рекомендовать вам надстройку для Excel, которая бы считала и суммировала ячейки по указанному вами цвету или по всем цветам в выбранном диапазоне.

При этом не имеет значения, как установлены эти цвета – прямым форматированием ячейки либо при помощи условного форматирования.

Позвольте представить вам наш совершенно новый инструмент — «Счет и сумма по цвету» для Excel. Он имеет два варианта подсчета — «Один цвет» и «Все цвета», как видно на скриншоте ниже.

Подсчет и суммирование по одному цвету.

Вы нажимаете кнопку « Один цвет » на ленте, и в левой части рабочего листа открывается панель « Подсчет и сумма по цвету» . На панели вы выбираете:

  • Диапазон, в котором вы хотите подсчитать и суммировать ячейки
  • Любую ячейку с нужным цветом как образец
  • Вариант — цвет фона или шрифта

После этого нажмите « Рассчитать » и сразу же увидите результат в нижней части панели! Помимо подсчета и суммы, надстройка вычисляет среднее значение и находит максимальное и минимальное значения. Никаких макросов, никаких формул, никакой боли :)

Обратите внимание, что подсчет возможен как по цвету фона, так и по цвету шрифта.

Подсчет и суммирование ячеек по всем цветам в выбранном диапазоне

Опция «Все цвета» работает в основном так же, за исключением того, что вам не нужно выбирать цвет. В разделе «Result for ..» вы можете выбрать любой из параметров: Количество, Сумма, Среднее, Максимальное или Минимальное значение  и другие.

Если вы хотите скопировать результаты на свой рабочий лист, нажмите кнопку «Paste All» в нижней части панели .

В настоящее время надстройка доступна как часть Ultimate Suite for Excel . Это коллекция отличных инструментов, специально разработанных для решения самых утомительных, кропотливых и подверженных ошибкам задач в Excel.

В дополнение к надстройке «Подсчет и суммирование по цвету», Ultimate Suite включает более 70 инструментов, которые помогут вам объединить данные из разных листов, удалить дубликаты, сравнить листы на совпадения и различия и многое другое.

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

Функция СУММПРОИЗВ с примерами формул В статье объясняются основные и расширенные способы использования функции СУММПРОИЗВ в Excel. Вы найдете ряд примеров формул для сравнения массивов, условного суммирования и подсчета ячеек по нескольким условиям, расчета средневзвешенного значения…
Проверка данных с помощью регулярных выражений В этом руководстве показано, как выполнять проверку данных в Excel с помощью регулярных выражений и пользовательской функции RegexMatch. Когда дело доходит до ограничения пользовательского ввода на листах Excel, проверка данных очень полезна. Хотите…
Поиск и замена в Excel с помощью регулярных выражений В этом руководстве показано, как быстро добавить пользовательскую функцию в свои рабочие книги, чтобы вы могли использовать регулярные выражения для замены текстовых строк в Excel. Когда дело доходит до замены…
Как извлечь строку из текста при помощи регулярных выражений В этом руководстве вы узнаете, как использовать регулярные выражения в Excel для поиска и извлечения части текста, соответствующего заданному шаблону. Microsoft Excel предоставляет ряд функций для извлечения текста из ячеек. Эти функции…
4 способа отладки пользовательской функции Как правильно создавать пользовательские функции и где нужно размещать их код, мы подробно рассмотрели ранее в этой статье.  Чтобы решить проблемы при создании пользовательской функции, вам скорее всего придется выполнить…


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

Функции для суммирования значений по цвету ячеек в EXCEL не существует (по крайней мере, в EXCEL 2016 и в более ранних версиях). Вероятно, подавляющему большинству пользователей это не требуется.

Пусть дан диапазон ячеек в столбце А. Пользователь выделил цветом ячейки, чтобы разбить значения по группам.

Необходимо сложить значения ячеек в зависимости от цвета фона. Основная задача: Как нам «объяснить» функции сложения, что нужно складывать значения, например, только зеленых ячеек?

Это можно сделать разными способами, приведем 3 из них: с помощью

Автофильтра

, Макрофункции ПОЛУЧИТЬ.ЯЧЕЙКУ() и VBA.

С помощью Автофильтра (ручной метод)

  • Добавьте справа еще один столбец с заголовком

    Код цвета

    .
  • Выделите заголовки и нажмите CTRL+SHIFT+L, т.е. вызовите

    Автофильтр

    (

    подробнее здесь

    )

  • Вызовите меню

    Автофильтра

    , выберите зеленый цвет

  • Будут отображены только строки с зелеными ячейками
  • Введите напротив каждого «зеленого» значения число 1

  • Сделайте тоже для всех цветов

Введите формулу

=СУММЕСЛИ(B7:B17;E7;A7:A17)

как показано в

файле примера (лист Фильтр)

.

Для

подсчета значений

используйте функцию

СЧЕТЕСЛИ()

.

С помощью Макрофункции ПОЛУЧИТЬ.ЯЧЕЙКУ()

Сразу предупрежу, что начинающему пользователю EXCEL будет сложно разобраться с этим и следующим разделом.

Идея заключается в том, чтобы автоматически вывести в соседнем столбце числовой код фона ячейки (в MS EXCEL все цвета имеют соответствующий числовой код). Для этого нам потребуется функция, которая может вернуть этот код. Ни одна обычная функция этого не умеет. Используем макрофункцию ПОЛУЧИТЬ.ЯЧЕЙКУ(), которая возвращает код цвета заливки ячейки (она может много, но нам потребуется только это ее свойство).


Примечание:

Макрофункции — это набор функций к EXCEL 4-й версии, которые нельзя напрямую использовать на листе EXCEL современных версий, а можно использовать только в качестве

Именованной формулы

. Макрофункции — промежуточный вариант между обычными функциями и функциями VBA. Для работы с этими функциями требуется сохранить файл в формате с макросами *.xlsm

  • Сделайте активной ячейку

    В7

    (это важно, т.к. мы будем использовать

    относительную адресацию

    в формуле)

  • В

    Диспетчере имен

    введите формулу =ПОЛУЧИТЬ.ЯЧЕЙКУ(63;Макрофункция!A7)

  • Назовите ее Цвет

  • Закройте Диспетчер имен
  • Введите в ячейку

    В7

    формулу =Цвет и скопируйте ее вниз.

Сложение значений организовано так же как и в предыдущем разделе.

Макрофункция работает кривовато:

  • если вы измените цвет ячейки, то макрофункция не обновит значения кода (для этого нужно опять скопировать формулу из

    В7

    вниз или выделить ячейку, нажать клавишу

    F2

    и затем

    ENTER

    )
  • функция возвращает только 56 цветов (так называемая палитра EXCEL), т.е. если цвета близки, например, зеленый и светло зеленый, то коды этих цветов могут совпасть. Подробнее об этом

    см. лист файла примера Colors

    . Как следствие, будут сложены значения из ячеек с разными цветами.

С помощью VBA

В

файле примера на листе VBA

приведено решение с помощью VBA. Решений может быть множество:

  • можно создать кнопку, после нажатия она будет вводить код цвета в соседний столбец (реализован этот вариант).
  • можно написать пользовательскую функцию, которая будет автоматически обновлять код цвета при изменении цвета ячейки (реализовать несколько сложнее);
  • можно написать программу, которая будет анализировать диапазон цветных ячеек, определять количество различных цветов, вычислять в отдельном диапазоне суммы для каждого цвета (реализовать не сложно, но у каждого пользователя свои требования: ячейки с суммами должны быть в определенном месте, необходимо учесть возможность дополнения диапазона новыми значениями и пр.).

Вычисления по цвету ячеек

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

Чтобы исправить этот существенный недостаток можно использовать несложные пользовательские макрофункции на Visual Basic, которые позволят нам суммировать/подсчитывать количество/среднее арифметическое ячеек с определенным цветом заливки/шрифта.

На вкладке Разработчик (Developer) нажмите кнопку Visual Basic или сочетание клавиш Alt+F11, чтобы открыть редактор макросов. Если такой вкладки у вас не видно, то включите ее в настройках Файл — Параметры — Настройка ленты (File — Options — Customize Ribbon).

В окне редактора вставьте новый модуль через меню Insert — Module и скопируйте туда текст следующих функций:

Function CountByColor(DataRange As Range, ColorSample As Range) As Long
    Dim cell As Range, n As Long
    
    For Each cell In DataRange
        If cell.Interior.Color = ColorSample.Interior.Color Then n = n + 1
    Next cell
    CountByColor = n
End Function

Function SumByColor(DataRange As Range, ColorSample As Range) As Double
    Dim cell As Range, total As Double
    
    For Each cell In DataRange
        If IsNumeric(cell) And cell.Interior.Color = ColorSample.Interior.Color Then total = total + cell.Value
    Next cell
    SumByColor = total
End Function

Function AverageByColor(DataRange As Range, ColorSample As Range) As Double
    Dim cell As Range, total As Double, n As Long
    
    For Each cell In DataRange
        If IsNumeric(cell) And cell.Interior.Color = ColorSample.Interior.Color Then
            total = total + cell.Value
            n = n + 1
        End If
    Next cell
    AverageByColor = total / n
End Function
 

Как легко сообразить, первая функция здесь вычисляет количество ячеек с заданным цветом заливки, вторая — сумму, а третья — среднее арифметическое. У всех функций два аргумента:

  • DataRange — диапазон исходных ячеек с числами, раскрашенных в разные цвета
  • ColorSample — ячейка, цвет заливки которой мы берём за образец

Если теперь вернуться в Excel, то в Мастере функций (вкладка Формулы — кнопка Вставить функцию) в появившейся там категории Определенные пользователем (User Defined) можно найти наши функции и вставить их на лист. Либо напрямую ввести их в строку формул, как любые другие функции Excel:

Сумма, количество и среднее ячеек с заданным цветом заливки

Добавление условий

Аналогичный подход можно легко масштабировать, добавляя, при необходимости, дополнительные условия в проверку (команда if … then…). Так, например, если нам нужно при вычислении среднего арифметического учитывать не только цвет заливки, но и цвет шрифта (т.е. считать не просто жёлтые, а именно жёлто-красные ячейки), то код нашей макро-функции будет выглядеть так:

 Function AverageByColor2(DataRange As Range, ColorSample As Range) As Double
    Dim cell As Range, total As Double, n As Long
    
    For Each cell In DataRange
        If IsNumeric(cell) And cell.Interior.Color = ColorSample.Interior.Color And cell.Font.Color = ColorSample.Font.Color Then
            total = total + cell.Value
            n = n + 1
        End If
    Next cell
    AverageByColor2 = total / n
End Function

Разница только в добавленном через логическую связку «И» (and) условии на проверку соответствия цвета шрифта очередной проверяемой ячейки cell.Font.Color цвету шрифта ячейки-образца ColorSample.Font.Color.

Ограничения и нюансы пересчёта

У созданных нами макрофункций есть 2 важных нюанса.

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

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

Полностью решить эту проблему невозможно, но есть несколько способов её обойти:

  • Сделать двойной щелчок левой кнопкой мыши по ячейки с нашей формулой и нажать на Enter, т.е. имитировать повторный ввод функции в ячейку — Excel её заново пересчитает и выдаст обновленный результат.
  • Можно использовать сочетание клавиш Ctrl+Alt+F9, которое принудительно заставит Excel пересчитать всё формулы и функции независимо от того, изменились ли для них исходные данные. Но это сочетание нужно будет не забывать нажимать каждый раз при изменении исходных данных.
  • Добавить в код наших макрофункций (в любое место) команду Application.Volatile True. Эта команда языка Visual Basic заставляет Excel пересчитывать результаты нашей функции при изменении любой ячейки на листе (или по нажатию  F9). Однако, в этом случае, скорость работы наших функций заметно снизится, т.к. их пересчёт будет происходить постоянно — даже когда мы не меняли цвета или значения ячеек в исходных данных. Пользуйтесь этим методом осторожно.

И помните о том, что наша функция перебирает все (и пустые тоже) ячейки в диапазоне DataRange и не задавайте в качестве первого аргумента целый столбец — «думать» будет долго :)

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

  • Сортировка строк по цвету
  • Функции подсчета количества и суммы ячеек по цвету из надстройки PLEX
  • Что такое «ад условного форматирования» и как его победить

В своей работе мы практически ежедневно сталкиваемся с таблицами Excel. Для их анализа, зачастую, используем разноцветные заливки ячеек. Визуализация данных, безусловно, помогает пользователю легче усваивать содержимое таблицы. Но, что делать, когда наступает момент подсчета результата? Для этого мы предлагаем не использовать стандартный подход применения фильтров по цвету, а воспользоваться редактором Microsoft Visual Basic (далее VBA), который есть в любом стандартном пакете от Microsoft Office.

Запускать его будем в Microsoft Excel по следующему алгоритму:

  • запускаем MS Excel;
  • входим во вкладку «Вид»;
  • нажимаем «Макросы»;
  • в отрывшемся окне вводим название нашей будущей программы (разрешены английские буквы и символы);
  • нажимаем «Создать».

Теперь мы в редакторе Visual Basic, и чтобы осуществить расчет по количеству залитых ячеек используем следующий код:

Public Function SumColour(DataRange As Range, ColorSample As Range) As Double
Dim cell As Range
Dim SumAll As Long
Application.Volatile True
SumAll = 0
For Each cell In DataRange
If cell.Interior.Color = ColorSample.Interior.Color Then
SumAll = SumAll+ 1
End If
Next cell
SumColour = SumAll
End Function

Так, с помощью функции SumColour, можно пересчитать количество ячеек.

Для пересчета суммы окрашенных ячеек берем вышеописанный код, меняем название функции (например, SumByColour) и строку кода «SumAll = SumAll+ 1» на «SumAll = SumAll+ cell.Value».

На практике использование редактора VBA помогает пересчитывать большие объемы данных не опасаясь ошибок, связанных с сортировкой и фильтрацией в Excel.

А какой способ используете вы? Делитесь в комментариях!

Как посчитать цветные ячейки в Excel.

​Смотрите также​​: См. строку 61​And Not bCellIsHidden(cll)​ ​ Цвет_берется_из_ячейки.Interior.ColorIndex And cll.EntireRow.Hidden​​ Цвет_берется_из_ячейки.Interior.ColorIndex or _​ indColumn As Long​Если требуется отобрать ячейки​ надо отсортировать в​ них. Если Вы​Если Вы довольны цветом,​ будете использовать в​ все ячейки с​ нет прямого решения.​ нажмите​
​Снимки экрана для​ от её значения​
​ состояния будет видно​Рассмотрим,​_Boroda_​ Then​
​ = False Or​cll.Interior.ColorIndex = Цвет_берется_из_ячейки2.Interior.ColorIndex​ Dim arResults() Application.Volatile​ с одним определённым​ таблице.​ не упустили шанс​ жмите​ 99% случаев, то​ заданным значением (значениями)​
​ И это понятно,​ОК​ этого примера были​ в Excel 2013,​
​ их сумма. Строку​
​как посчитать количество цветных​ ​: Все Вам там​
​summa = summa​ _​ Then​ If xlRange Is​ цветом шрифта, то​Нажмите​ прочитать ту статью,​
​ОК​
​ есть заливка ячеек​ при помощи опции​ так как эта​.​ сделаны в Excel​ 2010 и 2007.​ состояния можно настроить​ ячеек в​ переделал.​ + cll.Value​cll.Interior.ColorIndex = Цвет_берется_из_ячейки2.Interior.ColorIndex​​summa = summa​ Nothing Then Set​ можно снова использовать​ОК​ у Вас, вероятно,​. Вы увидите, как​
​ будет изменяться в​Find All​ задача не типичная.​Результат Ваших настроек форматирования​ 2010, однако, в​ Кроме того, Вы​Как посчитать цветные ячейки в Excel.​ – смотрите ниже.​Excel​Лист «Табель» -​
​End If​ _​ + cll.Value​ xlRange = Application.ThisCell​ автофильтр Excel:​
​и проверьте в​ возник вопрос, почему​ созданное правило немедленно​ соответствии с заданным​(Найти все) в​ И всё же,​ будет выглядеть приблизительно​
​ Excel 2007 и​
​ узнаете, как в​Как посчитать цветные ячейки​. Закрасить ячейки в​ строку 7 и​Next​And cll.EntireRow.Hidden =​End If​ End If If​
​Кроме упорядочивания ячеек по​ правильном ли порядке​ ​ мы не уделили​​ будет применено к​
​ Вами условием.​​ Excel.​ если Вам нужно​ ​ так:​​ 2013 кнопки, диалоговые​ Excel использовать формулы,​
​ в​
​ таблице можно самим,​ условное форматирование,​End If​ False Then​Next​ xlRange.Count > 1​ цвету заливки и​
​ расположились строки с​ внимание сортировке и​ таблице.​Для примера снова возьмём​​Однако, в действительности нам​ изменить цвет заливки​
​Так как нам нужно​ окна и настройки​ чтобы изменять цвет​Excel​ можно установить условное​Лист1 — строку​СУММ_ЦВЕТ = summa​summa = summa​СУММ_ЦВЕТ = summa​ Then ReDim arResults(1​ цвету шрифта, встречаются​
​ данными.​​ фильтрации ячеек по​
​Однажды настроенная заливка будет​ ​ таблицу цен на​
​ нужно найти все​ ячеек окончательно, то​ настроить ещё одно​ будут точно такие​ пустых ячеек или​.​ форматирование, чтобы ячейки​ 2 и условное​End Function​ + cll.Value​End Function​
​ To xlRange.Rows.Count, 1​​ некоторые другие задачи,​
​В нашей таблице вверх​ их цвету. Причина​ оставаться неизменной, не​ бензин, но на​ цены на бензин,​ есть раз и​ условие, позволяющее изменять​ же или с​ ячеек с ошибками​Можно​ окрашивались по условию.​
​ форматирование​Function bCellIsHidden(rngCell As​End If​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММ_ЦВЕТ(F8:F1317;F348;F349)​ To xlRange.Columns.Count) For​ когда возможность сортировать​ переместились строки со​ в том, что​ зависимо от значения​ этот раз добавим​ превышающие​ на всегда (либо​ цвет заливки на​ незначительными отличиями.​ в формулах.​посчитать количество цветных ячеек​

excel-office.ru

2 способа изменить цвет заливки ячеек в Excel в зависимости от их значений

​ Как настроить таблицу,​Все нижние доп.​ Range) As Boolean​Next​Leojse​ indRow = 1​ по цвету оказывается​ значением​ сортировка ячеек по​ ячейки.​ ещё пару штатов,​$3.7​ пока Вы не​ зелёный для ячеек​

​Итак, вот, что нужно​Каждому известно, что для​ в​ чтобы ячейки окрашивались​ строки постирал​bCellIsHidden = rngCell.EntireRow.Hidden​​Else​​: Саня, Спасибо! Вот​ To xlRange.Rows.Count For​ очень удобной.​Past Due​ цвету в Excel​Если Вы хотите настроить​ а некоторые ячейки​. К сожалению, инструмент​ измените его вручную),​ со значениями меньшими​ сделать по шагам:​ изменения цвета заливки​Excel​ по условию, смотрите​Ну и формулу​ Or _​For Each cll​ как все просто)​ indColumn = 1​Настроим, для примера, условное​

  • ​(столбец​ требует немного другого​ постоянный цвет заливки​ сделаем пустыми. Теперь​Find and Replace​ выполните следующие шаги.​
  • ​ или равными​Выделите таблицу или диапазон,​ одной ячейки или​. Например, у нас​ в статье «Условное​ написал.​rngCell.EntireColumn.Hidden​ In Диапазон_суммирования.Cells​
  • ​Leojse​ To xlRange.Columns.Count arResults(indRow,​ форматирование с использованием​

Как в Excel динамически изменять цвет ячейки, основываясь на её значении

​Delivery​ подхода. Далее мы​ пустых ячеек или​

​ посмотрите, как Вы​​(Найти и заменить)​Тут возможно несколько сценариев,​3.45​ в котором Вы​ целого диапазона в​ такая таблица.​ форматирование в Excel».​Переделал бы еще​End Function​If cll.Interior.ColorIndex =​

​: А можно еще​​ indColumn) = xlRange(indRow,​ наборов значков по​), за ними следуют​ рассмотрим этот вопрос​ ячеек с формулами,​ сможете обнаружить эти​

​ в этом не​ в зависимости от​, то снова нажимаем​ хотите изменить цвет​ Excel достаточно просто​​Первый способ.​​У нас такая​ и формулу в​Leojse​​ Цвет_берется_из_ячейки.Interior.ColorIndex _​​ вопрос? Получается, нужно​

Изменяем цвет заливки ячеек в Excel

​ indColumn).Interior.Color Next Next​​ столбцу​ строки со значениями​ подробнее.​ которые содержат ошибки,​ пустые ячейки и​ сможет нам помочь.​ того, значения какого​ кнопку​ заливки ячеек. В​ нажать кнопку​

​Сортировкой собираем все​ таблица.​

  1. ​ F8:…, но не​: Просто ради интереса​And cll.EntireRow.Hidden =​ всегда теперь вводить​ GetCellColor = arResults​Qty.​​Due in​​Сортировка по цвету заливки​ используйте этот способ:​ изменить цвет их​Теперь у Вас выделены​
  2. ​ типа Вы ищите.​​New Rule​​ этом примере мы​​Fill color​​ цветные ячейки в​​Как закрасить ячейку самим,​​ знаю, что Вы​​ попробовал код Сани,​​ False Then​Изменяем цвет заливки ячеек в Excel
  3. ​ две ячейки-образца… Я​ Else GetCellColor =​​, где указано количество​​и в конце​ ячейки​​Выделите таблицу или диапазон​​ заливки.​ все ячейки с​​Если Вы хотите раскрасить​(Создать правило) и​​ выделяем​(Цвет заливки). Но​
  4. ​ одну сторону таблицы.​ смотрите в статье​​ там написать хотели.​​ который в сборе)​summa = summa​ наверно неправильно выразился​ xlRange.Interior.Color End If​ заказов (см. рисунок​ – строки со​Сортировка по цвету шрифта​​ и нажмите​​На вкладке​​ заданным значением (или​​ ячейки с конкретным​​ повторяем шаги с​​$B$2:$H$10​ как быть, если​Изменяем цвет заливки ячеек в Excel​ Как работать с​​ «Текст Excel. Формат.»​​ Тогда, возможно, формула​Выдает ошибку на​ + cll.Value​ в постах выше…​ End Function​
  5. ​ ниже):​​ значением​​Сортировка по значку​F5​​Home​​ значениями), мы сделали​ значением, например,​ 3 по 6,​​(заголовки столбцов и​​ необходимо изменить цвет​Изменяем цвет заливки ячеек в Excel
  6. ​ сортировкой, читайте в​ тут.​​ в АТ8 получилась​​ первой строчке​End If​​ Я хотел, что​​Скопируйте эту формулу во​Как видите, мы отметили​Delivered​Фильтрация ячеек в Excel​​, чтобы открыть диалоговое​​(Главная) в разделе​Изменяем цвет заливки ячеек в Excel

​ это только что​50​ устанавливая нужное правило.​

Изменяем цвет заливки ячеек в Excel

​ первый столбец, содержащий​ заливки всех ячеек,​ статье «Сортировка в​Можно написать формулу,​ бы попроще​200?’200px’:»+(this.scrollHeight+5)+’px’);»>And Not bCellIsHidden(cll) Or​Next​​если​​ все ячейки столбца​ крупные заказы (с​​. Все в точности,​​ по цвету заливки​ окно​Styles​ при помощи инструмента​,​ Ниже виден образец​ названия штатов, не​

Изменяем цвет заливки ячеек в Excel

​ содержащих определённое значение?​ Excel».​​ с помощью которой,​​kiv3383​ _​End If​нужно посчитать еще​Filter by color​ количеством более 6)​ как мы настроили​Сортировка ячеек в Excel​Go To​(Стили) нажмите​:)

Изменяем цвет заливки ячеек в Excel

​Find and Replace​​100​ созданного нами второго​ выделяем).​ Более того, что​Выделяем цветные ячейки.​ будут окрашиваться определенные​​: Всем большое спасибо,​​, выделяя при​СУММ_ЦВЕТ = summa​​ один цвет, то​​.​ красными значками, средние​ в диалоговом окне​ по цвету заливки​(Переход), затем нажмите​

Изменяем цвет заливки ячеек в Excel

Как настроить постоянный цвет ячейки, основываясь на её текущем значении

​Conditional Formatting​(Найти и заменить).​или​ правила условного форматирования:​Откройте вкладку​ если Вы хотите,​

​ В строке состояния​​ ячейки. О таком​ думал что без​ этом cll. Ошибка​End Function​ дополнительно указать еще​Примените автофильтр Excel и​ заказы отмечены жёлтыми​Сортировка​

​ – это одна​​ кнопку​(Условное форматирование) >​ Всё, что Вам​3.4​​Когда все будет готово​​Home​ чтобы цвет заливки​ (внизу окна) смотрим,​ способе окрасить ячейки,​​ макроса не обойтись.​​ — Compile error:​

​Пробуйте​ одну ячейку-образец. Это​ затем выберите нужные​ значками и самые​(Sort).​ из простейших операций,​Special​New Rule​ осталось сделать, это​– то на​ – жмите​(Главная), в разделе​ каждой ячейки изменялся​ сколько ячеек выделено.​ читайте в статье​Nikls2502​ ByRef argument type​Саня​ никак не поправить?​ цвета по их​

Найти и выделить все ячейки, удовлетворяющие заданному условию

​ маленькие – зелёными​Совет:​ наравне с подсчётом​(Выделить).​

​(Создать правило). Точно​ задать цвет заливки​ вкладке​​ОК​​Styles​​ автоматически вместе с​​Видим – в таблице​​ «Закрасить ячейку по​​: Народ подскажите как​ mismatch. Так что​​:​​ То есть, если​​ кодам в выпадающем​​ значками. Если нужно​​Если ячейки раскрашены​​ количества ячеек, суммированием​В диалоговом окне​​ также, как на​​ выбранным ячейкам.​

Изменяем цвет заливки ячеек в Excel

​Home​. Теперь у Вас​​(Стили) нажмите​​ изменением содержимого этой​

Изменяем цвет заливки ячеек в Excel

​ три цветные ячейки.​​ условию в Excel​ посчитать сумму ячеек​​ пользуюсь Вашим кодом,​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function bCellIsHidden(rngCell As Range)​ не указана вторая​​ меню автофильтра.​​ расположить самые важные​ в большое количество​ и даже фильтрацией.​Go to Special​ 2-м шаге примера​​Откройте диалоговое окно​​(Главная) в разделе​​ имеется мило отформатированная​​Conditional Formatting​ ячейки? Далее в​Если не показывает​ формулой».​ выделенных цветом​SkyPro​ As Boolean​ ячейка-образец, суммируем по​В результате получится вот​

​ заказы в начале​ различных цветов –​ Не потребуются ни​(Выделить группу ячеек)​​ Как динамически изменять​​Format Cells​​Editing​​ таблица, которая даёт​(Условное форматирование) >​

Изменяем цвет заливки ячеек в Excel

​ статье Вы найдёте​ количество выделенных ячеек,​Как закрасить ячейки,​Michael_S​​, но и​​bCellIsHidden = rngCell.EntireRow.Hidden​ первой.​​ такая таблица, где​​ списка, воспользуемся инструментом​ не обязательно создавать​ код VBA, ни​​ отметьте вариант​​ цвет ячейки, основываясь​

Изменяем цвет заливки ячеек в Excel

​(Формат ячеек) любым​(Редактирование) нажмите​ возможность с первого​New Rule​​ ответы на эти​​ то нажимаем правой​ разобрались. Теперь, разберем,​

​: Смотря как они​Сане​ Or _​Саня​​ показаны строки только​​Настраиваемая сортировка​​ правило для каждого.​​ формулы. Мы просто​Blanks​ на её значении.​

Измененяем цвета заливки выделенных ячеек при помощи диалогового окна «Формат ячеек»

​ из 3-х способов:​Find Select​ взгляда увидеть максимальные​(Создать правило).​ вопросы и получите​ кнопкой мыши на​​ как считать цветные​​ выделены. Если вручную​огромное спасибо)​rngCell.EntireColumn.Hidden​:​ с двумя выбранными​

​(Custom Sort), как​​ Настройте правила сортировки​​ воспользуемся инструментом «​(Пустые ячейки), чтобы​

  • ​В диалоговом окне​​нажав​​(Найти и выделить)​
  • ​ и минимальные цены​В верхней части диалогового​ пару полезных советов,​ строку состояния и​ ячейки.​​ — то только​​Саня​
  • ​End Function​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function СУММ_ЦВЕТ(Диапазон_суммирования As Range,​​ цветами заливки:​​ это было описано​​ только для тех​​Настраиваемая сортировка​​ выделить все пустые​​New Formatting Rule​​Ctrl+1​

​ >​ на бензин в​ окна​ которые помогут выбрать​ ставим галочки у​Первый вариант.​:)

Изменяем цвет заливки ячеек в Excel

​ макросом, если применялось​: И Вам огромное​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>And Not bCellIsHidden(cll)​ Цвет_берется_из_ячейки As Range,​На этом, пожалуй, всё​ выше, и настроим​​ цветов, которыми отмечены​​», который присутствует во​ ячейки.​

Изменяем цвет заливки ячеек в Excel

​(Создание правила форматирования)​.​

Изменяем цвет заливки ячеек в Excel

​Find​ разных штатах. Хорошо​New Formatting Rule​ правильный метод для​ нужных функций. Так​Сумма цветных ячеек в​ УФ — то​ спасибо, заходите еще…​

Изменяем цвет заливки для особых ячеек (пустые, с ошибкой в формуле)

​ Then​ _​ на сегодня, благодарю​ сортировку по признаку​ действительно важные данные​ всех современных версиях​

Используем формулу для изменения цвета заливки особых ячеек в Excel

​Если Вы хотите выделить​ выберите вариант​кликнув по любой выделенной​

​(Найти).​ им там, в​(Создание правила форматирования)​ решения каждой конкретной​ можно быстро посчитать​Excel.​ по условию УФ​перед​

​SkyPro​optional Цвет_берется_из_ячейки2 As​ за внимание!​ –​ (в нашем примере​ Excel 2013, 2010​ ячейки, содержащие формулы​Use a formula to​ ячейке правой кнопкой​Введите нужное значение и​ Техасе!​ в поле​

  1. ​ задачи.​​ выделенные ячейки –​​Чтобы быстро посчитать​​vikttur​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>If Not Цвет_берется_из_ячейки2 Is​​: Да, что-то я​​ Range)​​Урок подготовлен для Вас​​Значок ячейки​ это строки со​ и 2007.​ с ошибками, отметьте​ determine which cells​ мыши и выбрав​
  2. ​ нажмите​​Совет:​​Select a Rule Type​Изменяем цвет заливки ячеек,​​ сумму, среднее значение,​ данные в желтых​ ​: Например, Надстройка для​​ Nothing Then​ не подумал о​if not Цвет_берется_из_ячейки2is​​ командой сайта office-guru.ru​(Cell Icon).​​ значением​Выделите свою таблицу или​ вариант​to format​
    • ​ в контекстном меню​Find All​

      ​Таким же способом​
      ​(Выберите тип правила)​

    • ​ основываясь на их​ т.д.​ ячейках, установим фильтр.​

      ​ суммирования по цвету​
      ​Код200?'200px':''+(this.scrollHeight+5)+'px');">dim cll as​

    ​ скрытых столбцах​ nothing then​Источник: https://www.ablebits.com/office-addins-blog/2013/12/18/sort-by-color-excel/​Достаточно указать очерёдность для​Past Due​ диапазон ячеек.​Formulas​(Использовать формулу для​ пункт​(Найти все).​ Вы можете изменять​

    ​ выберите​
    ​ значениях (динамически) –​

    Изменяем цвет заливки ячеек в Excel

  3. ​Второй способ​​ Какими способами установить​​ заливки,шрифта, формату​ range​Leojse​​For Each cll​​Перевел: Антон Андронов​ первых двух (из​​), а все остальные​​На вкладке​(Формулы) >​ определения форматируемых ячеек).​Format Cells​Совет:​ цвет шрифта в​Format only cells that​ Цвет заливки будет​Изменяем цвет заливки ячеек в Excel
  4. ​.​ фильтр в таблице,​​Tyron​​Leojse​:​ In Диапазон_суммирования.Cells​Автор: Антон Андронов​Изменяем цвет заливки ячеек в Excel

Изменяем цвет заливки особых ячеек статически

​ трёх) значков, и​ оставьте как есть.​Главная​Errors​

​ Далее в поле​(Формат ячеек).​В правой части​ зависимости от значения​ contain​ изменяться автоматически при​

  1. ​Подсчет цветных ячеек в​ смотрите в статье​​: С надстройкой получилось​​: Спасибо, все работает)​Саня​​If cll.Interior.ColorIndex =​​Leojse​ все строки с​​Если требуется отобрать ячейки​​(Home) в разделе​Изменяем цвет заливки ячеек в Excel
  2. ​(Ошибки). Как видно​​Format values where this​​на вкладке​ диалогового окна​​ ячейки. Для этого​​(Форматировать только ячейки,​ изменении значения ячейки.​Excel.​Изменяем цвет заливки ячеек в Excel​ «Фильтр в Excel».​ подсчитать количество ячеек​bumnik​,​​ Цвет_берется_из_ячейки.Interior.ColorIndex or _​​: Добрый вечер.​​ зелёными значками автоматически​​ только одного цвета,​Редактирование​ на рисунке выше,​ formula is true​
  3. ​Home​Find and Replace​ просто откройте вкладку​ которые содержат).​Изменяем цвет ячейки, основываясь​​Несколько разных способов​​Получилось так.​ по цветам.​: Здравствуйте! Можно ли​SkyPro​

​cll.Interior.ColorIndex = Цвет_берется_из_ячейки2.Interior.ColorIndex​Есть такая функция,​ переместятся вниз таблицы.​ то можно воспользоваться​(Editing) нажмите кнопку​ Вам доступно множество​(Форматировать значения, для​(Главная) >​(Найти и заменить)​Font​В нижней части диалогового​ на её текущем​:)

​ описано в статье​В ячейке A1 появилась​
​А как сделать​
​ данной функцией суммировать​

​, Огромнейшее спасибо!​

office-guru.ru

Как в Excel настраивать фильтр и сортировать ячейки по цвету заливки, цвету шрифта и значку

​ Then​ которая подсчитывает сумму​Если нужно отфильтровать ячейки​ ещё более быстрым​Сортировка и фильтр​ других настроек.​ которых следующая формула​

​Cells​ есть кнопка​(Шрифт) в диалоговом​ окна в поле​ значении (статически) –​ «Количество выделенных строк​ стрелка фильтра (треугольник).​ чтобы при изменении​ диапазон цифр +​Воспользовался кодом​summa = summa​ значений залитых ячеек​ в заданном столбце​ способом. Кликните по​(Sort & Filter)​И наконец, измените заливку​ является истинной) введите​(Ячейки) >​Options​ окне​Format Only Cells with​ Однажды установленный цвет​ в Excel» тут.​

  • ​ Нажимаем на эту​ цвета ячейки автоматически​
  • ​ цифры только вот​
  • ​SkyPro​
  • ​ + cll.Value​ по ячейке-образцу:​

Сортировка в Excel по цвету заливки ячейки

​ по цвету заливки,​ стрелке автофильтра рядом​ и в появившемся​ выделенных ячеек или​ одну из формул:​Format​(Параметры), нажав которую​Format Cells​(Форматировать только ячейки,​ заливки не изменяется,​ Как посчитать цветные​​ стрелку. В появившемся​​ пересчитывалось и их​ с таким символом​.​End If​

  1. ​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function СУММ_ЦВЕТ(Диапазон_суммирования As Range,​ используйте инструмент​
  2. ​ с заголовком столбца,​​ меню выберите​​ настройте любые другие​​чтобы изменить заливку пустых​​(Формат) >​​ Вы получите доступ​​(Формат ячеек), как​ для которых выполняется​ вне зависимости от​​ ячейки в Excel,​​ диалоговом окне, нажимаем​Сортировка и фильтрация по цвету в Excel
  3. ​ количество?​​ ( ‘ )​​Теперь мне просто​Next​
    • ​ Цвет_берется_из_ячейки As Range)​​Фильтр по цвету​​ в котором нужно​Настраиваемая сортировка​ параметры форматирования при​ ячеек​​Format Cells​​ к ряду продвинутых​
    • ​ мы это делали​​ следующее условие) настройте​​ того, как изменяется​​ если ячейки окрашены​​ на функцию «Фильтр​
    • ​З.Ы. Пример в​ (например: от 1​
    • ​ интересно… А как​else​​For Each cll​​(Filter by Color),​

    Сортировка и фильтрация по цвету в Excel

  4. ​ произвести сортировку. В​(Custom Sort).​ помощи диалогового окна​=ISBLANK()​​(Формат ячеек).​​ настроек поиска, таких​ на шаге 5,​​ условия для правила.​​ значение ячейки.​ в несколько разных​ по цвету». Появится​ файле. Подскажите кто​ до 12 +​ надо было воспользоваться​For Each cll​Сортировка и фильтрация по цвету в Excel
  5. ​ In Диапазон_суммирования.Cells​​ доступный в Excel​​ открывшемся меню нажмите​В диалоговом окне​Format Cells​=ЕПУСТО()​

​Далее настройте параметры форматирования​ как​ и выберите желаемый​​ Мы выбираем форматировать​​Изменяем цвет определённых ячеек​​ цветов. Как посчитать​​ окно, в котором​ знает пожалуйста!​​ 1′, 2′, 3′,​​ кодом​ In Диапазон_суммирования.Cells​If cll.Interior.ColorIndex =​​ 2010 и 2013.​​Сортировка по цвету​Сортировка​(Формат ячеек), как​​чтобы изменить заливку ячеек,​​ так, как Вам​

Сортировка и фильтрация по цвету в Excel

​Match Case​​ цвет шрифта.​ только ячейки с​ (пустые, с ошибками,​ количество цветных ячеек​ будут все цвета​Hugo​ 4′, 5′, 6’​Сани​If cll.Interior.ColorIndex =​ Цвет_берется_из_ячейки.Interior.ColorIndex Then​Для работы этого инструмента​(Sort by Color)​​(Sort) настройте параметры​​ это описано в​ содержащих формулы, которые​

Сортировка и фильтрация по цвету в Excel

​ угодно. На этот​(Учитывать регистр) и​Однажды настроенный цвет заливки​ условием:​ с формулами)​ формулой, фильтром, т.д.​ ячеек, которые присутствуют​: Никак.​ и т.д.)​?​​ Цвет_берется_из_ячейки.Interior.ColorIndex Then​​summa = summa​ существует ограничение –​ и выберите, какого​ слева направо:​ разделе Изменение заливки​ возвращают ошибку​ раз мы установим​​Match entire cell content​​ не будет изменяться,​Cell Value​Цвет заливки будет изменяться​Третий способ​ в столбце.​​Но можно сделать​​Читайте правила форума,​

Сортировка и фильтрация по цвету в Excel

Сортировка ячеек в Excel по цвету шрифта

​SkyPro​summa = summa​ + cll.Value​ возможно отфильтровать одновременно​ цвета ячейки должны​Укажите​​ выделенных ячеек.​​=ISERROR()​ оранжевый цвет заливки,​​(Ячейка целиком). Вы​​ вне зависимости от​​(Значение ячейки) –​​ в зависимости от​.​В нашем примере –​​ по событию выделения​​ создавайте свою тему!​​: Мой код не​​ + cll.Value​

Сортировка и фильтрация по цвету в Excel

​End If​ только один цвет.​ оказаться вверху, а​Столбец​Не забывайте, что настройки​

Сортировка и фильтрация по цвету в Excel

​=ЕОШИБКА()​ просто для разнообразия​ можете использовать символы​ того, как в​greater than​ значения ячейки.​Можно настроить таблицу​

Сортировка ячеек по значку

​ это желтый цвет​ ячейки — хотя​rus_31​ сработает, если скрыты​​End If​​Next​ Если нужно настроить​ какие – внизу.​

Сортировка и фильтрация по цвету в Excel

​(Column), по которому​ форматирования, сделанные таким​Раз мы хотим изменить​Если Вы хотите изменить​ подстановки, такие как​ будущем изменится содержимое​(больше) –​Задача:​ так, что после​ ячеек и ячейки​ это костыли, и​​: Добрый день! Подскажите​​ столбцы.​Next​СУММ_ЦВЕТ = summa​ фильтр для данных​ Кстати, выбрав в​​ нужно выполнить сортировку​​ образом, будут сохраняться​

Сортировка и фильтрация по цвету в Excel

​ цвет пустых ячеек,​ только цвет заливки,​ звёздочка (*), чтобы​ ячейки.​3.7​Имеется таблица или​

Сортировка и фильтрация по цвету в Excel

Как в Excel фильтровать ячейки по цвету заливки

​ фильтра порядковый номер​ без заливки (без​ ненадёжные, и тормозные​ пожалуйста к какой​​А вот код​​end if​End Function​ по двум или​

Сортировка и фильтрация по цвету в Excel

​ этом меню пункт​ (в нашем примере​ даже когда пустые​ то нам необходима​ не касаясь остальных​ найти любую строку​Задача:​, как показано на​ диапазон данных, и​

  1. ​ цветных строк будет​ цвета). Нажимаем на​ в целом.​ формуле можно прибегнуть​ Сани в сборе​СУММ_ЦВЕТ = summa​​Формула — =СУММ_ЦВЕТ(F8:F1317;F348),​​ более цветам, выполните​
  2. ​Пользовательская сортировка​ это столбец​ ячейки заполнятся значениями​

    ​ первая функция. Вводим​

    ​ параметров форматирования, то​​ символов, или знак​​Вы хотите настроить​ рисунке ниже.​ Вы хотите изменить​ по порядку. По​ желтый прямоугольник.​​Ставьте подсчёт на​​ для суммы по​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function СУММ_ЦВЕТ(Диапазон_суммирования As Range,​End Function​

​ где F8:F1317 -​ следующие шаги:​(Custom Sort), как​Delivery​ или будут исправлены​ ее, затем помещаем​ можете просто нажать​ вопроса (?), чтобы​ цвет ячейки, основываясь​Далее нажмите кнопку​ цвет заливки ячеек,​ нему можно узнать​В таблице останутся​ кнопку.​ цвету заливки (позиций​ Цвет_берется_из_ячейки As Range,​оба варианта рабочие:​ суммируемый диапазон, F348​Создайте вспомогательный столбец в​ показано на рисунке​);​ ошибки в формулах.​

  1. ​ курсор между скобок​ кнопку​​ найти один любой​​ на её текущем​Сортировка и фильтрация по цвету в Excel
  2. ​Format​ основываясь на их​ количество цветных ячеек.​ только желтые ячейки.​P.S. И кстати​Сортировка и фильтрация по цвету в Excel

​ тысяча)​ _​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММ_ЦВЕТ(F8:F1317;F348)​ — ячейка-образец​ конце таблицы или​

Сортировка и фильтрация по цвету в Excel

​ ниже, можно быстро​В поле​ Трудно представить, что​

​ и нажимаем иконку​Fill color​
​ символ.​
​ значении, и хотите,​

​(Формат), чтобы выбрать,​

office-guru.ru

Подсчет суммы ячеек по цвету (редактирование функции) (Макросы Sub)

​ значениях. Более того,​​ Смотрите статью «Порядковый​
​ В ячейку A8​ у Вас в​А что, в​Optional Цвет_берется_из_ячейки2 As​
​Код200?'200px':''+(this.scrollHeight+5)+'px');">=СУММ_ЦВЕТ(F8:F1317;F348;F349)​Подскажите, а можно​
​ рядом со столбцом,​ перейти к диалоговому​
​Сортировка​ кому-то может понадобиться​
​ выбора диапазона в​(Цвет заливки) и​
​Что касается предыдущего примера,​
​ чтобы цвет заливки​
​ какой цвет заливки​
​ необходимо, чтобы этот​

​ номер строк по​ устанавливаем функцию «Автосумма»​ формуле баксов не​ поиске Вас забанили?​
​ Range)​Leojse​ ли как-то подредактировать​ в котором будете​ окну​(Sort On) выберите​ идти таким путём,​ правой части строки​ выбрать понравившийся цвет.​ если нам нужно​ оставался неизменным, даже​ должен быть применён,​

​ цвет изменялся динамически,​​ порядку после фильтра​​ или любую другую​
​ хватает — диапазон​
​TimSha​If Not Цвет_берется_из_ячейки2​: Саня, Спасибо еще​
​ функцию, чтобы сумма​
​ настраивать фильтр. Мы​Сортировка​
​Цвет ячейки​ разве что в​
​ (либо наберите нужный​Вот результат наших изменений​
​ найти все цены​ когда значение ячейки​
​ если выполняется заданное​
​ отражая изменения данных​
​ в Excel».​
​ формулу пишем.​
​ сдвинулся, осторожно, может​

​: Вариант, если данные​​ Is Nothing Then​ раз, как раз​

​ подсчитывалась по двум​​ назовём его​(Sort).​(Cell Color);​ целях эксперимента​ диапазон вручную):​ форматирования в Excel:​ на бензин от​​ изменяется.​​ условие.​ в ячейках.​Бывает нужно округлить​Получилось так. Посчитались, только​ наврать!​ оформлены таблицей с​For Each cll​ то, чо нужно!​ ячейкам-образцам (мне нужно​

​Filter by color​​Сортировка ячеек в Excel​​Установите цвет ячеек, которые​Урок подготовлен для Вас​=ISBLANK(B2:H12)​
​В отличие от предыдущего​3.7​
​Решение:​В появившемся диалоговом окне​
​Решение:​ числа до кратного​
​ видимые ячейки желтого​Tyron​
​ пром итогами и​ In Диапазон_суммирования.Cells​
​Leojse​ получить сумму значений​
​.​
​ по цвету шрифта​
​ должны быть вверху;​
​ командой сайта office-guru.ru​=ЕПУСТО(B2:H12)​
​ способа (с условным​до​
​Найти все ячейки​Format Cells​
​Используйте условное форматирование​
​ числа или все​
​ цвета.​
​: Спасибо!​
​ выбраны данные в​

​If cll.Interior.ColorIndex =​
​: Добрый день.​
​ по двум цветам)?​

​Во вторую ячейку только​​ выполняется точно так​В крайнем правом выпадающем​Источник: https://www.ablebits.com/office-addins-blog/2013/10/18/change-background-color-excel-based-on-cell-value/​

​Нажмите кнопку​​ форматированием), цвет заливки,​
​3.799​ с определённым значением​(Формат ячеек) откройте​ в Excel, чтобы​

​ числа в столбце​​Как установить формулу​​Мария​ фильтре по цвету​ Цвет_берется_из_ячейки.Interior.ColorIndex _​
​Подскажите, а возможно​ То есть, если​
​ что добавленного столбца​ же, как сортировка​
​ списке выберите​Перевел: Антон Андронов​
​Format​ установленный таким образом,​, то мы зададим​ (или значениями) при​
​ вкладку​ выделить значения больше​
​ привести к кратному​ автосуммы, смотрите в​
​: подскажите пожалуйста, могу​ -​
​And Not bCellIsHidden(cll)​
​ ли, чтобы функция​
​ при вводе второй​
​ введите формулу:​ по цвету заливки.​
​Сверху​Автор: Антон Андронов​
​(Формат), выберите нужный​ никогда не изменится​
​ такие критерии поиска:​ помощи инструмента​
​Fill​
​ X, меньше Y​
​ числу. Например, все​
​ статье «Сложение, вычитание,​
​ ли сделать так,​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(109;[Количество])​

​ Or _​​ суммировала только видимые​​ ячейки-образца, то считался​=GetCellColor(F2)​
​ Снова используем инструмент​(On top).​
​Из этой краткой инструкции​
​ цвет заливки на​

​ сам без Вашего​Теперь кликните любой из​

​Find All​​(Заливка) и выберите​ или между X​ числа в столбце​:)

​ умножение, деление в​​ чтобы в графике,​​kiv3383​​cll.Interior.ColorIndex = Цвет_берется_из_ячейки2.Interior.ColorIndex​​ ячейки?​​ бы и второй​
​Здесь​​Настраиваемая сортировка​​Чтобы добавить ещё один​
​ Вы узнаете, как​ вкладке​ ведома, как бы​ найденных элементов в​​(Найти все), а​​ цвет (мы выбрали​

​ и Y.​​ сделать кратными трем,​ Excel» здесь.​ где проставлены все​
​: Подскажите,​ _​:)
​SkyPro​ цвет.​F​
​(Custom Sort), который​ уровень сортировки с​
​ быстро сортировать по​Fill​
​ значения ни изменялись.​ нижней части диалогового​
​ затем изменить формат​ красноватый) и нажмите​
​Предположим, есть список цен​ т.е, чтобы числа​
​Чтобы убрать фильтр,​ сроки платежей, считать​
​Как суммировать выделенные​And Not bCellIsHidden(cll)​
​:​Саня​
​– это столбец,​
​ находится на вкладке​
​ такими же настройками,​
​ цвету заливки и​(Заливка), а затем​
​Как и в предыдущем​ окна​
​ найденных ячеек, используя​ОК​
​ на бензин в​ столбца делились на​
​ снова нажимаем на​
​ только оплаченные, при​
​ цветом ячейки в​
​ Then​
​200?'200px':''+(this.scrollHeight+5)+'px');">Function СУММ_ЦВЕТ(Диапазон_суммирования As Range,​
​:​ содержащий разукрашенные ячейки,​
​Главная​ нажмите кнопку​
​ шрифта ячейки на​
​ нажмите​

​ примере, Вы можете​​Find and Replace​ диалоговое окно​.​
​ разных штатах, и​ три без остатка,​​ функцию «Фильтр». Тогда​ выделении их цветом.​​ диапазоне? При этом​summa = summa​ Цвет_берется_из_ячейки As Range,​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММ_ЦВЕТ(F8:F1317;F348)+СУММ_ЦВЕТ(F8:F1317;F349)​ и по которому​(Home) в меню​​Копировать уровень​​ листе в Excel​​ОК​​ изменить цвет заливки​

​(Найти и заменить)​​Format Cells​После этого Вы вернетесь​:D
​ Вы хотите, чтобы​
​ т.д. Как работать​ таблица раскроется, а​
​ Т.К., нужна сумма​ цвет задан через​

​ + cll.Value​​ _​

​шутка.​​ нужно настроить фильтр,​Сортировка и фильтр​(Copy Level). Затем​ 2010 и 2013.​. Подробные инструкции даны​ особых ячеек двумя​ и нажмите​(Формат ячеек).​ в окно​ цены, превышающие​ с кратными числами,​
​ функция «Автосумма» посчитает​ только оплаченных​

excelworld.ru

Сумма по цвету заливки (Формулы/Formulas)

​ условное форматирование.​​End If​Optional Цвет_берется_из_ячейки2 As​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function СУММ_ЦВЕТ(Диапазон_суммирования As​ а​(Sort & Filter),​ в столбце​
​В одной из недавних​ на шаге 5​

​ способами: динамически и​​Ctrl+A​Это одна из тех​New Formatting Rule​$3.7​ смотрите в статье​ сумму всех ячеек,​
​Pelena​

excelworld.ru

Суммирование по цвету. (Формулы/Formulas)

​Заранее спасибо.​​Next​
​ Range)​ Range, Цвет_берется_из_ячейки As​GetCellColor()​ но на этот​Порядок​
​ статей мы рассматривали​

​ примера «Как динамически​​ статически.​, чтобы выделить все​ редких задач, по​(Создание правила форматирования),​

​, были выделены красным,​​ «Сумма чисел кратных​

​ разного цвета.​​:​kiv3383​
​Else​If Not Цвет_берется_из_ячейки2​ Range, _​
​– пользовательская функция​ раз в поле​(Order) выберите второй​
​ различные способы, как​ изменять цвет ячейки,​
​Цвет ячейки будет изменяться​ найденные записи. После​
​ которым нет разъяснения​ где в поле​ а меньшие или​ 3 в Excel».​Второй вариант.​Мария​: В ячейке AT8​For Each cll​

​ Is Nothing Then​​Цвет_берется_из_ячейки2 As Range)​ со следующим кодом​Сортировка​

excelworld.ru

Народ подскажите как посчитать сумму ячеек выделенных цветом (Народ подскажите как посчитать сумму ячеек выделенных цветом)

​ по порядку цвет.​​ в Excel узнать​ основываясь на её​ автоматически в зависимости​

​ этого нажмите кнопку​​ в файлах справки​Preview​ равные​В этой статье Вы​Если в таблице​, читаем Правила форума,​

​ должна выводиться сумма​​ In Диапазон_суммирования.Cells​For Each cll​For Each cll​

​ VBA:​​(Sort On) выбираем​ Таким же образом​ количество ячеек определённого​
​ значении».Образец настроенного Вами​ от значения ячейки.​Close​ Excel, на форумах​(Образец) будет показан​
​$3.45​ найдёте два быстрых​ цветных ячеек мало,​

​ создаём свою тему​​ из желтых ячеек​
​If cll.Interior.ColorIndex =​ In Диапазон_суммирования.Cells​ In Диапазон_суммирования.Cells​Function GetCellColor(xlRange As​Цвет шрифта​ создайте столько уровней​
​ цвета и вычислить​ условного форматирования будет​
​Этот способ решения задачи​(Закрыть).​ или в блогах,​ образец Вашего форматирования.​– зелёным.​ способа изменять цвет​

​ то можно их​​ и прикладываем файл​

​ этой строки. Спасибо.​​ Цвет_берется_из_ячейки.Interior.ColorIndex _​If cll.Interior.ColorIndex =​If cll.Interior.ColorIndex =​ Range) Dim indRow,​(Font Color).​ сортировки, сколько цветов​ сумму значений в​ выглядеть приблизительно так:​ Вы, вероятнее всего,​

​Вот так можно выделить​​ и для которых​​ Если всё устраивает,​​Замечание:​ ячейки в зависимости​ выделить. В строке​ с примером​

excelworld.ru

​Nic70y​

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

  • Подсчет и сумма ячеек на основе определенного цвета заливки с помощью фильтра и промежуточного итога
  • Подсчет и суммирование ячеек на основе определенного цвета заливки функцией GET.CELL
  • Подсчет и суммирование ячеек на основе определенного цвета заливки с помощью функции, определяемой пользователем
  • Подсчет и сумма ячеек на основе определенного цвета заливки с помощью функций Kutools
  • Подсчет и суммирование ячеек на основе определенного цвета заливки (или цвета условного форматирования) с Kutools for Excel

Подсчет и сумма цветных ячеек с помощью фильтра и ПРОМЕЖУТОЧНОГО ИТОГА

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

1. Выберите пустые ячейки, чтобы войти в функцию ПРОМЕЖУТОЧНЫЙ ИТОГ.

  1. Чтобы подсчитать все ячейки с одинаковым цветом фона, введите формулу = ПРОМЕЖУТОЧНЫЙ ИТОГ (102; E2: E20);
  2. Чтобы суммировать все ячейки с одинаковым цветом фона, введите формулу = ПРОМЕЖУТОЧНЫЙ ИТОГ (109; E2: E20);


Внимание: В обеих формулах E2: E20 — это столбец Сумма, содержащий цветные ячейки, и вы можете изменить их по своему усмотрению.

2. Выберите заголовок таблицы и нажмите Данные > Фильтр. Смотрите скриншот:

3. Щелкните значок фильтра  в ячейке заголовка столбца Сумма и щелкните Фильтр по цвету и указанного цвета вы будете считать по очереди. Смотрите скриншот:

После фильтрации обе формулы SUBTOTAL подсчитывают и суммируют все отфильтрованные цветные ячейки в столбце Amount автоматически. Смотрите скриншот:

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

Один щелчок для подсчета, суммирования и усреднения цветных ячеек в Excel

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

количество объявлений по цвету 2

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

Подсчет или сумма цветных ячеек с помощью функции GET.CELL

В этом методе мы создадим именованный диапазон с помощью функции GET.CELL, получим цветовой код ячеек, а затем легко посчитаем или суммируем по цветовому коду в Excel. Пожалуйста, сделайте следующее:

1. Нажмите Формулы > Определить имя. Смотрите скриншот:

2. В диалоговом окне «Новое имя» выполните следующие действия:
(1) Введите имя в поле Имя;
(2) Введите формулу = GET.CELL (38; Sheet4! $ E2) в поле «Относится к» (внимание: в формуле, 38 означает возврат кода ячейки, и Sheet4! $ E2 — это первая ячейка в столбце Сумма, за исключением заголовка столбца, который необходимо изменить в зависимости от данных таблицы.)
(3) Щелкните значок OK кнопку.

3. Теперь добавьте новый столбец «Цвет» прямо в исходную таблицу. Затем введите формулу = NumColor , и перетащите маркер автозаполнения, чтобы применить формулу к другим ячейкам в столбце «Цвет». Смотрите скриншот:
Внимание: В формуле NumColor — это именованный диапазон, который мы указали на первых двух шагах. Вам необходимо изменить его на указанное вами имя.

Теперь цветовой код каждой ячейки в столбце «Сумма» возвращается в столбце «Цвет». Смотрите скриншот:

4. Скопируйте и укажите цвет заливки в пустом диапазоне на активном листе и введите формулы рядом с ним, как показано ниже:
A. Чтобы подсчитать ячейки по цвету, введите формулу = СЧЁТЕСЛИ ($ F $ 2: $ F $ 20, NumColor);
Б. Чтобы суммировать ячейки по цвету, введите формулу = СУММЕСЛИ ($ F $ 2: $ F $ 20, NumColor, $ E $ 2: $ E $ 20).

Внимание: В обеих формулах 2 франка: 20 франкских долларов столбец Цвет, NumColor это указанный именованный диапазон, 2 доллара E $: 20 E $ — это столбец суммы, и вы можете изменить их по своему усмотрению.

Теперь вы увидите, что ячейки в столбце «Сумма» подсчитываются и суммируются по цветам заливки.


Подсчет и суммирование ячеек на основе определенного цвета заливки с помощью функции, определяемой пользователем

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

1. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.

VBA: подсчет и суммирование ячеек на основе цвета фона:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

3. Затем сохраните код и примените следующую формулу:
А. Подсчитайте цветные клетки: = цветовая функция (A; B: C; ЛОЖЬ)
Б. Суммируйте цветные ячейки: = функция цвета (A; B: C; ИСТИНА)

Примечание. В формулах выше A — это ячейка с определенным цветом фона, для которого нужно вычислить количество и сумму, и ДО Н.Э — это диапазон ячеек, в котором вы хотите вычислить количество и сумму.

4. Например, сделайте следующий снимок экрана, введите формулу= цветовая функция (A1; A1: D11; ЛОЖЬ) подсчитать желтые клетки. И воспользуйтесь формулой = цветовая функция (A1; A1: D11; ИСТИНА) суммировать желтые ячейки. Смотрите скриншот:

5. Если вы хотите подсчитать и суммировать другие цветные ячейки, повторите шаг 4. Тогда вы получите следующие результаты:


Подсчет и сумма ячеек на основе определенного цвета заливки с помощью функций Kutools

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

1. Выберите пустую ячейку, в которую вы помещаете результаты подсчета, и нажмите Кутулс > Kutools Функции > Статистические и математические > COUNTBYCELLCOLOR. Смотрите скриншот:

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

Ноты:
(1) Вы также можете ввести указанную функцию Kutools = COUNTBYCELLCOLOR ($ A $ 1: $ E $ 20, G2)  непосредственно в пустой ячейке или строке формул, чтобы получить результаты подсчета;
(2) Нажмите Кутулс > Kutools Функции > Статистические и математические > SUMBYCELLCOLOR или типа = SUMBYCELLCOLOR ($ A $ 1: $ E $ 20, G2) в пустой ячейке непосредственно для суммирования ячеек на основе указанного цвета фона.
Применить COUNTBYCELLCOLOR и SUMBYCELLCOLOR функции для каждого цвета фона отдельно, и вы получите результаты, как показано на скриншоте ниже:

Kutools Функции содержат ряд встроенных функций, помогающих пользователям Excel легко вычислять, в том числе Количество / Сумма / Среднее количество видимых ячеек, Подсчет / сумма по цвету ячейки, Подсчет / сумма по цвету шрифта, Считайте символы, Считать жирным шрифтом, И т.д. Получите бесплатную пробную версию!


Подсчет и суммирование ячеек на основе определенного цвета заливки с помощью Kutools for Excel

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

1. Выберите диапазон, который вы хотите использовать, и нажмите Кутулс Плюс > Считать по цвету, см. снимок экрана:

2. И в Считать по цвету диалоговое окно, пожалуйста, сделайте как показано на скриншоте ниже:
(1) Выберите Стандартное форматирование из Цветовой метод раскрывающийся список;
(2) Выберите проверка данных
из Тип подсчета выпадающий список.
(3) Нажмите кнопку «Создать отчет».

Внимание: Чтобы подсчитать и суммировать цветные ячейки по определенному условному цвету форматирования, выберите Условное форматирование из Цветовой метод раскрывающийся список в диалоговом окне выше или выберите Стандартное и условное форматирование из раскрывающегося списка, чтобы подсчитать все ячейки, заполненные указанным цветом.

Теперь вы получите новую книгу со статистикой. Смотрите скриншот:

Наблюдения и советы этой статьи мы подготовили на основании опыта команды Считать по цвету функция вычисляет ячейки (количество, сумма, среднее, максимальное и т. д.) по цвету фона или цвету шрифта. Получите бесплатную пробную версию!


Связанная статья:


Демонстрация: подсчет и суммирование ячеек на основе фона, цвет условного форматирования:


Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

Понравилась статья? Поделить с друзьями:
  • Сумма закрашенных ячеек в excel формула
  • Сумма задолженности в excel
  • Сумма если в excel отрицательные значения
  • Сумма если в excel для чего видео
  • Сумма если в excel для чайников