Come ordinare tutte le tabelle in base al valore di una cella in Excel?
Quando utilizzi un file Excel, ordini sempre i fogli di lavoro in ordine alfabetico, numerico o per colore delle schede… ma hai mai provato a ordinare le schede dei fogli in base al valore di una specifica cella?
Immagina di avere una cartella di lavoro con decine di fogli, ognuno dei quali contiene un valore specifico nella cella A1. Ora devi ordinare tutti i fogli della cartella in base al valore presente in A1, in ordine crescente. In questo articolo troverai la soluzione perfetta per farlo.
Ordina tutti i fogli in base al valore di una cella con codice VBA
Ordina tutti i fogli in base al valore di una cella con codice VBA
Non esiste un metodo diretto per ordinare tutti i fogli in base al valore di una cella in Excel, ma il seguente codice VBA potrebbe rivelarsi molto utile.
1. Tieni premuti i tasti ALT + F11 e si aprirà la finestra Microsoft Visual Basic, Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella 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, premi il tasto F5 per eseguirlo: apparirà una finestra di dialogo che ti chiederà di selezionare la cella in base alla quale desideri ordinare i fogli. Vedi screenshot:
4. Ora puoi vedere che tutti i fogli sono stati ordinati in ordine crescente in base al valore testuale della cella A1 di ciascun foglio.
Note:
1. Se nelle celle selezionate sono presenti sia numeri che stringhe di testo, i fogli contenenti numeri verranno ordinati prima di quelli con stringhe di testo.
2. Se una delle celle A1 è vuota, il relativo foglio verrà posizionato all’inizio rispetto a tutti gli altri.
Articoli correlati:
Come ordinare i fogli di lavoro in ordine alfabetico o alfanumerico in Excel?
Come ordinare le schede dei fogli in base al colore in Excel?
Come si fa a invertire l’ordine delle schede dei fogli?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi