Menghitung Jumlah Kata Dalam Satu Cell di Excel menggunakan VBA

Assalamualaikum Wr, Wb

Jumpa lagi sobat Excel,
Semoga dalam lindungan dan Rahmat Tuhan Yang Maha Esa dan sehat selalu.

Menghitung Jumlah Kata Dalam Satu Cell di Excel ini sudah di bahas pada artikel Excel sebelumnya Menghitung Jumlah Kata Dalam Satu Cell di Excel menggunakan function SUBTITUTE dan LEN tetapi dalam bentuk Function.

Kali ini kita bahas menggunakan bantuan fasilitas VBA di Excel. Kenapa memakai VBA?, apa keuntungannya? Ribet bikin Scriptnya? Saya belum ngerti VBA.
pertanyaan dan pernyataan itu sering muncul dari teman maupun pembaca ketika melihat dan mendengar VBA 

Mungkin beberapa Sobat Excel sudah tau cara ini jika menggunakan Microsoft Office Word, yaitu dengan klik pada Ribbon Menu Tools => Word Count (Excel 2007) atau REVIEW => Word Count (Excel 2013) maka penjelasan data yang menyangkut jumlah karakter, kata, paragraf dan sebagainya di sebuah halaman document akan terlihat (silahkan baca di artikel sebelumnya)

Nah bagaimana jika kasus itu terjadi di Microsoft Office Excel?
dengan menggunakan function/rumus LEN, SUBTITUTE pada Worksheet kita sudah bisa mendapatkan hasilnya seperti gambar dibawah ini:

Contoh 1

perhatikan contoh dibawah ini untuk penjabarannya, kita pindahkan ke cell A3 sumber text cell nya:

Rumus LEN pertama menghasilkan 34 karakter
Rumus LEN kedua menghasilkan 30 karakter setelah spasi dihilangkan (spasi di subtitusi ke "")
LEN1 - LEN2 = 4
pertanyaan yang muncul kenapa selisihnya cuma 4? sedangkan jumlah kata aktual ada 5?
karena yang kita subtitusi adalah karakter spasi karena spasi selalu berada diantara kata bararti selalu selisih 1 (satu) seperti pola berikut ini;
KATA(spasi)KATA(spasi)KATA(spasi)KATA(spasi)KATA.

maka untuk mendapatkan jumlah kata kita hanya perlu menambahkan angka 1 seperti pola

Bagaimana Menjabarkan ke VBA atau Macro Excel?

kita mulai..................... berikut langkah-langkahnya :

• Silahkan buka Microsoft Office Excel terlebih dahulu dan buat file baru (new file/ blank workbook)
• Pada cell A3 tuliskan kalimat "hati senang walaupun lagi banyak uang" kemudian Save As file anda dengan format .xlsm atau .xlsb (intinya extensi yang mendukung macro).

       

• Buat Tombol eksekusi untuk hitung kata dan tentukan cell untuk hasil hitungnya di cell B3
• Sekarang tekan pada keyboard Alt F11 (masuk area kerja VBA) dan klik insert module kemudian masukkan script berikut ini:

          Sub HitungKata()

              Dim rngKata As Range

              Dim Len1, Len2 As Long

              With Sheet1

                   Set rngKata = .Range("a3")

                   Len1 = Len(rngKata)

                   Len2 = Len1 - Len(Application.WorksheetFunction.Substitute(rngKata, " ", "")) + 1

                  .Range("b3").Value = Len2

             End With

             End Sub

• Save terlebih dahulu, kemudian kita menuju ke Sheet 1 lagi dan klik kanan tombol shape yang kita buat tadi pilih Assign Macro dan pilih macro HitungKata dan OK.
•  Sekarang kita uji dengan cara mengganti kalimat di dalam Cell A3 kemudian klik tombol shape (run) dan melihat hasilnya di Cell B3.
• Selesai

Jangan lupa Save hasil kerja anda tadi.

silahkan download contoh file di tab download atau menuju kesini dengan keyword "Menghitung Jumlah Kata Dalam Satu Cell di Excel menggunakan VBA"

Sampai disini saya rasa semua Sobat Excel sudah mengerti. Jika ada kritik atau saran silahkan beri komentar atau hubungi kami di kontak sosial media.

Catatan: pastikan Microsoft Excel anda dalam keadaan macro enabled selalu agar kapanpun bisa
              membuka file yang ber ekstensi macro enabled
Keterangan : Menggunakan Microsoft Office Excel 2013

Salam Excel