Excel подсчет количества ячеек с определенным цветом

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

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

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

Итак, приступим. Зайдите в редактор Visual Basic, для этого:

в Excel 2003 нажмите на Сервис, далее Макрос и затем Редактор Visual Basic.

в Excel 2007, 2010 и 2013 это делается по-другому. Зайдите в раздел Разработчик, далее выберите Visual Basic

Внимание! Раздел панели инструментов Разработчик в Excel 2007 доступен по умолчанию, а в Excel 2010 и 2013 его необходимо включить. Это особенно полезно сделать тем пользователям, которые будут часто работать с макросами. Чтобы включить панель инструментов Разработчик в Excel 2010 или 2013 необходимо запустить Файл | Параметры | Настройка ленты после этого необходимо с правой стороны необходимо поставить галочку напротив надписи Разработчик

После того как откроется редактор Visual Basic, вставьте пустой модуль, для этого выберите меню Insert и далее Module

и скопируйте туда текст простой функции:

Public Function ColorNom(Cell As Range)
ColorNom = Cell.Interior.ColorIndex
End Function

После этого закройте редактор Visual Basic и можно вернуться к нашему файлу. В любой пустой ячейки введите пользовательскую функцию, которую мы ввели раннее. В нашем случае это функция ColorNom, ее можно вызвать либо через меню Вставка, Функция — категория Определенные пользователем, либо просто  можно напечатать ее в самой ячейке =ColorNom(A1), где A1 — это наша ячейка, в которой нам необходимо определить индекс цвета.

После этого уже не составит труда посчитать количество ячеек или значений в зависимости от цвета ячейки. Используйте нашу статью как посчитать в Excel количество ячеек/значений

Если вам необходимо посчитать количество значений или сумму в зависимости от цвета текста, то необходимо немного изменить код пользовательской функции.

Public Function ColorNom(Cell As Range)
ColorNom = Cell.Font.ColorIndex
End Function

Важно! Вы не сможете находить с помощью данной функции номер цвета ячейки при использовании условного форматирования. Кроме того, при изменении цвета ячейки Excel не пересчитывает значения, необходимо это делать в ручную, нажимая Ctrl+Alt+F9, либо изменения будут происходить при новом открытии данного файла. Это происходит из-за того, что Excel не считает изменение цвета ячейки редактированием формулы. В связи с этим, если это критично, то можно внести изменение в саму формулу, просто добавив функцию, которая постоянно пересчитывается и при этом не повлияет на определение цвета ячейки. Например, указать функцию определения текущей даты, умноженную на ноль.
В нашем случае функция будет выглядеть следующем образом.

=ColorNom(A1)+Сегодня()*0

Пример подсчета количества значений по цвету цвету заливки ячеек в Excel

Рассмотрим вышеуказанный пример с перечнем фруктов. Мы определили код ячеек и отобразили его напротив каждой ячейки.

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

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

Считать количество мы будем с помощью функции СЧЁТЕСЛИ

Вот так выглядят аргументы данной функции

=СЧЁТЕСЛИ(диапазон;критерий)

Пропишем формулу:

=СЧЁТЕСЛИ($B$1:$B$8;E2)

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

Скачать пример файла: Цвет_Ячеек.xlsm (файл с поддержкой макросов)

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

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

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

Если не использовать сторонние надстройки, существует только одно решение – создать пользовательскую функцию (UDF). Если Вы мало знаете об этой технологии или вообще никогда не слышали этого термина, не пугайтесь, Вам не придётся писать код самостоятельно. Здесь Вы найдёте отличный готовый код (написанный нашим гуру Excel), и всё, что Вам потребуется сделать – это скопировать его и вставить в свою рабочую книгу.

• Считаем и суммируем по цвету, когда ячейки раскрашены вручную
  • Считаем сумму и количество ячеек по цвету во всей книге
• Считаем и суммируем по цвету, когда к ячейкам применены правила условного форматирования

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

Предположим, у Вас есть таблица заказов компании, в которой ячейки в столбце Delivery раскрашены в зависимости от их значений: Due in X Days – оранжевые, Delivered – зелёные, Past Due – красные.

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

1. Откройте книгу Excel и нажмите Alt+F11, чтобы запустить редактор Visual Basic for Applications (VBA).
2. Правой кнопкой мыши кликните по имени Вашей рабочей книги в области Project – VBAProject, которая находится в левой части экрана, далее в появившемся контекстном меню нажмите Insert > Module.
3. Вставьте на свой лист вот такой код:

Function GetCellColor(xlRange As Range)
    Dim indRow, indColumn As Long
    Dim arResults()
 
    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
           arResults(indRow, indColumn) = xlRange(indRow, indColumn).Interior.Color
         Next
       Next
     GetCellColor = arResults
    Else
     GetCellColor = xlRange.Interior.Color
    End If
End Function
 
Function GetCellFontColor(xlRange As Range)
    Dim indRow, indColumn As Long
    Dim arResults()
 
    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
           arResults(indRow, indColumn) = xlRange(indRow, indColumn).Font.Color
         Next
       Next
     GetCellFontColor = arResults
    Else
     GetCellFontColor = xlRange.Font.Color
    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 (Книга Excel с поддержкой макросов).Если Вы не слишком уверенно чувствуете себя с VBA, то посмотрите подробную пошаговую инструкцию и массу полезных советов в учебнике Как вставить и запустить код VBA в Excel.
2. Когда все закулисные действия будут выполнены, выберите ячейки, в которые нужно вставить результат, и введите в них функцию CountCellsByColor:

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

В этом примере мы используем формулу =CountCellsByColor(F2:F14,A17), где F2:F14 – это диапазон, содержащий раскрашенные ячейки, которые Вы хотите посчитать. Ячейка A17 – содержит определённый цвет заливки, в нашем случае красный.

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

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

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

Как показано на снимке экрана ниже, мы использовали формулу:

=SumCellsByColor(D2:D14,A17)

где D2:D14 – диапазон, A17 – ячейка с образцом цвета.

Таким же образом Вы можете посчитать и просуммировать ячейки по цвету шрифта при помощи функций CountCellsByFontColor и SumCellsByFontColor соответственно.

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

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

Считаем сумму и количество ячеек по цвету во всей книге

Представленный ниже скрипт Visual Basic был написан в ответ на один из комментариев читателей (также нашим гуру Excel) и выполняет именно те действия, которые упомянул автор комментария, а именно считает количество и сумму ячеек определённого цвета на всех листах данной книги. Итак, вот этот код:

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()

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

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

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

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

Функции, которые считают количество по цвету:

• CountCellsByColor(диапазон, код_цвета) – считает ячейки с заданным цветом заливки.В примере, рассмотренном выше, мы использовали вот такую формулу для подсчёта количества ячеек по их цвету:

  =CountCellsByColor(F2:F14,A17)

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

  Все перечисленные далее формулы работают по такому же принципу.
• CountCellsByFontColor(диапазон, код_цвета) – считает ячейки с заданным цветом шрифта.

Функции, которые суммируют значения по цвету ячейки:

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

Функции, которые возвращают код цвета:

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

Итак, посчитать количество ячеек по их цвету и вычислить сумму значений в раскрашенных ячейках оказалось совсем не сложно, не так ли? Но что если Вы не раскрашиваете ячейки вручную, а предпочитаете использовать условное форматирование, как мы делали это в статьях Как изменить цвет заливки ячеек и Как изменить цвет заливки строки, основываясь на значении ячейки?

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

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

Конечно, Вы можете найти тонны кода VBA в интернете, который пытается сделать это, но все эти коды (по крайней мере, те экземпляры, которые попадались мне) не обрабатывают правила условного форматирования, такие как:

• Format all cells based on their values (Форматировать все ячейки на основании их значений);
• Format only top or bottom ranked values (Форматировать только первые или последние значения);
• Format only values that are above or below average (Форматировать только значения, которые находятся выше или ниже среднего);
• Format only unique or duplicate values (Форматировать только уникальные или повторяющиеся значения).

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

Код VBA, приведённый ниже, преодолевает все указанные выше ограничения и работает в таблицах Microsoft Excel 2010 и 2013, с любыми типами условного форматирования (и снова спасибо нашему гуру!). В результате он выводит количество раскрашенных ячеек и сумму значений в этих ячейках, независимо от типа условного форматирования, применённого на листе.

Sub SumCountByConditionalFormat()
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim cntRes As Long
    Dim sumRes
    Dim cntCells As Long
    Dim indCurCell As Long
 
    cntRes = 0
    sumRes = 0
 
    cntCells = Selection.CountLarge
    indRefColor = ActiveCell.DisplayFormat.Interior.Color
 
    For indCurCell = 1 To (cntCells - 1)
        If indRefColor = Selection(indCurCell).DisplayFormat.Interior.Color Then
            cntRes = cntRes + 1
            sumRes = WorksheetFunction.Sum(Selection(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, кликните по одной ячейке нужного цвета, затем отпустите Ctrl.
4. Нажмите Alt+F8, чтобы открыть список макросов в Вашей рабочей книге.
5. Выберите макрос SumCountByConditionalFormat и нажмите Run (Выполнить).В результате Вы увидите вот такое сообщение:

   

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

• Count – это число ячеек искомого цвета; в нашем случае это красноватый цвет, которым выделены ячейки со значением Past Due.
• Sum – это сумма значений всех ячеек красного цвета в столбце Qty., то есть общее количество элементов с отметкой Past Due.
• Color – это шестнадцатеричный код цвета выделенной ячейки, в нашем случае D2.

Рабочая книга с примерами для скачивания

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

Как посчитать количество и сумму ячеек по цвету в Excel 2010 и 2013

​Смотрите также​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>And Not bCellIsHidden(cll)​: Саня, Спасибо! Вот​Оформляйте коды тегами​Кол-во волн, но​ добавил Application.Volatile, чтобы​ Пример все-таки не​ цвету. Прилагаемый мною​ строках, но по​ в строках «план»​ не считаются в​Для этого примера мы​ или последние значения);​Замечание:​ пересчитаны автоматически после​

​ cntRes As Long​ шагов, описанных далее,​Из этой статьи Вы​ Then​ как все просто)​ (кнопка #). На​ это так сказать,​ функция пересчитывалась хотя​ совсем удачный, наверное.​ пример очень прост,​ другим условиям. Смотрите​ — это первая,​ строке состояния. Получится​ выбрали столбец​Format only values that​Пожалуйста, помните, что​ этих изменений. Не​

​ Application.Volatile cntRes =​ и через несколько​ узнаете, как в​SkyPro​Leojse​ первый раз исправила​ под результат сделана.​ бы по F9.​ Просто делается универсальная​ но могут же​ в статье «Как​ четвертая и восьмая​ так.​

​Qty.​ are above or​ все эти формулы​ ругайте нас, это​ 0 indRefColor =​ минут Вы узнаете​ Excel посчитать количество​: Да, что-то я​: А можно еще​Pelena​По поводу max.​Byronel​ таблица, в которой​ возникнуть и другие​ в Excel сложить​ строки.​Выделены три строки.​и получили следующие​ below average​ будут работать, если​ не погрешности кода​

• ​ cellRefColor.Cells(1, 1).Font.Color For​ количество и сумму​ и сумму ячеек​
  • ​ не подумал о​ вопрос? Получается, нужно​: Здравствуйте. А закрашивается​
• ​ Т.е. нужно min​, В приложении образец​ имеено заточено будет​ условия!​

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

​ каждую вторую ячейку,​В ячейке F1​Быстро выделить столбец​ цифры:​​(Форматировать только значения,​​ Вы уже добавили​На самом деле, это​​ Each cellCurrent In​​ ячеек нужного цвета.​​ определенного цвета. Этот​​ скрытых столбцах​​ всегда теперь вводить​​ тоже руками или​

​ и max значения​ – можно поиграть​ под цвет ячеек​Hugo​ строку».​ пишем формулу. На​ можно так. Выделяем​Count​ которые находятся выше​ в свою рабочую​ нормальное поведение макросов​ rData If indRefColor​Откройте книгу Excel и​ способ работает как​Leojse​ две ячейки-образца… Я​ Условным форматированием.​ самой длинной волны​ с ним.​ Может можно​: Так я тоже​Smersh​ закладке «Главная» в​ верхнюю ячейку столбца.​– это число​

1. ​ или ниже среднего);​ книгу Excel пользовательскую​​ в Excel, скриптов​​ = cellCurrent.Font.Color Then​​ нажмите​​ для ячеек, раскрашенных​
2. ​:​ наверно неправильно выразился​Файл с примером​ за год, так​​KoGG​​ подругому?​ сперва проверил на​: добрый день. Помогите​ разделе «формулы» -​​ Нажимаем на клавишу​​ ячеек искомого цвета;​​Format only unique or​​ функцию, как было​
3. ​ VBA и пользовательских​ cntRes = cntRes​

​Alt+F11​ вручную, так и​Саня​ в постах выше…​ помог бы разобраться.​ я понял?​: To Heidegger :​Byronel​ Вашем файле эту​ разобраться. Имею таблицу​ «Математические» выбираем функцию​ F8 и ставим​ в нашем случае​ duplicate values​ показано ранее в​ функций (UDF). Дело​ + 1 End​, чтобы запустить редактор​ для ячеек с​,​ Я хотел, что​stasprv​baneska​Сознательно не вставлял​: добрый день!​ UDF. Всё считает.​ (см. вложение), в​ «СУММЕСЛИ». В появившемся​ курсор в нижнюю​ это красноватый цвет,​(Форматировать только уникальные​ этой статье.​ в том, что​ If Next cellCurrent​Visual Basic for Applications​ правилами условного форматирования.​SkyPro​если​: Добрый день! Да,​:​ Application.Volatile, чтобы не​есть 2 столбца​Smersh​ которой ячеки с​ диалоговом окне в​ ячейку столбца. Нажимаем​ которым выделены ячейки​ или повторяющиеся значения).​CountCellsByColor(диапазон, код_цвета)​ все подобные функции​ CountCellsByFontColor = cntRes​(VBA).​ Кроме того, Вы​, Огромнейшее спасибо!​нужно посчитать еще​ руками выделяем. Хотелось​YouGreed​ вводить пользователя в​ячейки в них​: Народ, прикрепляю свой​ помощью условного форматирования,​ строке «Диапазон» указываем​ левую мышку.​ со значением​Кроме того, практически все​– считает ячейки​ вызываются только изменением​ End Function Function​Правой кнопкой мыши кликните​ научитесь настраивать фильтр​Воспользовался кодом​ один цвет, то​ бы, конечно, настроить​, Почти.​ заблуждение: да при​ закрашены 4 цветами​ файл. Посмотрите,плиз, что​ при вводе определенного​ диапазон (столбец), в​Или нажимаем сочетание​Past Due​ эти коды VBA​ с заданным цветом​ данных на листе,​ SumCellsByFontColor(rData As Range,​ по имени Вашей​ по нескольким цветам​SkyPro​ дополнительно указать еще​ условное форматирование, но​Не обязательно самой​ изменении значений в​ (причем, некоторые из​ я делаю не​ значения, окрашиваются в​ котором написано слово​ клавиш «Ctrl» +​.​ имеют целый ряд​ заливки.В примере, рассмотренном​ но Excel не​ cellRefColor As Range)​ рабочей книги в​ в Excel 2010​.​ одну ячейку-образец. Это​ прочитал на форумах,​ длиной. Если их​ целевых ячейках функция​ них нестандартны -​ так. Надстройки подключаю​

1. ​ определенные цвета. Не​ «план». У нас​​ «А». Активная ячейка,​​Sum​ особенностей и ограничений,​ выше, мы использовали​ расценивает изменение цвета​ Dim indRefColor As​ области​ и 2013.​Теперь мне просто​ никак не поправить?​ что тогда невозможно​ несколько за год,​
2. ​ пересчитается, но если​ выбирал оттенки через​ как описано на​ могу подсчитать колличетво​ – это столбец​ при этом, находится​​– это сумма​​ из-за которых они​

   ​ вот такую формулу​

​ шрифта или заливки​ Long Dim cellCurrent​​Project – VBAProject​​Если Вы активно используете​​ интересно… А как​​ То есть, если​ посчитать кол-во ячеек​ к примеру две​ не меняя значений​​ «другие цвета»)​​ сайте (через сервис-надстройки-пакет​ ячеек определенного цвета,​ В.​

​ в таблице.​ значений всех ячеек​ могут не работать​ для подсчёта количества​ ячейки как изменение​ As Range Dim​

​, которая находится в​ разнообразные заливки и​ надо было воспользоваться​​ не указана вторая​​ по цвету.​ волны за один​ поменять цвета ячеек​необходимо посчитать количество​ анализа) Я Ваш​​ к примеру «зеленого».​​В строке «Критерий»​

​О других сочетаниях​

​ красного цвета в​ корректно с какой-то​ ячеек по их​

​ данных. Поэтому, после​

​ sumRes Application.Volatile sumRes​​ левой части экрана,​​ цвет шрифта на​​ кодом​​ ячейка-образец, суммируем по​Файл прилагаю.​

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

​ цвету:​​ изменения цвета ячеек​ = 0 indRefColor​ далее в появившемся​ листах Excel, чтобы​Сани​ первой.​_Boroda_​ min и max​ — функция автоматически​в ячейках значений​ строку формул и​

​ спасибо.​ ищем. Мы написали​ ячейки, смотрите в​Qty.​ типами данных. Так​=CountCellsByColor(F2:F14,A17)​ вручную, просто поставьте​ = cellRefColor.Cells(1, 1).Font.Color​ контекстном меню нажмите​ выделять различные типы​?​Саня​: Почему в одинаковых​ значения за обе​ не пересчитается -​ нет, они просто​ нажал зеленую галочку.​Hugo​​ слово «план», п.ч.​​ статье «Сочетание клавиш​​, то есть общее​​ или иначе, Вы​где​ курсор на любую​ For Each cellCurrent​Insert​ ячеек или значений,​SkyPro​

Считаем сумму и количество ячеек по цвету во всей книге

​:​ строках (например, в​ волны.​ надо вводить ее​ закрашены​Hugo​: формула из копилки​ считаем сумму плана.​ в Excel».​ количество элементов с​ можете попытать счастье​F2:F14​ ячейку и кликните​ In rData If​>​

​ то, скорее всего,​: Мой код не​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function СУММ_ЦВЕТ(Диапазон_суммирования As Range,​ строках 4 и​YouGreed​ заново.​насколько я понимаю,​: У меня тоже​=Count_CellColor(B2:H2;J2)​ Если бы считали​Четвертый способ​ отметкой​ и google в​– это выбранный​F2​ indRefColor = cellCurrent.Font.Color​Module​ захотите узнать, сколько​ сработает, если скрыты​ Цвет_берется_из_ячейки As Range,​ 5) разная раскраска?​: baneska, Просмотрите файл.​Александр Смит​ подобную задачу надо​ не работает, если​В J2 образец​ сумму «выпушено», то​.​Past Due​

​ поисках идеального решения,​ диапазон,​, а затем​ Then sumRes =​.​ ячеек выделено определённым​ столбцы.​

​ _​
​ Это действительно реальный​

​baneska​: Ctrl+Alt+F9​ решать посредством VBA,​ как критерий указывать​ цвета.​ написали бы критерий​Посчитать количество строк​.​ и если Вам​A17​​Enter​​ WorksheetFunction.Sum(cellCurrent, sumRes) End​Вставьте на свой лист​ цветом. Если же​А вот код​optional Цвет_берется_из_ячейки2 As​

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

​ пример или Вы​:​Heidegger​ некоторые варианты я​ ячейку с УФ.​Hugo​ – «выпущено».​ можно с помощью​

​Color​​ удастся найти его,​– это ячейка​, сумма и количество​ If Next cellCurrent​ вот такой код:​ в ячейках хранятся​ Сани в сборе​ Range)​ просто написали произвольные​

Функции, которые считают количество по цвету:

• ​YouGreed​​: Да, тогда пересчитает​ видел в интернете,​ Но если указать​: Если проблема найти​В разделе «Критерий»​функции «Автосумма» в Excel​– это шестнадцатеричный​ пожалуйста, возвращайтесь и​

  ​ с нужным цветом​

  ​ после этого обновятся.​​ SumCellsByFontColor = sumRes​​Function GetCellColor(xlRange As​ числа, то, вероятно,​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function СУММ_ЦВЕТ(Диапазон_суммирования As Range,​​if not Цвет_берется_из_ячейки2is​ даты?​, Боже, вы гений.​

  ​ и без Volatile.​ у меня не​ любую залитую нужным​

• ​ копилку - вот​​ можно писать некоторые​. Выделяем ячейку, в​ код цвета выделенной​

Функции, которые суммируют значения по цвету ячейки:

• ​ опубликуйте здесь свою​​ заливки.​ Так нужно сделать,​ End Function​
• ​ Range) Dim indRow,​​ Вы захотите вычислить​ Цвет_берется_из_ячейки As Range,​ nothing then​

Функции, которые возвращают код цвета:

• ​Добавлено​​ Спасибо вам большое​baneska​ получилось​
• ​ цветом ячейку -​​ точный адрес​ символы.​ которой будет стоять​

​ ячейки, в нашем​ находку!​Все перечисленные далее формулы​ работая с любым​Сохраните рабочую книгу Excel​ indColumn As Long​ сумму всех ячеек​ _​For Each cll​.​ большое!! )))​: Добрый вечер. :)​помогите, пожалуйста​ всё работает.​Smersh​* (звездочка) означает​ цифра количества строк.​ случае​

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

​Код VBA, приведённый ниже,​ работают по такому​ макросом, который Вы​ в формате​ Dim arResults() Application.Volatile​ с одинаковой заливкой,​Optional Цвет_берется_из_ячейки2 As​ In Диапазон_суммирования.Cells​Всё, почему покрашена​stasprv​С помощью УФ​KoGG​Guest​: Спасибо за помощь,​ любое количество символов​ Нажимаем стрелку у​D2​ преодолевает все указанные​ же принципу.​ найдёте далее в​.xlsm​ If xlRange Is​

​ например, сумму всех​ Range)​If cll.Interior.ColorIndex =​ М5, понял. А​: Добрый день, уважаемые​ я выделила цветом​: Function СчетЕслиЦвет(Oblast As​: а у меня​ но есть один​ в слове. Например,​ кнопки «Автосумма» на​

• ​.​ выше ограничения и​​CountCellsByFontColor(диапазон, код_цвета)​ этой статье.​(Книга Excel с​
• ​ Nothing Then Set​ красных ячеек.​​If Not Цвет_берется_из_ячейки2​ Цвет_берется_из_ячейки.Interior.ColorIndex or _​
• ​ вот почему покрашена​ форумчане!​ нужные ячейки (столбец​​ Range, Obrazec As​ не сработало ни​ нюанс. Я пользуюсь​
• ​ «мор*» — будет​ закладке Excel «Главная»​​Если у Вас возникли​ работает в таблицах​

​– считает ячейки​Представленный ниже скрипт Visual​ поддержкой макросов).Если Вы​ xlRange = Application.ThisCell​Как известно, Microsoft Excel​ Is Nothing Then​cll.Interior.ColorIndex = Цвет_берется_из_ячейки2.Interior.ColorIndex​ АА7?​Подскажите, пожалуйста, как​ K — разница).​ Range) As Variant​ так ни так.​ корпоративной версией 2003​ искать слова на​ и выбираем функцию​ трудности с добавлением​ Microsoft Excel 2010​ с заданным цветом​

​ Basic был написан​ не слишком уверенно​ End If If​ предоставляет набор функций​For Each cll​ Then​Добавлено​ решить сложную техническую​ Теперь, для моей​ ‘ Считает число​Все надстройки всключены.​ Excel. В списках​ «мор» и любое​ «Число».​ скриптов в рабочую​ и 2013, с​

​ шрифта.​ в ответ на​ чувствуете себя с​ xlRange.Count > 1​ для различных целей,​ In Диапазон_суммирования.Cells​summa = summa​.​ задачу. Необходимо подсчитать​ задачи нужно выполнить​ ячеек в заданном​Hugo​ формл такой нет​ окончание (мор, море,​Эта функция считает только​ книгу Excel, например,​ любыми типами условного​SumCellsByColor(диапазон, код_цвета)​ один из комментариев​ VBA, то посмотрите​ Then ReDim arResults(1​ и логично предположить,​If cll.Interior.ColorIndex =​ + cll.Value​А, не, тоже​ количество ячеек определенного​ следующее:​ диапазоне, цвет фона​: Формулу вложил в​ и он ее​ моряк, т.д.). Чтобы​ заполненные строки. Если​ ошибки компиляции, не​

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

1. ​ форматирования (и снова​– вычисляет сумму​ читателей (также нашим​ подробную пошаговую инструкцию​ To xlRange.Rows.Count, 1​
2. ​ что существуют формулы​ Цвет_берется_из_ячейки.Interior.ColorIndex _​End If​ доперло.​ цвета, в которых​1.​ которых совпадает с​
3. ​ файл.​​ не понимает :-(​​ найти все фамилии​ есть пустые ячейки​ работающие формулы и​​ спасибо нашему гуру!).​​ ячеек с заданным​
4. ​ гуру Excel) и​​ и массу полезных​​ To xlRange.Columns.Count) For​ для подсчёта ячеек​And Not bCellIsHidden(cll)​
5. ​Next​​Добавлено​​ содержится определенная дата.​​Посчитать количество волн,​​ цветом фона ячейки​​Кроме неё -​​ Есть какой-нибудь другой​ на букву «Р»​

   

​ в столбце, то​ так далее, Вы​​ В результате он​​ цветом заливки.​ выполняет именно те​

• ​ советов в учебнике​​ indRow = 1​ по цвету. Но,​ Or _​else​Держите формулами и​Мы ведем учет​​ группы выделенных ячеек,​​ образца. Dim Summa1​
• ​ нужны ещё две​​ способ?​ и заканчивающиеся на​ в формуле исправляем​ можете скачать рабочую​​ выводит количество раскрашенных​​SumCellsByFontColor(диапазон, код_цвета)​ действия, которые упомянул​ Как вставить и​​ To xlRange.Rows.Count For​​ к сожалению, не​
• ​cll.Interior.ColorIndex = Цвет_берется_из_ячейки2.Interior.ColorIndex​​For Each cll​ условным форматированием.​ посещаемости занятий. Каждый​ с сортировкой по​​ As Variant, c​​ формулы, присутсвуют.​

Рабочая книга с примерами для скачивания

​Юрий М​ букву «в», нужно​ адрес первой ячейки​ книгу Excel с​ ячеек и сумму​– вычисляет сумму​ автор комментария, а​ запустить код VBA​ indColumn = 1​ существует формулы, которая​ _​ In Диапазон_суммирования.Cells​​Привел Вашу таблицу​​ человек должен пройти​​ годам.​​ As Range, ObrazecCvet​Hugo​

​: Это ведь НАДСТРОЙКА.​ написать критерий так​
​ диапазона. Например, мы​
​ примерами и с​

​ значений в этих​

office-guru.ru

Количество выделенных строк в Excel.

​ ячеек с заданным​ именно считает количество​ в Excel.​​ To xlRange.Columns.Count arResults(indRow,​ позволила бы на​​And Not bCellIsHidden(cll)​If cll.Interior.ColorIndex =​ к стандартному виду​ определенной количество курсов.​Например, в 1914 году​ As Long ObrazecCvet​
​: Т.е. две функции,​​ Подключите её и​ — «Р*в» (или​ вставили формулу функцией​ готовыми к использованию​ ячейках, независимо от​ цветом шрифта.​ и сумму ячеек​Когда все закулисные действия​ indColumn) = xlRange(indRow,​
​ обычном листе Excel​​ Then​​ Цвет_берется_из_ячейки.Interior.ColorIndex Then​ — сначала идет​​ К примеру, если​
​ их нет, а​ = Obrazec.Interior.Color For​ извиняюсь…​ всё заработает.​ «Р*В»). Найдет фамилии​ «Автосумма». В этой​ функциями​ типа условного форматирования,​GetCellFontColor(ячейка)​ определённого цвета на​ будут выполнены, выберите​ indColumn).Interior.Color Next Next​ суммировать или считать​summa = summa​summa = summa​ Курс, потом Факт,​ человек пришел на​ в 1915 -​ Each c In​​sva​
​Guest​​ — Рублев, Рылеев,​
​ формуле указан диапазон​CountCellsByColor​ применённого на листе.​– возвращает код​ всех листах данной​ ячейки, в которые​ GetCellColor = arResults​ по цвету.​ + cll.Value​ + cll.Value​ потом Прогноз. Можно​​ «Русский язык» 23.10.15,​
​ одна волна (т.е.​ Oblast.Cells If c.Interior.Color​: Меня напрягает вот​: Это ведь НАДСТРОЙКА.​ т.д.​ до первой пустой​и​Sub SumCountByConditionalFormat() Dim​
​ цвета шрифта в​ книги. Итак, вот​ нужно вставить результат,​ Else GetCellColor =​Если не использовать сторонние​
​End If​End If​ было сделать и​ то в ячейку​ имеется в виду​
​ = ObrazecCvet Then​​ эта часть.​
​ Подключите её и​? (знак вопроса)​​ ячейке столбца. =СЧЁТ(A4:A6)​​SumCellsByColor​ indRefColor As Long​ выбранной ячейке.​ этот код:​ и введите в​ xlRange.Interior.Color End If​ надстройки, существует только​Next​​Next​ без этого, но​ напротив его фамилии​ последовательно выделенные, без​ Summa1 = Summa1​По идее должно​ всё заработает.{/post}{/quote}​ обозначает один символ.​ Мы адрес ячейки​, и испытать их​ Dim cellCurrent As​GetCellColor(ячейка)​Function WbkCountCellsByColor(cellRefColor As​ них функцию​ End Function Function​ одно решение –​
​Else​
​end if​ формулы получатся сложнее​​ руками ставится дата​
​ перерывов)​ + 1 End​ быть: сервис-надстройки-обзор-находим надстройки​Подключал, вроде что-то​ Например, критерий «ст?л»​ А4 исправляем на​
​ на своих данных.​
​ Range Dim cntRes​– возвращает код​ Range) Dim vWbkRes​CountCellsByColor​ GetCellFontColor(xlRange As Range)​ создать пользовательскую функцию​For Each cll​
​СУММ_ЦВЕТ = summa​​ — оно Вам​
​ и ячейка закрашивается​;​​ If Next СчетЕслиЦвет​​ Summ_Color-ок​ происходит, но в​​ — будет искать​
​ адрес ячейки А1.​Урок подготовлен для Вас​
​ As Long Dim​ цвета заливки в​ Dim wshCurrent As​
​:​ Dim indRow, indColumn​ (UDF). Если Вы​ In Диапазон_суммирования.Cells​End Function​ надо?​
​ в зеленый цвет,​2.​ = Summa1 End​Guest​ итоге все-равно ошибка​ стул, стол, т.д.​ Получится так.​ командой сайта office-guru.ru​

excel-office.ru

Как посчитать в Excel ячейки в определенных строках.

​ sumRes Dim cntCells​ ​ выбранной ячейке.​ ​ Worksheet Application.ScreenUpdating =​​CountCellsByColor(диапазон, код_цвета)​ As Long Dim​ мало знаете об​If cll.Interior.ColorIndex =​оба варианта рабочие:​stasprv​ если нет -​Посчитать продолжительность этих​
​ Function Function СумЕслиЦвет(Oblast​: Отлично!!! Все вроде​
​ #Имя​ Можно написать несколько​Пятый способ.​Источник: https://www.ablebits.com/office-addins-blog/2013/12/12/count-sort-by-color-excel/​ As Long Dim​
​Итак, посчитать количество ячеек​ False Application.Calculation =​В этом примере мы​ arResults() Application.Volatile If​ этой технологии или​ Цвет_берется_из_ячейки.Interior.ColorIndex _​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММ_ЦВЕТ(F8:F1317;F348)​: _Boroda_, спасибо Вам​ красный. Каждый 3​ волн с сортировкой​ As Range, Obrazec​ работает спасибо!!!​R Dmitry​
​ вопросительных знаков. Например,​Посчитать, если выделено цветом​Перевел: Антон Андронов​ indCurCell As Long​ по их цвету​ xlCalculationManual vWbkRes =​ используем формулу​ xlRange Is Nothing​ вообще никогда не​
​And Not bCellIsHidden(cll)​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММ_ЦВЕТ(F8:F1317;F348;F349)​ большое. Отличное решение!​
​ месяца необходимо проводить​ по годам.​ As Range) As​P.S. А не​: А зачем вообще​ «Иван?????» (Иванов, Иванченко,​ – формула Excel​Автор: Антон Андронов​ cntRes = 0​ и вычислить сумму​ 0 For Each​=CountCellsByColor(F2:F14,A17)​ Then Set xlRange​ слышали этого термина,​ Then​Leojse​Leojse​
​ «чистки рядов» и​Например, в 1915 году​ Variant ‘ Суммирует​ подскажешь как вкладывать​ цвета считать, если​ т.д.)​.​Говорят, что нет​ sumRes = 0​
​ значений в раскрашенных​ wshCurrent In Worksheets​, где​ = Application.ThisCell End​ не пугайтесь, Вам​
​summa = summa​: Саня, Спасибо еще​: Добрый вечер.​ отчислять тех, кто​ — волна продолжалась​ заданный диапазон ячеек​ фукнции в файл,​ вы используете уф,​О других символах,​
​Можно написать такую​ специальной функции без​
​ cntCells = Selection.CountLarge​
​ ячейках оказалось совсем​ wshCurrent.Activate vWbkRes =​
​F2:F14​ If If xlRange.Count​ не придётся писать​ + cll.Value​
​ раз, как раз​​Есть такая функция,​​ не ходит, потому​
​ 13 дней, а​ при условии, что​ в частности Count_CellColor?​ можно и условия​ которые можно вставить​ формулу. =СЧЁТ(A1:A6) Эта​
​ макросов​ indRefColor = ActiveCell.DisplayFormat.Interior.Color​ не сложно, не​ vWbkRes + CountCellsByColor(wshCurrent.UsedRange,​– это диапазон,​ > 1 Then​ код самостоятельно. Здесь​End If​ то, чо нужно!​ которая подсчитывает сумму​ необходимо посчитать сколько​ в в 1917​ RGB цвет фона​
​Smersh​
​ посчитать​
​ в формулу, читайте​ формула считает только​посчитать количество выделенных строк​ For indCurCell =​ так ли? Но​ cellRefColor) Next Application.ScreenUpdating​
​ содержащий раскрашенные ячейки,​ ReDim arResults(1 To​ Вы найдёте отличный​Next​Leojse​ значений залитых ячеек​ в том или​ — 10 дней​

excel-office.ru

Подсчет количества ячеек определенного цвета

​ слагаемого совпадает с​​: С функциями разобрался​например так​ в статье «Символы​ ячейки с числами,​ в Excel​ 1 To (cntCells​ что если Вы​ = True Application.Calculation​ которые Вы хотите​ xlRange.Rows.Count, 1 To​ готовый код (написанный​End If​: Добрый день.​

​ по ячейке-образцу:​​ ином временном интервале​
​;​
​ цветом фона ячейки​ ;-)) А возможно​

​ — 1) If​​ не раскрашиваете ячейки​ = xlCalculationAutomatic WbkCountCellsByColor​ посчитать. Ячейка​ xlRange.Columns.Count) For indRow​ нашим гуру Excel),​СУММ_ЦВЕТ = summa​Подскажите, а возможно​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function СУММ_ЦВЕТ(Диапазон_суммирования As Range,​ посетил и пропустил​3.​

​ образца. Dim Summa1​​ ли сделать, так,​: Есть ли УФ​В строке «Диапазон_суммирования»​

​End Function​​ ли, чтобы функция​ Цвет_берется_из_ячейки As Range)​ занятий. Например, сколько​Амплитуду волн. Т.е.​ As Variant, c​
​ что если в​

​ sumRes = WorksheetFunction.Sum(Selection(indCurCell),​​ это в статьях​ vWbkRes Dim wshCurrent​ нашем случае красный.​ xlRange.Columns.Count arResults(indRow, indColumn)​ его и вставить​bCellIsHidden = rngCell.EntireRow.Hidden​SkyPro​
​If cll.Interior.ColorIndex =​ по декабрь.​

​Например, в 1915 году​​ = Obrazec.Interior.Color For​ бы автоматически пересчитывалась?​В первом сообщении​ нам нужно сложить.​ условию, используем функцию​ способы найдем. )))​ sumRes) End If​

​ Как изменить цвет​​ As Worksheet Application.ScreenUpdating​Точно таким же образом​ = xlRange(indRow, indColumn).Font.Color​ в свою рабочую​

​ Or _​​:​ Цвет_берется_из_ячейки.Interior.ColorIndex Then​Обыскал весь интернет,​ — min 1.348,​ Each c In​ Заранее спасибо!!!​ прикреплен пример файла.​ У нас -​ «СЧЁТЕСЛИ». Примеры формул​Один из способов​

​ Next MsgBox «Count=»​​ заливки ячеек и​ = False Application.Calculation​ Вы записываете формулу​ Next Next GetCellFontColor​ книгу.​rngCell.EntireColumn.Hidden​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function СУММ_ЦВЕТ(Диапазон_суммирования As Range,​summa = summa​

​ похоже, стандартными средствами​​ max 7.248​ Oblast.Cells If c.Interior.Color​Smersh​
​ Условия УФ следующие:​

​ это столбец С.​​ смотрите в статье​узнать количество выделенных​
​ & cntRes &​ Как изменить цвет​ = xlCalculationManual vWbkRes​

​ для других цветов,​​ = arResults Else​Считаем и суммируем по​

​ = 0 For​​ которые требуется посчитать​ GetCellFontColor = xlRange.Font.Color​ цвету, когда ячейки​Leojse​ _​End If​Нашел такой скрипт,​У самой, к​

​ Summa1 = Summa1​​ такая возможность или​ оценки людей и​ так. Нажимаем «ОК».​

​ End If End​​ раскрашены вручную​: Просто ради интереса​Optional Цвет_берется_из_ячейки2 As​

​Next​​ он суммирует по​ сожалению, мозгов не​ + c.Value End​ нет?​ каждому критерию соответвуют​Получилась такая формула.​Седьмой способ​ строк после фильтра.​ & vbCrLf &​Если Вы применили условное​ Worksheets wshCurrent.Activate vWbkRes​ и зелёный).​ Function Function CountCellsByColor(rData​Считаем сумму и количество​ попробовал код Сани,​ Range)​СУММ_ЦВЕТ = summa​ цвету, а как​

​ хватает разобраться с​​ If Next СумЕслиЦвет​ТолькоУчусь​

​ определенные баллы (от​​ =СУММЕСЛИ(B2:B10;»план»;C2:C10)​.​ Смотрите об этом​ vbCrLf & _​

​ форматирование, чтобы задать​​ = vWbkRes +​Если в раскрашенных ячейках​ As Range, cellRefColor​ ячеек по цвету​ который в сборе)​If Not Цвет_берется_из_ячейки2​End Function​ сюда добавить выбор​ этим. Помогите, пожалуйста,​ = Summa1 End​

planetaexcel.ru

Посчитать количество цветных ячеек

​: Кажется так.​​ 1 до 10).​
​Формула посчитала.​
​Посчитать строки, выделенные условным​ способе статью «Порядковый​ «Color=» & Left(«000000»,​ цвет заливки ячеек​ SumCellsByColor(wshCurrent.UsedRange, cellRefColor) Next​ содержатся численные данные​
​ As Range) As​ во всей книге​
​Выдает ошибку на​ Is Nothing Then​Формула — =СУММ_ЦВЕТ(F8:F1317;F348),​
​ по дате (мясяцу)?​ кто чем может.​ Function​————————​ При установке определенных​В ячейке F2 пишем​ форматированием​
​ номер строк по​

​ 6 — Len(Hex(indRefColor)))​​ в зависимости от​ Application.ScreenUpdating = True​ (например, столбец​ Long Dim indRefColor​Считаем и суммируем по​ первой строчке​For Each cll​ где F8:F1317 -​ А еще лучше​Заранее, большое спасибо.​Byronel​’Ваш код​ чисел ячейки окрашиваются​ такую формулу. =СУММЕСЛИ(B2:B10;»выпущено»;C2:C10)​или​ порядку после фильтра​ & _ Hex(indRefColor)​ их значений, и​ Application.Calculation = xlCalculationAutomatic​Qty.​ As Long Dim​ цвету, когда к​200?’200px’:»+(this.scrollHeight+5)+’px’);»>And Not bCellIsHidden(cll) Or​ In Диапазон_суммирования.Cells​ суммируемый диапазон, F348​ временному интервалу​ ))​: сразу предупреждаю, с​Application.Calculate = True​ в три цвета​Ещё примеры счета​окрашены цветом вручную в​ в Excel»​ & vbCrLf, ,​ теперь хотите посчитать​ WbkSumCellsByColor = vWbkRes​в нашей таблице),​ cellCurrent As Range​ ячейкам применены правила​ _​If cll.Interior.ColorIndex =​ — ячейка-образец​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function КолЦвет(диапазон As Range,​​YouGreed​ VBA работал давно​
​————————​ (красный — негатив,​ с условием смотрите​ Excel​Второй способ​ «Count & Sum​
​ количество ячеек определённого​
​ End Function​
​ Вы можете суммировать​ Dim cntRes As​ условного форматирования​, выделяя при​ Цвет_берется_из_ячейки.Interior.ColorIndex And cll.EntireRow.Hidden​
​Подскажите, а можно​ критерий As Range)​: baneska, Так-с, предлагаем.​создал модуль, забил​Smersh​ желтый — что-то​

​ в статье «Функция​​.​–​ by Conditional Format​ цвета или сумму​Добавьте этот макрос точно​
​ значения на основе​ Long Application.Volatile cntRes​Предположим, у Вас есть​ этом cll. Ошибка​ = False Or​ ли как-то подредактировать​
​ As Double​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СЧЁТЕСЛИМН($A$2:$A$1178;$K4;$H$2:$H$1178;5)​ туда этот код​: Ясно. Спасибо всем​ среднее, зеленый -​ «СУММЕСЛИ» в Excel».​
​Можно применить фильтр​​посчитать количество выделенных ячеек​ color» End Sub​ значений в них,​

​ также, как и​​ выбранного цвета ячейки,​
​ = 0 indRefColor​ таблица заказов компании,​ — Compile error:​ _​ функцию, чтобы сумма​’ Определяет число​Нужно уточнение, счет​ и сохранил, выбрал​ огромное за помощь​ все отлично).​Теперь нам нужно​ по цвету.​ в столбце Excel​Добавьте код, приведённый выше,​

​ то у меня​​ предыдущий код. Чтобы​

​ используя аналогичную функцию​​ = cellRefColor.Cells(1, 1).Interior.Color​ в которой ячейки​

CyberForum.ru

Посчитать количество выделенных цветом ячеек. (Формулы/Formulas)

​ ByRef argument type​​cll.Interior.ColorIndex = Цвет_берется_из_ячейки2.Interior.ColorIndex​
​ подсчитывалась по двум​ ячеек «диапазона»,​ максимальной продолжительности волны​ имя модуля «test»​ и участие :-)​На вопрос R​посчитать проценты в Excel​
​Затем выделить ячейки и​​.​ на Ваш лист,​ для Вас плохие​ получить количество и​​SumCellsByColor​ For Each cellCurrent​ в столбце​ mismatch. Так что​ _​ ячейкам-образцам (мне нужно​’ цвет которых​​ или сумма всех​
​ и в конце​​Smersh​ Dmitry отвечаю. Ваш​.​​ посмотреть количество в​Выделяем ячейки в​ как мы делали​ новости – не​ сумму цветных ячеек​​:​
​ In rData If​​Delivery​ пользуюсь Вашим кодом,​And cll.EntireRow.Hidden =​​ получить сумму значений​ совпадает с цветом​ волн?​​ добавилось 2 строки​
​: Народ, нужна еще​ способ вроде подходит,​В ячейку F3​ строке состояния.​ столбце и смотрим​

​ это в первом​ существует универсальной пользовательской​

​ используйте вот такие​​SumCellsByColor(диапазон, код_цвета)​
​ indRefColor = cellCurrent.Interior.Color​
​раскрашены в зависимости​SkyPro​ False Then​ по двум цветам)?​
​ в ячейке «критерий»​
​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=МИН(ЕСЛИ(($A$2:$A$1178=$K4)*($H$2:$H$1178=5)*$G$2:$G$1178>0;$G$2:$G$1178))​»Sub test()​
​ Ваша помощь. В​ но подсчет кол-ва​
​ напишем формулу, которая​
​Здесь ячейки выделены условным​
​ внизу листа Excel​ примере.​
​ функции, которая будет​ формулы:​

​Как показано на снимке​​ Then cntRes =​
​ от их значений:​
​, но и​
​summa = summa​

​ То есть, если​​Application.Volatile True​​Формула массива, вводится​​End Sub»​ примере в ячейках​
​ ячеек — проще​ посчитает средний процент​ форматированием. Отфильтровали по​ в строке состояния​

​Выберите диапазон (или диапазоны),​​ по цвету суммировать​​=WbkCountCellsByColor()​
​ экрана ниже, мы​ cntRes + 1​Due in X Days​
​Сане​ + cll.Value​ при вводе второй​Dim i As​ Ctrl+Shift+Enter.​забил внутрь текст​

​ B,C,D 17 УФД,​​ :-)​​ выполнения плана по​​ цвету. В строке​​ цифру «Количество». Это​ в которых нужно​ или считать количество​=WbkSumCellsByColor()​ использовали формулу:​ End If Next​– оранжевые,​огромное спасибо)​End If​

​ ячейки-образца, то считался​​ Range​

​Наименьшее значение в​​ функций — пишется​​ привязанное к цифрам.​​R Dmitry​ фирме. Здесь пригодится​ состояния написано, что​

excelworld.ru

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

​ число заполненных выделенных​​ сосчитать цветные ячейки​ ячеек и выводить​
​Просто введите одну из​=SumCellsByColor(D2:D14,A17)​ cellCurrent CountCellsByColor =​Delivered​Саня​Next​
​ бы и второй​For Each i​ волне.​ компайл ерор, ожидается​ Хотелось бы сделать​: На вопрос R​ функция Excel «СРЗНАЧЕСЛИ».​ выделено 3 строки​ ячеек. Пустые ячейки​ или просуммировать по​ результат в определённые​ этих формул в​где​ cntRes End Function​– зелёные,​: И Вам огромное​Else​ цвет.​ In диапазон​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=МАКС(($A$2:$A$1178=$K4)*($H$2:$H$1178=5)*$G$2:$G$1178)​ End Sub, в​ 3-е условие, что​ Dmitry отвечаю. Ваш​В ячейке устанавливаем​ (ячейки).​ так Excel не​
​ цвету, если в​ ячейки. По крайней​ любую пустую ячейку​
​D2:D14​ Function SumCellsByColor(rData As​Past Due​ спасибо, заходите еще…​For Each cll​Саня​If i.Interior.Color =​
​Формула массива.​ чем ошибка?​ если хоть одна​
​ способ вроде подходит,​ формат «процентный». На​
​Как преобразовать формат​ считает. Но, если​ них содержатся числовые​
​ мере, я не​
​ на любом листе​– диапазон,​
​ Range, cellRefColor As​– красные.​
​перед​ In Диапазон_суммирования.Cells​
​:​ критерий.Interior.Color Then​
​Максимальное значение в​
​и попутно вопрос​
​ из ячеек B5:B16​
​ но подсчет кол-ва​ закладке «Формулы» выбираем​ данных из других​ нужно посчитать строку,​ данные.​ слышал о таких​ Excel. Диапазон указывать​A17​ Range) Dim indRefColor​
​Теперь мы хотим автоматически​200?’200px’:»+(this.scrollHeight+5)+’px’);»>If Not Цвет_берется_из_ячейки2 Is​If cll.Interior.ColorIndex =​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММ_ЦВЕТ(F8:F1317;F348)+СУММ_ЦВЕТ(F8:F1317;F349)​КолЦвет = КолЦвет​ волне.​
​ — как узнать​ красного цвета, то​ ячеек — проще​

​ «Другие функции» -​​ программ в формат​ в которой в​Нажмите и удерживайте​
​ функциях, а жаль​ не нужно, но​

​– ячейка с​​ As Long Dim​ сосчитать количество ячеек​ Nothing Then​ Цвет_берется_из_ячейки.Interior.ColorIndex _​шутка.​ + 1​Осталось посчитать кол-во​ код цвета, насколько​
​ ячейка B17 окрашивалась​

​ :-)​​ «Статистические» и, выбираем​ числа Excel, чтобы​ столбце А нет​Ctrl​Конечно, Вы можете найти​ необходимо в скобках​ образцом цвета.​ cellCurrent As Range​
​ по их цвету,​​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>dim cll as​
​And cll.EntireRow.Hidden =​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function СУММ_ЦВЕТ(Диапазон_суммирования As​End If​ волн.​
​ я понял именно​​ бы тоже в​
​как сказать…… если​ функцию «СРЗНАЧЕСЛИ». Диалоговое​
​ формулы считали такие​
​ значений, а есть​, кликните по одной​
​ тонны кода VBA​ указать любую ячейку​Таким же образом Вы​ Dim sumRes Application.Volatile​ то есть сосчитать​ range​ False Then​ Range, Цвет_берется_из_ячейки As​Next​_Boroda_​

​ его значение нужно​​ красный цвет. В​ условий немного :)),​

excelworld.ru

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

​ окно заполняем, как​​ числа, смотрите в​
​ в столбце В,​ ячейке нужного цвета,​ в интернете, который​ с заливкой нужного​
​ можете посчитать и​ sumRes = 0​
​ количество красных, зелёных​Leojse​
​summa = summa​ Range, _​
​End Function​: Длинная, зато быстрая​
​ подставить в ObrazecCvet​
​ этом файле вложены​
​в лбом случае​
​ в предыдущей формуле,​
​ статье «Преобразовать текст​ то выделяем ячейку​ затем отпустите​ пытается сделать это,​
​ цвета, например,​ просуммировать ячейки по​ indRefColor = cellRefColor.Cells(1,​ и оранжевых ячеек​: Спасибо, все работает)​ + cll.Value​Цвет_берется_из_ячейки2 As Range)​Подскажите, пожалуйста, как​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММПРОИЗВ(—(—(ИНДЕКС(H$1:H$1178;ПОИСКПОЗ(K4;A$1:A$1178;)-1):ИНДЕКС(H$1:H$1178;ПОИСКПОЗ(K4;A$1:A$1178;)-2+СЧЁТЕСЛИ($A$1:$A$32;A$2))&ИНДЕКС(H$1:H$1178;ПОИСКПОЗ(K4;A$1:A$1178;)):ИНДЕКС(H$1:H$1178;ПОИСКПОЗ(K4;A$1:A$1178;)-1+СЧЁТЕСЛИ($A$1:$A$32;A$2)))=5))​Heidegger​ две функции, т.к.​ право выбора всегда​

​ только «критерий» пишем​​ в число Excel».​​ столбца В. Главное,​
​Ctrl​
​ но все эти​=WbkSumCellsByColor(A1)​ цвету шрифта при​
​ 1).Interior.Color For Each​
​ на листе. Как​bumnik​
​End If​For Each cll​
​ это можно решить?​Короткая, но медленнее​
​: Текст функций не​ в моем excel​
​ за вами​
​ «%» — это​
​Как посчитать в​
​ чтобы были выделены​
​.​

​ коды (по крайней​​, и формула вернет​ помощи функций​

​ cellCurrent In rData​​ я уже сказал​: Здравствуйте! Можно ли​Next​ In Диапазон_суммирования.Cells​ VBA изучал еще​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММПРОИЗВ(—((A$2:A$1178=K4)*(H$1:H$1177&H$2:H$1178)=5))​ нужно никуда забивать​​ можно только так.​​Z​ в нашей таблице​Excel​ ячейки всех нужных​Нажмите​ мере, те экземпляры,​ сумму всех ячеек​CountCellsByFontColor​ If indRefColor =​

​ выше, прямого решения​​ данной функцией суммировать​​End If​If cll.Interior.ColorIndex =​ в институте, а​
​baneska​ – они должны​
​ Заранее спасибо.​: "НУ,ВЫ,БЛИН, ДАЕТЕ!"(с) -​
​ так написано. Получилась​ячейки выборочно​
​ строк. Например, так.​Alt+F8​
​ которые попадались мне)​ в книге, окрашенных​
​и​ cellCurrent.Interior.Color Then sumRes​
​ этой задачи не​
​ диапазон цифр +​
​СУММ_ЦВЕТ = summa​
​ Цвет_берется_из_ячейки.Interior.ColorIndex or _​ это было достаточно​
​:​ быть на верхнем​
​Hugo​ "На вопрос R​
​ такая формула.​
​, не все подряд,​
​Здесь выделили четыре строки.​
​, чтобы открыть список​
​ не обрабатывают правила​
​ в этот же​
​SumCellsByFontColor​
​ = WorksheetFunction.Sum(cellCurrent, sumRes)​

​ существует. Но, к​​ цифры только вот​End Function​cll.Interior.ColorIndex = Цвет_берется_из_ячейки2.Interior.ColorIndex​

​ давно и за​​YouGreed​
​ уровне.​: А если УФ​ Dmitry отвечаю. Ваш​=СРЗНАЧЕСЛИ(B2:B10;»%»;C2:C10)​

​ а по условию?​​Третий способ​​ макросов в Вашей​ условного форматирования, такие​ цвет.​
​соответственно.​ End If Next​
​ счастью, в нашей​ с таким символом​
​Пробуйте​ Then​
​ несколько часов вспомнить​, Спасибо за отклик.​Нет, вторым аргументом​ поменять?​
​ способ вроде подходит,​Таблица посчитала так.​
​ Если вводить формулу​.​
​ рабочей книге.​ как:​
​Здесь Вы найдёте самые​
​Замечание:​
​ cellCurrent SumCellsByColor =​
​ команде есть очень​ ( ' )​
​Саня​summa = summa​
​ синтаксис не получается​ ))​
​ функции идёт ячейка,​Hugo​
​ но подсчет кол-ва​
​Как посчитать наценку, скидку,​
​ вручную в большой​
​Можно в таблице​
​Выберите макрос​
​Format all cells based​

​ важные моменты по​​Если после применения​​ sumRes End Function​ умелые и знающие​
​ (например: от 1​:​
​ + cll.Value​
​ :(​
​Нет нет, max​ имеющая целевой цвет,​

​: Вернее это условие​​ ячеек — проще​ умножив столбец на​ таблице, то это​

​ фильтром отфильтровать нужные​​Sum​​ on their values​​ всем функциям, использованным​​ выше описанного кода​​ Function CountCellsByFontColor(rData As​
​ Excel гуру, и​​ до 12 +​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function bCellIsHidden(rngCell As Range)​
​End If​Пример как организованы​ это — максимальное​ вхождения которого ищутся​​ с формулой нужно​​ :-)​

​ число, смотрите в​​ очень долго. Нас​ данные. Затем выделить​CountByConditionalFormat​
​(Форматировать все ячейки​ нами в этом​
​ VBA Вам вдруг​ Range, cellRefColor As​ один из них​
​ 1', 2', 3',​ As Boolean​
​Next​ данные - во​
​ значение в период​ во входном диапазоне​
​ первым поставить, затем​И чему улыбаться​
​ статье "Как умножить​ выручит функция Excel​
​ отфильтрованные ячейки в​и нажмите​
​ на основании их​ примере, а также​
​ потребуется раскрасить ещё​ Range) As Long​
​ написал безупречный код​
​ 4', 5', 6'​
​bCellIsHidden = rngCell.EntireRow.Hidden​
​СУММ_ЦВЕТ = summa​ вложении. Оставил в​
​ определённой волны.​ (первый аргумент функции).​
​ уже два других.​ - "=СЧЁТЕСЛИ(B2:H2;" 44325​
​ в Excel число​ «СУММЕСЛИ».​
​ столбце. В строке​
​Run​
​ значений);​
​ пару новых функций,​
​ несколько ячеек вручную,​
​ Dim indRefColor As​ для Excel 2010​
​ и т.д.)​ Or _​
​End Function​
​ нем только несколько​

​YouGreed​​KoGG​Smersh​Guest​
​ на число, проценты».​У нас такая​​ состояния будет видно​(Выполнить).​​Format only top or​ которые определяют коды​ сумма и количество​ Long Dim cellCurrent​ и 2013. Итак,​Читайте правила форума,​​rngCell.EntireColumn.Hidden​​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММ_ЦВЕТ(F8:F1317;F348;F349)​​ строк, оригинал гораздо​​: baneska,​

​, прекрасный код, но​​: Да этот вариант,​: Мне принципиально посчитать​
​Ещё один способ​
​ таблица.​ количество строк. Помним,​
​В результате Вы увидите​ bottom ranked values​

​ цветов.​​ ячеек не будут​

​ As Range Dim​​ выполните 5 простых​ создавайте свою тему!​End Function​Leojse​ больше.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИ(МАКС(($A$2:$A$1178=$K4)*($H$2:$H$1178=5)*$B$2:$B$1178)-МИН(ЕСЛИ(($A$2:$A$1178=$K4)*($H$2:$H$1178=5)*$B$2:$B$1178>0;$B$2:$B$1178))>$Q4;2;ЕСЛИ($Q4=0;0;1))​ я бы ещё​ я тоже рассматривал.​ кол-во ячеек по​ посчитать ячейки в​Складываем ячейки с суммой​
​ что пустые ячейки​ вот такое сообщение:​

excelworld.ru

​(Форматировать только первые​