Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Группировка в Excel`е. / 3 сообщений из 3, страница 1 из 1
22.01.2007, 11:25:08
    #34271483
Oleg_Slip
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка в Excel`е.
Всем привет! Ув. знатоки Excel`я! Подскажите пожалуйста, можно ли как-нибудь узнать программно какая позиция в группировке раскрывается при нажатии на произвольную кнопку раскрытия(+)???
...
Рейтинг: 0 / 0
23.01.2007, 10:37:34
    #34274272
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка в Excel`е.
Не совсем то, что спрашивается, но может и пригодится. Пример: ячейка E2 находится в зоне действия групп, ячейка E20 нет. Если строка 2 скрыта, ячейка E20 желтая, если видима - голубая.

Решение для общего случая: завести такие ячейки в каждой группе и анализировать, какую группу скрыли/открыли.

1. В модуль добавить функцию, ее роль заставить срабатывать событие Worksheet_Calculate
Код: plaintext
1.
2.
Function aaa()
  Application.Volatile
End Function
2. В любую ячейку нужного листа вставить вызов этой функции =aaa()
3. В модуль этого листа добавить процедуру.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Worksheet_Calculate()
If Range("E2").Rows.Hidden <> Range("E2") Then
  Range("E2") = Range("E2").Rows.Hidden
  If Range("E2") Then
    Range("E20").Interior.ColorIndex =  6 
  Else
    Range("E20").Interior.ColorIndex =  8 
  End If
End If
End Sub
...
Рейтинг: 0 / 0
23.01.2007, 11:44:11
    #34274544
Oleg_Slip
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка в Excel`е.
Задумку понял. Спасибо за помощь, но немного не для меня - в моем примере количество группировок может быть несколько тысяч. Это надо заводить массив для хранения маркированных строк чтобы их проверять.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Группировка в Excel`е. / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]