Jak sortować karty arkusza roboczego w porządku alfabetycznym w programie Excel

Jeśli w skoroszycie programu Excel znajduje się duża liczba arkuszy roboczych, może być trudno znaleźć konkretny arkusz. Sortowanie kart alfabetu w kolejności alfabetycznej ułatwi znalezienie tego, czego szukasz.

Oprócz porządkowania kart w arkuszu roboczym przez stosowanie do nich kolorów, możesz również sortować je alfabetycznie lub alfanumerycznie, o ile zastosujesz niestandardowe nazwy do swoich arkuszy. Niestety, alfabetyczne sortowanie kart arkuszy nie jest wbudowane w program Excel, ale można dodać makro do skoroszytu, które umożliwi sortowanie kart w porządku rosnącym lub malejącym. Pokażemy Ci, jak dodać makro dostępne w witrynie pomocy technicznej firmy Microsoft do skoroszytu programu Excel, który będzie sortować karty arkusza roboczego.

Aby rozpocząć, naciśnij Alt + F11, aby otworzyć edytor Microsoft Visual Basic for Applications (VBA). Następnie przejdź do Wstaw> Moduł.

Skopiuj i wklej następujące makro z Microsoft do wyświetlonego okna modułu.

Sub Sort_Active_Book () Dim i jako Integer Dim j Jako Integer Dim iAnswer As VbMsgBoxResult "Pytaj użytkownika, w którym kierunku chce" sortować arkusze. 'IAnswer = MsgBox ("Sortowanie arkuszy w porządku rosnącym?" I Chr (10) _ & "Kliknięcie Nie sortuje w porządku malejącym", _ vbYesNoAnuluj + vbQuestion + vbDefaultButton1, "Sortuj arkusze") Dla i = 1 Do arkuszy. Zamień na j = 1 do Arkuszy.Count - 1 "Jeśli odpowiedź brzmi Tak, wówczas sortuj w porządku rosnącym. "Jeśli iAnswer = vbYes Then If UCase $ (Sheets (j) .Name)> UCase $ (Arkusze (j + 1) .Name) Następnie Arkusze (j) .Move After: = Arkusze (j + 1) Koniec Jeśli" Jeśli odpowiedź brzmi Nie, a następnie sortuj w porządku malejącym. "ElseIf iAnswer = vbNo Then If UCase $ (Sheets (j) .Name) < UCase$(Sheets(j + 1).Name) Then                Sheets(j).Move After:=Sheets(j + 1)             End If          End If       Next j    Next i End Sub

Edytor VBA automatycznie nazywa każdy moduł numerem na końcu, takim jak Module1, Module2 itd. Możesz po prostu zaakceptować domyślną nazwę modułu. Jeśli jednak zamierzasz dodać inne makra do skoroszytu, dobrze jest zmienić nazwę każdego modułu, aby wiedzieć, jakie one są. Zmienimy nazwę naszego modułu, aby pokazać, jak.

Aby zmienić nazwę modułu, zaznacz tekst w polu Nazwa modułu w obszarze Właściwości w lewym okienku.

Wpisz nazwę modułu w polu Nazwa i naciśnij Enter. Zauważ, że nazwa modułu nie może zawierać spacji.

Nazwa modułu zmienia się na liście Moduły w obszarze Projekt w lewym panelu.

Zamknij edytor VBA, przechodząc do Plik> Zamknij i powróć do Microsoft Excel.

Teraz uruchomimy makro, aby posortować nasze karty. Naciśnij klawisze Alt + F8, aby uzyskać dostęp do listy makr w oknie dialogowym Makro. Wybierz makro na liście (w naszym przypadku jest tylko jedno makro) i kliknij "Uruchom".

Zostanie wyświetlone poniższe okno dialogowe, w którym możesz wybrać, czy chcesz sortować arkusze w porządku rosnącym, czy malejącym. Chcemy posortować je w porządku rosnącym, dlatego klikamy "Tak".

Arkusze kart są teraz ułożone w kolejności alfabetycznej.

Dodane makro jest teraz częścią skoroszytu, ale po zapisaniu prawdopodobnie zobaczysz następujące okno dialogowe. To dlatego, że zapisałeś skoroszyt jako plik .xlsx, który jest normalnym formatem skoroszytu programu Excel, który nie zawiera makr. Aby uwzględnić makra w skoroszycie i móc je uruchomić, należy zapisać skoroszyt jako skoroszyt obsługiwany przez makr lub plik .xlsm. Aby to zrobić, kliknij "Nie" w tym oknie dialogowym.

Wyświetlone zostanie okno dialogowe Zapisz jako. Przejdź do miejsca, w którym chcesz zapisać skoroszyt obsługiwany przez makra, jeśli jeszcze nie znajdujesz się w tym folderze. Wybierz "Excel Macro-Enabled Workbook (* .xlsm)" z listy rozwijanej "Zapisz jako typ".

Kliknij "Zapisz".

Jeśli nie zapisujesz skoroszytu jako skoroszytu obsługującego makr (plik .xlsm), dodane makro zostanie usunięte. Możesz usunąć wersję .xlsx ze swojego skoroszytu, aby nie zapomnieć użyć wersji skoroszytu .xlsm, jeśli chcesz dodać więcej kart arkusza roboczego i posortować je ponownie za pomocą makra. Zawsze możesz zapisać skoroszyt jako plik .xlsx ponownie, jeśli nie chcesz już używać makr.