Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.90/21: Рейтинг темы: голосов - 21, средняя оценка - 4.90
1 / 1 / 0
Регистрация: 21.01.2020
Сообщений: 184
Excel

Фильтр интервал/диапазон

13.08.2020, 13:24. Показов 4686. Ответов 43

Студворк — интернет-сервис помощи студентам
Добрый день.
Подскажите как сделать фильтр по датам? (B1:AR1)
Хочу сделать как в любой программе складского учета, где во времени можно узнать какие товары сколько продавались. Предположим за 1 неделю или 10 дней (1янв-10янв)
Мне в голову приходит только вариант с Listbox, но я с ним никогда не работал и очень плохо представляю за что браться.
Спасибо
Вложения
Тип файла: rar пример.rar (82.8 Кб, 7 просмотров)
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.08.2020, 13:24
Ответы с готовыми решениями:

Расширенный фильтр. Диапазон дат
Добрый день. Подскажите, из-за чего может не работать расширенный фильтр. Ошибка 1004. Sheets("Рабочий").Cells(270, 2) =...

Обработать выделенный диапазон ячеек, результат записать в смежный диапазон
Напишите в среде Excel макрос, который в выделенном диапазоне ячеек должен выполнять заданные действия и записывать результат в смежную с...

Вставить диапазон с 1-го листа на 2-ой и удалить диапазон
Добрый день, всем. Посоветуйте каким образом сделать своеобразную кнопку отмены после вставки диапазона данных. на листе...

43
ᴁ ©
Эксперт MS Access
 Аватар для АЕ
4088 / 2469 / 514
Регистрация: 13.12.2016
Сообщений: 8,397
Записей в блоге: 5
16.08.2020, 14:52
Студворк — интернет-сервис помощи студентам
faust21, позволю настаивать, что без нужных знаний вы в коде быстро разочаруетесь, а вот простое правильное ведение таблицы позволит делать нужный анализ.
1.Предложил грамотное ведение таблицы на отдельном листе
2.
Цитата Сообщение от faust21 Посмотреть сообщение
где во времени можно узнать какие товары сколько продавались. Предположим за 1 неделю или 10 дней (1янв-10янв)
Предложил сводную таблицу 1 по этой задачке
3. Предложил еще одну сводную по датам в столбцах, как вам привычнее
Присмотритесь.... Справочники товара при желании можно доработать для автоматизации ввода.
Вложения
Тип файла: rar пример.rar (92.7 Кб, 2 просмотров)
1
1 / 1 / 0
Регистрация: 21.01.2020
Сообщений: 184
16.08.2020, 15:15  [ТС]
АЕ, обязательно посмотрю, большое спасибо
0
 Аватар для anton-sf
128 / 64 / 14
Регистрация: 29.03.2015
Сообщений: 265
16.08.2020, 22:06
faust21, вспомнил что на форуме выкладывали решение по выбору дат через календарь на форме, и родился вариант, по вашему образцу с выбором дат через календарь. Тот календарь что выкладывал Night Ranger имеет проблемы, так что заменил своим (тоже выкладывал). Ещё сделал суммирование с использованием пользовательской функции, но если колонки скрывать/отображать вручную то ячейки с пользовательской функцией не пересчитываются, только по Ctrl+Alt+F9.
Вложения
Тип файла: rar пример от anton-sf.rar (89.1 Кб, 6 просмотров)
1
 Аватар для anton-sf
128 / 64 / 14
Регистрация: 29.03.2015
Сообщений: 265
16.08.2020, 22:10
Для вызова выбора дат нужно нажать синий прямоугольник "Даты"
1
 Аватар для anton-sf
128 / 64 / 14
Регистрация: 29.03.2015
Сообщений: 265
16.08.2020, 22:26
Лучший ответ Сообщение было отмечено faust21 как решение

Решение

Цитата Сообщение от anton-sf Посмотреть сообщение
faust21, вспомнил что на форуме выкладывали решение по выбору дат через календарь на форме, и родился вариант, по вашему образцу с выбором дат через календарь. Тот календарь что выкладывал Night Ranger имеет проблемы, так что заменил своим (тоже выкладывал). Ещё сделал суммирование с использованием пользовательской функции, но если колонки скрывать/отображать вручную то ячейки с пользовательской функцией не пересчитываются, только по Ctrl+Alt+F9.
Добавил "кнопку" сброса дат и комфорта по-мелочи
Вложения
Тип файла: rar пример от anton-sf.rar (90.1 Кб, 3 просмотров)
1
1 / 1 / 0
Регистрация: 21.01.2020
Сообщений: 184
17.08.2020, 09:10  [ТС]
anton-sf, Утро доброе! К сожалению протестировать не удалось по причине ошибки
Миниатюры
Фильтр интервал/диапазон  
0
Часто онлайн
 Аватар для КостяФедореев
987 / 637 / 280
Регистрация: 09.01.2017
Сообщений: 2,080
17.08.2020, 11:40
faust21, попробуйте
для выбора одного дня нужно в обоих комбобоксах выбрать одинаковые даты
вызов формы также двойной клик по ячейке А1
заполнение списка комбобоксов идет через коллекцию, данные берутся с листа на котором запущен макрос из диапазона дат, по вашему заполнению не понял, как из имен листов это сделать, да и не зачем.
Вложения
Тип файла: 7z пример Faust21.7z (102.3 Кб, 2 просмотров)
2
1 / 1 / 0
Регистрация: 21.01.2020
Сообщений: 184
17.08.2020, 12:35  [ТС]
КостяФедореев, Чтото никак не работает(((
Миниатюры
Фильтр интервал/диапазон   Фильтр интервал/диапазон  
0
 Аватар для anton-sf
128 / 64 / 14
Регистрация: 29.03.2015
Сообщений: 265
17.08.2020, 12:45
Цитата Сообщение от faust21 Посмотреть сообщение
К сожалению протестировать не удалось по причине ошибки
Ага, у меня Excel 2003, у вас старше, добавьте PtrSafe, что бы получилось Public Declare PtrSafe Function, в этих 6-и объявлениях
1
Часто онлайн
 Аватар для КостяФедореев
987 / 637 / 280
Регистрация: 09.01.2017
Сообщений: 2,080
17.08.2020, 13:05
faust21, да, я увидел косяки, сейчас исправлю
1
1 / 1 / 0
Регистрация: 21.01.2020
Сообщений: 184
17.08.2020, 13:37  [ТС]
anton-sf, Ваше решение самое подходящее. Большое спасибо! С большей долей вероятности буду использовать его! (Буду изучать, но чувствую что там все крайне сложно)
Почти ничего даже доделывать не требуется, хочу только доделать по дабл клику по колонке "сумма" (АТ1) вызывать listbox, в котором будет сумма продаж по товарам.
По типу:
Наим - Ящ - Вес
Товар 1 - 20 - 200 кг
Товар 2 - 30 - 300 кг
Товар 3 - 40 - 250 кг
...
Поможете?
0
 Аватар для anton-sf
128 / 64 / 14
Регистрация: 29.03.2015
Сообщений: 265
17.08.2020, 14:06
faust21, вы имеете ввиду что хотите выбрать товар по которому будет выводится строчный итог колонок с суммированием (самых последних)?
1
1 / 1 / 0
Регистрация: 21.01.2020
Сообщений: 184
17.08.2020, 14:18  [ТС]
anton-sf, у меня стоит фильтр который исключает позиции, по которым не было ни одной продажи за месяц. Я хочу увидеть в листбоксе сумму продаж по оставшимся позициям в заданном интервале.
То есть:
Товар 1 продавался в пн,вт,ср по 10 кг
Товар 2 продавался во вт,ср, чт, пт по 20 кг
Товар 3 продавался в пн по 5 кг
....
Выбираю интервал: вт-чт
Я увижу продажи по дням товара 1 и товара 2
Кликаю ячейке суммы, вызывая тем самым листбокс, который берет товар 1 и товар 2 и показывают суммарную продажу по ним:
То есть будет иметь вид:
[интервал]
Наим./ящ/вес - заголовок
Товар 1 - / 2 ящ / 20кг
Товар 2 - / 3 ящ/ 60кг
0
 Аватар для anton-sf
128 / 64 / 14
Регистрация: 29.03.2015
Сообщений: 265
17.08.2020, 16:30
faust21, я правильно вас понял ?
Миниатюры
Фильтр интервал/диапазон  
1
1 / 1 / 0
Регистрация: 21.01.2020
Сообщений: 184
17.08.2020, 17:17  [ТС]
anton-sf, не
Нашел в инете, то как я это вижу. (скрин)
Миниатюры
Фильтр интервал/диапазон  
0
 Аватар для anton-sf
128 / 64 / 14
Регистрация: 29.03.2015
Сообщений: 265
17.08.2020, 19:35
faust21, обновил пример, добавил "кнопки" сброса фильтрации и дат, добавил обработку пересчёта функций пользователя при ручном изменении ячеек.

В примере, в столбцах суммирования, применены функции пользователя. Сделано так потому, что не вижу других способов получить сумму всей строки исключая скрытые столбцы. А за одно и для того чтобы не мучиться с правкой формул при добавлении новых столбцов. Однако, и я обращаю ваше внимание на это, для реализации ведения записей по столбцам, да ещё с таким суммированием, в коде нужно делать много костылей, и очень легко получить недостоверные цифры из-за того, что где-то в коде не учтен принудительный пересчёт функций пользователя. Когда вы с этим столкнетесь - будет поздно и вам придется проделать очень большой объём работы по переделке. Лучше бы вы сразу делали правильно.
Вложения
Тип файла: zip Пример (anton-sf).zip (108.1 Кб, 4 просмотров)
1
 Аватар для anton-sf
128 / 64 / 14
Регистрация: 29.03.2015
Сообщений: 265
17.08.2020, 19:52
Цитата Сообщение от faust21 Посмотреть сообщение
хочу только доделать по дабл клику по колонке "сумма" (АТ1) вызывать listbox, в котором будет сумма продаж по товарам
Цитата Сообщение от faust21 Посмотреть сообщение
Поможете?
Чем помочь? У вас затруднения в реализации? Опишите что именно не получается и опишите/отправьте то что сделали

Добавлено через 12 минут
faust21, ваша идея фильтрации самая простая и наименее затратная, чего я сразу не глянул
1
1 / 1 / 0
Регистрация: 21.01.2020
Сообщений: 184
17.08.2020, 20:02  [ТС]
anton-sf, Благодарю вас за помощь. Оставлю первоначальный ваш вариант. Мне достаточно просто скрывать лишние столбцы. Вся борьба велась именно за наглядность, когда нужно оперативно посмотреть что мы продавали за прошлую-позапрошлую неделю. Конечно жаль что не удается без костылей и усложнений реализовать суммирование, но лучше пусть его не будет, чем будет, но я не буду понимать как оно работает, чтобы выявить ошибку в случае чего. Я стараюсь добавлять что-то не в ущерб работоспособности. Может быть позже я вернусь к этому вопросу, мне еще предстоит разобраться в вашем коде. Но сейчас менять таблицу я не хочу, тк привык к ней я и мои коллеги.
0
 Аватар для anton-sf
128 / 64 / 14
Регистрация: 29.03.2015
Сообщений: 265
17.08.2020, 21:20
Цитата Сообщение от faust21 Посмотреть сообщение
Оставлю первоначальный ваш вариант. Мне достаточно просто скрывать лишние столбцы. Вся борьба велась именно за наглядность, когда нужно оперативно посмотреть что мы продавали за прошлую-позапрошлую неделю.
В том то дело что при сокрытии столбцов итоговая сумма строки не изменится и будет равна сумме всех столбцов в строке.
Цитата Сообщение от faust21 Посмотреть сообщение
Конечно жаль что не удается без костылей и усложнений реализовать суммирование, но лучше пусть его не будет, чем будет
Последний пример - настолько максимально рабочий, насколько я мог предусмотреть: пересчет сумм происходит при выборе дат, сброса дат, изменении конкретной ячейки в диапазоне с данными. По-хорошему ещё нужно вычислить ручное сокрытие столбцов (без кнопки выбора дат), но пока не это нет времени.
В итоге - в предыдущих вариантах будут косяки с суммированием, и, если, использовать те примеры как рабочие книги, то правды в цифрах вы не увидите Так что используйте лучше последний вариант.
Если вы будете внедрять только фильтрацию, то с меня и взятки гладки

Добавлено через 36 секунд
Цитата Сообщение от anton-sf Посмотреть сообщение
faust21, ваша идея фильтрации самая простая и наименее затратная, чего я сразу не глянул
Ой, сорри, это было адресовано КостяФедореев
1
Часто онлайн
 Аватар для КостяФедореев
987 / 637 / 280
Регистрация: 09.01.2017
Сообщений: 2,080
17.08.2020, 22:35
Вроде все варианты фильтрации учел.

Как я понял Вам faust21, вариант anton-sf, больше по душе
Выложу тут, может кому пригодится

и кстати можно попробовать календарь anton-sf, прикрутить к моей фильтрации с суммированием.
Вложения
Тип файла: 7z пример Faust21.7z (103.7 Кб, 5 просмотров)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.08.2020, 22:35

Диапазон - фильтр
Помогите преобразовать. У ADOTAble нет свойства SetRange. Как можно еще сделать? мне нужен фильтр с даты из MaskEdit4.Text по дату...

Как разбить заданные диапазон времени на маленькие промежутки через заданный интервал
Привет всем! пожалуйста подскажите как сделать следующее: есть форма для ввода времени начала события, времени конца события и...

Расширенный фильтр не подтягивает именованный диапазон
На support.office.com сказано, что если присвоить диапазону условий имя Условия, этот диапазон будет автоматом тянуться в поле для...

Расширенный фильтр. Вычисляемый диапазон с дополнительным условием
Доброго времени суток дорогие формумчане! Прошу вашей помощи знатоков и специалистов. В вузе делаю лабораторный практикум по excel и...

Найти диапазон который соответствует дате и данный диапазон имеет более старшую дату
Добрый день! Подскажите как лучше решить данную задачу - Задача - найти диапазон который соответствует дате(искомого значения) и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
40
Ответ Создать тему
Новые блоги и статьи
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru