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

Вход

Регистрация

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

 

= Мир MS Excel/Подсчет количества ячеек по цвету и дате - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет количества ячеек по цвету и дате (Макросы/Sub)
Подсчет количества ячеек по цвету и дате
stasprv Дата: Среда, 28.10.2015, 10:14 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, уважаемые форумчане!

Подскажите, пожалуйста, как решить сложную техническую задачу. Необходимо подсчитать количество ячеек определенного цвета, в которых содержится определенная дата.
Мы ведем учет посещаемости занятий. Каждый человек должен пройти определенной количество курсов. К примеру, если человек пришел на "Русский язык" 23.10.15, то в ячейку напротив его фамилии руками ставится дата и ячейка закрашивается в зеленый цвет, если нет - красный. Каждый 3 месяца необходимо проводить "чистки рядов" и отчислять тех, кто не ходит, потому необходимо посчитать сколько в том или ином временном интервале посетил и пропустил занятий. Например, сколько занятий посетил Иван петров с октября по декабрь.
Обыскал весь интернет, похоже, стандартными средствами задачу не решить.

Нашел такой скрипт, он суммирует по цвету, а как сюда добавить выбор по дате (мясяцу)? А еще лучше временному интервалу

[vba]
Код
Function КолЦвет(диапазон As Range, критерий As Range) As Double
' Определяет число ячеек "диапазона",
' цвет которых совпадает с цветом в ячейке "критерий"
Application.Volatile True
Dim i As Range
For Each i In диапазон
If i.Interior.Color = критерий.Interior.Color Then
КолЦвет = КолЦвет + 1
End If
Next
End Function
[/vba]

Подскажите, пожалуйста, как это можно решить? VBA изучал еще в институте, а это было достаточно давно и за несколько часов вспомнить синтаксис не получается :(
Пример как организованы данные - во вложении. Оставил в нем только несколько строк, оригинал гораздо больше.
[moder]Оформляйте коды тегами (кнопка #). На первый раз исправила[/moder]


Сообщение отредактировал Pelena - Среда, 28.10.2015, 10:24
 
Ответить
СообщениеДобрый день, уважаемые форумчане!

Подскажите, пожалуйста, как решить сложную техническую задачу. Необходимо подсчитать количество ячеек определенного цвета, в которых содержится определенная дата.
Мы ведем учет посещаемости занятий. Каждый человек должен пройти определенной количество курсов. К примеру, если человек пришел на "Русский язык" 23.10.15, то в ячейку напротив его фамилии руками ставится дата и ячейка закрашивается в зеленый цвет, если нет - красный. Каждый 3 месяца необходимо проводить "чистки рядов" и отчислять тех, кто не ходит, потому необходимо посчитать сколько в том или ином временном интервале посетил и пропустил занятий. Например, сколько занятий посетил Иван петров с октября по декабрь.
Обыскал весь интернет, похоже, стандартными средствами задачу не решить.

Нашел такой скрипт, он суммирует по цвету, а как сюда добавить выбор по дате (мясяцу)? А еще лучше временному интервалу

[vba]
Код
Function КолЦвет(диапазон As Range, критерий As Range) As Double
' Определяет число ячеек "диапазона",
' цвет которых совпадает с цветом в ячейке "критерий"
Application.Volatile True
Dim i As Range
For Each i In диапазон
If i.Interior.Color = критерий.Interior.Color Then
КолЦвет = КолЦвет + 1
End If
Next
End Function
[/vba]

Подскажите, пожалуйста, как это можно решить? VBA изучал еще в институте, а это было достаточно давно и за несколько часов вспомнить синтаксис не получается :(
Пример как организованы данные - во вложении. Оставил в нем только несколько строк, оригинал гораздо больше.
[moder]Оформляйте коды тегами (кнопка #). На первый раз исправила[/moder]

Автор - stasprv
Дата добавления - 28.10.2015 в 10:14
Pelena Дата: Среда, 28.10.2015, 10:27 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте. А закрашивается тоже руками или Условным форматированием.
Файл с примером помог бы разобраться.


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте. А закрашивается тоже руками или Условным форматированием.
Файл с примером помог бы разобраться.

Автор - Pelena
Дата добавления - 28.10.2015 в 10:27
stasprv Дата: Среда, 28.10.2015, 10:54 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте. А закрашивается тоже руками или Условным форматированием.
Файл с примером помог бы разобраться.


Добрый день! Да, руками выделяем. Хотелось бы, конечно, настроить условное форматирование, но прочитал на форумах, что тогда невозможно посчитать кол-во ячеек по цвету.
Файл прилагаю.
К сообщению приложен файл: 7973651.xlsx (85.6 Kb)


Сообщение отредактировал stasprv - Среда, 28.10.2015, 10:56
 
Ответить
Сообщение
Здравствуйте. А закрашивается тоже руками или Условным форматированием.
Файл с примером помог бы разобраться.


Добрый день! Да, руками выделяем. Хотелось бы, конечно, настроить условное форматирование, но прочитал на форумах, что тогда невозможно посчитать кол-во ячеек по цвету.
Файл прилагаю.

Автор - stasprv
Дата добавления - 28.10.2015 в 10:54
_Boroda_ Дата: Среда, 28.10.2015, 11:08 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Почему в одинаковых строках (например, в строках 4 и 5) разная раскраска? Это действительно реальный пример или Вы просто написали произвольные даты?

Добавлено.
Всё, почему покрашена М5, понял. А вот почему покрашена АА7?

Добавлено.
А, не, тоже доперло.

Добавлено
Держите формулами и условным форматированием.
Привел Вашу таблицу к стандартному виду - сначала идет Курс, потом Факт, потом Прогноз. Можно было сделать и без этого, но формулы получатся сложнее - оно Вам надо?
К сообщению приложен файл: 7973651_1.xlsx (86.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПочему в одинаковых строках (например, в строках 4 и 5) разная раскраска? Это действительно реальный пример или Вы просто написали произвольные даты?

Добавлено.
Всё, почему покрашена М5, понял. А вот почему покрашена АА7?

Добавлено.
А, не, тоже доперло.

Добавлено
Держите формулами и условным форматированием.
Привел Вашу таблицу к стандартному виду - сначала идет Курс, потом Факт, потом Прогноз. Можно было сделать и без этого, но формулы получатся сложнее - оно Вам надо?

Автор - _Boroda_
Дата добавления - 28.10.2015 в 11:08
stasprv Дата: Среда, 28.10.2015, 19:49 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, спасибо Вам большое. Отличное решение!
 
Ответить
Сообщение_Boroda_, спасибо Вам большое. Отличное решение!

Автор - stasprv
Дата добавления - 28.10.2015 в 19:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет количества ячеек по цвету и дате (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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