Come ordinare i fogli in base al valore di una cella in Excel?

Quando utilizziamo un file Excel, ordiniamo sempre i fogli di lavoro in ordine alfabetico, numeri o colori delle schede, ma hai mai provato a ordinare le schede dei fogli in base a un valore di cella specifico?

Supponendo di avere una cartella di lavoro con dozzine di fogli di lavoro, in ogni foglio di lavoro, la cella A1 ha un valore specifico e ora è necessario ordinare tutti i fogli di lavoro all'interno di questa cartella di lavoro in base al valore della cella A1 in ogni foglio di lavoro in modo crescente. Con questo articolo otterrai la soluzione.

Ordina tutti i fogli di lavoro in base a un valore di cella con codice VBA

---

Ordina tutti i fogli di lavoro in base a un valore di cella con codice VBA

Per ordinare tutti i fogli di lavoro in base al valore di una cella in Excel, non esiste un modo diretto per noi, ma il seguente codice VBA potrebbe farti un favore.

1. Tieni premuto il ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Moduloe incolla il codice seguente nel file Finestra del modulo.

Codice VBA: ordina tutti i fogli in base al valore di una cella

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. Dopo aver incollato il codice, quindi premere F5 tasto per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare una cella su cui desideri ordinare i fogli, vedi screenshot:

4. E ora, puoi vedere tutti i fogli di lavoro sono stati ordinati in base al valore del testo della cella A1 in ogni foglio di lavoro in modo crescente.

Note:

1. Se sono presenti sia numeri che stringhe di testo nelle celle selezionate, i fogli contengono numeri verranno ordinati prima dei fogli con stringhe di testo.

2. Se una delle celle A1 è vuota, il foglio di lavoro relativo verrà ordinato in primo piano rispetto a tutti i fogli.

---

Articoli correlati:

Come ordinare i fogli di lavoro in ordine alfabetico / alfanumerico in Excel?

Come ordinare le schede del foglio di lavoro per colore in Excel?

Come invertire l'ordine delle schede del foglio di lavoro?