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 > Modulie 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?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!