Забудь про группировку столбцов в Excel

Привет друзья!
Сегодня заменим стандартную группировку столбцов на собственную.
Неспокойно...
В vk отъезжаю понемногу
realxls
И совсем немного в телегу
t.me/realxls
Лучше подписаться пока не потерялись совсем.
Ты можешь спросить: А что не так с обычной группировкой?
Она неудобная, Занимает много места или ей трудно управлять?
Да. Причем ДА по всем пунктам.
А еще она бесит. И это главное основание для замены.
Что делаем?
У нас есть прекрасное форматирование, которое называется «Выровнять по центру выделения».
Для столбцов, которые мы планируем сгруппировать задаем это форматирование и даем подходящие имена группам столбцов.
Наша идея состоит в том чтобы при двойном щелчке по этому полю подчиненные столбцы разворачивались и сворачивались вот так.
Смотри: Сворачивается и разворачивается, Входит и выходит…
Что делаем.
Жмем на ярлыке листа правую кнопку и выбираем «Просмотреть код».
В открывшемся окне сверху и слева выбираем надпись WorkSheet.
А справа выбираем Бефор Даббл Клик.
Это создаст шаблон обработки события двойного щелчка на листе.
Между началом и концом процедуры обработки вставляем вот этот текст.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.HorizontalAlignment = 7 Then
y = Target(1, 1).Row
i = Target(1, 1).Column
While Cells(y, i) = "" And Cells(y, i).HorizontalAlignment = 7
i = i - 1
Wend
j = i + 1
While Cells(y, j) = "" And Cells(y, j).HorizontalAlignment = 7
j = j + 1
Wend
If Cells(Target.Row, j - 1) = "" Then
Range(Replace(Replace(Cells(1, i + 1).Address, "1", ""), "$", "") & ":" & Replace(Replace(Cells(1, j - 1).Address, "1", ""), "$", "")).EntireColumn.Hidden = Not Range(Replace(Replace(Cells(1, i + 1).Address, "1", ""), "$", "") & ":" & Replace(Replace(Cells(1, j - 1).Address, "1", ""), "$", "")).EntireColumn.Hidden
Cancel = True
End If
End If
End Sub
Ссылка на файл с примером: drive.google.com/file/d/142Ki...

[@valeryv9146]

Отличная идея! Спасибо за макрос!!!

[@ExcelStore]

Просто и понятно. Спасибо за видео!

[@OleksiiBoiev]

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

[@Pavel_Taranukha]

Ну, кстати, тоже элегантно может выйти)

[@sergey_mihi]

Спасибо. Надо будет попробовать.

[@user-tk3we7ew6m]

Паша, крутяк!!!👍

[@user-vq5gs5sw7m]

Круто, спасибо

[@user-hj4kk2lt6w]

Большое спасибо автору за интересную тему и ссылку на файл на Диске

[@astepanov83]

Прекрасно!

[@user-ku8bn6my5v]

как делать такую групировку строк ? какой скрипт ?

[@user-bb7yc4qs8w]

Бог Excelя😍 видео Монтаж 🔥🔥🔥 стэндап 👏👏👏 вижу что, что то крутое объясняете в каждом видео, но не пойму что 😂 просто смотрю 😃

[@Pavel_Taranukha]

Ахах)))

[@antonmostovik]

Добрый день! Тема интересная, пришёл на работу и сразу захотелось затестить, но увы мне не подходит, т.к. при группировке у меня оставался столбец итогов по каждому месяцу, а здесь остаётся столбец с первым днём месяца, не жизненная функция к сожалению! :(

[@Tommy7417]

Можно ещё таких видео?)

[@alexeinagai2138]

Подписался 👍

[@talgat0996]

Как можно с вами связаться ?

[@SV-13]

2:11 Не благодарите.

[@user-li2zm9vk8e]

Идея клас НО НЕРАБОТАЕТ

[@yakovlevolegg]

ЭТО ХОРОШАЯ ИДЕЯ - но и от стандартной группировки нет смыла отказываться. А ГДЕ ГРУППИРОВКА СТРОК - ТАКИМ ЖЕ СПОСОБОМ ???