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

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

21 Июль 2019, 01:23 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

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


« Ответ #45002: 1 Февраль 2018, 10:35 »

Можно макросом типа такого

Код:
Sub InsRows
Dim oSheet As Variant, i As Long
Dim oSelection As Variant, oActiveCell As Variant, oRow As Variant

oSelection = ThisComponent.getCurrentSelection()
oSpreadsheet = oSelection.getSpreadsheet()
k=1
For i =oSelection.RangeAddress.StartRow To oSelection.RangeAddress.EndRow
'msgbox i & "  " & i+k
oSpreadsheet.Rows.insertByIndex(i+k,1)
k=k+1
Next i

End Sub

Выделяем нужный диапазон и запускаем
если условия четности нечетности обязательны, то нужно чуть подшаманить
« Последнее редактирование: 1 Февраль 2018, 10:37 от Bigor » Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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