Assalaamu alaikum wr wb.
Tanpa mengurangi rasa hormat yang mendalam kepada mbak ctv yang sudah cukup kondang dengan inovasi inovasinya yang spektakuler . termasuk dalam ijtihadnya untuk menciptakan fungsi COUNTWORDIF dengan menggunakan macro.
sekedar memberi opsi barangkali ada sebagaian dari kita yang kurang menyukai hal hal yang makruh (termasuk saya, karena kurang paham macro), saya menawarkan solusi yang sesuai dengan sunnah excel pada umumnya dengan menggunakan formula add ins excel biasa.
mudah mudahan ada manfaatnya.
Wassalam
Ghozi Alkatiri
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: XL-mania <XL-mania@yahoogroups.com>
Dikirim: Sabtu, 5 Februari 2011 17:16
Judul: ]] XL-mania [[ Fungsi Baru: COUNTWORDIF, masih kerabat dekat dgn COUNTIF
di XL-mania dot com ada pertanyaan yg cukup menarik posting tgl 20 januari,
muncul 4 februari 2011; saya kutip seperti di footer posting ini.
mungkin si penanya sendiri sudah lupa atau sudah ada solusinya
mo ditanggapi langsung, do'i tidak meninggalkan email-address;
jika di posted ke web xl-mania dot com; sepertinyua agak kurang bermanfaat
karena siapa yg menjamin bahwa si penanya akan berkunjung lagi ke situs itu
serta kebetulan melihat tanggapannya....
dengan harapan masih berguna bagi members lain milis ini, siti lampirkan salah satu
solusinya, yaitu dengan memanfaatan sebuah fungsi baru di dalam excel yg bernama
CountWordIf
sintaks nya
CountWordIf(Data, Kriteria)
* argument 'Data'
bisa diisi dengan teks, bisa dengan cell-tunggal berisi teks, bisa berupa segugus cell (range)
* argument 'Kriteria'
dapat diisi dengan teks / sebuah kata (serangkaian karakter), bisa juga diisi 1 cell berisi teks
Jadi di sheet - cell excel; formulanya akan berbentu seperti ini
misal ditulis di E2
=CountWordIf(C2:C10, D2)
maksodnya
mau menghitung banyanya kata yg seperti ada di dalam cell D2,
sedangan kata yg mau dihitung ada dalam kalimat-kalimat di C2 sampai C10
(9 kalimat yg berada di 9 cells sekolom)
dalam contoh di wobuk; kalimat dibuat panjang panjang misal ada yg 1 cell
berisi 397 karakter.
bentuk paling sederhana seperti ini
=CountWordIf("Saya mau pulang pulang pulang dan pulang ke bluewater", "pulang"))
yg mengembalikan hasil berupa data bilangan bulat = 4
karena di kalimat ada 4 "bijik" kata 'pulang'
ndak sulit kan ??
Coding pembentuk UDF nya sangat ringkas, spt ini
Function CountWordIf(Datamu, Kriteria As String) As Long
Dim Dataku
Dataku = DaftarKata(Datamu)
CountWordIf = ArrCountif(Dataku, Kriteria)
End Function
ini pun kalau di wokbuk tsb sudah ada function procedures lain yg bernama
* ArrCountif
seperti Countif tetapi argument1 nya berisi array bukan range
* DaftarKata
yg tugasnya mengurai kalimat menjadi banyak kata.
jika penasaran buka saja filenya, terlampir, atau bagi member yg tidak menerima
attachment; dapat mengunduh di http://www.box.net/shared/fybrleb0du
tararengkyu and bhess-rigad
siti
=========================================
from alvina <noreply-comment@blogger.com>
date Fri, Feb 4, 2011 at 11:38 PM
subject [XL-mania] New comment on punya masalah excel? ingin tip dan trik excel?.
mailed-byblogger.bounces.google.com
Posted by alvina to XL-mania at January 20, 2011 4:34 PM
alvina has left a new comment on the post "punya masalah excel? ingin tip dan trik excel?":
bagaimana cara menghitung banyaknya kata yang sama dalam satukalimat
bahkan banyak kalimat..
tolong bantuaanya
===============
muncul 4 februari 2011; saya kutip seperti di footer posting ini.
mungkin si penanya sendiri sudah lupa atau sudah ada solusinya
mo ditanggapi langsung, do'i tidak meninggalkan email-address;
jika di posted ke web xl-mania dot com; sepertinyua agak kurang bermanfaat
karena siapa yg menjamin bahwa si penanya akan berkunjung lagi ke situs itu
serta kebetulan melihat tanggapannya....
dengan harapan masih berguna bagi members lain milis ini, siti lampirkan salah satu
solusinya, yaitu dengan memanfaatan sebuah fungsi baru di dalam excel yg bernama
CountWordIf
sintaks nya
CountWordIf(Data, Kriteria)
* argument 'Data'
bisa diisi dengan teks, bisa dengan cell-tunggal berisi teks, bisa berupa segugus cell (range)
* argument 'Kriteria'
dapat diisi dengan teks / sebuah kata (serangkaian karakter), bisa juga diisi 1 cell berisi teks
Jadi di sheet - cell excel; formulanya akan berbentu seperti ini
misal ditulis di E2
=CountWordIf(C2:C10, D2)
maksodnya
mau menghitung banyanya kata yg seperti ada di dalam cell D2,
sedangan kata yg mau dihitung ada dalam kalimat-kalimat di C2 sampai C10
(9 kalimat yg berada di 9 cells sekolom)
dalam contoh di wobuk; kalimat dibuat panjang panjang misal ada yg 1 cell
berisi 397 karakter.
bentuk paling sederhana seperti ini
=CountWordIf("Saya mau pulang pulang pulang dan pulang ke bluewater", "pulang"))
yg mengembalikan hasil berupa data bilangan bulat = 4
karena di kalimat ada 4 "bijik" kata 'pulang'
ndak sulit kan ??
Coding pembentuk UDF nya sangat ringkas, spt ini
Function CountWordIf(Datamu, Kriteria As String) As Long
Dim Dataku
Dataku = DaftarKata(Datamu)
CountWordIf = ArrCountif(Dataku, Kriteria)
End Function
ini pun kalau di wokbuk tsb sudah ada function procedures lain yg bernama
* ArrCountif
seperti Countif tetapi argument1 nya berisi array bukan range
* DaftarKata
yg tugasnya mengurai kalimat menjadi banyak kata.
jika penasaran buka saja filenya, terlampir, atau bagi member yg tidak menerima
attachment; dapat mengunduh di http://www.box.net/shared/fybrleb0du
tararengkyu and bhess-rigad
siti
=========================================
from alvina <noreply-comment@blogger.com>
date Fri, Feb 4, 2011 at 11:38 PM
subject [XL-mania] New comment on punya masalah excel? ingin tip dan trik excel?.
mailed-byblogger.bounces.google.com
Posted by alvina to XL-mania at January 20, 2011 4:34 PM
alvina has left a new comment on the post "punya masalah excel? ingin tip dan trik excel?":
bagaimana cara menghitung banyaknya kata yang sama dalam satukalimat
bahkan banyak kalimat..
tolong bantuaanya
===============
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| buku terbaru XL mania: insipartif dan unik, gabungan antara buku |
| aplikasi bisnis dan buku komputer. isinya tidak biasa! |
| http://www.xl-mania.com/2011/02/mengapa-boss-benci-chart-anda.html|
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| buku terbaru XL mania: insipartif dan unik, gabungan antara buku |
| aplikasi bisnis dan buku komputer. isinya tidak biasa! |
| http://www.xl-mania.com/2011/02/mengapa-boss-benci-chart-anda.html|
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário