gimana ni bu guru and pak guru UDF dari pak KID hanya bisa baca format text pak kid A 2 3 A=01; 00002=00; 00003=00
tapi bisa di kasih keterangan jika rujukannya itu nilainya 0 atau kosong hasil UDF dari bu siti 3 b 3=01; b=01 kalo kosong semua hasilnya #value! kok kodingnya di pasword sih kan nggak bisa di export dan ditempatkan di file lain koding yang di tuliskan bu siti aku copy paste ke file baru kok nggak bisa jalan yaaaaa Function UniqueCount(Rng As Range) As String '--------------------------------------------------- '== [Menyebut] dan [Menghitung Cacah] data Unique == '== siti Vi / 14 dec 2009 ========================== '--------------------------------------------------- Dim Var(), T As String, V As String, n As Long, i As Long For n = 1 To Rng.Cells.Count If Not IsEmpty(Rng(n)) Then i = i + 1: ReDim Preserve Var(1 To i) V = Format(WorksheetFunction.CountIf(Rng, Rng(n)), "00") Var(i) = Rng(n) & "=" & V End If Next n UniqueCount = UnixValue(Var) End Function tolong doong kalo kasih UDF kalo bisa sekalian dijelaskan maksud nya aku kan baru belajar!! biar jadi murid yang berguna bagi nusa dan bangsa terimakasih buuu and paak guru ----- Original Message ----- From: siti Vi To: belajar-excel@yahoogroups.com Sent: Tuesday, December 15, 2009 6:04 AM Subject: Re: [belajar-excel] Jumlah Data problem pak wur ini tidak terlalu sederhana; karena menyangkut keinginan yg oleh excel belum disediakan alatnya, yaitu menggabung hasil pencarian bersyarat. seandainya saja pak wur 'kerso' mennjelaskan problemnya, kira kira begini ceritaknya: Ada serangkaian data; data tsb tidak unique (ada beberapa / banyak) yg kembar Terhdadap data tsb ingin ditampilkan hasil (1) daftar data yg unique (LOUV)-nya (2) cacah tiap data yg unique dan.... inilah keinginan yg tidak disadari bahwa sulit dipenuhi (berhubung fungsi concatenate di excel masih begitu-baegitu juga sifatnya) (3) hasil(1) dan hasil(2) digabung misal meanjadi "DataX=7" (4) hasil seperti keinginan no.(3) juga DIGABUNG lagi dengan temuan lainnya. (5) cara tampilnya harus urut alfabetik/numerik menaik (6) ditambah beberapa "perhiasan/dandanan", misalnya harus ada tanda pemisah antar data (delimiter), angka (cacah) harus tampil dgn leading zero untk 2 digit. gambaran data kira kira seperti ini (2 set data) 06920 06920 06920 06A70 06A70 06A70 06A70 06A70 06A70 06A70 06920 06920 a b c c a a b a a c c b dan pola hasil yg diinginkan kira kira seperti ini (dua set hasil) 06920=05; 06A70=07 a=05; b=03; c=04 "rumus cuanggih" untuk mendapatkan list of uniqvalues bisa anda gunakan; (hasilnya berupa beberapa cell) lalu di sebelah "hasil daftar data uniq" tsb anda dapat mencari cacah (bukan jumlah) tiap data; dengan COUNTIF, hasilnya juga beberapa cell untuk data set pertama kira kira hasil sementara seperti ini unique values count 06920 5 06A70 7 #N/A Kesulitannya adalah cara menggabung cells dalam satu baris menjadi satu data ("06920=05") lalu hasil gabungan tiap baris itu digabung lagi dengan hasil baris lain ("06920=05; 06A70=07") dlm proses menggabung harus ditambahkan pula delimiter ";" dan spasi, tetapi pada data terkanan, delimiter "; " tsb harus tidak diantumkan. Angka Ex COUNT pun harus diformat misal 5 menjadi "05". Masih ada lagi kesulitan yaitu : banyaknya baris hasil itu dinamis, bisa hanya 1 baris, bisa N baris. Bgmana fungsi CONCATENATE dengan sekali pukul SANGGUP menggabung data yg belum tertentu jumlahnya?? ini hanya dapat di'rasakan' oleh pemerhati fungsi Concatenate, (siti bilang: The Uggly Concatenate) Itulah daftar kesulitan yg tidak disadari (kesulitan itu dibuat sendiri oleh kita), karena keinginan menampilkan data gabungan dari gabungan dan bersifat dinamis. Seandainya keinginn tsb boleh dijabarkan dlm beberapa cell (beberapa kolom), mungkin tidak sesulit ini kesulitan yg dihadapi... Keluh kesah itu semua; hanya ada kalau kita membatasi penyelesaian hanya boleh menggunakan formula biasa ! Jika SEANDAINYA Anda merelakan workbook anda mengidap makro (sedikittt saja), maka kita (misalnya dapat mendeskripsikan masalah dan cara menuju solusinya, dengan bening...) kita tidak perlu 'binun' lagi... sedikit makro cukuplah menyebaban worksheet tsb tiba-tiba mendapat fungsi baru bernama UniqueCount cukup hanya dengan =UniqueCount(C4:N4) dituliskan di sebuah cell, dan... aha ! semua kesulitan berubah menjadi kemudahan berupa hasil langsung (text): 06920=05; 06A70=07 bluewater, 15 dec 2009 ~ctv~ ----- Original Message ----- From: Wuryantadi To: Milis_excell Sent: Monday, December 14, 2009 7:18 PM Subject: [belajar-excel] Jumlah Data Tolong dong aku bingung cara mencari unique valuenya. tb4