Messages In This Digest (17 Messages)
- 1a.
- Bls: ]] XL-mania [[ Extract Data From: ghozi alkatiri
- 2a.
- Re: Serupa tapi tak sama From: Kid Mr.
- 2b.
- Re: Serupa tapi tak sama From: i Haps
- 2c.
- Re: Serupa tapi tak sama From: Tommy
- 3a.
- Re: Extract Data From: Kid Mr.
- 3b.
- Re: Extract Data From: i Haps
- 3c.
- Re: Extract Data From: NANG Agus
- 3d.
- Re: Extract Data From: Tommy
- 4a.
- Re: concatenate ambil data dari kolom kenapa cuma bisa sampai kolom From: Kid Mr.
- 4b.
- Re: concatenate ambil data dari kolom kenapa cuma bisa sampai kolom From: i Haps
- 4c.
- Re: concatenate ambil data dari kolom kenapa cuma bisa sampai kolom From: NANG Agus
- 5a.
- Re: menggabungkan data angka bolak balik From: i Haps
- 6a.
- Bls: ]] XL-mania [[ Bagaimana Cara Membuat Multiple Pivot Chart From: Hachi Rizki
- 7a.
- Re: mencari pemakaian barang From: Tommy
- 8.
- rumus untuk otomatis terisi dengan ketik atau symbol From: antoni ginting
- 9a.
- Re: Menampilkan Kata/Kalimat yang tidak lengkap From: i Haps
- 10.
- get data txt dgn nama file di tentukan pada salah satu cell From: nurkomardi@gmail.com
Messages
- 1a.
-
Bls: ]] XL-mania [[ Extract Data
Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri
Tue Dec 20, 2011 5:37 pm (PST)
isi pada kolom No
formula array
{=IF(ROW(1:1)>COUNTIF( $B$5:$B$21; $I$3);""; ROW(1:1)) }
copy ke bawah
pada kolom Nama
{=IF(H5="";"";INDEX($ C$5:$C$21; SMALL(IF( $B$5:$B$21= $I$3;ROW( $1:$17)); H5)))}
copy ke bawah
wassalam
Ghozi Alkatiri
_____________________ _________ __
Dari: Deddy Sudarmadi <deddy@iradatkonsultan.com >
Kepada: XL-mania@yahoogroups.com
Cc: deddyird@yahoo.com
Dikirim: Kamis, 15 Desember 2011 17:02
Judul: ]] XL-mania [[ Extract Data
Salam untuk para pakar,
Tolong di bantu dong, kalau dari satu list data mau di ambil
sebagian dengan criteria tertentu bagaimana ya….. (kalau bisa pake fungsi
saja, karena otak nya saya nggak nyampe kalau pake makro….. maklum udah
kakek2 nih…..) contoh data terlampir
Terimakasih
--------------------- --------- -------
- 2a.
-
Re: Serupa tapi tak sama
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Tue Dec 20, 2011 5:37 pm (PST)
Dear Yoyok,
Perbedaan disebabkan karena data dari SAP menyertakan spasi 160 pada
karakter terakhirnya.
Regards,
Kid
2011/12/17 boyok boyok <dodol_y@yahoo.co.id >
> **
>
>
>
> Dear XL Mania,
>
> Salam kenal XL Mania..
> Mohon bantuanya saya ada kesulitan ada 2 data yang serupa tapi tak sama.
> bagaiamana caranya agar sama
> Mohon bantuanya yah pakar-pakar XL :)
>
>
> Regard
> yoyok
>
>
>
>
>
- 2b.
-
Re: Serupa tapi tak sama
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Tue Dec 20, 2011 5:38 pm (PST)
(1) Formula di cell N5 lebih baik di sederhanakan saja:
Semula ( omg! ) :
=+IF(LEN(MONTH(F5))=2,
(A5&" "&"NS"&C5&RIGHT(YEAR(F5), 2)&MONTH( F5)&" "),
(A5&" "&"NS"&C5&RIGHT(YEAR(F5), 2)&0&MONTH( F5)&" "))
Diubah/sederhanakan menjadi
*=A5&" NS"&C5&TEXT(F5,"YYMM ")*
(2) Formula di cell N7:
*=SUBSTITUTE(K7&L7,CHAR( 160)," ")*
Penyebab "serupa tapi tak sama" adalah mas doyok mengira data di K7 dan L7
mengandung SPASI di ujung kanannya padahal bukan spasi, (melainkan karakter
ascii no.160)
Cara lain, jika tujuannya HANYA "ingin kedua rumus menghasilkan data yg SAMA
Rumus 1
=A5&CHAR(160)&"NS"&C5& TEXT(F5," YYMM")&CHAR( 160)
Rumus 2
=K7&L7
iHaps...
2011/12/17 boyok boyok <dodol_y@yahoo.co.id >
> Dear XL Mania,
> Salam kenal XL Mania..
> Mohon bantuanya saya ada kesulitan *ada 2 data yang serupa tapi tak sama.
> bagaiamana caranya agar sama*
> Mohon bantuanya yah pakar-pakar XL :)
> Regard
> yoyok
- 2c.
-
Re: Serupa tapi tak sama
Posted by: "Tommy" tomz.zlow@gmail.com tomz_aja
Tue Dec 20, 2011 5:39 pm (PST)
Dear Yoyok,
Yang serupa tapi tidak sama adalah "spasi" yang diambil dari SAP. Bisa diketahui dengan menggunakan fungsi code.
terlampir salah satu alternatif penyesuaian rumus.
mengganti spasi 'biasa' dengan fungsi char sbb.
=+IF(LEN(MONTH(F5))=2,(A5& CHAR(160) &"NS"&C5& RIGHT(YEAR( F5),2)&MONTH( F5)&CHAR( 160)),(A5& CHAR(160) &"NS"&C5& RIGHT(YEAR( F5),2)&0& MONTH(F5) &CHAR(160) ))
namun akan lebih ringkas jika menggunakan fungsi berikut
=A5&CHAR(160)&"NS"&C5& RIGHT(YEAR( F5),2)&TEXT( MONTH(F5) ,"00")&CHAR( 160)
blessings,
tomz
----- Original Message -----
From: boyok boyok
To: XL-mania@yahoogroups.com
Sent: Saturday, December 17, 2011 2:10 AM
Subject: ]] XL-mania [[ Serupa tapi tak sama
Dear XL Mania,
Salam kenal XL Mania..
Mohon bantuanya saya ada kesulitan ada 2 data yang serupa tapi tak sama.
bagaiamana caranya agar sama
Mohon bantuanya yah pakar-pakar XL :)
Regard
yoyok
- 3a.
-
Re: Extract Data
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Tue Dec 20, 2011 5:37 pm (PST)
Hai Deddy,
Gunakan array formula filtering Index( Small( IF ) )
Pelajari array formula jika masih bingung dengannya.
Wassalam,
Kid.
2011/12/15 Deddy Sudarmadi <deddy@iradatkonsultan.com >
> **
>
>
> Salam untuk para pakar,****
>
> ** **
>
> Tolong di bantu dong, kalau dari satu list data mau di ambil sebagian
> dengan criteria tertentu bagaimana ya�.. (kalau bisa pake fungsi saja,
> karena otak nya saya nggak nyampe kalau pake makro�.. maklum udah kakek2
> nih�..) contoh data terlampir****
>
> ** **
>
> Terimakasih ****
>
> ** **
>
> --------------------- --------- -------** **
>
> ** **
>
>
>
>
- 3b.
-
Re: Extract Data
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Tue Dec 20, 2011 5:38 pm (PST)
Mungkin, istilah yg lebih pas adalah MEMFILTER DATA
Oleh karen itu, sebetulnya kakek Deddy lebih mudah menggunakan* AutoFilter*saja
atau bisa juga dengan Pivot Tabel
Tetapi jika kakek lebih senang memfilter dengan formula, mungkin untuk
pertama
kalinya harus berkerut dahi sebentar (walapun sebetulnya sudah berkali kali
di
tayangkan di milis ini)
=IFERROR(OFFSET($C$4, SMALL(IF($B$ 5:$B$21=$ M$3, $A$5:$A$21), A5), 0), "")
ditulis di satu cell i5, di akhiri dengan penekanan 3 tombol [Ctrl] +
[Shift], [Enter]
Cell I5 kemudian dicopy paste ke cells dibawahnya sampai menghasilkan data
kosong,
atau untuk menampung segala kemungkinan data dan kriteria, lebih aman
ditulis
setinggil tabel yg dirujuk (i5:i21)
-Haps-
2011/12/15 Deddy Sudarmadi <deddy@iradatkonsultan.com >
> **
>
> Tolong di bantu dong, kalau dari satu list data mau di ambil sebagian
> dengan criteria tertentu bagaimana ya….. (kalau bisa pake fungsi saja,
> karena otak nya saya nggak nyampe kalau pake makro….. maklum udah kakek2
> nih…..) contoh data terlampir
>
> **
>
> **
>
> Terimakasih**
>
> **
>
> --------------------- --------- -------**
>
>
> **
>
- 3c.
-
Re: Extract Data
Posted by: "NANG Agus" nangagus@gmail.com
Tue Dec 20, 2011 5:39 pm (PST)
Yth Bp Dedy Sudarmadi
Saya bisa membuat tabel seperti yang bapak maksudkan tetapi masih
menggunakan kolom bantu,
Tentu saja hal ini masih membebani Sheet, tetapi dapat digunakan untuk
sementara sampai ada rekan yang lain memberi solusi lebih baik.
Saya menggunakan fungsi If, Max, Index dan Match.
Salam
NangAgus
2011/12/15 Deddy Sudarmadi <deddy@iradatkonsultan.com >
> **
>
>
> Salam untuk para pakar,****
>
> ** **
>
> Tolong di bantu dong, kalau dari satu list data mau di ambil sebagian
> dengan criteria tertentu bagaimana ya�.. (kalau bisa pake fungsi saja,
> karena otak nya saya nggak nyampe kalau pake makro�.. maklum udah kakek2
> nih�..) contoh data terlampir****
>
> ** **
>
> Terimakasih ****
>
> ** **
>
> --------------------- --------- -------** **
>
> ** **
>
>
>
- 3d.
-
Re: Extract Data
Posted by: "Tommy" tomz.zlow@gmail.com tomz_aja
Tue Dec 20, 2011 5:39 pm (PST)
Dear Pak Deddy,
terlampir salah satu cara untuk solusi dengan kolom bantu (formula biasa) dan tanpa kolom bantu (array formula).
Blessings,
tomz
----- Original Message -----
From: Deddy Sudarmadi
To: XL-mania@yahoogroups.com
Cc: deddyird@yahoo.com
Sent: Thursday, December 15, 2011 7:02 PM
Subject: ]] XL-mania [[ Extract Data
Salam untuk para pakar,
Tolong di bantu dong, kalau dari satu list data mau di ambil sebagian dengan criteria tertentu bagaimana ya... (kalau bisa pake fungsi saja, karena otak nya saya nggak nyampe kalau pake makro... maklum udah kakek2 nih...) contoh data terlampir
Terimakasih
--------------------- --------- -------
- 4a.
-
Re: concatenate ambil data dari kolom kenapa cuma bisa sampai kolom
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Tue Dec 20, 2011 5:37 pm (PST)
Pak Siagian,
Coba gunakan ampersand '&' untuk meng-concatenate.
=teks1 & teks 2 & .... & teks zzz
Kid.
2011/12/17 Siagian Hendry <lukersgn@gmail.com >
> **
>
>
> ada yg bisa bantu ngga gan?
>
> filenya sya attach juga.
>
> thanks ya.
>
>
>
- 4b.
-
Re: concatenate ambil data dari kolom kenapa cuma bisa sampai kolom
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Tue Dec 20, 2011 5:38 pm (PST)
ADA...
dari warung mi-krosop sudah diketokkan palu bahua
Argument in Function maximal = 30 bijik !
http://office.microsoft. com/en-us/ excel-help/ excel-specificat ions-and- limits-HP0051992 91.aspx
kalau di excel 2007, max jumlah argument dlm sebua fungsi ditingkatkan
anda kalau mau bia membaca di helpnya atau cari info in inet la yaauw..
bantuan nya ada yaitu, jika menghadapi hal khusus spt itu:
sebagai ganti fungsi Concatenate gunakan operator penggabung "&"
= A1&A2&A3 dst.... tanpa batas,
tetapi dibatasi jumlah karakter dlm satu formula (1024) / cmiiw
2011/12/17 Siagian Hendry <lukersgn@gmail.com >
> **
>
> ada yg bisa bantu ngga gan?
> filenya sya attach juga.
> thanks ya.
>
>
- 4c.
-
Re: concatenate ambil data dari kolom kenapa cuma bisa sampai kolom
Posted by: "NANG Agus" nangagus@gmail.com
Tue Dec 20, 2011 5:38 pm (PST)
Dear Siagian
Lihat syntax fungsi Concatenate!
Fungsi tersebut hanya dapat menampilkan maksimal 30 text (excel 2003)
tetapi kemampuannya ditambah menjadi 255 untuk excel 2010.
Pada kasus yang anda berikan, kolom N sudah merupakan text ke 30 sehingga
tidak dapat diambil karena sudah diluar batas.
Untuk menambah fungsi tersebut gunakan excel 2011, atau gantikan fungsi
concatenate dengan tanda &, sehingga rumus anda diubah menjadi:
="insert into ct_master_man_power(id_ karyawan, id_karyawan) values
("&"'"&A3&"','"&B3&"' ,'"&C3&"' ,'"&D3&"' ,'"&E3&"' ,'"&F3&"' ,'"&G3&"' ,'"&H3&"' ,'"&I3&"' ,'"&J3&"' ,'"&K3&"' ,'"&L3&"' ,'"&M3&"' ,'"&N3&"' ,'"&O3&"' ,'"&P3&"' ,'"&Q3&
"')"
Salam
NangaAgus
2011/12/17 Siagian Hendry <lukersgn@gmail.com >
> **
>
>
> ada yg bisa bantu ngga gan?
>
> filenya sya attach juga.
>
> thanks ya.
>
>
- 5a.
-
Re: menggabungkan data angka bolak balik
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Tue Dec 20, 2011 5:38 pm (PST)
sebetulnya (kalau ndak salah tangkap maksud) hal yg ditanyakan oleh pak
Striker itu
sudah pernah dibahas di milis ini, antara lain di sini
(wajah permutasi..)
http://tech.groups.yahoo. com/group/ XL-mania/ message/6867
http://tech.groups.yahoo. com/group/ XL-mania/ message/6908
(dunia sebuah peti besar dan tertutup di atasnya..)
http://tech.groups.yahoo. com/group/ XL-mania/ message/10095
mohon disempatkan baca dulu, sebelum membuka *file yg 'kami'
lampirkan<http://www.box.com/shared/ >22pginzj8p
* di sini...
hormat kami
'iHaps'
./. lampiran:
http://www.box.com/shared/ 22pginzj8p
(courtesy of yusiti excelfiles)
2011/12/16 joestriker@ymail.com <joestriker@ymail.com >
> **
>
> sy msh bru blajar excel ,,, mohon bimbingan n bantuannya ,,,
>
> saya pnya soal,,, mngkin ada yg bs kasih solusi ...
> saya mau rekap data berupa angka dg satu cell input angka min 3dgit, max 7
> digit dg hasil gabungan scara acak ato bolak balik min 2digit n max 4 digit
> hasil dr input angka ...
>
> misal saya input angka 4digit 1234 ... ( 3- 7 digit )
>
> maka hasil yg sy inginkn kurang lbih sprti ini :
> (bolak-balik acak )
>
> 1234*1243*1324*1342*1423* 1432* 2134*2143*2314* 2341*2413* 2431*
> 3124*3142*3214*3241*3412* 3421*
> 4123*4132*4213*4231*4312* 4321*
>
> (hasil yg saya inginkan 2,3,n 4 digit hasil dr input 3 - 7 digit angka )
>
> mohon bantuan all master excel ... caranya n rumus formulanya buat soal
> saya ...
> thnx sblume ... hormat saya joe ...
>
>
- 6a.
-
Bls: ]] XL-mania [[ Bagaimana Cara Membuat Multiple Pivot Chart
Posted by: "Hachi Rizki" hachiuz_ld27@yahoo.co.id hachiuz_ld27
Tue Dec 20, 2011 5:38 pm (PST)
Dear Dina,
Menurut saya tinggal pilih tab options - pivot chart saja, lalu akan muncul pivot chartnya,.. untuk fieldnya menyesuaikan dengan pivot tablenya..
Yang pernah saya coba 1 pivot table menjadi 1 pivot chart, kalau butuh 3, ya pivot table nya di copas dulu terus dibuat lagi pivot chartnya, CMIIW
Regards,
Hachi
_____________________ _________ __
Dari: Dina Maulin <dinamaulin@yahoo.com >
Kepada: "XL-mania@yahoogroups.com " <XL-mania@yahoogroups.com >
Dikirim: Minggu, 18 Desember 2011 16:46
Judul: ]] XL-mania [[ Bagaimana Cara Membuat Multiple Pivot Chart
Dear Pakar Excel yang baik,
Tolonglah saya membuat multiple pivot chart. Saya sudah usaha cari tahu tapi tidak dapat juga.
Mohon penerangannya dari para pakar yang cerdas2.. File terlampir.
Mohon dijawab ya..
Terima kasih banyak sebelumnya. Terima kasih, terima kasih.
Salam,
Dina Maulin
- 7a.
-
Re: mencari pemakaian barang
Posted by: "Tommy" tomz.zlow@gmail.com tomz_aja
Tue Dec 20, 2011 5:39 pm (PST)
Dear Pak MGS. M. CANDRA SIGIT
berhubung Anda alergi dengan UDF, terlampir solusi penggabungan yang sama dengan solusi Mbak Indri, hanya saja tidak menggunakan array formula (jika Anda alergi juga dengan array formula).
Mbak Haps/Mbak Indri[/Mbak Siti], mohon maaf cuma bantu sundul..
Blessings,
tomz
----- Original Message -----
From: Haps
To: XL-mania@yahoogroups.com
Sent: Friday, December 16, 2011 9:45 AM
Subject: Re: ]] XL-mania [[ mencari pemakaian barang
Dear Pak MGS. M. CANDRA SIGIT
Terima kasih tambahan penjelasannya pak..
Setelah lebih jelas, rumus pun dengan tenang dapat dibuat; Ada 3 rumus
(1)
Rumus di kolom P = rumus abal-abal biasa (maksudnya, ini bercanda = bukan Array formula)
model IF-IF-an biasa, hanya panjang, IFnya bisa banyak sekali, karena bukan Nested IF, tetapi
hanya merupakan GABUNGAN 15 IF.
=MID(
IF(Q7<>"",","&Q$6,"") & IF(R7<>"",", "&R$6,"") & IF(S7<>"",", "&S$6,"") & IF(T7<>"",", "&T$6,"") &
IF(U7<>"",","&U$6,"") & IF(V7<>"",", "&V$6,"") & IF(W7<>"",", "&W$6,"") & IF(X7<>"",", "&X$6,"") &
IF(Y7<>"",","&Y$6,"") & IF(Z7<>"",", "&Z$6,"") & IF(AA7<>""," ,"&AA$6," ") & IF(AB7<>""," ,"&AB$6," ") &
IF(AC7<>"",","&AC$6," ") & IF(AD7<>""," ,"&AD$6," ") & IF(AE7<>""," ,"&AE$6," "),
2,99)
Kalau kita mau rajin membalik logikanya ( operator pembanding <> diganti dengan = maka akan
diperoleh rumus yg lebih pendek (selisih 15 karakater)
(2)
Rumus di kolom Q, W dan AA = Array formula dengan hasil tunggal (ditulis di 1 cell)
bentuknya seperti ini
{ =IF(AND(D7:H7=MAX(D7:H7) ,D7:H7>0, COUNT($D7: $H7)=COLUMNS( $D7:$H7)) ,1,"") }
di W dan AA agak lain hanya karena range yg dirujuk berbeda lebarnya
(3)
Rumus di kolom R:V, X:Z dan AB:AE = Array Formula Multi hasil, dituils dlm beberapa cell sebaris
secara SE-KA-LI-GUS Lebarnya baris sesuai masing nmasing kelompok kolom yg disebut di atas
di Cells R7:V7, bentuk rumus array nya seperti ini
{ =IF(Q7="",IF(D7:H7>0,D7: H7,""),"" ) }
KurungKurawal {--rumus-- } jangan ditulis manual, keduanya hanya akan muncul otomatis jika rumus
di akhiri dengan penekanan 3 tombowl [Ctrl] + [SHIft], [ENTER]
wassalam,
indri
2011/12/14 <candrasigit_MC@yamaha- >motor.co. id
>
> Terima kasih atas solusinya,
> Logika dari tabel persoalan saya adalah :
> Jika pada semua kolom terisi qty dan tiap kategori qty-nya sama, maka cukup terisi AAA,BBB dan CCC.
> tetapi jika semua kolom terisi tetapi qty beda (seperti contoh kain lap model C dan dongkrak model A,B & C) maka yang terisi pada kolom model
> adalah sesuai dengan kolom yang terisi (seperti jawaban terlampir untuk model KAIN LAP dan DONGKRAK).
> Note : jika para pakar berkenan, minta bantu untuk rumusan formulanya saja (jangan makro karena saya masih dalam tahap belajar).
>
> Terima kasih.>
> Best Regards,
>
> MGS. M. CANDRA SIGIT
> Material Control Dept.
> PT. Yamaha Indonesia Motor Mfg.
- 8.
-
rumus untuk otomatis terisi dengan ketik atau symbol
Posted by: "antoni ginting" ma2ithink@gmail.com ma2ithink
Tue Dec 20, 2011 5:41 pm (PST)
*Dear pakar ,
mohon bantuannya utk kasuku ini :
pada tab order akan diisi data-data dari tab alamat dan product,seperti
terlampir.
dengan mengetik salah satu nama (saya coba pake data validation dan itu pun
harus dalam satu tab, hanya satu cell saja yang terisi),
*
*Salam,
Antoni Ginting
Bontang - Kaltim
*
- 9a.
-
Re: Menampilkan Kata/Kalimat yang tidak lengkap
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Tue Dec 20, 2011 5:41 pm (PST)
Di milis ini beberapa hari y.l. ada kasus "*MENGHITUNG kemiripan dua kata"*
(Karena yg diinginkan adalah MENGHITUNG maka Jawaban seharusnya =
*"oh..kemiripannya
ada 1, ada 10 *
*atau ada 10234"* dst,
Tetapi ternyata jawaban yg logis (ingin menghitung dijawab bilangan CACAH)
seperti itu ternyata sulit ditangkap artinya) Mungkin yag salah jawabannya
atau mungkin juga pertanyaannya !
http://tech.groups.yahoo. com/group/ XL-mania/ message/19715
Diskusi nya tidak menarik, terbukti tidak ada kelanjutan berita apapun dari
"sohibul hajat" Mr. *rahmat hidayatullah *(si pemilik maksud)..
Selain itu, kurang menariknya mungkin karena juga ada hal yg masih
menggantung : "setelah ditemukankan
level (prosentasi) kemiripannya,.. LALU UNTUK APA ??" hayoo..
Nah pertanyaan bung Martin saat ini, memperjelas kegunaan UDF yg kemain
susah2 dibuat tapi tak bermanfaat..
Jika *sederet kata* dibandingkan dengan *sebuah kata* (sbg kriteria-nnya),
maka sederet kata tsb akan punya sederet Nilai_Kemiripan (di Excel anda
boleh menyebut sebagai Array_Nilai_Kemiripan.
Siapa yg punya nilai kemiripan tertinggi dia-lah kata yg paling MIRIP
dengan KRITERIA. Di sinilah masalah menjadi lebih jelas, dan harusnya "agak
menarik" (bagi yg tertarik!)
Dengan demikian INDEX mapun VLOOKUP yg* lemah lembut* itu dapat digantikan
dengan kombinasi beberapa fungsi di mana salah fungsinya adalah *TextCompare
* (UDF buatan dalam negeri)... agar *lebih galak *dapat me-LOOKUP data tabel
berdasarkan LookUpValue (padahal LookupValue tsb tidak pernah ada di
table_array, mekipun banyak data yg MIRIP)
Atas pertanyaan bung Martin; Rumusnya (versi diriku sendiri) kira-kira
seperti ini (di tulis di sheet 2 Cell D2)
=INDEX(Sheet1!$B$2:$B$6,
*MATCH(*MAX(Textcompare( Sheet1!$A$ 2:$A$6,B5) ), Textcompare
(Sheet1!$A$2:$A$6,B5), *0) *)
Penjelasan dari rumus D2 (mencari data di Sheet1 A2:A6 yang paling MIRIP
(yg Score Kemiripannya Paling Tinggi) dengan data di B2)
1. B2 dibandingkan dengan setiap data di Sheet1 kolom A (A2:A6); lalu
diberi score kemiripannya
2. Dari semua score (6 score) dicari nilai MAX nya
3. Nilai MAX tsb dicari POSISInya di Rangkaian (Array) Hasil SCORE
misal "Top Hija" akan ketemu posisinya = 5 (data ke 5 pada sumber data
dianggap paling mirip)
4. Dengan fungsi INDEX; Angka Posisi itu dipakai untuk mencari data di
Kolom B / Harga
(tampilkan data baris ke di kolom HARGA),
5. Selesai
Mengenai cara kerja dan karakteristik *Fungsi TextCompare*, jangan
ditanyakan sekarang, kelamaan menjelaskannya (dipersilakan melihat sendiri
di Prosedur-Fungsi-nya)
Function TextCompare(Rng As Range, S As String)
'-------------------- --------- --------- --------- --
' mengembalikan Bilangan yg menunjukkan
' % (Prosentasi) kemiripan 2 string
' pada revisi kali ini, UDF ditingkatkan agar dapat membandingkan
' 1 data dengan BANYAK DATA (array data) >> hasilnya array Hasil
'-------------------- --------- --------- --------- ---
' dikutip dari Folder tersembunyi milik Yu siti
' bertanggal 22 Feb 1009
' dan disesuaikan dengan keperluan
' revisi 19 dec 2011 / iHapsari
'-------------------- --------- --------- --------- --
Dim MatchTbl(), ArTC(), vRng As String
Dim i As Integer, j As Integer, ii As Integer, jj As Integer
Dim yMAX As Double, xMAX As Double, r As Long
ReDim ArTC(1 To Rng.Rows.Count)
S = Trim$(StrConv(S, vbProperCase) )
* For r = 1 To Rng.Rows.Count ' <---loop sebanyak array yg dibandingkan*
* vRng = Trim$(StrConv(Rng(r, 1), vbProperCase) *)
ReDim MatchTbl(Len(vRng), Len(S))
*For i* = Len(vRng) To 1 Step -1
*For j *= Len(S) To 1 Step -1
If Mid$(vRng, i, 1) = Mid$(S, j, 1) Then
xMAX = 0
*For ii* = (i + 1) To Len(vRng)
*For jj* = (j + 1) To Len(S)
If MatchTbl(ii, jj) > xMAX Then
xMAX = MatchTbl(ii, jj)
End If
* Next jj*
*Next ii*
MatchTbl(i, j) = xMAX + 1
If (xMAX + 1) > xMAX Then yMAX = xMAX + 1
End If
*Next j*
*Next i*
* ArTC(r) = yMAX / ((Len(vRng) + Len(S)) / 2)*
* Next r*
TextCompare = WorksheetFunction.Transpose( ArTC)
End Function
'-------------------- --------- ---------
iHaps
2011/12/15 Martin Mefril <martin_mefril2000@yahoo.com >
>
> Saya ada case seperti dibawa ini
>
*> Sheet1
> A
B
> 1 Nama Barang harga
> 2
> 3
> 4 Jas hujan 50.000
> 5 Celana Jeans 100.000
> 6 Kaos Oblong 30.000
> 7
> 8
*>
>
*> Sheet2
> A B
>
> 1 Nama Barang harga
> 2
> 3 Jas hjan
> 4 Celan Jens
> 5 Kao Oblo
> 6
> 7*
>
> Bagaimana menampilkan harga yang ada dikolom B di sheet2 apabila Nama
barang tidak lengkap?
> file terlampir
>
> Trims
> Martin Mefril
- 10.
-
get data txt dgn nama file di tentukan pada salah satu cell
Posted by: "nurkomardi@gmail.com" nurkomardi@gmail.com fathahalmizan
Tue Dec 20, 2011 5:42 pm (PST)
Mohon Bantuan koding tambahan macros agar bisa pada saat mau ambil data txt nama file sesuai dgn yg kita ingin kan pada cell "Nama" ( Cell Kuning ) sehingga tidak perlu lagi memilih file pada Popup getOpenFile
jadi kita hanya perlu menuliskan nama file pada cell kuning dan tinggal klik button maka data pada file text tsb akan bisa masuk ke sheet ini.terima kasih atas bantuannya
Contoh file terlampir
Sent by Nur Komardi
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| 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
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar