Jak třídit listy alfanumericky v sešitu

Při práci s velkou databází, která obsahuje mnoho pracovních listů, bude užitečné třídit listy alfanumericky. Excel 2016 bohužel neposkytuje přímý způsob řazení listů. Následuje makro pro provedení úkolu.

Krok 1: Klikněte kamkoli do sešitu a poté stiskněte ' ALT + F11 'klíč pro otevření' Microsoft Visual Basic pro aplikace ' okno;

Krok 2: Klikněte na Vložit a poté na Modul v rozevíracím seznamu;



Krok 3: V novém okně modulu zkopírujte a vložte následující kódy nebo se podívejte na stránku podpory společnosti Microsoft ;

Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
'
' Prompt the user as which _
direction they wish to
' sort the worksheets.
'
iAnswer = _
MsgBox("Sort in Ascending?" _
& Chr(10) _
& "No will sort Descending ", _
 vbYesNoCancel + vbQuestion _
  + vbDefaultButton1, _
  "Sort Worksheets")
  For i = 1 To Sheets.Count
  For j = 1 To Sheets.Count - 1
'
' If the answer is Yes, then _
sort in ascending order.
'
  If iAnswer = vbYes Then
  If UCase$(Sheets(j).Name) _
   > UCase$(Sheets(j + 1) _
   .Name) Then
   Sheets(j).Move _
   After:=Sheets(j + 1)
   End If
'
' If the answer is No, then _
sort in descending order.
'
  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

Krok 4: V ' Microsoft Visual Basic pro aplikace 'okno, klikněte' Běh ' knoflík;

Krok 5: V ' Třídit pracovní listy 'okno, klikněte' Ano ' pokud seřadíte listy ve vzestupném pořadí; nebo klikněte na ' ani náhodou ' pokud seřadí listy v sestupném pořadí.

Krok 6: Klikněte například na „ Ano ', chcete-li seřadit listy ve vzestupném pořadí.

Microsoft Excel