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

Дата: Среда, 18.02.2009, 14:30 | Сообщение # 1

Продвинутый

Группа: Проверенные

Сообщений: 21

Статус: Offline

Добрый день,
появилась необходимость сосчитать количество ячеек с определённым цветом условного форматирования.
Пример, по условиям форматирования ячейка G16 при превышении значения в ячейке G10 <10 становиться красной, менее >5 зелёной
в ячейке AC16 отображается количество красных ячеек, а в ячейке AD16 отображается количество зелёных ячеек.
Пример формулы форматирования:=И($C16>=G$6;$C16<=G$8)
Полезность данной функции заключается в том, что каждая ячейка может нести дойную смысловую нагрузку, меняет цвет и свободна для занесения информации.
Спасибо.

sizop

Дата: Среда, 18.02.2009, 16:54 | Сообщение # 2

Admin

Группа: Администраторы

Сообщений: 1801

Статус: Offline

ИМХО это можно выполнить только с помощью макросов, вроде что-то подобное было в надстройке PLEX, которую я выкладывал.

bublik

Дата: Среда, 18.02.2009, 17:14 | Сообщение # 3

Продвинутый

Группа: Проверенные

Сообщений: 21

Статус: Offline

Спасибо, поищу.

sizop

Дата: Четверг, 19.02.2009, 09:02 | Сообщение # 4

Admin

Группа: Администраторы

Сообщений: 1801

Статус: Offline

В надстройке Power Utility Pak (PUP) by John Walkenbach v.6 есть вот такая фича, может то что надо?

bublik

Дата: Пятница, 20.02.2009, 11:54 | Сообщение # 5

Продвинутый

Группа: Проверенные

Сообщений: 21

Статус: Offline

Quote (sizop)

В надстройке Power Utility Pak (PUP) by John Walkenbach v.6 есть вот такая фича, может то что надо?

Спасибо, качну дома, на работе по скриптам не переходит.
PLEX качнул, посмотрел, к сожалению полная версия и открытый код платный, на работе не поймут. а мне для дома нет необходимости.
Спасибо.

sizop

Дата: Пятница, 20.02.2009, 13:40 | Сообщение # 6

Admin

Группа: Администраторы

Сообщений: 1801

Статус: Offline

bublik, PUP тоже платный

. А со скриптами порешали же что в Раздаче будем выкладывать, качай оттуда, там без скриптов.

bublik

Дата: Пятница, 20.02.2009, 17:48 | Сообщение # 7

Продвинутый

Группа: Проверенные

Сообщений: 21

Статус: Offline

Quote (sizop)

А со скриптами порешали же что в Раздаче будем выкладывать, качай оттуда, там без скриптов.

Спасибо, понял.

vlad

Дата: Вторник, 04.08.2009, 15:22 | Сообщение # 8

Группа: Модераторы

Сообщений: 720

Статус: Offline

Код пользовательской функции(подсмотрел в Инете)

для подсчета ячеек с требуемым цветом заливки(при заливке при помощи условного форматирования не работает).
Diapazon-диапазон где необходимо просчитать ячейки , Kriterij-ячейка с требуемым цветом заливки.

Function CountColor(Diapazon As Range, Kriterij As Range) As Variant
Dim cc As Range
CountColor = 0
If Kriterij.count = 1 Then
For Each cc In Diapazon
If cc.Interior.ColorIndex = Kriterij.Interior.ColorIndex Then CountColor = CountColor + 1
Next
Else
CountColor = "#N/A"
End If
End Function

vlad

Дата: Вторник, 04.08.2009, 15:26 | Сообщение # 9

Группа: Модераторы

Сообщений: 720

Статус: Offline

Quote (bublik)

Для подсчета ячеек выделенных цветом при помощи условного форматирования необходимо использовать СЧЕТЕСЛИ , условия для ячеек те же , что и в правилах для условного форматирования.

igk

Дата: Суббота, 26.12.2009, 03:32 | Сообщение # 10

Группа: Пользователи

Сообщений: 2

Статус: Offline

Все привет! а вот если такая задача... в А1 записан текст, в В1 ячейка с условным форматированием допустим красная или зеленая... необходимо в зависимости от цвета В1 переносить значение из А1 в С1 или не переносить... Бъюсь, бъюсь - ничего не получается...