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

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

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

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Как создать кнопку с формулой?  (Прочитано 12996 раз)
0 Пользователей и 1 Гость смотрят эту тему.
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 764


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #22650: 21 Октябрь 2013, 09:21 »

Лучше всего - перечислить по очереди... Есть и другие способы, но этот самый простой.
Весь код этого макроса может быть записан "в одну строчку через точку":
Код:
Sub clrCells
  ThisComponent.getCurrentController().getActiveSheet().getCellRangeByName("D2:E18").clearContents(7)
End Sub
(Подробно расписывал, чтобы читать было понятнее - а работать будет и так.)
А значит для уточнённой задачи нужно просто повторить эту строчку нужное количество раз и вписать нужные диапазоны ячеек:
Код:
Sub clrCells
  ThisComponent.getCurrentController().getActiveSheet().getCellRangeByName("C1:D4").clearContents(7)
  ThisComponent.getCurrentController().getActiveSheet().getCellRangeByName("G1:H4").clearContents(7)
' ... и так столько раз сколько понадобится  
End Sub
« Последнее редактирование: 21 Октябрь 2013, 09:27 от JohnSUN » Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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