Təlimat VBA kodu və İş Kitabı Meneceri alətindən istifadə etməklə Excel iş vərəqlərini əlifba sırası ilə necə tez çeşidləyə biləcəyinizi göstərir.

Microsoft Excel tənzimləmənin bir sıra sürətli və asan yollarını təqdim edir. sütunlar və ya satırlar əlifba sırası ilə. Ancaq Excel-də iş vərəqlərini yenidən təşkil etmək üçün yalnız bir üsul var - onları vərəq nişanı çubuğunda istədiyiniz yerə sürükləyin. Həqiqətən böyük bir iş kitabında nişanların əlifba sıralanmasına gəldikdə, bu, uzun və səhv bir yol ola bilər. Vaxta qənaət edən alternativ axtarırsınız? Yalnız ikisi var: VBA kodu və ya üçüncü tərəf alətləri.

VBA ilə Excel-də tabları əlifba sırası ilə necə sıralamaq olar

Aşağıda Excel-i çeşidləmək üçün üç VBA kodu nümunəsi tapa bilərsiniz. vərəqlər istifadəçinin seçiminə əsasən yüksələn, enən və hər iki istiqamətdə.

VBA ilə müəyyən təcrübəniz olduğunu bildirərək, iş vərəqinizə makro əlavə etmək üçün yalnız əsas addımları təsvir edəcəyik:

1. Excel iş kitabında Visual Basic Redaktorunu açmaq üçün Alt + F11 düymələrini basın.
2. Sol paneldə ThisWorkbook üzərinə sağ klikləyin və sonra Daxil et<üzərinə klikləyin. 2> > Modul .
3. VBA kodunu Kod pəncərəsinə yapışdırın.
4. Makronu işə salmaq üçün F5 düyməsini basın.

Üçün ətraflı addım-addım təlimatlar üçün Excel-də VBA kodunu necə daxil etmək və işə salmaq olar.

İpucu. Makronu sonrakı istifadə üçün saxlamaq istəyirsinizsə, faylınızı Excel makro-aktiv iş kitabı (.xlsm) kimi yadda saxlamağınızdan əmin olun.

Alternativ olaraq, siz bizim nümunə Əlifba sırasına görə Excel Nişanları iş dəftərimizi endirə, tələb olunarsa məzmunu aktivləşdirə və istədiyiniz makronu birbaşa oradan işə sala bilərsiniz. İş kitabında aşağıdakı makrolar var:

• TabsAscending - vərəqləri əlifba sırası ilə A-dan Z-yə qədər çeşidləyin.
• TabsAscending - vərəqləri cədvəldə yerləşdirin. tərs qaydada, Z-dən A-ya qədər.
• Əlifbaya görə Nişanlar - vərəq nişanlarını hər iki istiqamətdə, artan və ya azalan şəkildə çeşidləyin.

Nümunə iş dəftərini endirərək və burada açın. Excel-də, nişanları əlifba sırasına salmaq istədiyiniz yerdə öz iş kitabınızı açın, Alt + F8 düymələrini basın, istədiyiniz makronu seçin və Çalışdır düyməsini basın.

Excel nişanlarını əlifba sırası ilə A-dan Z<15-ə qədər çeşidləyin>

Bu kiçik makro cari iş kitabındakı vərəqləri artan alfasayısal ardıcıllıqla , əvvəlcə adları rəqəmlərlə başlayan iş vərəqlərini, sonra A-dan Z-ə qədər olan vərəqləri təşkil edir.

Alt TabsAscending() üçün i = 1 Application.Sheets.Count For j = 1 Application.Sheets.Count - 1 Əgər UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Ad) Sonra Cədvəl(j).Sonra köçürün:=Cədvəl(j + 1) Sonrakısa Son Sonrakı Mesaj qutusu "Tablar A-dan Z-yə qədər çeşidlənib." End Sub

Excel nişanlarını Z-dən A-ya qədər təşkil edin

Əgər siz vərəqlərinizi azalan əlifba-rəqəm ardıcıllığı ilə (Z-dən A-a, sonra rəqəm adları olan vərəqlər) çeşidləmək istəyirsinizsə aşağıdakı kod:

Sub TabsDescending() i = 1 ÜçünApplication.Sheets.Count For j = 1 To Application.Sheets.Count - 1 Əgər UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Sonra Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next MsgBox "Tablar Z-dən A-ya qədər çeşidlənib. " Son Alt

Artan və ya azalan tabların əlifba sırasına salınması

Bu makro istifadəçilərinizə verilmiş iş kitabında iş vərəqlərini əlifba sırası ilə A-dan Z-yə və ya tərs qaydada necə çeşidləmək barədə qərar verməyə imkan verir.

O vaxtdan bəri. Excel VBA-da standart dialoq qutusu (MsgBox) yalnız bir neçə əvvəlcədən təyin edilmiş düymələrdən seçim etməyə imkan verir, biz üç xüsusi düymə ilə öz formamızı (UserForm) yaradacağıq: A - Z , Z - A və Ləğv et .

Bunun üçün Visual Basic Redaktorunu açın, ThisWorkbook üzərinə sağ klikləyin və Daxil et > UserForm . Formanızı SortOrderFrom adlandırın və ona 4 nəzarət elementi əlavə edin: etiket və üç düymə:

Sonra F7 düyməsini basın (və ya formaya iki dəfə klikləyin) ) Kod pəncərəsini açmaq və aşağıdakı kodu ora yapışdırmaq üçün. Kod düymə kliklərini kəsir və hər düyməyə unikal teq təyin edir:

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 Mən. Son Altı Gizlət

İstifadəçinin formada A-dan Z-yə və ya Z-dən A düyməsinə klik etməsindən asılı olaraq, nişanları çeşidləyinartan əlifba sırası (standart olaraq seçilir) və ya azalan əlifba sırası; və ya Ləğv et halda formanı bağlayın və heç nə etməyin. Bu, Insert > Module vasitəsilə adi şəkildə daxil etdiyiniz aşağıdakı VBA kodu ilə edilir.

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Sonra Altdan çıxın x = 1 üçün Application.Sheets.Count üçün y = 1 Application.Sheets.Count - 1 Əgər SortOrder = 1 Əgər UCase$(Application.Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Ad) Sonra Cədvəl(y).Sonra köçürün:=Cədvəl(y + 1) Sonda ElseIf SortOrder = 2 Sonra UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Ad) Sonra Vərəqlər(y).Sonra köçürün:=Cədvəl(y + 1) Sondursa, Sonrakıdırsa, Sonrakı Sondur Alt Funksiyası showUserForm() Tam ədəd olaraq showUserForm = 0 SortOrderForm-u yüklə SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Boşaltma SortOrderForm End Function

Əgər siz hələ VBA ilə o qədər də rahat deyilsinizsə, sadəcə olaraq Nümunə İş Kitabımızı Nişanları əlifba sırasına salmaq üçün endirə bilərsiniz, onu istədiyiniz yerdə öz faylınızın yanında Excel-də aça bilərsiniz. tabları çeşidləmək və iş kitabınızdan Əlifbaya görə Nişanlar makrosunu işə salmaq üçün:

Tercih olunan çeşidləmə qaydasını seçin, deyin ki, A-dan Z , və nəticələri müşahidə edin:

İpucu. VBA ilə siz Excel iş vərəqlərinizin surətlərini də yarada bilərsiniz. Kod burada mövcuddur: Necə etmək olarExcel-də VBA ilə dublikat vərəqi.

Ultimate Suite ilə Excel tablarını əlifba sırası ilə necə çeşidləmək olar

Excel üçün Ultimate Suite istifadəçiləri VBA ilə skripka etmək məcburiyyətində deyillər - onların çoxlu -funksional İş Kitabı Meneceri onların ixtiyarındadır:

Bu alət Excel lentinizə əlavə olunmaqla, nişanların əlifba sırasına salınması bir düyməyə kliklə həyata keçirilir, tam olaraq olmalıdır!

Bu və Excel üçün 70-dən çox peşəkar aləti araşdırmaq istəyirsinizsə, Ultimate Suite-in sınaq versiyasını buradan yükləmək olar.

Təşəkkür edirəm Sizi oxuduğunuz üçün və gələn həftə bloqumuzda görməyə ümid edirik!