Kaip darbaknygėje rūšiuoti darbalapius raidiniu ir skaitiniu būdu

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.