Hot Fox: Re: ]] XL-mania [[ Is there a way: Merekap data jelex..

terça-feira, 15 de setembro de 2009

Re: ]] XL-mania [[ Is there a way: Merekap data jelex..

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.WorksheetFunction.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 PM

di 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...

__._,_.___

Messages in this topic (2) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Ada lowongan jadi direktur ga? Hubungi momods please... :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              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other