Come elencare tutte le cartelle di lavoro aperte e passare rapidamente dall’una all’altra in Excel?
Microsoft Excel ti permette di aprire più cartelle di lavoro contemporaneamente, ma passare da una all’altra tra tutte quelle aperte non è sempre semplice. Potresti quindi aver bisogno di visualizzare un elenco di tutte le cartelle di lavoro attualmente aperte per spostarti rapidamente e facilmente tra di esse. In questo articolo ti mostreremo come elencare tutte le cartelle di lavoro aperte per una navigazione più agevole in Excel.
Elenca semplicemente tutte le cartelle di lavoro aperte con VBA
Elenca tutte le cartelle di lavoro aperte e passa facilmente a una cartella con VBA
Elenca tutte le cartelle di lavoro aperte e passa facilmente a una cartella con uno strumento sorprendente
Elenca semplicemente tutte le cartelle di lavoro aperte con VBA
In questa sezione scoprirai come utilizzare un codice VBA per elencare tutte le cartelle di lavoro aperte in Excel.
1. Premi i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications. Nella finestra di Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo.
2. Copia quindi il seguente codice VBA e incollalo nell’editor del codice.
VBA: elenca tutte le Nome Workbook aperte in Excel
Sub ListWorkbooks()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Range("A1")
xNum1 = Application.Workbooks.Count
For i = 1 To xNum1
xNum2 = Application.Workbooks(i).Sheets.Count
WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
For j = 1 To xNum2
WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
Next
Next
End Sub3. Esegui il codice VBA premendo il tasto F5. Nella finestra di dialogo KutoolsforExcel, specifica la cella in cui inserire l’elenco delle cartelle di lavoro e fai clic sul pulsante OK. Vedi screenshot:
Verranno quindi visualizzate tutte le cartelle di lavoro aperte, complete dei relativi fogli.
Hai difficoltà a gestire il codice VBA? Ottienilo con il terzo metodo in pochi clic!
Elenca tutte le cartelle di lavoro aperte e passa facilmente a una cartella con VBA
Se desideri elencare tutte le cartelle di lavoro per passare facilmente dall’una all’altra, prova a utilizzare il seguente codice VBA:
1. Premi i tasti Alt+F11per aprire la finestra Microsoft Visual Basic for Applications. Nella finestra Microsoft Visual Basic for Applications, fai clic su Inserisci>Modulo.
2. Copia e incolla il seguente codice VBA nella finestra del modulo appena aperta.
Codice VBA: elenca tutte le cartelle di lavoro aperte e passa a una cartella
Sub SelectWB()
Dim xWBName As String
Dim xWb As Workbook
Dim xSelect As String
For Each xWb In Application.Workbooks
xWBName = xWBName & xWb.Name & vbCrLf
Next
xTitleId = "KutoolsforExcel"
xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
Application.Workbooks(xSelect).Activate
End Sub3. Premi il tasto F5 per eseguire il codice. Si aprirà quindi una finestra di dialogo KutoolsforExcel contenente un elenco di tutte le cartelle di lavoro aperte. Se desideri passare a una cartella specifica, digita il nome della cartella di lavoro nella casella e fai clic sul pulsante OK. Vedi screenshot:
Elenca tutte le cartelle di lavoro aperte e passa facilmente a una cartella con uno strumento sorprendente
Grazie alla funzione Navigazione di Kutools per Excel, tutte le cartelle di lavoro aperte vengono elencate automaticamente in un riquadro, permettendoti di passare da una all’altra con estrema facilità. Basta un semplice clic su una delle cartelle aperte per spostarti immediatamente!
Se desidera provare gratuitamente (30 giorni) questa utility, faccia clic qui per scaricarla, quindi segua la procedura illustrata nei passaggi sopra.
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