Conas bileoga a shórtáil de réir luach cille in Excel?
Nuair a úsáidimid comhad Excel, déanaimid na bileoga oibre a shórtáil de réir aibítre, uimhreacha nó dathanna cluaisíní, ach an ndearna tú iarracht riamh na cluaisíní bileog a shórtáil de réir luacha cille ar leith?
Má cheaptar go bhfuil leabhar oibre agat leis an iliomad bileog oibre, i ngach bileog oibre, tá luach ar leith ag cill A1, agus anois ní mór duit na bileoga oibre go léir laistigh den leabhar oibre seo a shórtáil bunaithe ar luach chill A1 i ngach bileog oibre go héadrom. Leis an alt seo, gheobhaidh tú an réiteach.
Sórtáil gach bileog oibre bunaithe ar luach cille le cód VBA
Sórtáil gach bileog oibre bunaithe ar luach cille le cód VBA
Chun gach bileog oibre a shórtáil bunaithe ar luach cille in Excel, níl aon bhealach díreach ann dúinn, ach d’fhéadfadh an cód VBA seo a leanas a bheith i bhfabhar duit.
1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Sórtáil gach bileog bunaithe ar luach cille
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. Tar éis an cód a ghreamú, ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit cill a roghnú ar mhaith leat na bileoga a shórtáil bunaithe air, féach an scáileán:
4. Agus anois, feiceann tú go bhfuil na bileoga oibre go léir curtha in eagar de réir luach téacs chill A1 i ngach bileog oibre ag dul suas.
Nótaí:
1. Má tá uimhreacha agus teaghráin téacs i do chealla roghnaithe, sórtálfar uimhreacha ar na bileoga roimh na bileoga teaghráin téacs.
2. Má tá bán i gceann de chill A1, sórtálfar an bhileog oibre choibhneasta os comhair gach bileog.
Earraí gaolmhara:
Conas bileoga oibre a shórtáil in ord aibítre / alfa-uimhriúla in Excel?
Conas cluaisíní bileog oibre a shórtáil de réir datha in Excel?
Conas ord na gcluaisíní bileog oibre a aisiompú?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!