Iată cum puteți da tabelelor dvs. o ordine alfabetică
Sortarea alfabetică a datelor în listele dvs. nu este o problemă. Dar cum te descurci atunci când vrei să pui foile de lucru în ordine alfabetică în funcție de numele lor?
Următoarea ilustrație arată un registru de foi cu o serie de foi de lucru. Ar trebui să fie sortate alfabetic, astfel încât să fie mai ușor de găsit.
3
Cu câteva foi, puteți face treaba în mod fiabil manual. Cu multe foi, acest lucru devine rapid dificil, consumator de timp și confuz. Următoarea macro vă va ajuta în continuare:
Sub SortBlaetter ()
Dim Zaehler1 As Integer, Zaehler2 As Integer
Dim Name As String
Nume = ActiveSheet.Name
Pentru Zaehler1 = 1 Pentru foi de lucru. Număr
Pentru Zaehler2 = Zaehler1 To Worksheets.Count
Dacă UCase (Worksheets (Counter2) .Name) <UCase (Worksheets (Counter1) .Name) Atunci
Foi de lucru (Zaehler2). Mutați înainte: = Worksheets (Zaehler1)
End If
Următorul contor2, contorul1
Fișe de lucru (Nume). Activați
Sfârșitul Sub
Macrocomanda sortează foile de lucru din registrul de lucru activ în ordine alfabetică crescătoare. Următoarea figură arată cum arată exemplul de registru de lucru după ce ați început macro-ul:
Sfat: Dacă doriți să știți cum să introduceți și să porniți macrocomenzile în Excel, veți găsi o scurtă descriere aici: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
