Sut i ddidoli taflenni yn ôl gwerth cell yn Excel?
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
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:
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
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
