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.