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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Подсчет значений ячеек с разным цветом (Формулы/Formulas)
Подсчет значений ячеек с разным цветом
fr0st Дата: Понедельник, 16.01.2017, 19:01 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Задача следующая. Есть колонка в ней указаны разные значения в процентах, от 0% до 100% с щагом 5%, ячейки могут быть залиты красным и синим цветом. Каждое значение может быть залито как красным так и синим цветом, нужно посчитать сколько к примеру значение 70% выделенных красным цветом и синим. Цвет может быть любым. Файл прикладываю.
К сообщению приложен файл: _3.xlsx (8.2 Kb)
 
Ответить
СообщениеЗадача следующая. Есть колонка в ней указаны разные значения в процентах, от 0% до 100% с щагом 5%, ячейки могут быть залиты красным и синим цветом. Каждое значение может быть залито как красным так и синим цветом, нужно посчитать сколько к примеру значение 70% выделенных красным цветом и синим. Цвет может быть любым. Файл прикладываю.

Автор - fr0st
Дата добавления - 16.01.2017 в 19:01
buchlotnik Дата: Понедельник, 16.01.2017, 19:34 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
навскидку как-то так: [vba]
Код
Function countcolor(adr1 As Range, adr2 As Range, val As Double)
    Application.Volatile
    countcolor = 0
    For Each cell In adr1
        If cell.Interior.Color = adr2.Interior.Color And cell.Value = val Then countcolor = countcolor + 1
    Next
End Function
[/vba]
К сообщению приложен файл: _3-1-.xlsm (14.6 Kb)
 
Ответить
Сообщениенавскидку как-то так: [vba]
Код
Function countcolor(adr1 As Range, adr2 As Range, val As Double)
    Application.Volatile
    countcolor = 0
    For Each cell In adr1
        If cell.Interior.Color = adr2.Interior.Color And cell.Value = val Then countcolor = countcolor + 1
    Next
End Function
[/vba]

Автор - buchlotnik
Дата добавления - 16.01.2017 в 19:34
fr0st Дата: Понедельник, 16.01.2017, 19:42 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
buchlotnik, вроде все работает, подскажите а как еще сделать чтобы он из нескольких файлов собирал инфу?
 
Ответить
Сообщениеbuchlotnik, вроде все работает, подскажите а как еще сделать чтобы он из нескольких файлов собирал инфу?

Автор - fr0st
Дата добавления - 16.01.2017 в 19:42
Pelena Дата: Понедельник, 16.01.2017, 19:52 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
из нескольких файлов собирал инфу

вопрос не по теме


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
из нескольких файлов собирал инфу

вопрос не по теме

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

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