Microsoft Office Excel
uređuje Dragan Grbić

Sortiranje radnih listova

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

Algoritmi sortiranja su među osnovnim u teoriji programiranja. Ali, pustimo teoriju: evo i praktične namene.

Ako se broj listova u radnoj svesci često menja, možda će vam se ukazati potreba da ih povremeno sortirate. U prilogu se nalazi jednostavan makro koji će taj posao uraditi umesto vas. Ova varijanta ignoriše da li su slova u imenu lista velika ili mala; u komentaru postoji red kojim treba zameniti postojeći da bi se sortiranje izvelo po ASCII redosledu.

' verzija makroa koja
' ignoriše velika i mala slova
Sub SortListova1()

Dim I As Integer, J As Integer

For I = 1 To Sheets.Count - 1
  For J = I + 1 To Sheets.Count
    If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
       Sheets(J).Move Before:=Sheets(I)
    End If
  Next J
Next I

End Sub



' verzija makroa koja 
' razlikuje velika i mala slova
Sub SortListova2()

Dim I As Integer, J As Integer

For I = 1 To Sheets.Count - 1
  For J = I + 1 To Sheets.Count
    If Sheets(I).Name > Sheets(J).Name Then
       Sheets(J).Move Before:=Sheets(I)
    End If
  Next J
Next I

End Sub

Ovaj algoritam sortiranja je krajnje prost: svaki poznavalac programiranja će prepoznati da je neefikasan na većem broju elemenata. Testirao sam ovaj makro na izmešanoj radnoj svesci "teškoj" oko 70 listova na starijoj Pentium mašini na 75 MHz i sortiranje je trajalo desetak sekundi. Ako baš terate mak na konac, postoji nekoliko načina da se sortiranje ubrza: najpre, treba isključiti osvežavanje ekrana posle svakog koraka:

Sub SortListova2()

Dim I As Integer, J As Integer

' isključi osvežavanje ekrana
Application.ScreenUpdating = False

For I = 1 To Sheets.Count - 1
  For J = I + 1 To Sheets.Count
    If Sheets(I).Name > Sheets(J).Name Then
       Sheets(J).Move Before:=Sheets(I)
    End If
  Next J
Next I

' sad uključi osvežavanje ekrana
Application.ScreenUpdating = True

End Sub

Ako se koriste napredniji algoritmi, kao što su QuickSort ili BubbleSort, najbolje je u memoriji formirati niz povezan sa imenima radnih listova, njega sortirati, a potom razvrstati listove prema rezultatu.