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

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

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

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

Offline Offline

Сообщений: 692


« Стартовое сообщение: 27 Октябрь 2018, 08:58 »

Компонент: Calc
Версия продукта: 5.x
Сборка: LibreOffice
ОС: Win10

Здравствуйте.Как в LibreOffice Calc упорядочить листы по алфавиту? Спасибо.

--
Подпись: Алевтина
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

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


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


WWW
« Ответ #1: 27 Октябрь 2018, 09:43 »

Здравствуй, Алевтина!
Вот такой макрос сделает всю работу
Код:
Sub SortSheets
Dim oSheets As Variant, oNames As Variant, sName As String
Dim nCount As Long, i As Long, j As Long
oSheets = ThisComponent.getSheets() ' Получить все листы текущей книги
nCount = oSheets.getCount() - 1 ' Номер последнего листа в книге
If nCount = 0 Then Exit Sub ' Если в книге всего один лист, то нечего и сортировать
oNames = oSheets.getElementNames() ' Названия всех листов книги в массиве oNames
Rem Используем какую-нибудь не очень сложную сортировку:
For i = 1 To nCount
For j = 0 To nCount - i
If oNames(j) > oNames(j+1) Then                             
sName = oNames(j)
oNames(j) = oNames(j+1)
oNames(j+1) = sName
End If
Next j
Next i
Rem И теперь передвигаем листы внутри oSheets по их номерам в массиве oNames
For i = 0 To nCount
oSheets.moveByName(oNames(i), i)
Next i
End Sub
Записан

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

Сообщений: 978


« Ответ #2: 27 Октябрь 2018, 17:22 »

Если листов совсем мало - можно перетащить ярлычки с нажатой лев. кн. мыши.
Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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