FUNGSI EXCEL HITUNG KATA

Kadang kita perlu mengetahui berapa jumlah kata yang kita tulis dalam Workbooks atau Worksheet Ms Excel. Dalam Excel tidak ada fungsi khusus yang dapat digunakan untuk menghitung jumlah kata. Oleh karena itu perlu dibuat fungsi untuk menghitung kata dengan menggunakan VBA. However, you can count the number of words with a simple VBA macro.

Sub Procedure di bawah ini akan menghitung berapa jumlah kata yang ada di dalam ActiveSheet (sheet yang aktif) dan menampilkannya dalam Kotak Pesan (Message Box). Contoh file dapat di download adalah (Download file : hitung-kata.zip)

Option Explicit

Sub HitungKataInSheet()

Dim HitungKataInSheet As Long

Dim Rng As Range

Dim sKalimat As String

Dim iJumlah As Long

Dim sNamaSheet As String

sNamaSheet = ActiveSheet.Name

For Each Rng In ActiveSheet.UsedRange.Cells

sKalimat = Application.WorksheetFunction.Trim(Rng.Text)

iJumlah = 0

If sKalimat <> vbNullString Then

iJumlah = Len(sKalimat) – Len(Replace(sKalimat, ” “, “”)) + 1

End If

HitungKataInSheet = HitungKataInSheet + iJumlah

Next Rng

MsgBox “Jumlah Kata dalam ActiveSheet ” & Format(sNamaSheet, “>”) & ” adalah ” & Format(HitungKataInSheet, “#,##0”)

End Sub

Sedangkan dalam bentuk fungsi untuk menampilkan data di sel adalah sebagai berikut: (Download file : hitung-kata.zip)

Function HitungKata()

Dim Rng As Range

Dim sKalimat As String

Dim iJumlah As Long

Dim sNamaSheet As String

sNamaSheet = ActiveSheet.Name

For Each Rng In ActiveSheet.UsedRange.Cells

sKalimat = Application.WorksheetFunction.Trim(Rng.Text)

iJumlah = 0

If sKalimat <> vbNullString Then

iJumlah = Len(sKalimat) – Len(Replace(sKalimat, ” “, “”)) + 1

End If

HitungKata = HitungKata + iJumlah

Next Rng

‘MsgBox “Jumlah Kata dalam ActiveSheet ” & Format(sNamaSheet, “>”) & ” adalah ” & Format(HitungKataInSheet, “#,##0”)

End Function

Download file : hitung-kata.xls

2 Comments

Leave a Reply

Your email address will not be published. Required fields are marked *