Cum să sortați foile de lucru alfanumeric într-un registru de lucru

Când lucrați cu o bază de date mare care conține multe foi de lucru, va fi util să sortați foile de lucru în mod alfanumeric. Din păcate, Excel 2016 nu oferă o modalitate directă de sortare a foilor de lucru. Următoarea este o macrocomandă pentru a efectua sarcina.

Pasul 1: Faceți clic oriunde în registrul de lucru, apoi apăsați „ ALT + F11 ' cheie pentru a deschide ' Microsoft Visual Basic pentru aplicații ' fereastră;

Pasul 2: Faceți clic pe Inserare, apoi pe Modul în lista derulantă;

Pasul 3: În noua fereastră Modul, copiați și lipiți următoarele coduri sau consultați pagina de asistență 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

Pasul 4: În ' Microsoft Visual Basic pentru aplicații ' fereastra, faceți clic pe ' Alerga butonul ';

Pasul 5: În ' Sortați foile de lucru ' fereastra, faceți clic pe ' da ' dacă sortați foile în ordine crescătoare; sau faceți clic pe ' nu ' dacă sortați foile de lucru în ordine descendentă.

Pasul 6: De exemplu, faceți clic pe „ da ' pentru a sorta foile de lucru în ordine crescătoare.