FUNGSI EXCEL HITUNG KATA

January 17, 2009 at 4:53 am 2 comments

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

Entry filed under: Ms Excel, Vba Excel. Tags: , , , .

Improving Recorded Macros Bagaimana Membuat Grafik dengan Excel untuk Data beberapa kolom?

2 Comments Add your own

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Enter your email address to subscribe to this blog and receive notifications of new posts by email.

Join 14 other followers

Blog Stats

  • 94,725 hits

Twitter Updates

Iklan


%d bloggers like this: