Excel vba найти ячейку по цвету

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

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

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

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

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

Прекрасное и готовое решение моей задачи я нашел на сайте http://www.excel-vba.ru/. Даже не одно, а целых два решения, под разные условия. Ниже привожу последовательность шагов, которые привели меня к успеху.

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

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

Переходим в “Пуск — Параметры Excel” и находим в левом списке пункт “Надстройки”:

Выбираем в основном окне строчку “Пакет анализа — VBA” и жмем кнопочку “Перейти” в самом низу окна. Откроется еще одно окошко со списком доступных под Excel расширений (надстроек). Снова выбираем в этом списке “Пакет анализа — VBA” и соглашаемся, что хотим установить его, нажав кнопку “ОК”:

Потребуется установочный диск с Microsoft Office на нем (или же подключение к Интернет) чтобы программа получила необходимые пакеты для инсталляции. Если установка прошла успешно, то в “Ленте” появиться пункт “Разработчик” (Excel 2010). Можно перейти в него через эту панель или же с помощью сочетания клавиш Alt + F11.

Появиться окно, в котором выполняется написание кода на языке VBA, то есть фактически создаются пользовательские функции. Я писать их не буду, так как языка VBA не знаю и знать особого желания нет (все знать невозможно).

Вставка готовых функций в Excel VBA

Но есть готовые решения, которые я вставлю в виде кода с помощью меню “Insert — Module”. Просто берем отсюда код функций и вставляем в свой Excel. Затем сохраняем файл Excel с поддержкой VBA (макросов) и все готово для дальнейшей работы.

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

Ниже представлен готовый код двух функций на VBA, написанных их автором Дмитрием Щербаковым. Первая функция с именем “CountByInteriorColor” выполняет подсчет количества ячеек по цвету заливки.

Вторая функция с именем “SumByInteriorColor” выполняет выборку ячеек по цвету заливки и суммирует все значения в этих ячейках.

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

• 
  

  1

  rRange

  — диапазон с ячейками для подсчета

• 
  

  1	rColorCell

  — ячейка-образец с цветом заливки

• 
  

  1

  bSumHide

  —

  1

  ИСТИНА

  или

  1

  1

  учитывает скрытые ячейки;

  1

  ЛОЖЬ

  ,

  1

  0

  или опущен(по умолчанию) — скрытые ячейки не подсчитываются.

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

'---------------------------------------------------------------------------------------
' Procedure : CountByInteriorColor
' Author    : The_Prist(Щербаков Дмитрий)
'             http://www.excel-vba.ru
' Purpose   : Функция подсчета ячеек на основе цвета заливки.
' Аргументы:
'             rRange     - диапазон с ячейками для подсчета.
'             rColorCell - ячейка-образец с цветом заливки.
'             bSumHide   - ИСТИНА или 1 учитывает скрытые ячейки.
'                          ЛОЖЬ, 0 или опущен(по умолчанию) - скрытые ячейки не подсчитываются.
'---------------------------------------------------------------------------------------
Function CountByInteriorColor(rRange As Range, rColorCell As Range, Optional bSumHide As Boolean = False)
  Dim lColor As Long, rCell As Range, lCnt As Long, vVal
  lColor = rColorCell.Interior.Color
  For Each rCell In rRange
      If rCell.Interior.Color = lColor Then
          If rCell.EntireRow.Hidden Or rCell.EntireColumn.Hidden Then
              If bSumHide Then lCnt = lCnt + 1
          Else
              lCnt = lCnt + 1
          End If
      End If
  Next rCell
  CountByInteriorColor = lCnt
End Function

Синтаксис этой функции прост:

=CountByInteriorColor(D8:AG8;$E$65)

Функция подсчета суммы ячеек

'---------------------------------------------------------------------------------------
' Procedure : SumByInteriorColor
' Author    : The_Prist(Щербаков Дмитрий)
'             http://www.excel-vba.ru
' Purpose   : Функция суммирования ячеек на основе цвета заливки.
' Аргументы:
'             rRange     - диапазон с ячейками для суммирования.
'             rColorCell - ячейка-образец с цветом заливки.
'             bSumHide   - ИСТИНА или 1 учитывает скрытые ячейки.
'                          ЛОЖЬ, 0 или опущен(по умолчанию) - скрытые ячейки не суммируются.
'---------------------------------------------------------------------------------------
Function SumByInteriorColor(rRange As Range, rColorCell As Range, Optional bSumHide As Boolean = False)
  Dim lColor As Long, rCell As Range, dblSum As Double, vVal
  lColor = rColorCell.Interior.Color
  For Each rCell In rRange
      If rCell.Interior.Color = lColor Then
          vVal = rCell.Value
          If IsNumeric(vVal) Then
              If rCell.EntireRow.Hidden Or rCell.EntireColumn.Hidden Then
                  If bSumHide Then dblSum = dblSum + vVal
              Else
                  dblSum = dblSum + vVal
              End If
          End If
      End If
  Next rCell
  SumByInteriorColor = dblSum
End Function

Синтаксис этой функции следующий:

=SumByInteriorColor(D8:AG37;E63)

При вставке пользовательской функции “CountByInteriorColor” и “SumByInteriorColor” можно воспользоваться либо “Мастером функций”, либо произвести указание диапазона ячеек и ячейку-критерий вручную.

Описание рабочей формулы

Готовый пример работы функции “CountByInteriorColor” можно посмотреть на рисунке “Табель выходов с зелеными ячейками”. В нем подсчет отработанного времени производится по следующей формуле:

=((Сумма фактически отработанных часов) - (Норма часов выхода за месяц)) + ((Кол-во дней с переработкой)*4)

Фактически эта формула получается такой (смотри строку №13 на рисунке):

=(AH13-AI13) + (CountByInteriorColor(D13:AG13;$E$65)*4)

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

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

Оглавление

Пример:

Реализовать код:

Четкий метод клеточного объекта

Динамически представляет область данных

Метод копирования объекта ячейки

Пример кода 2.0

Селективная паста (неопытная) метод клеточного объекта

Параметр Paste представляет содержимое селективной пасты, которое может быть любой из следующих таблиц.

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

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

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

Пример:

Как показано на рисунке, таблица представляет собой данные о продажах продавца в определенный месяц. При проверке данных было обнаружено, что были обнаружены некоторые проблемные данные, и цвет заполнения был изменен на серый. Теперь вам нужно показывать эти данные одновременно и скопировать в столбце F: H. Как использовать VBA для их достижения?

Реализовать код:

Option Explicit

SUB SEERK FOR COLOR ()
    Dim Rng As Range
    Dim RowN As Long
    
         'Очистить область результата
    Range("F2:H" & Rows.Count).Clear
    
    RowN = 1
    For Each Rng In Range(Range("C1"), Cells(Rows.Count, "C").End(xlUp))
                 'Определите, есть ли цвет начинки
        If Rng.Interior.Pattern <> xlNone Then
                         'Скопируйте в область результата
            Intersect(Rng.EntireRow, Columns("A:C")).Copy Cells(RowN, "F")
                         'Линия площади результата +1
            RowN = RowN + 1
        End If
    Next

End Sub

Четкий метод клеточного объекта

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

Диапазон метод ячейки ячейки (диапазон)

Динамически представляет область данных

В этом примере используется начальная точка и конечная точка объекта диапазона, чтобы представлять область данных столбца C. Начальная точка — ячейки C2, а в конечной точке используется конечное свойство для получения последней ячейки данных с данными.

Метод копирования объекта ячейки

Метод копирования объекта ячейки заключается в копировании ячейки (включая содержание, формат, аннотацию и т. Д.) В указанную область. Грамматика:

Rng.Copy [Destination]

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

Intersect(Rng.EntireRow,Columns("A: C")).Copy
Cells (RowN,"F").Select
ActiveSheet.Paste

Пример кода 2.0

SUB SEER TO Color 1 ()
    Dim Rng As Range
    Dim RowN As Long
    
         'Очистить область результата
    Range("F2:H" & Rows.Count).Clear
    
    RowN = 1
    For Each Rng In Range(Range("C1"), Cells(Rows.Count, "C").End(xlUp))
                 'Определите, есть ли цвет начинки
        If Rng.Interior.Pattern <> xlNone Then
                         'Скопируйте в область результата
            Intersect(Rng.EntireRow, Columns("A:C")).Copy
            Cells(RowN, "F").Select
            ActiveSheet.Paste
                         'Линия площади результата +1
            RowN = RowN + 1
        End If
    Next

End Sub

Селективная паста (неопытная) метод клеточного объекта

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

Rng.PasteSpecial [Paste],[Operation],[SkipBlanks],[Transpose]

Среди них RNG представляет собой область целевой единицы.

• Параметр Paste представляет содержимое селективной пасты, которое может быть любой из следующих таблиц.

Вставьте параметр метода PastePecial

• Операция параметра является дополнительной операцией для вставки, которая может быть любой из следующей таблицы.

Параметр операции метода PastePecial

• Параметр Skipblanks указывает, пропустить ли пропущенную ячейку. Если она истина, это означает, что пустой блок в буфере обмена не скопируется в целевую область.

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

Метод Pastepecial, по сути, представляет собой основную работу селективной вставки рабочего дня. Соответствующая связь между параметрами параметров и параметров работы показана на рисунке.