Dacă numărul de file din cartea dvs. se apropie de câteva zeci, mai devreme sau mai târziu va exista dorința de a implementa sortarea foilor într-o carte , plasându-le în ordine alfabetică. Instrumentele standard Excel nu vă permit să faceți acest lucru, așa că să scriem o macrocomandă simplă care o va face.
Deschide meniul Serviciu - Macro - Editor Visual Basic (Tools - Macro - Visual Basic Editor) , inserați modulul VBA (meniu Insert - Module ) și copiați acest text acolo:
Sub SortSheets()
'moonexcel.com.ua
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
MsgBox " Filele au fost sortate de la A la Z "
End Sub
Această macrocomandă poate fi rulată acum din meniu Serviciu - Macro - Macro (Tools - Macro - Macros) , și va sorta rapid toate foile din registrul de lucru curent.