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

Read More

Menghitung Jumlah Kata Dalam Satu Cell di Excel menggunakan function SUBTITUTE dan LEN

Assalamualaikum Wr, Wb

Apa kabar sobat Excel, harapannya selalu dalam Rahmat Tuhan Yang Maha Esa dan sehat selalu.

Sebenarnya kasus (Menghitung Jumlah Kata Dalam Satu Cell di Excel) ini sudah lama di bahas dalam berbagai grup Excel maupun Blog dan Artikel di dunia maya, tetapi tidak ada salahnya jika kali ini penulis memaparkan secara detail bagaimana rumus-rumus itu bisa bekerja menghitung jumlah kata yang ada dalam satu cell tersebut.

Mungkin beberapa Sobat Excel sudah tau cara ini jika menggunakan Microsoft Office Word, yaitu dengan klik pada Ribbon Menu Tools => Word Count maka penjelasan data yang menyangkut jumlah karakter, kata, paragraf dan sebagainya di sebuah halaman document akan terlihat, seperti gambar dibawah ini.
Word 2007

Word 2013

Nah bagaimana jika kasus itu terjadi di Microsoft Office Excel?
beberapa dari sobat Excel mungkin telah mencoba mengkombinasikan beberapa rumus di Microsoft Excel seperti FIND, LEN, MID, SUBTITUTE, SEARCH dan rumus-rumus lain yang terkait Text dalam Microsoft Excel tetapi masih bingung dan ujungnya bertanya kok bisa?

Ok, mari kita lihat rumus berikut yang sering dibahas di berbagai grup Excel atau blog, coba perhatikan gambar dibawah ini:

Pada gambar tersebut tertulis rumus =LEN(LEN(A1)-LEN(SUBTITUTE(A1," ",""))+1 dan hasilnya 61 kata dalam cell tersebut. Mari kita bahas satu persatu alur rumus tersebut hingga dapat menghasilkan jumlah kata yang sesuai isi dalam cell tersebut.

Kita mulai dengan rumus LEN
Syntax rumus LEN =    untuk menghitung jumlah karakter Text dalam sebuah Cell. Text yang dimaksud adalah Number, Alphabet, String, Spasi dan lainnya yang bisa di ketikkan ke cell.
contoh :
di Cell B15 terdapat tulisan "1234 rt tr coba saja" dan jika kita hitung beserta spasi maka jumlahnya 20 karakter, artinya jika di akhir text kita tambahkan spasi lagi maka jumlahnya akan bertambah lagi sesuai jumlah spasi yang kita tambahkan walaupun tidak kelihatan perbedaanya di visualnya saat di enter.

Funtion atau Rumus SUBTITUTE
Syntax rumus SUBTITUTE = SUBTITUTE mengganti text dalam sebuah cell dengan text yang kita inginkan, dalam sytax tersebut kita melihat ada Text, Old_Text, New_Text, Instance_Num.
contoh :

Text :
yaitu keseluruhan text cell yang dituju seperti contoh di atas, atau bisa kita ketik langsung dalam rumus misalnya =SUBTITUTE("Kambing","ambing","uda") maka hasilnya adalah Kuda karena kata "ambing"berubah/diganti menjadi "uda" hasilnya"K+uda = Kuda".
Old_Text :yaitu Text sebelumnya atau text lama yang akan digantikan
New_Text :
yaitu Text baru untuk menggantikan text lama

Setelah melihat penjelasan kedua rumus diatas, mari kita melihat alur kerja kedua rumus tersebut sehingga mampu menghitung jumlah kata dalam sebuah cell seperti contoh awal tadi.
=LEN(A1)-LEN(SUBTITUTE(A1," ",""))+1
perhatikan contoh dibawah ini, 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) maka untuk mendapatkan jumlah kata kita hanya perlu menambahkan angka 1, seperti pola berikut : KATA(spasi)KATA(spasi)KATA(spasi)KATA(spasi)KATA.
silahkan download contoh file di tab download atau menuju kesini dengan keyword "Menghitung Jumlah Kata Dalam Satu Cell di Excel menggunakan function SUBTITUTE dan LEN"

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: semua penggunaan rumus di artikel ini menggunakan koma (,) sesuai dengan regional komputer penulis. dan jika rumus tidak bisa berjalan kemungkinan regional berbeda dan harus diganti ke titikkoma (;) dalam penulisan rumusnya atau sesuai dengan regional komputer anda.
Keterangan : Menggunakan Microsoft Office Excel 2013


Salam Excel

Read More