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

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

16 Ноябрь 2018, 21:29 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

Сообщений: 91


« Стартовое сообщение: 1 Февраль 2018, 05:42 »

Есть лист, где 500-1000 строк, какой командой можно добавить пустые строки (ячейки) между текущими в выделении. Добавить одним разом. Команда после которой например все имеющиеся строки-ячейки становятся нечетными, все новые добавленные становятся четными, общее количество строк увеличивается в два раза.

Есть ли такая команда в calc?
Записан
economist
Форумчанин
***
Offline Offline

Сообщений: 966


« Ответ #1: 1 Февраль 2018, 08:31 »

Такой команды нет. Даже если отфильтровать нечетные строки - команда Лист - Вставить строки (будет неактивна).
Значит только макрос или хитрость...

Скажем, можно "схитрить", вставив Промежуточные итоги при каждой смене № в столбце, заполненном 1,2,3 итд (см. вложение).     

Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
Bigor
Опытный пользователь
***
Offline Offline

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


« Ответ #2: 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 » Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Online Online

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


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


WWW
« Ответ #3: 1 Февраль 2018, 10:48 »

Можно по-всякому...
Можно перенумеровать имеющиеся строки, повторить нумерацию нужное количество раз (сколько пустых строк нужно вставить - столько раз и повторить), отсортировать по этой колонке и тут же её удалить


* Проредить строки.gif (500.82 Кб, 660x650 - просмотрено 56 раз.)
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
And589
Форумчанин
***
Offline Offline

Сообщений: 91


« Ответ #4: 1 Февраль 2018, 17:45 »

Спасибо за ответы и особенно за макрос, то что нужно.
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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