Excel'de tüm formülleri nasıl listeleyebilirim?
Normalde Excel’de hücrelerdeki formülleri hızlıca görüntüleyebiliriz; ancak Excel, bir çalışma sayfasındaki tüm formülleri listelemek için doğrudan bir özellik sunmaz. Tüm formülleri listeleyerek, hücre değerlerini gerçek formüllerine göre daha kolay takip edebilirsiniz. İşte bu sorunu çözmek için kullanabileceğiniz bir VBA kodunun nasıl oluşturulacağını anlatıyorum.
Bir çalışma sayfasının tüm formüllerini VBA koduyla listeleyin
Bir çalışma sayfasının tüm formüllerini VBA koduyla listeleyin
Aşağıdaki VBA kodu, bir seçim yapmanızı veya bir çalışma sayfasındaki formülleri listelemenizi sağlar. Lütfen aşağıdaki adımları uygulayın:
1. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
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. Ardından bu kodu çalıştırmak için F5 tuşuna basın; formül içeren hücreleri listelemek istediğiniz aralığı veya tüm çalışma sayfasını seçmenizi isteyen bir uyarı kutusu açılacaktır (ekran görüntüsüne bakın):
4. Ardından Tamam düğmesine tıklayın; seçiminizdeki formüller, aktif çalışma sayfanızın önüne “Yeni çalışma sayfası” olarak anında listelenir ve bu liste hücre adresi, formül ve değer bilgilerini içerir (aşağıdaki ekran görüntüsünde gösterildiği gibi):
İlgili makaleler:
Excel'de formülleri metne nasıl dönüştürebilirim?
Excel'de metin dizeleri formüle nasıl dönüştürülür?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar