Acronis
Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 18. 10. 2010 11:51:46

hajtomas
Člen
Registrace: 18. 10. 2010
Příspěvků: 1

Seřazení listů podle abecedy

Chci se zeptat, jestli je možné seřadit například 22 listů podle abecedy?

Děkuji

Offline

#2 18. 10. 2010 13:57:18

j-pastierik
Člen
Registrace: 15. 11. 2004
Příspěvků: 761

Re: Seřazení listů podle abecedy

Pomocou makra - http://www.602office.cz/makro-vzestupne … le-abecedy :

Sub SeraditListy
 Dim Listy
 Dim i As Integer
 Dim Opakovat As Boolean
 
 Listy = ThisComponent.Sheets
 
 If Listy.getCount() > 1 Then 'Listy nejsou serazeny
  Do
   Opakovat = False 'Budeme opakovat akci az do doby, kdy jiz dalsi opakovani serazovani nelze aplikovat
   For i = 0 to Listy.getCount()-2
    If Listy.getByIndex(i).Name > Listy.getByIndex(i+1).Name Then
     Listy.moveByName(Listy.getByIndex(i+1).Name,i)
     Opakovat = True
    End If
   Next
  Loop Until Opakovat = False
 End If
End Sub

Offline

#3 18. 10. 2010 21:34:59

hanus
Člen
Místo Olomouc
Registrace: 29. 11. 2006
Příspěvků: 573
Web

Re: Seřazení listů podle abecedy

Tady je soubor s makry pro řazení listů (podle názvu listů a podle hodnot na listech):
http://ooo.e-hanus.cz/Razeni_listu.02.ods

Offline

Zápatí