Papildus darblapu ciļņu organizēšanai, piemērojot tām krāsas, tos var arī sakārtot alfabētiskā secībā vai burtciparu veidā, ja vien savām darblapām esat pielāgojis savus nosaukumus. Diemžēl darblapu tabulas šķirošana alfabētiskā ceļā nav iebūvēta programmā Excel, taču jūs varat pievienot savu darbgrāmatu makro, kas ļaus šķirot cilnes augošā vai dilstošā secībā. Mēs parādīsim, kā pievienot Microsoft Excel atbalsta darblapā pieejamo makro, kas atdala jūsu darblapu cilnes.
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 redaktors automātiski nosauc katru moduli ar numuru beigās, piemēram, Module1, Module2 utt. Jūs varat vienkārši pieņemt moduļa noklusējuma nosaukumu. Tomēr, ja plānojat pievienot citus makro darbgrāmatam, ir ieteicams pārdēvēt katru moduli, lai jūs zināt, kas tas ir. Mēs pārdēvējam mūsu moduli, lai parādītu, kā to izdarīt.
Moduļa nosaukums ir mainīts moduļu sarakstā sadaļā Projekts kreisajā rūtī.
