Sut i ddidoli taflenni gwaith yn nhrefn yr wyddor / alffaniwmerig yn Excel?
Fel rheol gallwch chi ddidoli neu drefnu archeb tabiau taflen waith yn Excel trwy lusgo a gollwng y tabiau dalen ar y bar tab dalen. Ond ar gyfer cyflawni hyn gyda nifer o daflenni gwaith, efallai y byddwch chi'n ystyried y ffyrdd anodd canlynol i ddidoli taflenni gwaith yn gyflym yn nhrefn yr wyddor / alffaniwmerig mewn llyfr gwaith mawr.
Trefnu taflenni gwaith yn nhrefn yr wyddor / alffaniwmerig gyda chod VBA
Trefnu taflenni gwaith yn nhrefn yr wyddor / alffaniwmerig gyda Kutools ar gyfer Excel
Trefnu taflenni gwaith yn nhrefn yr wyddor / alffaniwmerig gyda chod VBA
Mae macro ar gyfer didoli taflenni gwaith yn ôl alffa wedi'i bostio yng nghanolfan Cymorth Microsoft. Gallwn ei gymhwyso gyda'r camau canlynol:
1. Dal i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch y macro canlynol yn y Ffenestr Modiwl.
VBA: Trefnu taflenni yn nhrefn yr wyddor / alffaniwmerig
Sub SortWorkBook()
'Updateby20140624
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
For j = 1 To Application.Sheets.Count - 1
If xResult = vbYes Then
If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
ElseIf xResult = vbNo Then
If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
Application.Sheets(j).Move after:=Application.Sheets(j + 1)
End If
End If
Next
Next
End Sub
3. Pwyswch y F5 allwedd i redeg y macro hwn. Yn y blwch prydlon canlynol, cliciwch Ydy, bydd yr holl daflenni gwaith yn cael eu didoli yn ôl trefn yr wyddor esgynnol; a chlicio Na, bydd yr holl daflenni gwaith yn cael eu didoli yn ôl trefn yr wyddor ddisgynnol.
Trefnu taflenni gwaith yn nhrefn yr wyddor / alffaniwmerig gyda Kutools ar gyfer Excel
Os nad ydych chi'n gyfarwydd â macros neu'n well gennych chi ffyrdd eraill, gallwch chi geisio Kutools ar gyfer Excel. Kutools ar gyfer Excel's Trefnu Taflenni gall offeryn ddidoli pob taflen waith yn hawdd.
Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.
1. Cliciwch Kutools Byd Gwaith > Taflen Waith > Trefnu Taflenni. Gweler y screenshot:
2. Yn y Trefnu Taflenni blwch deialog, dewiswch un math didoli sydd ei angen arnoch chi ar y cwarel iawn, fel Trefnu Alpha, Trefnu Rhifol Alpha, ac yna cliciwch ar OK botwm. Gweler y screenshot:
Yna caiff yr holl daflenni gwaith eu didoli yn seiliedig ar y math didoli penodol. Gweler y screenshot:
Kutools ar gyfer Excel's Trefnu Taflenni gall offeryn aildrefnu'r holl daflenni gwaith yn y llyfr gwaith gweithredol yn gyflym. Mae'n cefnogi sawl math o ddidoli, gan gynnwys Trefnu Alpha, Trefnu Rhifol Alpha, Trefnu Lliw ac Reverse. Yn ogystal, gallwch hefyd symud i fyny / i lawr taflenni gwaith, ac ailosod y didoli.
Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.
Demo: Trefnwch yr holl daflenni gwaith yn nhrefn yr wyddor / alffaniwmerig
Erthygl gysylltiedig:
Trefnu tabiau taflen waith yn ôl lliw
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!