Страницы: 1
RSS
количество закрашенных ячеек
 
Добрый день! Подскажите, как узнать количество закрашенных ячеек? СЧЁТЕСЛИ по условию? Где увидеть код цвета? Читала на форуме, но не поняла.  
Заранее спасибо! :)
 
С помощью UFD:  
 
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 = "#H/Ä"  
End If  
End Function
 
Если у Вас Excel 2007 можно включить фильтр в столбце, где надо подсчитать количество раскрашенных ячеек, отфильтровать по цвету, а перед этим вставить в сторонке следующую формулу:  
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(2;A1:A50)  
А1:А50 - это для примера. Там нужно указать фильтруемый диапазон
 
В "Копилке" есть.
 
Вставляете это безобразие в обычный модуль и в списке Пользовательских функций увидите функию CountColor.  
Её синтаксис =CountColor(A1:B10;C1),  
где A1:B10 - диапазон для подсчёта количества ячеек, закрашенных, как ячейка-образец C1.  
Но цвет от УФ не сосчитается.
 
{quote}{login=Юрий М}{date=23.09.2010 01:21}{thema=}{post}В "Копилке" есть.{/post}{/quote}  
да-да, я часто туда заглядываю :)
 
{quote}{login=}{date=23.09.2010 01:21}{thema=}{post}Если у Вас Excel 2007 можно включить фильтр в столбце, где надо подсчитать количество раскрашенных ячеек, отфильтровать по цвету, а перед этим вставить в сторонке следующую формулу:  
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(2;A1:A50)  
А1:А50 - это для примера. Там нужно указать фильтруемый диапазон{/post}{/quote}  
Именно так я и поступила :) Спасибо!
 
{quote}{login=Vlad}{date=23.09.2010 01:22}{thema=}{post}Вставляете это безобразие в обычный модуль и в списке Пользовательских функций увидите функию CountColor.  
Её синтаксис =CountColor(A1:B10;C1),  
где A1:B10 - диапазон для подсчёта количества ячеек, закрашенных, как ячейка-образец C1.  
Но цвет от УФ не сосчитается.{/post}{/quote}  
Сначала струсила... Спасибо Вам огромное, рискнула :))
Страницы: 1
Читают тему
Наверх