Помогите создать макрос

[Светлана632]

Добрый день! Люди добрые, помогите мне пожалуйста.
На кону деловая репутация.


Таблица нужна для отслеживания прохождения проверок, учебы летным составом.

Условия для открытия файла «ГРАФИК ПРОВЕРОК»:
- макросы не отключать
- пароль 767

В первой части отражены даты прохождения сотрудниками той или иной тренировки, за исключением «Срока действия св-ва» здесь указывается дата, до которой свидетельство действует.

Красным шрифтом выделяются просроченные даты, синим – с приближающимся сроком окончания.

- при нажатии на овал, сотрудники должны группироваться по порядку, начиная с просроченной даты, далее с приближающимся сроком окончания и потом все остальные.

Во второй части таблицы, по месяцам, условным обозначением, отражается тренировка, которую сотрудник должен пройти в данном месяце. Количество ячеек в месяц соответствует количеству позиций в первой части таблицы.

Изначально позиций было 10 (класс, кат.ИКАО и Тренажер (очередной) не считаем). Я добавила столбец «КПК 767/777 первонач.», добавила ячейки по месяцам, вроде бы разобралась с формулами, но вот макросы после этого столбика сдвинулись. Теперь чтобы упорядочить «МВЛ» мне надо нажать «ОГ» и т.д.

Для справки:
Наименование позиции Срок действия
ТП/ПР (начало годового периода) 1 год
ТП/ПР (действующ. квартальн. КПП) 3 мес
Срок действия св-ва 1 год
КПК 767/777 первонач. 2 года
КПК 767/777 1 год
МВЛ до 11.2007 – 2 года
после 11.2007 – 3 года
ОГ 2 года
АСП-Суша 1 год
АСП-Вода 2 года
Тренажер 6 мес


И еще, если Вам не трудно, добавьте по такому же принципу еще два столбика:
«CRM» срок действия 3 года.

Английский 4 уровень – 3 года
5 уровень – 6 лет



Если можно объясните попроще, в EXCEL я дилетант.

ОГРОМНОЕ СПАСИБО!

[EducatedFool]

Теперь чтобы упорядочить «МВЛ» мне надо нажать «ОГ» и т.д.

Как Вы думаете, мы сможем разобраться без примера файла?

На кону деловая репутация

Чем раньше прикрепите к сообщению файл, тем больше шансов, что Ваша деловая репутация не пострадает

[Светлана632]

а *.xls почему-то не прикрепляется. Тут написано, что разрешённые типы тока рисунки и всё такое... В виде рисунка я бы смогла, но нужен оригинал наверное???

[viter.alex]

Сообщение от Светлана632

а *.xls почему-то не прикрепляется. Тут написано, что разрешённые типы тока рисунки и всё такое... В виде рисунка я бы смогла, но нужен оригинал наверное???

Заархивируйте и прикрепите архив. Он разрешен. А то ваша деловая репутация пострадает

[Sasha_Smirnov]

Архиватор-то есть?

[Светлана632]

Воооот. Наконец-то смогла...

[EducatedFool]

Не совсем понял, что требуется...

Сделал сортировку независимо от всех Ваших макросов.
(теперь не надо записывать макросы сортировки для каждого столбца)

Для запуска сортировки дважды щелкните левой кнопкой мыши на заголовке столбца (в 4-й строке)
Обрабатываются щелчки (запускается сортировка) только на столбцах с 1 по 22 (ФИО ... Тренажер), и со 192-го и далее (начиная со столбца Дата рождения)

Вот весь макрос:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row <> 4 Then Exit Sub
    If Target.Column > 22 And Target.Column < 192 Then Exit Sub
    
    Cancel = True
    Rows("5:300").Sort Key1:=Target.Offset(1), Order1:=xlAscending, Header:=xlNo, _
                       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

И еще, если Вам не трудно, добавьте по такому же принципу еще два столбика

Теперь Вы самостоятельно сможете добавлять сколько угодно столбцов - и сортировка будет работать корректно (по тому столбцу, на заголовке которого Вы щелкнули)
Некоторые столбцы (например, с наименованиями месяцев) сортируются не по порядку (по алфавиту), что не есть хорошо.
Как с этим бороться - не придумал (назначение ячейкам формата "дата" не помогло)

Файл со вложением прикреплю чуть позже - не удаётся его сжать архиватором

Добавлено
Пришлось снять с файла пароль - размер файла тут же уменьшился с 3 Mb до 1,6 Mb, да и в архиве он сжался до 14%
Запароленный файл сжатию практически не поддавался...
Кто-нибудь может объяснить, почему?

[viter.alex]

Сообщение от EducatedFool

…Запароленный файл сжатию практически не поддавался...
Кто-нибудь может объяснить, почему?

Я, конечно, не большой специалист в шифровании, но, думаю, что причина в боязни разработчиков Excel, что после распаковки упакованого файла, пароль не восстановится. А может проблема в самом архиваторе?

[Светлана632]

Большое спасибо, светлая голова!!! Супер!!! Все работает как надо, только конечно с названиями месяцев - небольшой "косячок", а для меня это очень существенно (необходимо при планировании тренажеров на следующий месяц). А нельзя ли сделать, чтобы в этот столбец работал по-прежнему, т.е. сортировал месяцы по порядку?

[EducatedFool]

только конечно с названиями месяцев - небольшой "косячок", а для меня это очень существенно

Ну, раз существенно, то впредь вводите в соответствующий столбец даты вместо названий месяцев:
набирайте в ячейке на "апрель", а "апр 09"

Таким образом, в ячейке сохранится дата 01.04.2009, хотя отображаться в ней будет только название месяца. В этом случае сортировка будет осуществляться корректно.

Теперь можно удалять все овалы, запускающие сортировку...