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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос определяющий количество поступлений по датам - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос определяющий количество поступлений по датам (Макросы/Sub)
Макрос определяющий количество поступлений по датам
Dobrobor Дата: Четверг, 06.11.2014, 01:55 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Доброго времени суток!
Отталкиваться необходимо от наименьшей даты к наибольшей.
Определяется количество поступлений, где есть число в столбце, т.е. 03.09 - 1 поступление, 04.09 - 4 поступления и так далее. Количество этих поступлений суммируется. При этом пустые строки не интересуют. Пропускаются так же строки выделенные желтым!
Результат выводится на 3 страницу в виде итога - максимальный интервал между датами(от наименьшей к наибольшей), количество поступлений по датам и сумма поступлений.
Буду благодарен любым подсказкам !
 
Ответить
СообщениеДоброго времени суток!
Отталкиваться необходимо от наименьшей даты к наибольшей.
Определяется количество поступлений, где есть число в столбце, т.е. 03.09 - 1 поступление, 04.09 - 4 поступления и так далее. Количество этих поступлений суммируется. При этом пустые строки не интересуют. Пропускаются так же строки выделенные желтым!
Результат выводится на 3 страницу в виде итога - максимальный интервал между датами(от наименьшей к наибольшей), количество поступлений по датам и сумма поступлений.
Буду благодарен любым подсказкам !
Автор - Dobrobor
Дата добавления - 06.11.2014 в 01:55
buchlotnik Дата: Четверг, 06.11.2014, 02:52 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Хотелось бы файл увидеть ;)
 
Ответить
СообщениеХотелось бы файл увидеть ;)
Автор - buchlotnik
Дата добавления - 06.11.2014 в 02:52
Dobrobor Дата: Четверг, 06.11.2014, 08:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Извиняюсь, файл прикреплен
К сообщению приложен файл: 7952130.xls (54.5 Kb)
 
Ответить
СообщениеИзвиняюсь, файл прикреплен
Автор - Dobrobor
Дата добавления - 06.11.2014 в 08:15
buchlotnik Дата: Пятница, 07.11.2014, 20:47 | Сообщение № 4
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Ну что ж - формулы с цветом не работают -конечно можно программировать, но может устроит с дополнительным столбцом? - см. файл

поиск уникальных - классика
Код
=ИНДЕКС(Лист1!$B$44:$B$116;НАИМЕНЬШИЙ(ЕСЛИ(ПОИСКПОЗ(Лист1!$B$44:$B$116;Лист1!$B$44:$B$116;0)=СТРОКА(Лист1!$B$1:$B$73);СТРОКА(Лист1!$B$1:$B$73));СТРОКА(результат!A1)))

подсчёт числа
Код
=СУММПРОИЗВ(--ЕЧИСЛО(Лист1!$AN$44:$AN$116);Лист1!$AR$44:$AR$116;ЕСЛИ(Лист1!$B$44:$B$116=результат!A3;1;0))

обе массивные

Ну и UDF на всякий тоже приложил B)
[vba]
Код
Function calc(a As Range, b As Range, c As Integer)
Application.Volatile
Dim cel As Range
      calc = 0
      For Each cel In a
       If cel.Value = b.Value And cel.Offset(0, c).Value <> "," And cel.Interior.Color = 16777215 Then calc = calc + 1
      Next
End Function
[/vba]
К сообщению приложен файл: file1-2-.xls (68.5 Kb)


Сообщение отредактировал buchlotnik - Пятница, 07.11.2014, 21:08
 
Ответить
СообщениеНу что ж - формулы с цветом не работают -конечно можно программировать, но может устроит с дополнительным столбцом? - см. файл

поиск уникальных - классика
Код
=ИНДЕКС(Лист1!$B$44:$B$116;НАИМЕНЬШИЙ(ЕСЛИ(ПОИСКПОЗ(Лист1!$B$44:$B$116;Лист1!$B$44:$B$116;0)=СТРОКА(Лист1!$B$1:$B$73);СТРОКА(Лист1!$B$1:$B$73));СТРОКА(результат!A1)))

подсчёт числа
Код
=СУММПРОИЗВ(--ЕЧИСЛО(Лист1!$AN$44:$AN$116);Лист1!$AR$44:$AR$116;ЕСЛИ(Лист1!$B$44:$B$116=результат!A3;1;0))

обе массивные

Ну и UDF на всякий тоже приложил B)
[vba]
Код
Function calc(a As Range, b As Range, c As Integer)
Application.Volatile
Dim cel As Range
      calc = 0
      For Each cel In a
       If cel.Value = b.Value And cel.Offset(0, c).Value <> "," And cel.Interior.Color = 16777215 Then calc = calc + 1
      Next
End Function
[/vba]
Автор - buchlotnik
Дата добавления - 07.11.2014 в 20:47
Dobrobor Дата: Понедельник, 10.11.2014, 11:56 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Не разбирусь как сделать из этой функции самостоятельный макрос, дабы обрабатывать тонны файлов. Можно ли эту функцию написать через Sub? Ибо нужно так, что бы через файл макроса подгружать выписки и их обрабатывать. Вы меня извините, я дилетант. Вам огромная благодарность за внимание и конечно же + !
 
Ответить
СообщениеНе разбирусь как сделать из этой функции самостоятельный макрос, дабы обрабатывать тонны файлов. Можно ли эту функцию написать через Sub? Ибо нужно так, что бы через файл макроса подгружать выписки и их обрабатывать. Вы меня извините, я дилетант. Вам огромная благодарность за внимание и конечно же + !
Автор - Dobrobor
Дата добавления - 10.11.2014 в 11:56
buchlotnik Дата: Понедельник, 10.11.2014, 15:51 | Сообщение № 6
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Dobrobor, как вариант - сделал на базе формы, т.к. под рукой оказалась - под себя, надеюсь, допилите
К сообщению приложен файл: _file1-2-.xls (76.5 Kb)


Сообщение отредактировал buchlotnik - Понедельник, 10.11.2014, 15:59
 
Ответить
СообщениеDobrobor, как вариант - сделал на базе формы, т.к. под рукой оказалась - под себя, надеюсь, допилите
Автор - buchlotnik
Дата добавления - 10.11.2014 в 15:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос определяющий количество поступлений по датам (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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