Excel'de tüm formülleri nasıl listeleyebilirim?

Normalde, Excel'de hücrelerdeki formülleri hızlı bir şekilde gösterebiliriz, ancak Excel, bir çalışma sayfasındaki tüm formülleri listelemek için bir özellik sağlamaz. Bir çalışma sayfasındaki tüm formülleri listelemek, hücre değerlerini gerçek formülleriyle izlememize yardımcı olabilir. Burada, bu sorunu çözmek için bir VBA kodu oluşturmayı tartışacağım.

VBA kodu ile bir çalışma sayfasındaki tüm formülleri listeleme

VBA kodu ile bir çalışma sayfasındaki tüm formülleri listeleme

Aşağıdaki VBA kodu, bir seçim veya çalışma sayfasındaki formülleri listelemenize yardımcı olacaktır, lütfen şu adımları izleyin:

1. ALT + F11 tuşlarına basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Bir çalışma sayfasındaki tüm formülleri listeleme

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve size formül hücrelerini listelemek istediğiniz bir aralık veya tüm çalışma sayfasını seçmenizi hatırlatmak için bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

4. Ve sonra Tamam'a tıklayın, seçiminizdeki formüller, hücre adresi, formül ve değer bilgilerini içeren etkin çalışma sayfanızın önünde yer alan yeni bir çalışma sayfasında hemen listelenmiştir, aşağıdaki ekran görüntüsünde gösterildiği gibi:

İlgili makaleler:

Excel'de formülü metin dizesine nasıl dönüştürebilirim?

Excel'de metin dizilerini formüllere nasıl dönüştürebilirim?