Sayfadaki Kelime ve Sayı Adetlerini Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
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 SubAçıklama
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.Faydalanılması temennisiyle