Hoe alle formules in Excel weergeven?
Normaal gesproken kunnen we in Excel snel formules in de cellen weergeven, maar Excel biedt geen functie om alle formules in een werkblad weer te geven. Door alle formules van een werkblad op te sommen, kunnen we de celwaarden traceren met de echte formules. Hier kan ik praten over het maken van een VBA-code om dit probleem op te lossen.
Maak een lijst van alle formules van een werkblad met VBA-code
Maak een lijst van alle formules van een werkblad met VBA-code
De volgende VBA-code helpt u om de formules van een selectie of een werkblad weer te geven, doe dit als volgt:
1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: maak een lijst van alle formules van een werkblad
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. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren een bereik of het hele werkblad te selecteren waarvan u de formulecellen wilt weergeven, zie screenshot:
4. En klik vervolgens op OK, formules in uw selectie zijn meteen weergegeven in een nieuw werkblad aan de voorkant van uw actieve werkblad dat de informatie van het celadres, de formule en de waarde bevat zoals in het volgende screenshot:
Gerelateerde artikelen:
Hoe formule omzetten in tekstreeks in Excel?
Hoe tekstreeksen om te zetten in formules in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!