Sortera Excels flikar i bokstavsordning via ett makro
Designen av Excelbokens struktur är ett ganska viktigt kapitel framför allt om arbetsboken skall distribueras till kollegor eller till andra externa intressenter.
Om din arbetsbok innehåller många blad så kan det vara pedagogiskt att sortera bladen på ett enhetligt vis.
Vad gäller följden eller ordningen på flikarna, dvs arbetsbladen, så är det ganska vedertaget att eventuella sammanställningar och resuméer skall läggas på blad placerade till vänster, medan övriga beräkningsblad och uppställningar fylls på med flikar ut mot höger. Ett bra exempel på detta är arbetsböcker som innehåller ett stort antal snarlika kalkylblad som endast skiljer sig åt via avdelning, stad, anställd eller vad det nu kan vara.
Följande Excelmakro automatiserar processen med att sortera arbetsbladen i bokstavsordning. Som vanligt när man testar nya makron så skall man alltid först testa med en kopia av arbetsboken. Detta för att undvika missöden.
intAntalBlad = ActiveWorkbook.Worksheets.Count
For i = 1 To intAntalBlad
For j = i To intAntalBlad
If LCase(Worksheets(j).Name) < LCase(Worksheets(i).Name) Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
End Sub
Observera att makrot i ovanstående form startar från och med blad nummer 1, dvs det blad som ligger längst till vänster i Excelboken. Om du i stället t ex har en sammanställning på den första fliken och vill börja sortera från och med ark nummer 2 så ändrar du till:
RSS feed