Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Подсчет кол-ва выделенных любыми цветами ячеек
 
Есть столбец в котором имеется несколько залитых разными цветами ячеек. Надо сосчитать кол-во всех цветных ячеек
Изменено: Rezo - 7 Сен 2013 01:23:02
 
Например, так:
Код
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 и при любом пересчете формул
Vladimir Zakharov
Microsoft MVP – Office Apps & Services
 
Премного благодарен!
 
Позвольте еще один вопрос. Формула считает, но почемуто значения не обновляются автоматически, приходится кликать по ячеке с формулой, после чего она пересчитывается. С чем связано?
 
С тем, что событие изменения цвета никак не отслеживается макросами. Никак не вылечить.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Читают тему (гостей: 1)
Наверх