Zde je uveden způsob, jak dát tabulkám abecední pořadí
Řazení dat podle abecedy ve vašich seznamech není žádný problém. Jak to ale zvládnete, když chcete pracovní listy seřadit podle abecedy podle jejich názvů?
Následující obrázek ukazuje registr listů se sérií pracovních listů. Měly by být seřazeny abecedně, aby byly snáze k nalezení.
3
S několika listy můžete spolehlivě provést práci ručně. U mnoha listů se to rychle stává obtížným, časově náročným a matoucím. Následující makro vám dále pomůže:
Sub SortBlaetter ()
Dim Zaehler1 jako celé číslo, Zaehler2 jako celé číslo
Dim Jméno jako řetězec
Název = ActiveSheet.Name
Pro Zaehler1 = 1 do pracovních listů. Počet
For Zaehler2 = Zaehler1 To Worksheets.Count
Pokud UCase (pracovní listy (Counter2) .Name) <UCase (pracovní listy (Counter1) .Name) Then
Pracovní listy (Zaehler2). Přesunout před: = Pracovní listy (Zaehler1)
Konec If
Další counter2, counter1
Pracovní listy (název) .Aktivovat
End Sub
Makro třídí listy v aktivním sešitu podle abecedy vzestupně. Následující obrázek ukazuje, jak vypadá ukázkový sešit po spuštění makra:
Tip: Pokud byste chtěli vědět, jak zadávat a spouštět makra v Excelu, najdete zde stručný popis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
