Dirbant su didele duomenų baze, kurioje yra daug darbalapių, bus naudinga rūšiuoti darbalapius raidžių ir skaičių tvarka. Deja, „Excel 2016“ nesuteikia tiesioginio būdo rūšiuoti darbalapius. Toliau pateikiama užduoties atlikimo makrokomanda.
1 žingsnis: Spustelėkite bet kurią darbaknygės vietą, tada paspauskite ' ALT + F11 'mygtukas norint atidaryti' Microsoft Visual Basic programoms ' langas;
2 žingsnis: Spustelėkite Įterpti, tada išskleidžiamajame sąraše spustelėkite Modulis;
3 veiksmas: Naujame modulio lange nukopijuokite ir įklijuokite šiuos kodus arba žr „Microsoft“ palaikymo puslapyje ;
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
4 veiksmas: Viduje ' Microsoft Visual Basic programoms 'langas, spustelėkite' Bėk “ mygtukas;
5 veiksmas: Viduje ' Rūšiuoti darbalapius 'langas, spustelėkite' Taip ' jei rūšiuojate lapus didėjančia tvarka arba spustelėkite ' Ne ', jei rūšiuokite darbalapius mažėjančia tvarka.
6 veiksmas: Pavyzdžiui, spustelėkite ' Taip “ norėdami rūšiuoti darbalapius didėjančia tvarka.