Условное форматирование окрашивает ячейку в серый цвет, если она не пустая. В зеленый цвет окрашивают некоторые ячейки вручную! С помощью макроса http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=2&TID=45331 функцией Count_CellColor($2:$2;$A$4) считаю количество ячеек, выделенных зеленым. Но, если в строке есть, кроме цифр, ячейки с буквами, функция не работает. Можно ли этот критерий учесть?
Добрый день! Помогите пожалуйста! У меня в таблице есть уже 2 макроса (считает сумму ячеек выделенных цветом и считает кол-во ячеек выделенных цветом). И мне теперь нужно еще один макрос (считать кол-во ячеек) по другому столбцу с другим цветом....И я не могу вспомнить как делал макрос чтоб он работал!!!! Помогите!!! Инструкции читаю не могу понять...создал уже кучу модулей, не знаю как их удалить...
Спасибо,спасибо!!! Я не про макрос (тело его есть) спрашивал ,а сам процесс его создания, чтоб считал) Он одинаковый как был только на другой диапазон. Покопался вспомнил. Спасибо ребят.
Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
Dim Sum As Double
Application.Volatile True
For Each cell In DataRange
If cell <> 0 And cell.Interior.Color = ColorSample.Interior.Color Then
Sum = Sum + 1
End If
Next cell
SumByColor = Sum
End Function
Но он получается работает, если в ячейке выделенной цветом есть какое-то значение, данные, буква, число. А что надо изменить, чтоб просто считало, когда ячейка просто закрашена.
Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
Dim Sum As Double
Application.Volatile True
For Each cell In DataRange
If cell <> 0 And cell.Interior.Color = ColorSample.Interior.Color Then
Sum = Sum + 1
End If
Next cell
SumByColor = Sum
End Function