Sayfadaki Kelime ve Sayı Adetlerini Bulma
20 Şubat 2021
747
Sayfadaki Kelime ve Sayı Adetlerini Bulma kodunu kullanarak, aktif olan sayfa üzerinde yazılı olan kelime ya da sayıların kaç tane olduğunu bulabilirsiniz.
Sub Word_Count_Worksheet()
Dim WordCnt As Long
Dim rng As Range
Dim S As String
Dim N As Long
For Each rng In ActiveSheet.UsedRange.Cells
S = Application.WorksheetFunction.Trim(rng.Text)
N = 0
If S <> vbNullString Then
N = Len(S) - Len(Replace(S, " ", "")) + 1
End If
WordCnt = WordCnt + N
Next rng
MsgBox "Aktif sayfanın kullanılan alanından toplam " & Format(WordCnt, "#,##0") & " içerik bulunmaktadır."
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Excel sayfanızda yazılı olan içeriklerin kaç tane olduğuna dair bir ihtiyacınız varsa, üstteki kod işinize yarayacaktır. Kod, işlevi gereğince yazılı olan alanları kendisi tespit etmektedir. Yani kodu kullanmak için bir alan seçmenize gerek olmaz.
| YARARLI KISAYOLLAR | |
|---|---|
| Bitişik Olmayan Hücrelerde Sola Gitme | Ctrl Alt ← |
| Şerit Menüyü Genişletme, Daraltma | Ctrl F1 |
| Koyu Yazdırma / Alternatif | Ctrl 2 |
| Formül Çubuğunu Gizleme Gösterme | Alt M F |
| Yapıştır / Alternatif | Shift Insert |