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
