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

Bgmana ini ? Jadi Apa beda-nya prosedur Sub dan Prosedur Function ?
Jawab :
SUB
Subroutine atau procedure adalah suatu blok program terpisah yang digunakan untuk mengerjakan suatu pekerjaan tertentu. Kegunaan yang umum dari subroutine adalah menghemat kode program bila terjadi proses yang sama diulang berkali-kali.

FUNCTION
Sama seperti subroutine, fungsi adalah suatu blok program yang digunakan untuk suatu pekerjaan tertentu. Beda fungsi dan subroutine adalah subroutine tidak menghasilkan nilai sedangkan fungsi menghasilkan nilai.

PUBLIC/PRIVATE
Pemakaian variabel ini tidak diharuskan (Optional), tetapi jika suatu Sub/Function menggunakannya variabel PUBLIC ini artinya suatu Sub/Function dapat diakses diseluruh prosedur dan dapat diakses diseluruh modul. Sedangkan PRIVATE ini digunakan mempunyai arti suatu Sub/Function dapat diakses diseluruh prosedur tetapi tidak di seluruh modul.

Dari kodingan saya :
Dari Emil sebelumnya (Pada contoh) :
data
2 - 5 - 22 - 25 - 39 - 41
1 - 5 - 9 - 27 - 42 - 45
2 - 5 - 2 - 5 - 9 - 41
22 - 27 - 39 - 41 - 42 - 48

Di hilangin Stripnya, menjadi :
2
5
22
25
39
41
1
5
9
27
42
45
2
5
2
5
9
41
22
27
39
41
42
48

Sebenarnya kalo mau bikin merekap tinggal dat aayang dihilangin stripnya dan diplot, berikut data yang "-" dah dihilangin dan di transpose vertikal :
2
5
22
25
39
41
terdapat pada Range A1:A6
Jadi ngeplot range pada fungsinya

JumlahkanAngkaUniQe Range("A1:A6") ' Dipanggil tanteee.....

Hasil :
2    1
5    1
22    1
25    1
39    1
41    1

~ Puthut Wibowo ~

--- On Thu, 9/17/09, siti Vi <setiyowati.devi@gmail.com> wrote:

From: siti Vi <setiyowati.devi@gmail.com>
Subject: Re: ]] XL-mania [[ Is there a way: Merekap data jelex..
To: XL-mania@yahoogroups.com
Date: Thursday, September 17, 2009, 10:51 AM

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 y")
   .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
   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

2009/9/16 Puthut Wibowo <puthut_vai@yahoo. com>

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.dictionar y")
    .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@yahoogroup s.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 (7) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat Idul Fitri... Mohon maap dari momods...                   |
| 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

__,_._,___

Hot Fox

quinta-feira, 24 de setembro de 2009

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

Nenhum comentário:

Arquivo do blog