Оқулық VBA кодын және Жұмыс кітабын басқару құралын пайдалану арқылы Excel жұмыс парақтарын алфавиттік ретпен қалай жылдам сұрыптауға болатынын көрсетеді.

Microsoft Excel бағдарламасы реттеудің бірнеше жылдам және оңай жолдарын ұсынады. алфавиттік ретпен бағандар немесе жолдар. Бірақ Excel бағдарламасында жұмыс парақтарын қайта реттеудің бір ғана әдісі бар - оларды парақ қойындысының жолағындағы қажетті орынға сүйреңіз. Шынында үлкен жұмыс кітабындағы қойындыларды алфавитке бөлуге келетін болсақ, бұл ұзақ және қате жол болуы мүмкін. Уақытты үнемдейтін балама іздеп жүрсіз бе? Тек екеуі бар: VBA коды немесе үшінші тарап құралдары.

VBA көмегімен Excel бағдарламасындағы қойындыларды алфавитке бөлу жолы

Төменде Excel сұрыптау үшін үш VBA код мысалын табасыз. пайдаланушы таңдауына негізделген өсу, кему және кез келген бағытта парақтар.

VBA-мен біраз тәжірибеңіз бар екенін білдіре отырып, біз жұмыс парағына макрос қосудың негізгі қадамдарын ғана сипаттаймыз:

1. Excel жұмыс кітабында Visual Basic өңдегішін ашу үшін Alt + F11 пернелер тіркесімін басыңыз.
2. Сол жақ тақтада ThisWorkbook тінтуірдің оң жақ түймешігін басып, Кірістіру<түймесін басыңыз. 2> > Модуль .
3. Код терезесіне VBA кодын қойыңыз.
4. Макросты іске қосу үшін F5 пернесін басыңыз.

үшін егжей-тегжейлі қадамдық нұсқауларды қараңыз, Excel бағдарламасында VBA кодын енгізу және іске қосу жолын қараңыз.

Кеңес. Макросты одан әрі пайдалану үшін сақтағыңыз келсе, файлыңызды Excel макростары қосылған жұмыс кітабы (.xlsm) ретінде сақтауды ұмытпаңыз.

Балама ретінде Excel қойындыларының алфавиті бойынша жұмыс кітабын жүктеп алуға, сұралса мазмұнды қосуға және қажетті макросты сол жерден тікелей іске қосуға болады. Жұмыс кітабында келесі макростар бар:

• TabsAscending - парақтарды алфавит бойынша А-дан Я-ға дейін сұрыптау.
• TabsAscending - кестеде парақтарды ретке келтіру. кері ретпен, Z-ден A-ға дейін.
• AlphabetizeTabs - парақ қойындыларын екі бағытта, өсу немесе кему бойынша сұрыптау.

Жұмыс кітабын жүктеп алып, келесіде ашыңыз. Excel бағдарламасында қойындыларды алфавиттеу керек жерде жеке жұмыс кітабын ашыңыз, Alt + F8 пернелерін басыңыз, қажетті макросты таңдап, Іске қосу пернесін басыңыз.

Excel қойындыларын алфавит бойынша A-дан Z-ге дейін сұрыптаңыз

Бұл шағын макрос ағымдағы жұмыс кітабындағы парақтарды өсу әріптік-цифрлық ретпен , алдымен аттары сандардан басталатын жұмыс парақтарын, содан кейін А-дан Z-ге дейінгі парақтарды орналастырады.

Ішкі қойындыларӨсу() үшін i = 1 Application.Sheets.Count үшін j = 1 Application.Sheets.Count үшін - 1 Егер UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Аты) Содан кейін Парақтар(j).Кейін жылжытыңыз:=Sheets(j + 1) Келесі болса Аяқтау Келесі MsgBox "Қойындылар А-дан Я-ға дейін сұрыпталды." End Sub

Excel қойындыларын Z-ден A-ға дейін реттеу

Егер парақтарды кему бойынша әріптік-цифрлық ретпен (Z-ден A-ға дейін, содан кейін сандық атаулары бар парақтар) сұрыптағыңыз келсе, келесі код:

Sub TabsDescending() үшін i = 1 КімгеApplication.Sheets.Count for j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Содан кейін Application.Sheets(j).Ove after:=Application.Sheets(j + 1) End If Next Келесі MsgBox "Қойындылар Z-ден A-ға дейін сұрыпталды. " End Sub

Өсу немесе кему бойынша қойындыларды алфавиттік ретке келтіру

Бұл макрос пайдаланушыларға берілген жұмыс кітабындағы жұмыс парақтарын алфавит бойынша А-дан Я-ға дейін немесе кері тәртіпте қалай сұрыптау керектігін шешуге мүмкіндік береді.

Себебі Excel VBA бағдарламасындағы стандартты диалогтық терезе (MsgBox) тек бірнеше алдын ала анықталған түймелердің ішінен таңдауға мүмкіндік береді, біз үш реттелетін түймелермен өз пішінімізді (UserForm) жасаймыз: A-дан Z , Z-ден A және Болдырмау .

Ол үшін Visual Basic өңдегішін ашып, ThisWorkbook түймесін тінтуірдің оң жақ түймешігімен басып, Кірістіру ><түймесін басыңыз. 1>UserForm . Пішініңізге 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_Cli () Me.Tag = 0 Me.Hide End Sub

Пайдаланушы пішіндегі A - Z немесе Z - A түймешігін басқанына байланысты, қойындыларды сұрыптаңыз:өсу бойынша алфавиттік тәртіп (әдепкі бойынша таңдалады) немесе кему алфавиттік реті; немесе Болдырмау жағдайда пішінді жабыңыз және ештеңе жасамаңыз. Бұл Кірістіру > Модуль арқылы әдеттегі жолмен кірістіретін келесі VBA кодымен орындалады.

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Содан кейін Sub for x = 1 үшін Application.Sheets.Count үшін y = 1 Application.Sheets.Count үшін - 1 Егер SortOrder = 1 болса, онда UCase$(Application.Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Name) Содан кейін Sheets(y).Кейін жылжытыңыз:=Sheets(y + 1) End If ElseIf SortOrder = 2 Содан кейін If UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) Содан кейін Sheets(y).Кейін жылжытыңыз:=Sheets(y + 1) End If End If Next If Next Next End Sub Function showUserForm() Integer showUserForm = 0 SortOrderForm жүктеңіз SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End функциясы

Егер сізге VBA-мен онша ыңғайлы болмасаңыз, қойындыларды алфавитке бөлуге арналған үлгі жұмыс кітабын жай ғана жүктеп алуға болады, оны Excel бағдарламасында өз файлыңызбен қатар қалаған жерде ашыңыз. қойындыларды сұрыптау үшін және жұмыс кітабыңыздағы AlphabetizeTabs макросын іске қосыңыз:

Қалаулы сұрыптау ретін таңдаңыз, айталық, A-Z , және нәтижелерді қараңыз:

Кеңес. VBA көмегімен Excel жұмыс парақтарының көшірмелерін де жасауға болады. Код мына жерде қол жетімді: ҚалайExcel бағдарламасында VBA көмегімен қайталанатын парақ.

Ultimate Suite көмегімен Excel қойындыларын алфавит бойынша сұрыптау жолы

Excelге арналған Ultimate Suite пайдаланушылары VBA-мен айналысудың қажеті жоқ - оларда мультипликация бар. -функционалды жұмыс кітабы менеджері олардың иелігінде:

Бұл құрал Excel лентасына қосылғанда қойындыларды алфавитке бөлу бір түймені басу арқылы орындалады, дәл солай болуы керек!

Егер сіз Excel үшін осы және 70-тен астам кәсіби құралдарды зерттегіңіз келсе, Ultimate Suite қолданбасының сынақ нұсқасын осы жерден жүктеп алуға болады.

Рахмет. Сізді оқығаныңыз үшін және келесі аптада блогымызда көреміз деп үміттенеміз!