Oto jak ustawić porządek alfabetyczny stołów
Sortowanie danych alfabetycznie na listach nie stanowi problemu. Ale jak się do tego zabrać, gdy chcesz ułożyć arkusze w kolejności alfabetycznej według ich nazw?
Na poniższej ilustracji przedstawiono rejestr arkuszy z serią arkuszy. Powinny być posortowane alfabetycznie, aby łatwiej je było znaleźć.
3
Za pomocą kilku arkuszy możesz niezawodnie wykonać pracę ręcznie. Przy wielu arkuszach szybko staje się to trudne, czasochłonne i mylące. Poniższe makro pomoże Ci dalej:
Sub SortBlaetter ()
Dim Zaehler1 jako liczba całkowita, Zaehler2 jako liczba całkowita
Nazwa dim jako ciąg
Nazwa = Aktywny arkusz. Nazwa
Dla Zaehlera1 = 1 To Worksheets.Count
Dla Zaehler2 = Zaehler1 To Worksheets.Count
Jeśli UCase (Arkusze (Licznik2) .Nazwa) <UCase (Arkusze (Licznik1) .Nazwa) Wtedy
Arkusze (Zaehler2) .Przenieś przed: = Arkusze (Zaehler1)
Zakończ, jeśli
Następny licznik2, licznik 1
Arkusze (Nazwa) .Aktywuj
Napis końcowy
Makro sortuje arkusze w aktywnym skoroszycie w kolejności alfabetycznej rosnącej. Poniższa ilustracja przedstawia wygląd przykładowego skoroszytu po uruchomieniu makra:
Wskazówka: Jeśli chcesz wiedzieć, jak wprowadzać i uruchamiać makra w Excelu, krótki opis znajdziesz tutaj: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- w-excel-ein.html