Come si fa a elencare tutte le formule in Excel?
Di norma, Excel consente di visualizzare rapidamente le formule contenute nelle celle, ma non offre una funzionalità integrata per elencare tutte le formule presenti in un foglio di lavoro. Avere un elenco completo delle formule può rivelarsi molto utile per tenere traccia dei valori delle celle mostrandone le formule effettive. In questa sede, posso illustrarti come creare un codice VBA per risolvere proprio questo problema.
Elenca tutte le formule di un foglio di lavoro con il codice VBA
Elenca tutte le formule di un foglio di lavoro con il codice VBA
Il seguente codice VBA ti consente di elencare le formule presenti in una selezione o nell’intero foglio di lavoro. Procedi come indicato di seguito:
1. Tieni premuti i tasti ALT + F11: si aprirà la finestra di Microsoft Visual Basic, Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del modulo.
Codice VBA: Elenca tutte le formule di un foglio di lavoro
Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
xSheet.Cells(xRow, 2) = " " & Rng.Formula
xSheet.Cells(xRow, 3) = Rng.Value
xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub
3. Premi quindi il tasto F5 per eseguire questo codice. Comparirà una finestra di dialogo che ti chiederà di selezionare un intervallo o l’intero foglio di lavoro di cui desideri elencare le celle contenenti formule; vedi screenshot:
4. Clicca quindi su OK e le formule della tua selezione verranno immediatamente elencate in un nuovo foglio di lavoro posizionato davanti a quello attivo, con l’indirizzo della cella, la formula e il relativo valore, come mostrato nello screenshot seguente:
Articoli correlati:
Come convertire le formule in una stringa di testo in Excel?
Come convertire stringhe di testo in formule in Excel?
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