Привет друзья!
Сегодня заменим стандартную группировку столбцов на собственную.
Неспокойно...
В vk отъезжаю понемногу
И совсем немного в телегу
Лучше подписаться пока не потерялись совсем.
Ты можешь спросить: А что не так с обычной группировкой?
Она неудобная, Занимает много места или ей трудно управлять?
Да. Причем ДА по всем пунктам.
А еще она бесит. И это главное основание для замены.
Что делаем?
У нас есть прекрасное форматирование, которое называется «Выровнять по центру выделения».
Для столбцов, которые мы планируем сгруппировать задаем это форматирование и даем подходящие имена группам столбцов.
Наша идея состоит в том чтобы при двойном щелчке по этому полю подчиненные столбцы разворачивались и сворачивались вот так.
Смотри: Сворачивается и разворачивается, Входит и выходит…
Что делаем.
Жмем на ярлыке листа правую кнопку и выбираем «Просмотреть код».
В открывшемся окне сверху и слева выбираем надпись WorkSheet.
А справа выбираем Бефор Даббл Клик.
Это создаст шаблон обработки события двойного щелчка на листе.
Между началом и концом процедуры обработки вставляем вот этот текст.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If = 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(, j - 1) = ““ Then
Range(Replace(Replace(Cells(1, i 1).Address, “1“, ““), “$“, ““) & “:“ & Replace(Replace(Cells(1, j - 1).Address, “1“, ““), “$“, ““)). = Not Range(Replace(Replace(Cells(1, i 1).Address, “1“, ““), “$“, ““) & “:“ & Replace(Replace(Cells(1, j - 1).Address, “1“, ““), “$“, ““)).
Cancel = True
End If
End If
End Sub
Ссылка на файл с примером:
5 views
2588
1009
3 weeks ago 00:07:34 1
Запись голоса без задержек: хак, который изменит твою жизнь
1 month ago 00:50:06 1
The END Время Золотого.
1 month ago 00:22:53 1
Почему “Южный Парк“ — Это Культовый Сериал? Николай Жаринов про South Park
1 month ago 00:09:53 1
Обновление Barotrauma V | Изменения талантов, генов, новые хаски!
1 month ago 00:00:43 1
29 октября день рождения комсомола. С днем рождения комсомола
1 month ago 00:00:18 1
ну что ты 4епуха, а это девочка
1 month ago 00:41:49 1
Шепелявый НАРВАЛСЯ на ЛЮБОВЬ @ НЕобычное Знакомство в машине? стрессовое свидание) #пранк
1 month ago 00:00:21 1
может ты сразу снимешь штаны и дашь мне в р*т
1 month ago 00:32:30 1
ЗЛЫЕ ДВОЙНИКИ ► DELTATRAVELER #7
1 month ago 01:16:03 1
Кто такой Анатолий Москвин? | Колыбель ужаса | Не Маньяк и Не Серийный убийца | Faust 21 Century
1 month ago 00:08:26 1
Скайрим - Топ 5 Скрытых Злодеев (Skyrim)
1 month ago 00:56:43 1
ТЕПЕРЬ МЫ ВОЛШЕБНИКИ... - The Spell Brigade (РОГАЛИК)
1 month ago 00:13:18 1
Дочка, запомни! Больше ноги моей у тебя не будет! Забудь, что у тебя есть родители! Кричала мать...
1 month ago 00:02:41 1
ХАННА - Голый, пьяный, без любви (Премьера трека 2024)
1 month ago 00:00:22 1
поймай меня в летних ботинках
1 month ago 01:46:11 1
Основы эволюции. Креационизм, Ламарк, Дарвин. Осенний интенсив NeoFamily
1 month ago 05:21:37 1
ВЕРШИНА МИРА и ГОРНОЕ БЕЗУМИЕ
1 month ago 00:01:15 1
Каких монстров я встречу на бесконечной лестнице? SCP 087 B бета 0.2 - трейлер. Minecraft. ⬛
1 month ago 00:22:44 1
ТОП 10 захватывающих мифологических фильмов про богов!! лучшие фильмы
1 month ago 01:19:10 1
КИБЕР ВЕЧЕР #2. VooDooSh и Malr1ne (Falcons). Герои Меча и Магии vs Dota 2
1 month ago 00:31:36 1
Живая история села Ручим, Сосновоборский район ()
1 month ago 00:47:09 1
Фильм комедия 👉 ОПАСНАЯ ОХОТА 2 часть 2 🔥 КИНО Комедия, Боевик, Серега Штык 🔥 шоу 🤣 проколы 🤣 смешно
1 month ago 00:10:11 1
ЭТО ОБЯЗАТЕЛЬНО ЗНАТЬ, если хочешь ПОХУДЕТЬ! / Как жир управляет вашим настроением?
1 month ago 00:14:21 28
ВОССТАНОВЛЕНИЕ MB ТЮНИНГ И ПЕРЕШИВ САЛОНА Будни Мерина Часть 1