День добрый. Вопрос по LO вообще и по LO Basic в

частности.

Есть ли в LO вариант сгруппировать строки в какую-либо строку сверху или снизу? Если можно, то что за опция отвечает за это в Бэйсике?

В VBA реализуется так:
With ThisWorkbook.Worksheets(1)
Range(.Cells(2, 1), .Cells(5, 1)).Rows.Group
.Outline.SummaryRow = xlAbove
End With
Код сгруппирует строки со 2-й по 5-ю, а плюсик будет торчать у первой строки. Т.е., первая строка будет выступать своего рода заголовком.

3 ответов

26 просмотров

Доброго дня! LibreOffice Basic (LO Basic) действительно поддерживает группировку строк, однако для управления позицией строки с кнопкой сворачивания/разворачивания (SummaryRow) можно использовать специальные свойства. Вот пример кода на LO Basic, который группирует строки со 2-й по 5-ю и устанавливает кнопку сворачивания над группой: Sub GroupRowsWithSummaryAbove Dim oSheet As Object Dim oRange As Object Dim oOutline As Object ' Получаем доступ к активному листу oSheet = ThisComponent.CurrentController.ActiveSheet ' Определяем диапазон строк для группировки (2-я по 5-ю строки) oRange = oSheet.getCellRangeByPosition(0, 1, 0, 4) ' Создаем группировку строк oRange.Rows.Group ' Устанавливаем строку-сводку над группой oOutline = oSheet.getRows().getPropertyValue("Outline") oOutline.SummaryBelow = False End Sub В данном коде: - ThisComponent.CurrentController.ActiveSheet используется для получения текущего активного листа. - getCellRangeByPosition(0, 1, 0, 4) выбирает диапазон ячеек (столбец 0, строки 1-4). - Rows.Group создает группу строк. - getRows().getPropertyValue("Outline") используется для получения объекта Outline, а затем свойство SummaryBelow устанавливается в False для размещения кнопки сворачивания над группой строк. Этот код аналогичен вашему VBA коду и реализует ту же функциональность в LibreOffice.

Сработало?

Похожие вопросы

Обсуждают сегодня

Да, смотрю народ пишет только про файнридер. А есть с таблеткой версия для kubuntu?
Roman Lyapunov
9
что не так с первым выражением?
☭ ktrace
10
Доброе утро! Подскажите, есть ли методы ускорить работу LibreOffice calc? У меня табличный документ, в котором каждая ячейка содержит много символов, к сожалению не получает...
Владимир Леонтьев
8
Ребят, может кто решал такие задачи. Есть файл ПДФ, как мне его импортировать в Calc? По умолчанию открывает в Draw, все таблицы видно, всё распознаёт.
Roman Lyapunov
6
Всем здравствуйте, подскажите пожалуйста, как сделать чтобы у всех пользователей при нажатии правой кнопкой мыши по рабочему столу в поле создать отображались документы офис?
Men Pooh
8
Кто-нибудь знает, есть ли какая-то команда, кнопка, пункт меню, или что-то ещё, чтобы Libre Office Writer заставить изменить своё окно под размер листа? Вот есть у меня файл, ...
HHidden
12
В винде открываю ексель, через PDFxchange делаю импорт но как это сделать на линуксе?
Roman Lyapunov
5
Кстати о багах, в настройках автокоррекции у вас можно сделать такую автокоррекцию, чтобы заменяло текст на ничего (пустую строку)? Часто копирую текст из разных источников, ...
HHidden
5
еще вопрос - стиль печати в Кальке один на все листы? А если мне нужны разные настройки? Свои для каждого листа, то никак?
LuchS
6
Привет. По какому принципу некоторые условные форматирования перекрывают другие, а некоторые нет? Есть одно условие на 4 строки - окрашивает строку сегодняшнего дня (24). Есть...
aleks ko
3
Карта сайта