Come elencare tutte le formule in Excel?
Normalmente, in Excel, possiamo visualizzare rapidamente le formule nelle celle, ma Excel non fornisce una funzionalità per elencare tutte le formule in un foglio di lavoro. Elencare tutte le formule di un foglio di lavoro può aiutarci a tenere traccia dei valori delle celle con le sue formule reali. Qui posso parlare della creazione di un codice VBA per risolvere questo problema.
Elenca tutte le formule di un foglio di lavoro con codice VBA
Elenca tutte le formule di un foglio di lavoro con codice VBA
Il seguente codice VBA ti aiuterà a elencare le formule di una selezione o di un foglio di lavoro, per favore fai come segue:
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: 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. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare un intervallo o l'intero foglio di lavoro in cui desideri elencare le celle della formula, vedi screenshot:
4. E poi clicca OK, le formule nella tua selezione sono state elencate contemporaneamente in un nuovo foglio di lavoro nella parte anteriore del foglio di lavoro attivo che contiene le informazioni sull'indirizzo della cella, la formula e il valore come mostrato nella seguente schermata:
Articoli correlati:
Come convertire la formula in una stringa di testo in Excel?
Come convertire le stringhe di testo in formule in Excel?
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!