Подсчет кол-ва выделенных любыми цветами ячеек

Rezo Пользователь Сообщений: 28 Регистрация: 01.01.1970	#1 07.09.2013 01:21:49 Есть столбец в котором имеется несколько залитых разными цветами ячеек. Надо сосчитать кол-во всех цветных ячеек Прикрепленные файлы Лист Microsoft Excel.xlsx (8.94 КБ) Изменено: Rezo - 07.09.2013 01:23:02

ZVI

Пользователь

Сообщений: 4433 Регистрация: 23.12.2012

07.09.2013 03:15:27

Например, так:

Код

Function ColorCount(ParamArray Rng()) As Long
  Application.Volatile
  Dim a, x As Range
  For Each a In Rng
    For Each x In a.Cells
      If x.Interior.Color <> vbWhite Then ColorCount = ColorCount + 1
    Next
  Next
End Function

Использование: =ColorCount(E1:E7)
Пересчитывается по F9 и при любом пересчете формул

Rezo Пользователь Сообщений: 28 Регистрация: 01.01.1970	#3 07.09.2013 12:34:17 Премного благодарен!

Rezo Пользователь Сообщений: 28 Регистрация: 01.01.1970	#4 25.09.2013 12:35:06 Позвольте еще один вопрос. Формула считает, но почемуто значения не обновляются автоматически, приходится кликать по ячеке с формулой, после чего она пересчитывается. С чем связано?

The_Prist Пользователь Сообщений: 14895 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#5 25.09.2013 12:37:00 С тем, что событие изменения цвета никак не отслеживается макросами. Никак не вылечить. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...