Энэ заавар нь VBA код болон Workbook Manager хэрэглүүрийг ашиглан Excel-ийн ажлын хуудсыг цагаан толгойн үсгийн дарааллаар хэрхэн хурдан эрэмбэлэхийг харуулж байна.

Microsoft Excel нь цэгцлэх хэд хэдэн хурдан бөгөөд хялбар аргыг өгдөг. цагаан толгойн үсгийн дарааллаар багана эсвэл мөр. Гэхдээ Excel дээр ажлын хуудсыг дахин зохион байгуулах цорын ганц арга байдаг - тэдгээрийг хуудасны таб дээрх хүссэн байрлал руу чирнэ үү. Үнэхээр том ажлын дэвтэр дэх табуудыг цагаан толгойн үсгийн дараалалд оруулах тухай ярихад энэ нь урт бөгөөд алдаатай арга байж магадгүй юм. Цаг хэмнэсэн хувилбар хайж байна уу? Зөвхөн хоёр л байдаг: VBA код эсвэл гуравдагч талын хэрэгслүүд.

Excel дээрх табуудыг VBA-р цагаан толгойн үсгээр хэрхэн бичих вэ

Доор та Excel-ийг эрэмбэлэх гурван VBA кодын жишээг олох болно. хуудсууд нь хэрэглэгчийн сонголтоос хамааран өсөх, буурах, аль ч чиглэлд байна.

Та VBA-ийн талаар бага зэрэг туршлагатай гэсэн үг учраас бид зөвхөн таны ажлын хуудсанд макро нэмэх үндсэн алхмуудыг тоймлон харуулах болно:

1. Excel-ийн ажлын дэвтэртээ Alt + F11 дарж Visual Basic Editor-ийг нээнэ үү.
2. Зүүн талын самбараас ThisWorkbook дээр хулганы баруун товчийг дараад Insert<дээр дарна уу. 2> > Модуль .
3. Код цонхонд VBA кодыг буулгана уу.
4. Макро ажиллуулахын тулд F5 товчийг дарна уу.

Хэрэглэхийн тулд дэлгэрэнгүй алхам алхмаар зааварчилгааг Excel-д VBA кодыг хэрхэн оруулах, ажиллуулах талаар үзнэ үү.

Зөвлөмж. Хэрэв та макро цаашид ашиглах зорилгоор хадгалахыг хүсвэл файлаа Excel макро идэвхжүүлсэн ажлын ном (.xlsm) болгон хадгалахаа мартуузай.

Өөр нэг арга бол та манай Excel Tabs-ийн цагаан толгойн үсгийн дарааллаар ажлын номыг татаж аваад, хэрэв хүсвэл контентыг идэвхжүүлж, хүссэн макрогоо тэндээс шууд ажиллуулж болно. Ажлын ном нь дараах макронуудыг агуулна:

• TabsAscending - хуудсыг А-аас Я хүртэл цагаан толгойн дарааллаар эрэмбэлэх.
• TabsDescending - хүснэгтүүдийг урвуу дарааллаар, Z-ээс A хүртэл.
• AlphabetizeTabs - хуудасны табуудыг хоёр чиглэлд, өсөх эсвэл буурахаар эрэмбэлэх.

Жишээ ажлын номыг татаж аваад нээнэ үү. Excel-ийн хувьд, табуудыг цагаан толгойн үсгээр солихыг хүссэн ажлын дэвтрээ нээж, Alt + F8 дарж, хүссэн макро сонгоод Ажиллуулах -г товшино уу.

Excel табуудыг А-аас Z хүртэл цагаан толгойн дарааллаар эрэмбэлэх

Энэ жижиг макро нь одоогийн ажлын дэвтэрт байгаа хуудсыг өсөх үсэг-тоон дарааллаар , эхлээд нэр нь тоогоор эхэлсэн ажлын хуудас, дараа нь А-аас Z хүртэлх хуудаснуудыг байрлуулна.

Дэд таб Өсөх() i = хувьд = 1 Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Нэр) Дараа нь Sheets(j). Дараа нь зөөх:=Sheets(j + 1) Дараах бол дуусгах Дараагийн MsgBox "Табуудыг А-аас Я хүртэл эрэмбэлсэн." Төгсгөлийн дэд

Excel табуудыг Z-ээс A хүртэл цэгцлээрэй

Хэрэв та хуудсаа буурах үсэг-тоон дарааллаар (Z-ээс А хүртэл, дараа нь тоон нэртэй хуудаснууд) эрэмбэлэхийг хүсвэл дараахыг ашиглана уу. дараах код:

Sub TabsDescending() For i = 1 ToApplication.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Нэр) Дараа нь Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Дараагийн MsgBox "Табуудыг Z-ээс A хүртэл эрэмбэлсэн. " Төгсгөлийн дэд

Өсөх эсвэл буурах табуудыг цагаан толгойн үсгээр бичих

Энэ макро нь таны хэрэглэгчид өгөгдсөн ажлын дэвтэр дэх ажлын хуудсыг цагаан толгойн үсгийн дарааллаар А-аас Я хүртэл эсвэл урвуу дарааллаар хэрхэн эрэмбэлэхийг шийдэх боломжийг олгодог.

Excel VBA дахь стандарт харилцах цонх (MsgBox) нь зөвхөн урьдчилан тодорхойлсон цөөн хэдэн товчлуураас сонгох боломжийг олгодог бөгөөд бид A-аас Z , Z-аас A<гэсэн гурван тусгай товчлуур бүхий өөрийн маягтыг (UserForm) үүсгэх болно. 2>, Цуцлах .

Үүний тулд Visual Basic Editor-ийг нээж ThisWorkbook дээр хулганы баруун товчийг дараад Insert > 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_Click () Me.Tag = 0 Me.Hide End Sub

Хэрэглэгч таны маягт дээрх A-аас Z-ээс эсвэл Z-ээс A товчийг дарах эсэхээс хамаарч табуудыг эрэмбэлэхөсөх цагаан толгойн дараалал (анхдагчаар сонгосон) эсвэл буурах үсгийн дараалал; эсвэл Цуцлах тохиолдолд маягтыг хааж, юу ч хийхгүй. Энэ нь дараах VBA кодоор хийгддэг бөгөөд үүнийг Insert > Module -ээр дамжуулан ердийн аргаар оруулна.

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Дараа нь Sub for x = 1-ээс Exit Application.Sheets.Count For y = 1 to Application.Sheets.Count - 1 Хэрэв SortOrder = 1 бол UCase$(Application.Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Нэр) Дараа нь Sheets(y). Дараа нь зөөнө:=Sheets(y + 1) End If ElseIf SortOrder = 2 Дараа нь If UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Нэр) Дараа нь Sheets(y). Дараа нь зөөнө:=Sheets(y + 1) End If End дараагийн бол дараагийн төгсгөл Дэд функц showUserForm() Бүхэл тоогоор showUserForm = 0 SortOrderForm-г ачаалах SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

Хэрэв та VBA-г ашиглахад тийм ч таатай биш байгаа бол манай үлгэр жишээ номыг табуудыг цагаан толгойн үсгээр дарааллаар нь татаж аваад хүссэн газраа өөрийн Excel дээрээ нээж болно. табуудыг эрэмбэлэхийн тулд AlphabetizeTabs макрог өөрийн ажлын номноос ажиллуулна уу:

Таалагдсан эрэмбэлэх дарааллыг сонго, А-аас Z<2 гэж хэлнэ үү>, мөн үр дүнг ажигла:

Зөвлөгөө. VBA-ийн тусламжтайгаар та Excel-ийн ажлын хуудасны хуулбарыг үүсгэж болно. Кодыг эндээс авах боломжтой: ХэрхэнVBA-тай Excel-ийн давхар хуудас.

Ultimate Suite-ийн тусламжтайгаар Excel-ийн табуудыг цагаан толгойн дарааллаар хэрхэн эрэмбэлэх вэ

Манай Excel-д зориулсан Ultimate Suite-ийн хэрэглэгчид VBA-тай эргэлзэх шаардлагагүй - тэд олон талт програмтай. -Функциональ ажлын дэвтрийн менежер:

Энэ хэрэглүүрийг Excel туузан дээр нэмснээр табуудыг цагаан толгойн үсгийн дарааллаар нэг товчлуур дээр дарснаар яг байх ёстой шигээ хийгдэнэ!

Хэрэв та Excel-д зориулсан энэ болон 70 гаруй мэргэжлийн хэрэгслийг судлах сонирхолтой байгаа бол манай Ultimate Suite-н туршилтын хувилбарыг эндээс татаж авах боломжтой.

Би баярлалаа. уншсан тул та бүхэнтэй ирэх долоо хоногт манай блог дээр уулзана гэдэгт найдаж байна!