Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

20 Апрель 2021, 15:48 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Выделение нескольких диапазонов макросом  (Прочитано 1003 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sokol92
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 379


WWW
« Ответ #56580: 17 Ноябрь 2020, 17:05 »

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

Код:
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.
« Последнее редактирование: 17 Ноябрь 2020, 17:12 от sokol92 » Записан

Владимир.
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!