Be to, kad organizuodami savo darbalapio skirtukus, taikydami jiems spalvas, taip pat galite rūšiuoti juos abėcėlės tvarka arba raidėmis skaitmenimis, jei į savo darbalapius pritaikėte tinkamus pavadinimus. Deja, darbalapių lapų rūšiavimas pagal abėcėlę nėra sukurta Excel, tačiau galite pridėti makrokomandą į savo darbo knygą, kuri leis jums rūšiuoti skirtukus didėjančia arba mažėjančia tvarka. Mes parodysime, kaip pridėti prie "Microsoft" palaikymo svetainės esantį makrokomandą savo "Excel" darbo knygelėje, kuriame bus rūšiuoti darbalapių skirtukai.
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 Sheets in Ascending Order?' & Chr(10) _ & 'Clicking No will sort in Descending Order', _ 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
VBA redaktorius automatiškai nurodo kiekvieną modulį su numeriu pabaigoje, pvz., Module1, Module2 ir tt. Galite tiesiog priimti modulio pavadinimą. Tačiau, jei planuojate pridėti kitas makrokomandas į savo darbo knygą, rekomenduojama pervadinti kiekvieną modulį, kad žinotumėte, kokie jie yra. Pervadinsime modulį, kad galėtume parodyti, kaip tai padaryti.
