Jeśli w skoroszycie programu Excel znajduje się duża liczba arkuszy kalkulacyjnych, 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", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sortuj arkusze robocze") 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 $ (Arkusze (j + 1) .Name) Następnie Arkusze (j) .Move Po: = Arkusze (j + 1) End If End If Next j Next i End Sub Edytor VBA automatycznie nadaje każdemu modułowi numer na końcu, taki jak Module1, Module2 itd. Możesz po prostu zaakceptować domyślną nazwę modułu. Jeśli jednak planujesz 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 to zrobić.
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 z listy (w naszym przypadku jest tylko jedno makro) i kliknij "Uruchom".
Zostanie wyświetlone następujące 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 za pomocą makr, jeśli jeszcze nie znajdujesz się w tym folderze. Wybierz "Excel Macro-Enabled Workbook (* .xlsm)" z rozwijanej listy "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ć kolejne karty 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.