W tym artykule nauczymy się sortowania arkuszy w kolejności rosnącej poprzez VBA w Microsoft Excel 2010.
Podczas pracy na wielu arkuszach okazuje się, że arkusze nie są odpowiednio ułożone. Chcesz szybko utworzyć makro, które automatycznie posortuje arkusz w kolejności rosnącej po uruchomieniu makra.
Aby posortować arkusze w kolejności rosnącej, wykonaj poniższe czynności:
- Naciśnij Alt + F11, aby uruchomić ekran Edytora VB
- Z menu Wstaw wybierz Moduł.
- W module wpisz wiersze kodu w następujący sposób:
Podrzędne arkusze sortowania rosnąco()
Dim i As Integer, n As Integer, SheetsCounter As Integer
Jeśli ActiveWorkbook to nic, to wyjdź z Sub
Jeśli ActiveWorkbook.ProtectStructure Wtedy
MsgBox ActiveWorkbook.Name & " jest chroniony", vbCritical, "Sort Sheets"
Wyjście Sub
Zakończ, jeśli
Jeśli MsgBox("Sort Sheets?", vbQuestion + vbYesNo) vbYes Następnie wyjdź z Sub
Application.EnableCancelKey = xlDisabled
Licznik Arkuszy = Licznik Arkuszy
Dla i = 2 do licznika arkuszy
Dla n = 1 Do Licznika Arkuszy
Jeśli Arkusze(n).Nazwa > Arkusze(i).Nazwa Wtedy
Arkusze(i).Przenieś przed:=Arkusze(n)
Zakończ, jeśli
Następna n
Dalej ja
Napis końcowy
- Uruchom makro z modułu, naciskając klawisz F5.
Alternatywnie naciśnij klawisze Alt+F11 i wróć do programu Excel, przypisz makro do dowolnego obiektu programu Excel jako przycisku lub ikony albo naciśnij klawisze Alt+F8, aby wybrać makro, a następnie kliknij przycisk Uruchom.
Przekonasz się, że arkusze są ułożone w kolejności alfanumerycznej.