powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Excel сворачивать/разворачивать группу записей?
5 сообщений из 5, страница 1 из 1
Как в Excel сворачивать/разворачивать группу записей?
    #33394468
Фотография Serega128
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Т.е. проблема такая:
есть прайс-лист, в нём идёт:

+-------------------+
| Категория товара |
|-------------------|
|Товар1 |
|Товар2 |
|.... |
---------------------
А я хочу сделать так, что бы эту группу можно было сворачивать/разворачивать, т.е. примерно так:

+-+-------------------+
|+| Категория товара |
+-|-------------------|
|Товар1 |
|Товар2 |
|.... |
+-------------------+

Т.е. слева вверху влепить кнопку "+", которая бы это делала.

P.S. Всё это мне нужно будет сгенерить на Дельфи.

Заранее спасибо!
...
Рейтинг: 0 / 0
Как в Excel сворачивать/разворачивать группу записей?
    #33394532
mike160
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не мучай Дельфи. В Excel в меню Данные есть подменю Группы и структура,
а в ней Сгруппировать, Разгруппировать и т.д (Group, Ungroup)
...
Рейтинг: 0 / 0
Как в Excel сворачивать/разворачивать группу записей?
    #33394618
Alex_1975
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Выделяешь нужный промежуток
oApp.ActiveWorkbook.ActiveSheet.Range(oApp.ActiveWorkbook.ActiveSheet.Cells(1,1), oApp.ActiveWorkbook.ActiveSheet.Cells(10, 1)).Select
И группируешь его
oApp.Selection.Rows.Group

Правда надо программно определать промежутки и т.п.
А автоматически в Excel это похоже сделать невозможно.
...
Рейтинг: 0 / 0
Как в Excel сворачивать/разворачивать группу записей?
    #33394973
Фотография Serega128
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А у меня пишет "член группі не найден"! Почему так, кто знает?
...
Рейтинг: 0 / 0
Как в Excel сворачивать/разворачивать группу записей?
    #33395753
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Alex_1975А автоматически в Excel это похоже сделать невозможно.
Глупости говорить не надо. А Select использовать, тем более через OLE это вообще идиотизм.

Для таблиц вида
Код: plaintext
1.
2.
3.
4.
    A            B
1 Группа1   ТоварА
2 Группа1   ТоварБ
3 Группа2   ТоварВ
4 Группа2   ТоварГ
Можно использовать функцию Subtotal. Чтобы посчитать количество товаров по группам можно использовать из OLE команду:
oWS.Range("A1").CurrentRegion.Subtotal 1, -4112, array(2)
Где первый параметр - номер колонки по которой группируем, второй функция группировки (-4112 это код xlCount). Третий параметр - массив с номерами колонок которые надо сумировать.

Для более сложных таблиц надо вручную определять границы, а потом:
oRange = oWS.Range("13:45").Group
Где "13:45" это номера начальной и конечной строки которые надо оформить как одну группу.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Excel сворачивать/разворачивать группу записей?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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