Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Подсчёт ячеек в зависимости от цвета - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Подсчёт ячеек в зависимости от цвета (Формулы/Formulas)
Подсчёт ячеек в зависимости от цвета
12345tn Дата: Пятница, 29.12.2023, 09:56 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 112
Репутация: 0 ±
Замечаний: 0% ±

2007
Здравствуйте . С наступающими праздниками . Подскажите пожалуйста возможно ли в Excel подсчёт кол-ва ячеек в зависимости от цвета заливки ? И если да то как это реализовать? Заранее благодарю.И ещё раз с наступающими праздниками .
К сообщению приложен файл: novyj_excel.xlsx (17.4 Kb)
 
Ответить
СообщениеЗдравствуйте . С наступающими праздниками . Подскажите пожалуйста возможно ли в Excel подсчёт кол-ва ячеек в зависимости от цвета заливки ? И если да то как это реализовать? Заранее благодарю.И ещё раз с наступающими праздниками .

Автор - 12345tn
Дата добавления - 29.12.2023 в 09:56
Nic70y Дата: Пятница, 29.12.2023, 10:07 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8650
Репутация: 2207 ±
Замечаний: 0% ±

Excel 2010
UDF
[vba]
Код
Function col_18(a As Range, b As Range)
    c = b.Interior.Color
    col_18 = 0
    For Each d In a
        If d.Interior.Color = c Then col_18 = col_18 + 1
    Next
End Function
[/vba]
К сообщению приложен файл: novyj_excel.xlsm (14.7 Kb)


ЮMoney 41001841029809
 
Ответить
СообщениеUDF
[vba]
Код
Function col_18(a As Range, b As Range)
    c = b.Interior.Color
    col_18 = 0
    For Each d In a
        If d.Interior.Color = c Then col_18 = col_18 + 1
    Next
End Function
[/vba]

Автор - Nic70y
Дата добавления - 29.12.2023 в 10:07
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Подсчёт ячеек в зависимости от цвета (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!