Excel'deki tüm formülleri nasıl listeleyebilirim?
Normalde Excel'de formülleri hücrelerde hızlı bir şekilde görüntüleyebiliriz, ancak Excel bir çalışma sayfasındaki tüm formülleri listelemek için bir özellik sağlamaz. Bir çalışma sayfasının tüm formüllerini listelemek, hücre değerlerinin gerçek formülleriyle izini sürmemize yardımcı olabilir. Burada, bu sorunu çözmek için bir VBA kodu oluşturmaktan bahsedebilirim.
Bir çalışma sayfasının tüm formüllerini VBA kodu ile listeleyin
Bir çalışma sayfasının tüm formüllerini VBA kodu ile listeleyin
Aşağıdaki VBA kodu, bir seçim veya çalışma sayfasının formüllerini listelemenize yardımcı olacaktır, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Bir çalışma sayfasının tüm formüllerini listeleyin
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve formül hücrelerini listelemek istediğiniz bir aralığı veya tüm çalışma sayfasını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK, seçiminizdeki formüller, aşağıda gösterilen ekran görüntüsü gibi hücre adresi, formül ve değer bilgilerini içeren etkin çalışma sayfanızın önündeki yeni bir çalışma sayfasında bir kerede listelenmiştir:
İlgili yazılar:
Formülü Excel'de metin dizesine nasıl dönüştürebilirim?
Metin dizelerini Excel'deki formüllere nasıl dönüştürebilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!