Šajā pamācībā ir parādīts, kā varat ātri sakārtot Excel darblapas alfabētiskā secībā, izmantojot VBA kodu un rīku Workbook Manager.

Microsoft Excel piedāvā vairākus ātrus un vienkāršus veidus, kā sakārtot kolonnas vai rindas alfabētiskā secībā. Taču ir tikai viena metode, kā Excel programmā pārkārtot darblapas - velciet tās uz vēlamo pozīciju lapas cilnes joslā. Ja runa ir par cilņu alfabētisku sakārtošanu patiešām lielā darbgrāmatā, tas var būt garš un kļūdains veids. Meklējat alternatīvu, kas ietaupītu laiku? Ir tikai divas: VBA kods.vai trešo pušu rīkiem.

Kā ar VBA palīdzību programmā Excel sakārtot cilnes pēc alfabēta

Zemāk atradīsiet trīs VBA koda piemērus, lai sakārtotu Excel lapas augošā, dilstošā un jebkurā virzienā, pamatojoties uz lietotāja izvēli.

Pieņemot, ka jums ir zināma pieredze ar VBA, mēs izklāstīsim tikai pamata darbības, lai pievienotu makro darblapai:

1. Excel darbgrāmatā nospiediet Alt + F11, lai atvērtu Visual Basic redaktoru.
2. Kreisajā logā ar peles labo pogu noklikšķiniet uz Šīdarbgrāmata un pēc tam noklikšķiniet uz Ievietot > Modulis .
3. Ievietojiet VBA kodu logā Kods.
4. Nospiediet F5, lai palaistu makro.

Sīki izstrādātus norādījumus soli pa solim skatiet sadaļā Kā ievietot un palaist VBA kodu programmā Excel.

Padoms. Ja vēlaties saglabāt makrogrammu turpmākai lietošanai, noteikti saglabājiet failu kā Excel darbgrāmatu (.xlsm).

Varat arī lejupielādēt mūsu parauga Excel cilņu alfabētiskās sakārtošanas darba burtnīcu, iespējot saturu, ja tas tiek prasīts, un tieši no tās palaist vajadzīgo makro. Darba burtnīcā ir šādi makro:

• TabsAscending - sakārtot lapas alfabētiski no A līdz Z.
• TabsDescending - sakārtojiet lapas apgrieztā secībā no Z uz A.
• AlphabetizeTabs - sakārtot lapas cilnes abos virzienos, augošā vai dilstošā secībā.

Kad paraugs ir lejupielādēts un atvērts programmā Excel, atveriet savu darbgrāmatu, kurā vēlaties alfabētiski sakārtot cilnes, nospiediet Alt + F8 , atlasiet vajadzīgo makro un noklikšķiniet uz . Palaist .

Excel cilņu kārtošana pēc alfabēta no A līdz Z

Šis mazais makro sakārto pašreizējās darbgrāmatas lapas šādā secībā augošā burtu un ciparu secībā , vispirms darblapas, kuru nosaukumi sākas ar cipariem, tad lapas no A līdz Z.

Sub TabsAscending() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name)> UCase$(Application.Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next Next Next MsgBox "Tabs ir sakārtotas no A līdz Z." End Sub

Izkārtojiet Excel cilnes no Z uz A

Ja vēlaties šķirot lapas dilstošā burtu un ciparu secībā (no Z uz A, pēc tam lapas ar ciparu nosaukumiem), tad izmantojiet šādu kodu:

Sub TabsDescending() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name) <UCase$(Application.Sheets(j + 1).Name) Then Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next Next MsgBox "Tabs ir sakārtotas no Z līdz A." End Sub

Kartītes sakārtot pēc alfabēta augošā vai dilstošā secībā

Šis makroatkārtojums ļauj lietotājiem izlemt, kā sakārtot darblapas attiecīgajā darbgrāmatā - alfabētiski no A līdz Z vai apgrieztā secībā.

Tā kā standarta dialoglodziņš (MsgBox) programmā Excel VBA ļauj izvēlēties tikai no nedaudzām iepriekš definētām pogām, mēs izveidosim savu veidlapu (UserForm) ar trim pielāgotām pogām: No A līdz Z , Z uz A , un Atcelt .

Lai to izdarītu, atveriet Visual Basic redaktoru, ar peles labo pogu noklikšķiniet uz Šīdarbgrāmata un noklikšķiniet uz Ievietot > Lietotāja veidlapa . Nosauciet savu veidlapu SortOrderFrom un pievienojiet tai 4 vadības elementus: etiķeti un trīs pogas:

Pēc tam nospiediet taustiņu F7 (vai divreiz noklikšķiniet uz veidlapas), lai atvērtu Kods logu un ielīmējiet tajā turpmāk norādīto kodu. Kods pārtver pogas klikšķus un katrai pogai piešķir unikālu birku:

Privāta apakšsadaļa CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Privāta apakšsadaļa CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Privāta apakšsadaļa CommandButton3_Click() Me.Tag = 0 Me.Hide End Sub

Atkarībā no tā, vai lietotājs noklikšķina uz No A līdz Z vai Z uz A pogu savā veidlapā, kārtojiet cilnes augošā alfabētiskā secībā (izvēlēts pēc noklusējuma) vai dilstošā alfabētiskā secībā; vai aizveriet veidlapu un neko nedariet, ja Atcelt . Tas tiek darīts, izmantojot šādu VBA kodu, kuru ievietosiet parastajā veidā, izmantojot Ievietot > Modulis .

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Then Exit Sub For x = 1 To Application.Sheets.Count For y = 1 To Application.Sheets.Count - 1 If SortOrder = 1 Then If UCase$(Application.Sheets(y).Name)> 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) Then Sheets(y).Move after:=Sheets(y + 1) End If End If Next Next Next End Sub Function showUserForm() As Integer showUserForm = 0 Load SortOrderForm SortOrderForm.Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

Ja vēl neesat ļoti labi pārzinājis VBA, varat vienkārši lejupielādēt mūsu darba burtu cilņu sakārtošanas parauggrāmatas paraugu, atvērt to savā programmā Excel līdzās savam datnes, kurā vēlaties sakārtot cilnes, un palaist programmu AlphabetizeTabs makro no darbgrāmatas:

Izvēlieties vēlamo šķirošanas secību, piemēram, No A līdz Z un novērojiet rezultātus:

Padoms. Izmantojot VBA, varat arī izveidot Excel darblapu kopijas. Kods ir pieejams šeit: Kā dublēt lapu programmā Excel, izmantojot VBA.

Kā sakārtot Excel cilnes pēc alfabēta ar Ultimate Suite

Mūsu Excel lietojumprogrammas Ultimate Suite lietotājiem nav jārēķinās ar VBA - viņu rīcībā ir daudzfunkcionāls darbgrāmatu pārvaldnieks:

Izmantojot šo rīku, kas pievienots Excel lentē, cilnes var sakārtot pēc alfabēta ar vienu pogas klikšķi - tieši tā, kā tam vajadzētu būt!

Ja esat ieinteresēts izpētīt šo un vēl vairāk nekā 70 profesionālus rīkus programmai Excel, mūsu Ultimate Suite izmēģinājuma versija ir pieejama lejupielādei šeit.

Paldies, ka izlasījāt, un ceru jūs redzēt mūsu blogā nākamnedēļ!