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

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

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

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

Сообщений: 2


« Ответ #56577: 17 Ноябрь 2020, 15:30 »

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

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

Код:
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 этапов, возможно ли объединить указанные диапазоны одной командой и удалить данные в них в один этап?

Заранее спасибо за помощь!
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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