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

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

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

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2 3 »   Вниз
  Печать  
Автор Тема: Множественная вставка в несмежные ячейки некоторой формулы  (Прочитано 1879 раз)
0 Пользователей и 1 Гость смотрят эту тему.
eeigor
Форумчанин
***
Offline Offline

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



« Ответ #57922: 23 Март 2021, 14:16 »

При решении этой задачи с использованием макросов тоже была сложность: как перебрать пустые ячейки и заполнить их. Дело в том, что из коллекции ячеек всегда удаляются пустые ячейки, и надо было организовывать несколько вложенных циклов для перебора всего и вся… Муторно и медленно.
Решение от @sokol92 (ссылка в стартовом сообщении) было тоже «трюковым».

Приведу часть решения: операция присваивания. Разом…
Код:
'   Assigns a value (formula, number, or text) to cells in a rectangular range.
Sub AssignValueToRange(oRange As Object, value)
   ' The .Formula property should cover all input needs, even numbers.
   oRange.getCellByPosition(0, 0).Formula = value  'the lead cell
   With com.sun.star.sheet.FillDirection
      oRange.fillAuto(.TO_BOTTOM, 1)  '0
      oRange.fillAuto(.TO_RIGHT, 1)  '1
   End With
End Sub
« Последнее редактирование: 23 Март 2021, 14:19 от eeigor » Записан

Ubuntu 18.04 LTS • LO 7.1.1.2 Community
Страниц: « 1 2 3 »   Вверх
  Печать  
 
Перейти в:  

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