Jak wyświetlić wszystkie formuły w programie Excel?

Zwykle w programie Excel możemy szybko wyświetlać formuły w komórkach, ale program Excel nie zapewnia funkcji wyświetlania wszystkich formuł w arkuszu. Wymienienie wszystkich formuł arkusza może pomóc nam śledzić wartości komórek z ich prawdziwymi formułami. Tutaj mogę porozmawiać o tworzeniu kodu VBA w celu rozwiązania tego problemu.

Wymień wszystkie formuły arkusza z kodem VBA

Wymień wszystkie formuły arkusza z kodem VBA

Poniższy kod VBA pomoże Ci wyświetlić formuły wyboru lub arkusza roboczego, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: wyświetla wszystkie formuły arkusza

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty przypominające o wybraniu zakresu lub całego arkusza roboczego, w którym chcesz wyświetlić jego komórki formuły, patrz zrzut ekranu:

4. A następnie kliknij OK, wybrane formuły zostały od razu wymienione w nowym arkuszu roboczym z przodu aktywnego arkusza, który zawiera informacje o adresie komórki, formule i wartości, jak pokazano na poniższym zrzucie ekranu:

Podobne artykuły:

Jak przekonwertować formułę na ciąg tekstowy w programie Excel?

Jak przekonwertować ciągi tekstowe na formuły w programie Excel?