Lha wong FUNGSI kok tidak mengembalikan Nilai nya sendiri
(dlm prosedurnya variable NamaFungsi Ndak pernah diiisi hasil akhir kalkulasi dlm prosedur)
Mohon penjelasan
Bgmana ini ? Jadi Apa beda-nya prosedur Sub dan Prosedur Function ?
Apa ndak bisa fungsi menghasilkan array dua dimensi langsung seperti yg ditanyakan ??
sehingga ketika nama fungsi dituliskan di cell langsung memberikan hasil.
(bisa, saya sudah membuat sebelum menanyakan; ini dilampirkan)
& sebetulnya yg ditanyakan / diperlukan (dibuat 'celeng' ) = formula tanpa bantuan udf
untuk pak anton, bang mods, : terima kasih....
siti
--quote bagian dari makro kiriman pak puthut--
' Yang di pake
Function JumlahkanAngkaUniQe(InputRange As Range) As Double
Dim rCell As Range, rRng As Range, vKey, lrow As Long
Set rRng = InputRange
With CreateObject("Scripting.dictionar
.comparemode = vbTextCompare
For Each rCell In rRng
If Not .exists(rCell.
.Add rCell.Value, Application.
End If
Next rCell
lrow = 2
For Each vKey In .keys
If .Item(vKey) > 1 Then
Cells(lrow, "J") = vKey
Cells(lrow, "K") = .Item(vKey)
lrow = lrow + 1
End If
Next vKey
End With
End Function
Tante2x,.... ...ini saya buatin fungsi kodingannya, jadi tinggal di-panggil2x kalo lagi butuh
Function JumlahkanAngkaUniQe(InputRange As Range) As Double
Dim rCell As Range, rRng As Range, vKey, lrow As Long
Set rRng = InputRange
With CreateObject("Scripting.dictionary")
.comparemode = vbTextCompare
For Each rCell In rRng
If Not .exists(rCell.Value) Then
.Add rCell.Value, Application.WorksheetFunctio n.CountIf( rRng, rCell.Value)
End If
Next rCell
' Paparkan hasil Ke kolom J:K
' J : Angka yang Unik
' K : Jumlah angka Unik
lrow = 2
For Each vKey In .keys
If .Item(vKey) > 1 Then
Cells(lrow, "J") = vKey
Cells(lrow, "K") = .Item(vKey)
lrow = lrow + 1
End If
Next vKey
End With
End Function
File Terlampir dalam attacment
...
Puthut Wibowo
--- On Tue, 9/15/09, siti Vi <setiyowati.devi@gmail.com > wrote:
From: siti Vi <setiyowati.devi@gmail.com >
Subject: ]] XL-mania [[ Is there a way: Merekap data jelex..
To: "XL-mania" <XL-mania@yahoogroups.com >
Date: Tuesday, September 15, 2009, 4:12 PMdi sebuah tabel (yg datanya jelex sekali) ada data sbb
range B2:B5
2 - 5 - 22 - 25 - 39 - 41
1 - 5 - 9 - 27 - 42 - 45
2 - 5 - 2 - 5 - 9 - 41
22 - 27 - 39 - 41 - 42 - 48
setiap substring yg dibatasi "-" dianggap satu NOMOR
antara NOMOR dan tanda pemisah ada spasinya.
setiap cell mengandung 6 "NOMOR"
"NOMOR" selalu berupa bilangan utuh (integer)
diinginkan :
dibuat summary / rekapitulasi dua kolom
yg menggambarkan: Setiap NOMOR, MUNCUL berapa kali .
Kolom Pertama daftar Nomor (Unique)
Kolom kedua = jumlah kemunculan NOMOR tsb
Rekap hendaknya dapat menjawab untuk data per cell saja
misal B2 saja atau B3 saja
atau menjawab beberapa cell (yg berdekatan)
misal B3:B4
atau B2:B5
mohon bantuan par XL-mania / XL-maniawati ysh,
bgmana pemecahannya (Cara formula lebih diutamakan)
Terima kasih...
~siti~
catatan:
pemilik tabelnya sudah di"marahin"..
lha wong menacatat data kok digabung-gabung
kayak Sheet sudah kekurangan KOLOM saja...
| THR kecil sekali akibat pindah-pindah kerja :D :D :D |
| 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 |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário