Skip to main content

Conas bileoga oibre a shórtáil in ord aibítre / alfa-uimhriúla in Excel?

De ghnáth is féidir leat cluaisíní bileog oibre a ordú nó a shocrú in Excel trí na cluaisíní bileog a tharraingt agus a ligean ar bharra na gcluaisíní. Ach chun é seo a dhéanamh le go leor bileoga oibre, b’fhéidir go smaoineofá ar na bealaí fánacha seo a leanas chun bileoga oibre a shórtáil go tapa in ord aibítre / alfa-uimhriúla i leabhar mór oibre.

Bileoga oibre a shórtáil in ord aibítre / alfa-uimhriúla le cód VBA
Bileoga oibre a shórtáil in ord aibítre / alfa-uimhriúla le Kutools for Excel


Bileoga oibre a shórtáil in ord aibítre / alfa-uimhriúla le cód VBA

Tá macra ann chun bileoga oibre a shórtáil de réir alfa a phostáiltear san ionad Tacaíochta Microsoft. Is féidir linn é a chur i bhfeidhm leis na céimeanna seo a leanas:

1.  Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2.  cliceáil Ionsáigh > Modúil, agus ansin an macra seo a leanas a ghreamú sa Fuinneog an Mhodúil.

VBA: Sórtáil bileoga in ord aibítre / alfa-uimhriúla

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. Brúigh an F5 eochair chun an macra seo a rith. Sa bhosca pras seo a leanas, cliceáil Is ea, déanfar na bileoga oibre go léir a shórtáil de réir ord aibítre ardaitheach; agus cliceáil Uimh, sórtálfar na bileoga oibre go léir de réir ord aibítre.


Bileoga oibre a shórtáil in ord aibítre / alfa-uimhriúla le Kutools for Excel

Mura bhfuil tú eolach ar macraí nó más fearr leat bealaí eile, is féidir leat triail a bhaint Kutools le haghaidh Excel. Kutools le haghaidh Excel's Bileoga Sórtáil is féidir leis an uirlis gach bileog oibre a shórtáil go héasca.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. Cliceáil Kutools Plus > Bileog Oibre > Bileoga Sórtáil. Féach an pictiúr:

2. Sa an Bileoga Sórtáil bosca dialóige, roghnaigh cineál sórtála amháin a theastaíonn uait ar an bpána ceart, mar Sórtáil Alfa, Sórtáil Uimhriúil Alfa, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

Ansin déantar gach bileog oibre a shórtáil bunaithe ar an gcineál sórtála sonraithe. Féach an pictiúr:

bileoga doc-sort6

Kutools le haghaidh Excel's Bileoga Sórtáil is féidir leis an uirlis gach bileog oibre sa leabhar oibre gníomhach a atheagrú go tapa. Tacaíonn sé le go leor cineálacha sórtála, lena n-áirítear Sórtáil Alfa, Sórtáil Uimhriúil Alfa, Sórtáil Dath agus Droim ar ais. Ina theannta sin, is féidir leat bileoga oibre a bhogadh suas / síos freisin, agus an sórtáil a athshocrú.

  Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Taispeántas: Sórtáil gach bileog oibre in ord aibítre / alfa-uimhriúla


Airteagal gaolmhar:

Cluaisíní bileog oibre a shórtáil de réir datha

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

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

Tuairisc


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á!

Comments (81)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Grazie, ha funzionato perfettamente e mi ha risparmiato un sacco di lavoro. Complimenti
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bom dia a macro funcionou porém com uma falha, veja no exemplo:
Abas (ANEXO 1, ANEXO 10, ANEXO 100, ANEXO 2, ANEXO 20)
Em uma planilha com os anexos acima ele organiza exatamente como está acima
Ele respeita a ordem somente a cada 10

Alguém sabe como corrigir? Olhei no font da macro mas não encontrei o problema
This comment was minimized by the moderator on the site
Macro qui marche parfaitement, en 30s c'est fait. Merci beaucoup
Rated 5 out of 5
This comment was minimized by the moderator on the site
Does anyone know how I would negate text from this macro? for example if my sheets were named "cafe 1st floor" and "kitchen 2nd floor" but id like to get rid of "cafe" and "kitchen"
thank you!
This comment was minimized by the moderator on the site
not working if your sheet was number ex: 1, 2, 10 12,
after sort: 1, 10, 12, 2
This comment was minimized by the moderator on the site
Hi Imd,
Do you mean all your sheet names are numbers and want to sort them ascending or descending? You can try the below VBA.

Sub Test1()

Dim i As Integer, j As Integer

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If Val(Replace(UCase(Sheets(j).Name), "SHEET", "")) > Val(Replace(UCase(Sheets(j + 1).Name), "SHEET", "")) Then Sheets(j).Move After:=Sheets(j + 1)

Next j

Next i

End Sub
This comment was minimized by the moderator on the site
Thank you for the macro !!!
This comment was minimized by the moderator on the site
Thank you for your help, very much appreciated...
This comment was minimized by the moderator on the site
I don't know VBA at all but your instructions worked perfectly. Thank you so much!
This comment was minimized by the moderator on the site
Thank you :)
This comment was minimized by the moderator on the site
Very helpful :) Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations