Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА
Процедуры [13]
Пользовательские функции [9]
Полезные приёмы [45]

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
[ Результаты · Все опросы ]
Всего ответов: 56992
Главная » Готовые решения » VBA » Полезные приёмы
"Псевдо-группировка" на листе
25.08.2013, 09:54
[ Файл-пример (16.6 Kb) ]

Если вам не очень подходит стандартная группировка Excel, то можно попробовать так 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.count > 1 Then Exit Sub
If (Target <> "-") * (Target <> "+") Then Exit Sub
Dim i As Long: Application.EnableEvents = False
With Target.CurrentRegion.Columns(1)
 With .SpecialCells(2)
 For i = 1 To .Areas.count
 If .Areas.Item(i).Address = Target.Address Then Exit For
 Next
 End With
 .SpecialCells(4).Areas.Item(i).EntireRow.Hidden = Target = "-"
End With
Application.EnableEvents = True
Target.Value = IIf(Target = "+", "-", "+")
End Sub
Добавил: nilem | | Теги: vba, Group, группировка, ВБА
Просмотров: 8830 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!