Tabl cynnwys
Mae'r tiwtorial yn dangos sut y gallwch ddidoli taflenni gwaith Excel yn gyflym yn nhrefn yr wyddor trwy ddefnyddio cod VBA a'r offeryn Rheolwr Llyfr Gwaith.
Mae Microsoft Excel yn darparu nifer o ffyrdd cyflym a hawdd o drefnu colofnau neu resi yn nhrefn yr wyddor. Ond dim ond un dull sydd i aildrefnu taflenni gwaith yn Excel - llusgwch nhw i'r safle dymunol ar y bar tab dalen. O ran rhoi'r wyddor tabiau mewn llyfr gwaith mawr iawn, gall hyn fod yn ffordd hir a gwallus. Chwilio am ddewis arall sy'n arbed amser? Dim ond dau sy'n bodoli: cod VBA neu offer trydydd parti.
Isod fe welwch dair enghraifft o god VBA i ddidoli Excel taflenni esgynnol, disgynnol, ac i'r naill gyfeiriad neu'r llall yn seiliedig ar ddewis y defnyddiwr.
Gan awgrymu bod gennych rywfaint o brofiad gyda VBA, byddwn ond yn amlinellu'r camau sylfaenol i ychwanegu macro i'ch taflen waith:
<8Ar gyfer y cyfarwyddiadau cam wrth gam manwl, gweler Sut i fewnosod a rhedeg cod VBA yn Excel.
Awgrym. Os ydych chi am gadw'r macro i'w ddefnyddio ymhellach, gwnewch yn siŵr eich bod chi'n cadw'ch ffeil fel llyfr gwaith macro-alluogi Excel (.xlsm).
Fel arall, gallwch lawrlwytho ein llyfr gwaith sampl Alphabetize Excel Tabs, galluogi cynnwys os gofynnir i chi, a rhedeg y macro dymunol yn uniongyrchol oddi yno. Mae'r llyfr gwaith yn cynnwys y macros canlynol:
- TabsEscending - didoli taflenni yn nhrefn yr wyddor o A i Z.
- TabsDescending - trefnwch ddalennau yn y trefn wrthdroi, o Z i A.
- AlphabetizeTabs - didoli tabiau dalennau i'r ddau gyfeiriad, esgynnol neu ddisgynnol.
Gyda'r llyfr gwaith sampl wedi'i lawrlwytho ac yn agor i mewn eich Excel, agorwch eich llyfr gwaith eich hun lle rydych chi am wyddor tabiau, pwyswch Alt + F8 , dewiswch y macro dymunol, a chliciwch Rhedeg .
Trefnu tabiau Excel yn nhrefn yr wyddor o A i Z<15
Mae'r macro bach hwn yn trefnu'r dalennau yn y llyfr gwaith cyfredol yn trefn alffaniwmerig esgynnol , taflenni gwaith cyntaf y mae eu henwau'n dechrau gyda rhifau, yna dalennau o A i Z.
Is-dabiau'n esgyn() Ar gyfer i = 1 At Application.Sheets.Count Ar gyfer j = 1 I Application.Sheets.Count - 1 Os UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Yna Sheets(j).Move after:=Taflenni(j + 1) Diwedd Os Nesaf Nesaf MsgBox "Mae'r tabiau wedi'u trefnu o A i Z." Diwedd IsTrefnwch dabiau Excel o Z i A
Os ydych am ddidoli eich dalennau yn y drefn alffaniwmerig i lawr (Z i A, yna dalennau ag enwau rhifol), yna defnyddiwch y cod canlynol:
Is-dabiau disgyn() Ar gyfer i = 1 IApplication.Sheets.Count Ar gyfer j = 1 I Application.Sheets.Count - 1 Os UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Yna Application.Sheets(j).Move after:=Application.Sheets(j + 1) Diwedd Os Nesaf Nesaf MsgBox "Mae'r tabiau wedi'u trefnu o Z i A. " Diwedd IsTabiau'r wyddor yn esgyn neu'n disgyn
Mae'r macro hwn yn gadael i'ch defnyddwyr benderfynu sut i ddidoli taflenni gwaith mewn llyfr gwaith penodol, yn nhrefn yr wyddor o A i Z neu yn y drefn wrthdroi.
Ers y blwch deialog safonol (MsgBox) yn Excel VBA yn unig yn caniatáu dewis o lond llaw o fotymau wedi'u diffinio ymlaen llaw, byddwn yn creu ein ffurflen ein hunain (UserForm) gyda thri botymau arferiad: A i Z , Z i A , a Canslo .
Ar gyfer hyn, agorwch y Golygydd Sylfaenol Gweledol, de-gliciwch Y Llyfr Gwaith Hwn , a chliciwch Mewnosod > Ffurflen Defnyddiwr . Enwch eich ffurflen SortOrderFrom , ac ychwanegwch 4 rheolydd ati: label a thri botwm:
Nesaf, pwyswch F7 (neu cliciwch ddwywaith ar y ffurflen ) i agor y ffenestr Cod a gludo'r cod isod yno. Mae'r cod rhyng-gipio botwm yn clicio ac yn aseinio tag unigryw i bob botwm:
Is-orchymyn PreifatButton1_Click() Me.Tag = 1 Me.Hide End Is-breifat Is-GorchymynButton2_Click() Me.Tag = 2 Me.Hide End Is Breifat Is-GorchymynButton3_Click () Me.Tag = 0 Me.Hide End SubYn dibynnu a yw'r defnyddiwr yn clicio ar y botwm A i Z neu Z i A ar eich ffurflen, trefnwch y tabiau yntrefn esgynnol yr wyddor (a ddewiswyd yn ddiofyn) neu drefn ddisgynnol yn nhrefn yr wyddor; neu caewch y ffurflen a pheidiwch â gwneud dim rhag ofn Canslo . Gwneir hyn gyda'r cod VBA canlynol, a fewnosodwch yn y ffordd arferol trwy Mewnosod > Modiwl .
Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Yna Gadael Is Am x = 1 I Application.Sheets.Count Ar gyfer y = 1 I Application.Sheets.Count - 1 Os SortOrder = 1 Yna Os UCase$(Application.Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Name) Yna Sheets(y).Move after:=Talenni(y + 1) Diwedd Os ElseIf SortOrder = 2 Yna Os UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) Yna Sheets(y).Symud ar ôl:=Taflenni(y + 1) Diwedd Os Diwedd Os Diwedd Diwedd Nesaf Nesaf Is-swyddogaeth showUserForm() Fel Cyfanrif showUserForm = 0 Llwytho SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Dadlwytho Swyddogaeth Diwedd SortOrderFormOs nad ydych yn gyfforddus iawn gyda VBA eto, gallwch lawrlwytho ein Llyfr Gwaith Sampl i Tabiau Alphabetize, ei agor yn eich Excel ochr yn ochr â'ch ffeil eich hun lle rydych chi eisiau i ddidoli tabiau, a rhedeg y macro AlphabetizeTabs o'ch llyfr gwaith:
Dewiswch y drefn ddewisol, dywedwch, A i Z , ac arsylwch y canlyniadau:
Tip. Gyda VBA, gallwch hefyd greu copïau o'ch taflenni gwaith Excel. Mae'r cod ar gael yma: Sut idalen ddyblyg yn Excel gyda VBA.
Sut i ddidoli tabiau Excel yn nhrefn yr wyddor gyda Ultimate Suite
Does dim rhaid i ddefnyddwyr ein Ultimate Suite for Excel chwarae o gwmpas gyda VBA - mae ganddyn nhw lu -Rheolwr Llyfr Gwaith swyddogaethol ar gael iddynt:
Gyda'r teclyn hwn wedi'i ychwanegu at eich rhuban Excel, mae tabiau yn nhrefn yr wyddor yn cael ei wneud gydag un clic botwm, yn union fel y dylai fod!<3
Os ydych chi'n chwilfrydig i archwilio hyn a 70+ o offer proffesiynol arall ar gyfer Excel, mae fersiwn prawf o'n Ultimate Suite ar gael i'w lawrlwytho yma.
Diolch i chi am ddarllen ac yn gobeithio eich gweld ar ein blog wythnos nesaf!
