(1)
bila sebuah FUNGSI mengolah sekelompok data (dalam sebuah range)
dan isi range tersebut ternyata kosong, maka FUNGSI tsb punya cara sendiri
untuk memberitahukan, yaitu dengan menampilkan "pemberitahuan" berupa
Error_Value misal #N/A, #VALUE dan sebagainya sesauai konteksnya.
banyak fungsi bawaan dari excel juga berperilaku seperti itu.
lalu ada apa dengan hasil #VALUE atas FUNGSI UniqueCount(MyRange), jika
MyRnage = blank range ??
Kalau Error-Value itu dikehendaki berubah menjadi textlain seperti keinginan
pemakai; kan tinggal mengkadalinya dengan
=IF(Counta(MyRange)=0,"",UniqueCount(MyRange))
atau
=IF(IsError(UniqueCounr(MyRange)),"",UniqueCount(MyRange))
atau bagi orang yg inginnya semua serba terlalu jelas / terlalu verbal
=IF(IsError(UniqueCounr(MyRange)),
"Dengan ini diberitahukan bahwa range yg dirujuk itu benar-benar tidak ada",
UniqueCount(MyRange))
(2)
tidak semua makro harus dijelaskan, karena sering pula codingnya sudah
'self-explanation' atau karena "suasananya sedang tidak mendukung penulis"
untuk
menuliskan penjelasan.. ( omong opo to aku 'ki... hehe)
(3)
kalau copy paste isi module ke workbook lain tidak menghasilkan seperti
kehendak,
maka data / sheet yg di workbook lain itu saja yg dipindah ke workbook berisi
makro asli.
mohon maaf, dalam case tertentu / suasana tertentu, kadang pembuat makro masih
ingin
menyembunyikan dulu codingnya.
(yg sebetulnya bagi orang-orang tertentu bukan masalah untuk meng-HACK-nya...)
----- Original Message -----
From: PP 03
To: belajar-excel@yahoogroups.com
Sent: Tuesday, December 15, 2009 4:54 PM
Subject: Re: [belajar-excel] Jumlah Data
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.
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
sedikit makro cukuplah menyebaban worksheet tsb tiba-tiba mendapat fungsi
baru
bernama UniqueCount
cukup hanya dengan =UniqueCount(C4:N4)
hasil langsung (text): 06920=05; 06A70=07
bluewater, 15 dec 2009
~ctv~
