Падручнік паказвае, як можна хутка сартаваць працоўныя аркушы Excel у алфавітным парадку з дапамогай кода VBA і інструмента Workbook Manager.

Microsoft Excel забяспечвае шэраг хуткіх і простых спосабаў упарадкавання слупкі або радкі ў алфавітным парадку. Але ёсць толькі адзін спосаб змяніць парадак лістоў у Excel - перацягнуць іх у патрэбнае месца на панэлі ўкладак лістоў. Калі справа даходзіць да алфавітнага размяшчэння ўкладак у сапраўды вялікай кнізе, гэта можа быць доўгім і памылковым шляхам. Шукаеце альтэрнатыву, якая зэканоміць час? Іх існуе толькі два: код VBA або інструменты іншых вытворцаў.

Як размясціць укладкі ў алфавітным парадку ў Excel з дапамогай VBA

Ніжэй вы знойдзеце тры прыклады кода VBA для сартавання Excel аркушы па ўзрастанні, змяншэнні і ў любым накірунку ў залежнасці ад выбару карыстальніка.

Мяркуючы, што ў вас ёсць некаторы досвед працы з VBA, мы апішам толькі асноўныя крокі для дадання макраса на ваш працоўны ліст:

1. У вашай працоўнай кнізе Excel націсніце Alt + F11, каб адкрыць рэдактар ​​Visual Basic.
2. На левай панэлі пстрыкніце правай кнопкай мышы ThisWorkbook , а затым націсніце Уставіць > Модуль .
3. Устаўце код VBA ў акно кода.
4. Націсніце F5, каб запусціць макрас.

Для падрабязныя пакрокавыя інструкцыі глядзіце, як уставіць і запусціць код VBA ў Excel.

Савет. Калі вы жадаеце захаваць макрас для далейшага выкарыстання, не забудзьцеся захаваць файл як кнігу Excel з падтрымкай макрасаў (.xlsm).

У якасці альтэрнатывы вы можаце загрузіць наш узор працоўнай кнігі Alphabetize Excel Tabs, уключыць кантэнт, калі будзе прапанавана, і запусціць патрэбны макрас непасрэдна адтуль. Рабочая кніга змяшчае наступныя макрасы:

• TabsAscending - сартаваць аркушы ў алфавітным парадку ад А да Я.
• TabsDescending - арганізаваць аркушы ў зваротны парадак, ад Z да A.
• AlphabetizeTabs - сартаванне табуляцый аркуша ў абодвух напрамках, па ўзрастанні або змяншэнні.

З узорам працоўнай кнігі, спампаваным і адкрытым у ваш Excel, адкрыйце ўласную працоўную кнігу, у якой вы хочаце размясціць укладкі ў алфавітным парадку, націсніце Alt + F8 , выберыце патрэбны макрас і націсніце Выканаць .

Сартуйце ўкладкі Excel у алфавітным парадку ад A да Z

Гэты маленькі макрас упарадкоўвае аркушы ў бягучай працоўнай кнізе ў літарна-лічбавым парадку ўзрастання , спачатку аркушы, назвы якіх пачынаюцца з лічбаў, потым аркушы ад A да Z.

Sub TabsAscending() For i = 1 To Application.Sheets.Count Для j = 1 To Application.Sheets.Count - 1 Калі UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next Next MsgBox "Укладкі былі адсартаваныя ад А да Я." End Sub

Упарадкаваць укладкі Excel ад Z да A

Калі вы хочаце адсартаваць аркушы ў літарна-лічбавым парадку па змяншэнні (ад Z да A, затым аркушы з лічбавымі назвамі), выкарыстоўвайце наступны код:

Sub TabsDescending() For i = 1 ToApplication.Sheets.Count Для j = 1 Да Application.Sheets.Count - 1 Калі 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 MsgBox "Укладкі былі адсартаваныя ад Z да A. " End Sub

Размясціце ўкладкі ў алфавітным парадку па ўзрастанні або змяншэнні

Гэты макрас дазваляе вашым карыстальнікам вырашаць, як сартаваць працоўныя аркушы ў дадзенай кнізе, у алфавітным парадку ад А да Я або ў зваротным парадку.

Паколькі стандартнае дыялогавае акно (MsgBox) у Excel VBA дазваляе выбіраць толькі з некалькіх загадзя вызначаных кнопак, мы створым нашу ўласную форму (UserForm) з трыма карыстальніцкімі кнопкамі: А да Я , Я да А і Скасаваць .

Для гэтага адкрыйце рэдактар ​​Visual Basic, пстрыкніце правай кнопкай мышы ThisWorkbook і націсніце Уставіць > Форма карыстальніка . Назавіце сваю форму SortOrderFrom і дадайце да яе 4 элементы кіравання: метку і тры кнопкі:

Далей націсніце F7 (ці двойчы пстрыкніце форму ), каб адкрыць акно Код і ўставіць туды прыведзены ніжэй код. Код перахоплівае націсканні кнопак і прысвойвае кожнай кнопцы унікальны тэг:

Private 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

У залежнасці ад таго, ці націскае карыстальнік кнопку А да Я або Я да А на вашай форме, сартыруйце ўкладкі ўалфавітны парадак па ўзрастанні (абраны па змаўчанні) або алфавітны парадак па змяншэнні; або закрыць форму і нічога не рабіць у выпадку Адмена . Гэта робіцца з дапамогай наступнага кода VBA, які вы ўстаўляеце звычайным спосабам праз Insert > Module .

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 End Sub Function showUserForm() As Integer showUserForm = 0 Загрузіць SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

Калі вы яшчэ не вельмі добра карыстаецеся VBA, вы можаце проста загрузіць наш узор кнігі для алфавітнага размяшчэння ўкладак, адкрыць яго ў вашым Excel разам з вашым уласным файлам, дзе вы хочаце каб сартаваць укладкі, і запусціце макрас AlphabetizeTabs з вашай кнігі:

Выберыце пажаданы парадак сартавання, скажам, А да Я і назірайце за вынікамі:

Савет. З дапамогай VBA вы таксама можаце ствараць копіі лістоў Excel. Код даступны тут: Якдублікат аркуша ў Excel з VBA.

Як сартаваць укладкі Excel у алфавітным парадку з дапамогай Ultimate Suite

Карыстальнікам нашага Ultimate Suite для Excel не трэба важдацца з VBA - у іх ёсць некалькі -функцыянальны менеджэр працоўных кніг у іх распараджэнні:

З дапамогай гэтага інструмента, дададзенага да вашай стужкі Excel, алфавітны парадак укладак робіцца адным націскам кнопкі, менавіта так, як і павінна быць!

Калі вам цікава вывучыць гэты і больш за 70 прафесійных інструментаў для Excel, пробную версію нашага Ultimate Suite можна спампаваць тут.

Я дзякую вам за чытанне і спадзяюся ўбачыць вас у нашым блогу на наступным тыдні!