Доброго дня всем. Нужна помощь в нестандартной сортировке, в прикрепленном файле на листе опбн вводится информация неблагополучных семей, на данный момент их более 100, нужно чтоб они в столбце В были по алфавиту, и вот тут заминка, дело в том что сперва вносится информация Родителя, затем детей. Напротив одного из родителей вводится адрес проживания семьи, дата договора и номер, и до следующего адреса в столбце F считается что это одна семья, в файле введены три семьи, Ивановы, Арясовы, Бронины, нужно чтоб эти семьи были в порядке Арясовы, Бронины, Ивановы так же данные в столбцах с С по V тоже переносились вместе с семьями. Данные в файле взяты из головы.
Нестандартная сортировка от А до Я с помощью макроса
28.07.2022 13:15:59
|
|
|
|
28.07.2022 15:13:42
положите этот
Изменено:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|||||
|
|
28.07.2022 15:48:36
|
|||
|
|
28.07.2022 17:40:01
Ігор Гончаренко, спасибо за макрос, на этом файле работает, завтра проверю на основном файле.
|
|
|
|
16.08.2022 08:22:03
Ігор Гончаренко, Добрый день, можно поправить макрос выше, чтоб он удалял не нужные строки? Может конечно лучше будет отдельным макросом, с добавлением столбца где можно ставить отметку и после запуска макроса, отмеченные строки удаляются. Пробовал удалять полностью строку, но после удаления макрос сортирует не правильно.
|
|
|
|
16.08.2022 15:15:02
Может кто помочь с макросом? Очень нужно.
|
|
|
|
16.08.2022 15:21:44
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|||||
|
|
16.08.2022 15:31:00
Ігор Гончаренко, он все удаляет, полностью.
Изменено: |
|
|
|
16.08.2022 15:46:34
вы считаете достаточно написать:
в таком случае я считаю, что предложенный мною макрос вполне вам подойдет редкое сочетание - два идиота в одной теме)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|||
|
|
16.08.2022 16:18:24
Ігор Гончаренко, Хорошо, попробую еще раз написать про свою проблему. В прикрепленном файле, к примеру в 6 строке Арясова Кристина Васильевна не нужна, удаляем полностью строку, добавляем ниже новую семью, запускаем макрос и получаем полную неразбериху. Такое же если не удалить 6 строку, а просто очистить содержимое строки. Два раза в месяц, комиссия кого то снимает, кого то ставит на контроль, список будет постоянно редактироваться.
Изменено: |
|
|
|
17.08.2022 16:52:27
Ігор Гончаренко, Подготовил файл, для наглядности изменил фон каждой семьи, на 1 листе данные трех семей, на 2 листе удалены строки с данными второй семьи и введены данные новой семьи, на 3 листе выполнен макрос сортировки семей и видно что данные последней введенной семьи не вместе.
|
|
|
|
18.08.2022 09:14:00
1. после удаления "лишних" строк приводите в порядок № строк в данных (номера должны начинаться с 1 и идти подряд до последней строки с данными (пронумерованные пустые строки в конце таблицы - не важны)
2 процедуры Sub SortAndSaveFamily() и Sub SortRangeBy(rg As Range, c, Optional Hd& = 1) не нужно хранить в модуле каждого листа, достаточно 1 раз скопировать в стандартный модуль, а во всех листах - УДАЛИТЬ 3. в каждой группе (семье) должно быть минимум 2 человека 4. строку Intersect(rg, [a:b,f:f]).Copy Cells(1, c) в процедуре Sub SortAndSaveFamily() лучше записать так Intersect(rg, [a:b,h:h]).Copy Cells(1, c) чтобы избежать неправильной работы макроса в случае наличия одинаковых адресов, если одинаковые адреса исключены можно п.4 не выполнять
Изменено:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|
|
|
18.08.2022 09:26:13
Serega Ivanov, здравствуйте
Любая нестандартная сортировка - это либо создание своего списка (очень редко), либо приведение к стандартной сортировке — что-то убрать и/или добавить и/или вынести в отдельный столбец. По описанию мало, что понятно, а открывать - нет желания. Если бы вы написали "Вот у меня в ячейке написано Имя Отчество и Фамилия, а мне нужно по фамилии отсортировать", то вам бы сказали "вынесите фамилию в отдельный столбец и сортируйте по нему", а у вас "му … хрю …нужно то, не знаю, что. Это не то, то не это, как надо - не знаю, но нужно, чтобы ещё строки удалял…"
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел)
|
|
|
|
18.08.2022 09:39:31
Ігор Гончаренко, Спасибо, теперь понятно как правильно делать чтоб макрос сортировал. Одинаковые адреса редко, но встречаются.
Изменено: |
|
|
|
18.08.2022 09:40:42
Jack Famous, Добрый день, согласен, в пятом посту не понятно описал проблему, но в 12 посту вроде все понятно.
|
|
|
|
18.08.2022 09:54:49
Открыл файл, 3 листа с цветными диапазонами. "Как есть" и "как надо" - не определено. Неинтересно.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел)
|
|||
|
|
18.08.2022 09:56:09
Jack Famous, Самое главное что проблема решена)))
|
|
|
|
18.08.2022 10:27:54
Jack Famous,
есть есть желание повозиться, то задача такая: в таблице группы людей: 1-й - опекун (у него записаны Адрес, Дата и № договора) и 1 или несколько подопечных у него, составляющих неразрывную группу необходима стандартная сортировка по фамилиям опекунов, не стандартной ее делает то, что в отсортированном списке за опекуном должны следовать члены группы, как в исходных данных
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|
|
|
18.08.2022 11:26:19
Спасибо за объяснение - так намного понятнее
Изменено:
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел)
|
|||
|
|
18.08.2022 16:26:06
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|||
|
|
18.08.2022 17:01:11
Ігор Гончаренко, этот макрос исправляет нумерацию, но не сортирует, или он не должен сортировать?
|
|
|
|
18.08.2022 17:01:42
Ещё вариант.
|
|||
|
|
18.08.2022 17:07:13
Serega Ivanov, нумерация и удаления строк никак не связаны с сортировкой, о которой тема
Изменено:
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел)
|
|
|
|
18.08.2022 17:18:48
Всем спасибо, разобрался.
Изменено: |
|
|
|
18.08.2022 18:41:06
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|||
|
|
19.08.2022 03:05:55
Ігор Гончаренко, на втором листе удалены двое из второй семьи и добавлена новая семья, при активации макроса исправляется нумерация, но последняя семья осталась на месте, а должна была встать на 10,11 строку
|
|
|
|
19.08.2022 04:51:50
у них нету № договора
Володины входят в группу Иванова
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|
|
|
19.08.2022 08:27:37
Ігор Гончаренко, Добрый день, точно, с прописанными номерами договоров все работает как надо, огромное Вам СПАСИБО.
|
||||
|
|
|||