Lisaks oma töölehe vahekaartide korraldamisele, kasutades neile värve, saate neid sortida ka tähestikulises järjekorras või tähestikulises järjekorras, niikaua kui olete oma töölehtedele kohandatud nimed rakendanud. Kahjuks pole töölehtede sakke tähestikulises järjestuses Excelis sisse ehitatud, kuid saate oma töövihikule lisada makro, mis võimaldab teil oma vahelehti sortida üles- või kahanevas järjestuses. Näitame teile, kuidas Microsofti tugisaidil makrole lisada Exceli töövihiku, mis sorteerib teie töölehe vahelehed.
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-redaktor nimetab automaatselt iga mooduli lõpp-numbriga, näiteks Module1, Module2 jne. Võite lihtsalt nõustuda mooduli vaikenimega. Kuid kui te plaanite oma tööriboole lisada teisi makrosid, on hea mõte nimetada iga moodul ümber, et saaksite teada, mis need on. Muutame meie mooduli ümber, et näidata teile, kuidas.
