Ipinapakita ng tutorial kung paano mo mabilis na maaayos ang mga worksheet ng Excel sa alpabetikong pagkakasunud-sunod sa pamamagitan ng paggamit ng VBA code at ang tool ng Workbook Manager.

Nagbibigay ang Microsoft Excel ng ilang mabilis at madaling paraan upang ayusin mga hanay o hilera sa pagkakasunud-sunod ng alpabeto. Ngunit mayroon lamang isang paraan upang muling ayusin ang mga worksheet sa Excel - i-drag ang mga ito sa nais na posisyon sa sheet tab bar. Pagdating sa pag-alpabeto ng mga tab sa isang talagang malaking workbook, maaaring ito ay isang mahaba at maling paraan. Naghahanap ng alternatibong nakakatipid sa oras? Dalawa lang ang umiiral: VBA code o mga third-party na tool.

Paano i-alpabeto ang mga tab sa Excel gamit ang VBA

Sa ibaba makikita mo ang tatlong halimbawa ng VBA code para pagbukud-bukurin ang Excel mga sheet na pataas, pababa, at sa alinmang direksyon batay sa pinili ng user.

Ipinapahiwatig na mayroon kang karanasan sa VBA, ibabalangkas lang namin ang mga pangunahing hakbang upang magdagdag ng macro sa iyong worksheet:

1. Sa iyong Excel workbook, pindutin ang Alt + F11 upang buksan ang Visual Basic Editor.
2. Sa kaliwang pane, i-right-click ang ThisWorkbook , at pagkatapos ay i-click ang Insert > Module .
3. I-paste ang VBA code sa Code window.
4. Pindutin ang F5 upang patakbuhin ang macro.

Para sa ang detalyadong sunud-sunod na mga tagubilin, pakitingnan ang Paano magpasok at magpatakbo ng VBA code sa Excel.

Tip. Kung gusto mong panatilihin ang macro para sa karagdagang paggamit, tiyaking i-save ang iyong file bilang isang Excel macro-enabled workbook (.xlsm).

Bilang kahalili, maaari mong i-download ang aming sample na Alphabetize Excel Tabs workbook, paganahin ang nilalaman kung sinenyasan, at direktang patakbuhin ang gustong macro mula doon. Ang workbook ay naglalaman ng mga sumusunod na macro:

• TabAscending - pag-uri-uriin ang mga sheet ayon sa alpabeto mula A hanggang Z.
• TabDescending - ayusin ang mga sheet sa baligtarin ang pagkakasunud-sunod, mula Z hanggang A.
• AlphabetizeTabs - pag-uri-uriin ang mga tab ng sheet sa parehong direksyon, pataas o pababa.

Gamit ang sample na workbook na na-download at nakabukas sa iyong Excel, buksan ang sarili mong workbook kung saan mo gustong i-alpabeto ang mga tab, pindutin ang Alt + F8 , piliin ang gustong macro, at i-click ang Run .

Pagbukud-bukurin ang mga tab ng Excel ayon sa alpabeto mula A hanggang Z

Inaayos ng maliit na macro na ito ang mga sheet sa kasalukuyang workbook sa pataas na alphanumeric order , unang mga worksheet na ang mga pangalan ay nagsisimula sa mga numero, pagkatapos ay mga sheet mula A hanggang Z.

Sub TabsAscending() Para sa i = 1 Sa Application.Sheets.Bilang Para sa j = 1 Sa Application.Sheets.Count - 1 Kung UCase$(Application.Sheets(j).Pangalan) > UCase$(Application.Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next Next MsgBox "Ang mga tab ay inayos mula A hanggang Z." End Sub

Ayusin ang mga tab ng Excel mula Z hanggang A

Kung gusto mong ayusin ang iyong mga sheet sa pababang alphanumeric order (Z hanggang A, pagkatapos ay mga sheet na may mga numerong pangalan), pagkatapos ay gamitin ang sumusunod na code:

Sub TabsDescending() Para sa i = 1 ToApplication.Sheets.Bilang Para sa j = 1 Sa Application.Sheets.Count - 1 Kung UCase$(Application.Sheets(j).Pangalan) < UCase$(Application.Sheets(j + 1).Pangalan) Pagkatapos Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next MsgBox "Ang mga tab ay inayos mula Z hanggang A. " End Sub

Alphabetize na mga tab na pataas o pababa

Ang macro na ito ay nagbibigay-daan sa iyong mga user na magpasya kung paano pag-uri-uriin ang mga worksheet sa isang partikular na workbook, ayon sa alpabeto mula A hanggang Z o sa reverse order.

Mula noong karaniwang dialog box (MsgBox) sa Excel VBA ay nagbibigay-daan lamang sa pagpili mula sa isang maliit na paunang-natukoy na mga pindutan, gagawa kami ng aming sariling form (UserForm) na may tatlong custom na mga pindutan: A hanggang Z , Z hanggang A , at Kanselahin .

Para dito, buksan ang Visual Basic Editor, i-right-click ang ThisWorkbook , at i-click ang Insert > UserForm . Pangalanan ang iyong form SortOrderFrom , at magdagdag ng 4 na kontrol dito: isang label at tatlong button:

Susunod, pindutin ang F7 (o i-double click ang form ) upang buksan ang Code na window at i-paste ang code sa ibaba doon. Ang code ay humarang sa mga pag-click sa button at nagtatalaga ng natatanging tag sa bawat button:

Pribadong Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click () Me.Tag = 0 Me.Hide End Sub

Depende sa kung iki-click ng user ang A to Z o Z to A na button sa iyong form, ayusin ang mga tab sapataas na alpabetikong ayos (pinili bilang default) o pababang alpabetikong ayos; o isara ang form at walang gagawin kung sakaling Kanselahin . Ginagawa ito gamit ang sumusunod na VBA code, na ipinasok mo sa karaniwang paraan sa pamamagitan ng Insert > Module .

Sub AlphabetizeTabs() Dim SortOrder Bilang Integer SortOrder = showUserForm If SortOrder = 0 Pagkatapos Lumabas sa Sub Para sa x = 1 Sa Application.Sheets.Bilang Para sa y = 1 Sa Application.Sheets.Bilang - 1 Kung SortOrder = 1 Pagkatapos Kung UCase$(Application.Sheets(y).Pangalan) > UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If ElseIf SortOrder = 2 Then If UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) Pagkatapos Sheets(y).Move after:=Sheets(y + 1) End If End If Next Next End Sub Function showUserForm() As Integer showUserForm = 0 Load SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag I-unload ang SortOrderForm End Function

Kung hindi ka pa masyadong kumportable sa VBA, maaari mo lamang i-download ang aming Sample Workbook sa Alphabetize Tabs, buksan ito sa iyong Excel kasama ng sarili mong file kung saan mo gusto upang pag-uri-uriin ang mga tab, at patakbuhin ang macro na AlphabetizeTabs mula sa iyong workbook:

Piliin ang ginustong pagkakasunud-sunod, sabihin, A hanggang Z , at obserbahan ang mga resulta:

Tip. Sa VBA, maaari ka ring gumawa ng mga kopya ng iyong mga Excel worksheet. Ang code ay magagamit dito: Paanoduplicate na sheet sa Excel na may VBA.

Paano pagbukud-bukurin ang mga tab ng Excel ayon sa alpabeto gamit ang Ultimate Suite

Ang mga user ng aming Ultimate Suite para sa Excel ay hindi kailangang maglikot sa VBA - mayroon silang multi -functional na Workbook Manager sa kanilang pagtatapon:

Gamit ang tool na ito na idinagdag sa iyong Excel ribbon, ginagawa ang pag-alpabeto ng mga tab sa isang pag-click sa button, eksakto sa nararapat!

Kung gusto mong tuklasin ito at 70+ pang propesyonal na tool para sa Excel, available ang isang trial na bersyon ng aming Ultimate Suite para i-download dito.

Nagpapasalamat ako ikaw sa pagbabasa at umaasa na makita ka sa aming blog sa susunod na linggo!