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?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!