Как сгруппировать листы по цвету ярлычка

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

Excel присваивает номер индекса для каждого цвета. Светло-желтый цвет имеет порядковый номер 36, в то время как темно-бордовый имеет порядковый номер 42. Данный макрос перебирает листы в книге, сопоставляя индексы. Если предыдущий лист имеет тот же номер индекса цвета, что и текущий лист, макрос перемещает текущий лист перед ним. Таким образом, все листы будут сгруппированы на основе цвета их вкладок.

1. Шаг 1 объявляет две переменные. CurrentSheetIndex содержит номер индекса для текущей итерации листа, а переменная PrevSheetIndex содержит номер индекса для предыдущей итерации листа. 

2. Шаг 2 начинает итерации счетчика для обеих переменных. Обратите внимание, что счетчик для PrevSheetIndex число, которое предшествует CurrentSheetIndex. После того, как счетчики установлены, то макрос начинает цикл. 

3. На шаге 3, макрокоманда проверяет, является ли показатель цвета предыдущего листа таким же, как и у текущего листа. Обратите внимание на использование свойства Tab.ColorIndex. 

4. Шаг 4 выполняется только, если индекс цвета предыдущего листа равен показателю цвета текущего листа. На этом этапе, макрокоманда используется метод Move для перемещения текущего листа перед предыдущим листом. 

5. На шаге 5 мы идем обратно к началу цикла. Каждый цикл проходит все листы от первого до последнего. После того, как все циклы были выполнены, макрос заканчивается. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.