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

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

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

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

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


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


WWW
« Ответ #47281: 18 Июнь 2018, 16:50 »

Ой, брось - еще какой-то tool для такой ерунды использовать...
Код:
Sub InsColumns
Dim oSheet As Variant, oCursor As Variant, oColumns As Variant, nColumn As Long
' Активный лист
oSheet = ThisComponent.getCurrentController().getActiveSheet()
' Создадим курсор, чтобы определить занятое место на листе
oCursor = oSheet.createCursor()
oCursor.gotoEndOfUsedArea(True)
' Теперь курсор знает диапазон занятый пользовательскими данными.
' Все колонки этого диапазона
oColumns = oCursor.getColumns()
' Сколько колонок в этом диапазоне? Вместится ли столько же пустых колонок на лист
If oColumns.getCount() > (oSheet.getColumns().getCount() / 2) Then
Print "Слишком много колонок, некуда вставить новые"
Exit Sub
EndIf
' Вставим колонки:
For nColumn = oColumns.getCount()-1 To 1 Step -1
oColumns.insertByIndex(nColumn, 1)
Next nColumn
End Sub
Записан

Владислав Орлов 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!