OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

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

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

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