Выделение нескольких диапазонов макросом

[GOGUGAN]

Добрый день, господа!

Прошу помощи в составлении следующего макроса: требуется удалить данные в нескольких диапазонах ячеек.
Составлен следующий рабочий макрос:

Код Выделить Развернуть


Sub CLEAN
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Doc = ThisComponent
Doc.Sheets(0).getCellRangebyName("C2:G5").clearContents(7)
Doc.Sheets(0).getCellRangebyName("B7:G10").clearContents(7)
Doc.Sheets(0).getCellRangebyName("E14:E17").clearContents(7)
Doc.Sheets(0).getCellRangebyName("G20:G23").clearContents(7)
Doc.Sheets(0).getCellRangebyName("G25:G28").clearContents(7)
End Sub


Удаление происходит в 5 этапов, возможно ли объединить указанные диапазоны одной командой и удалить данные в них в один этап?

Заранее спасибо за помощь!

[bigor]

Если прописать

Код Выделить Развернуть

ThisComponent.LockControllers
...
ThisComponent.unLockControllers
то, для пользователя диапазоны исчезнут одномоментно

Хотя они и так почти сразу все вычищаются.

[eeigor]

удалить данные в нескольких диапазонах

По ссылке раздел: Group of ranges  Create and add ranges
https://wiki.documentfoundation.org/Macros/Basic/Calc/Ranges

Метод addRangeAddress
https://api.libreoffice.org/docs/idl/ref/interfacecom_1_1sun_1_1star_1_1sheet_1_1XSheetCellRangeContainer.html

[sokol92]

Тот же метод, что и в предыдущем ответе:

Код Выделить Развернуть

Sub TestRanges
 Dim oRanges, v
 oRanges=ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
 For Each v In Array("C2:G5", "B7:G10", "E14:E17", "G20:G23", "G25:G28")
   oRanges.addRangeAddress ThisComponent.Sheets(0).getCellRangebyName(v).getRangeAddress, False ' True, если надо объединять без пересечений
 Next v  

 oRanges.clearContents(7)
End Sub

Нужно учитывать, что у сервиса SheetCellRanges палитра методов гораздо беднее, чем у сервиса SheetCellRange.

[GOGUGAN]

Господа, благодарю за ответы! Это именно то, что требовалось!

Тему можно закрывать.