Skip i'r prif gynnwys

Sut i ddidoli taflenni yn ôl gwerth cell yn Excel?

Awdur: Xiaoyang Wedi'i Addasu Diwethaf: 2014-11-29

Pan ddefnyddiwn ffeil Excel, rydym bob amser yn didoli'r taflenni gwaith yn ôl yr wyddor, rhifau neu liwiau tab, ond a ydych erioed wedi ceisio didoli'r tabiau dalen yn ôl gwerth celloedd penodol?

Gan dybio bod gennych lyfr gwaith gyda dwsinau o daflenni gwaith, ym mhob taflen waith, mae gan gell A1 werth penodol, ac yn awr mae angen i chi ddidoli'r holl daflenni gwaith yn y llyfr gwaith hwn yn seiliedig ar werth cell A1 ym mhob taflen waith yn esgynnol. Gyda'r erthygl hon, fe gewch yr ateb.

Trefnwch yr holl daflenni gwaith yn seiliedig ar werth cell gyda chod VBA


swigen dde glas saeth Trefnwch yr holl daflenni gwaith yn seiliedig ar werth cell gyda chod VBA

I ddidoli'r holl daflenni gwaith yn seiliedig ar werth cell yn Excel, nid oes unrhyw ffordd uniongyrchol i ni, ond gall y cod VBA canlynol ffafrio chi.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Trefnwch bob dalen yn seiliedig ar werth cell

Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
    For j = i To Application.Worksheets.Count
        If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
            Application.Worksheets(j).Move Before:=Application.Worksheets(i)
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

3. Ar ôl pasio'r cod, yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis cell rydych chi am ddidoli'r dalennau arni, gweler y screenshot:

doc-sort-sheet-by-cell-1

4. Ac yn awr, gallwch weld bod yr holl daflenni gwaith wedi'u didoli yn ôl gwerth testun cell A1 ym mhob taflen waith yn esgynnol.

Nodiadau:

1. Os oes rhifau a llinynnau testun yn eich celloedd dethol, bydd y taflenni sy'n cynnwys rhifau yn cael eu didoli cyn y taflenni llinynnau testun.

2. Os oes gwag yn un o'r gell A1, bydd y daflen waith gymharol yn cael ei didoli o flaen pob dalen.


Erthyglau cysylltiedig:

Sut i ddidoli taflenni gwaith yn nhrefn yr wyddor / alffaniwmerig yn Excel?

Sut i ddidoli tabiau taflen waith yn ôl lliw yn Excel?

Sut i wyrdroi trefn y tabiau taflen waith?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

Disgrifiad


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations