Messages In This Digest (25 Messages)
- 1a.
- Re: Pencarian Harga Terakhir From: Franciscus SOG
- 1b.
- Re: Pencarian Harga Terakhir From: STDEV(i)
- 1c.
- Re: Pencarian Harga Terakhir From: Mr. Kid
- 1d.
- Re: Pencarian Harga Terakhir From: Ahmad Adriansyah
- 2a.
- Re: membuat diagram pohon From: Zul Hendra
- 2b.
- Re: membuat diagram pohon From: Franciscus SOG
- 2c.
- Re: membuat diagram pohon From: Mr. Kid
- 3.
- memasang menu toolbar " tool" pada excel From: Nurfidah Dwitiyanti
- 4a.
- Bls: ]] XL-mania [[ Pencarian Harga Terakhir From: Pietroli Foe
- 4b.
- Bls: ]] XL-mania [[ Pencarian Harga Terakhir From: ghozi alkatiri
- 5.
- Transpos Matriks From: Anak Pesisir
- 6a.
- mengubah baris menjadi kolom From: Agus Priyanto
- 6b.
- Re: mengubah baris menjadi kolom From: Mr. Kid
- 6c.
- Re: mengubah baris menjadi kolom From: STDEV(i)
- 7.
- bisakah excel membuat hasil menjadi blink atau ngedip ????? From: Deny Syarifudin
- 8.
- look up dengan lebih dari 1 From: ign_elwis
- 9.
- Excell SQLlite From: Nazar
- 10a.
- New poll for XL-mania From: XL-mania@yahoogroups.com
- 11.
- Meng- indexs data dari beberapa sheet secara otomatis From: Syafruddin Hasibuan
- 12a.
- P1 & P2 From: Cecep
- 12b.
- Re: P1 & P2 From: harjanto_YMMWJ@yamaha-motor.co.id
- 12c.
- Re: P1 & P2 From: Mr. Kid
- 12d.
- Re: P1 & P2 From: STDEV(i)
- 13.
- Project: Membuat UDF Lagi ( IsOpen & SheetFound ) From: STDEV(i)
- 14.
- Filtering dengan Rumus From: kenshin 1210
Messages
- 1a.
-
Re: Pencarian Harga Terakhir
Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit
Tue Jun 7, 2011 7:52 pm (PDT)
Dear Dalis,
Numpung ga ada kerjaan nich.. saya bantu buat listnya sekalian.
Nama Barang : =INDEX($A$3:$A$34;MATCH( 0;COUNTIF( $F$2:$F2; $A$3:$A$34) ;0))
Tanggal : =MAX(IF($A$3:$A$34=F3; $B$3:$B$34) )
Harga : =INDEX($C$3:$D$34;MATCH( F3&G3;$A$ 3:$A$34&$ B$3:$B$34; 0);1)
Supplier : =INDEX($C$3:$D$34;MATCH( F3&G3;$A$ 3:$A$34&$ B$3:$B$34; 0);2)
Semua rumus diatas, diakhiri dengan upacara CSE. Tekan
Control+Shift+Enter bersamaan.
NB : Data ada yang diganti, untuk pengetesan formula. Mohon maklum.
CMIIW
Blessings,
Fran'z
On 6/6/11, Partroom 1 <tpmpc1@chemi-con.co.id > wrote:
> Dear Para Master.
>
> Setiap minggu saya membuat daftar belanjaan yang saya ajukan sama Boss
> dengan kisaran harga berdasarkan pembelian terakhir dari salah satu
> supplier.
>
> Masalahnya adalah data pembeliannya semakin bertambah,
> dan membuat saya kerepotan untuk sorting datanya.
> Karena saya mencarinya manual dengan Auto Filter kemudian saya copy.
>
> Mungkin ada yang bisa bantu saya agar proses pencariaan harga bisa lebih
> cepat,
>
> Terimakasih sebelumnya
> Dalis
- 1b.
-
Re: Pencarian Harga Terakhir
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Tue Jun 7, 2011 7:53 pm (PDT)
Rumus pembantu (rumus yg dibuat oleh pembantu) untuk mencari IndexBaris
pada tabel berdasarkan 2 kriteria, berupa *Arrfay Formula* sbb
=ROUND(MOD(MAX(IF('Data Pembelian'!$ A$3:$A$34= Sheet2!A3,
'Data Pembelian'!$B$3:$B$34+ ROW($1:$32) /1000)),1) *1000,0)
Jika di-khawatir-kan *data tangal mengandung nilai Time*, koreksi dikitlah
dengan
*INT(*'Data Pembelian'!$B$3:$B$34* ) *+ROW($1:$32) /1000)
Bdsk (berdasarkan) hsl (hasil) aryfml (arrayFormula) tsb (tersebut), kita
dapat melongkok
(LookUp) records yg dicari, hanya dengan kalimat pendek dan kekar, seperti
ini
=OFFSET('Data Pembelian'!C$2,$H3,0)
jaaadi dech !
Sekarang kita mau ceritak dikitts tentang: *Algoritma Formula Pembantu:*
*
*
1.
semua data di sheet DATA /TabelRef di kolom A (nama barang) dibandingkan
dengan Kriteria
( yg dimaksod dgn KRITERIA adalah data yg tertulis di sheet 2 kolom A mulai
baris 3 ke bawah...)
Setiap *data yg cocok* diberi nilai Tanggal-nya (yg ada di kolom B), ditambah
nilai khusus yaitu
nilai Index (urutan posisi record pada Tabel Ref) dibagi seribu (nanti
gunanya akan terjelaskan juga)
Jika *tidak cocok* ya diDIEMkan saja dwong, biarkan dia ngambeg menjadi
nilai FALSE
Hasil dari pembandingan antara array -vs- data ini menghasilkan array data
juga.
Tahap ini dikerjakan oleh Fungsi IF
Jika didalamnya ada ROW(1:32), array itulah yg dipakai sebagai nomor index
tiap baris data
di tabel Ref.
(kalok gak percaya: pilih /Blok-lah [32 cells sekolom] di mana saja,
lalu tuliskan rumus =ROW(1:32) di Formula-Bar atau di cell pertama pada Blok
itu;
akhiri tugas-suci itu dengan menekan 3 kunci/tombol : Ctrl + SHift +
Enterrrr ! )
( lihat visualisasi penjelasan di sheet Data.., Kolom J sampai kolom Q )
2.
Array data hasil IF tsb kemudian dicari nilai MAX nya (dengan fungsi MAX
kan yaa?)
ketika itu hasilnya adalah data tangal terbesar (dlm bentuk serial number)
tetapi ketambahan
milai Index Baris yg dibagi seribu (misal indexnya 11 keliatanhya seperti
ini NNNN,011)
3.
Kita tahu bahwa 0,011 itu dapat kita ambil dari NNNN,011 dengan berbagai
cara, tetapi saya
suka pakai cara fungsi MOD
MOD( NNNN,011; 1) hasilnya 0.011 INi hanyalah trick bodohbodohan dengan
mendasarkan
keyakinan bahwa bilangan pecah bila dibagi satu maka sisa pembagiannya
(MOD-nya) terntulah
bagian pecahannya itu sendiri.
Semoga anda masih ingat bahwa 011 itu tadi asalnya dari ANGKA URUT (index
data, salah satu dari
urutan 1 sampai 32 ) yg dibagi seribu
Untuk mengembalikan mnjadi 11 lagi ya jangan posing lah, kitakalikan saja
dengan 1000
Dengan kriteria terntentu ( "Gula Pasir er Kg") Hasil akhir dari RUmus
Pembantu itu adalah 11
Artinya: pembelian "Gula Pasier per Kg" itu mungkin pernah terjadi berkali
kali, atetapi ..
*tanggal pembelian **yg terbesar *adalah yg b*erada di index 11* (urutan
data ke 11)
*Itulah kerjaan pembantu kita yg gesit...*
=ROUND(MOD(MAX(IF('Data Pembelian'!$ A$3:$A$34= Sheet2!A9, INT('Data
Pembelian'!$B$3:$B$34) +ROW($1:$ 32)/1000) ),1)*1000, 0)
*
*
Kita sendiri tinggal mengerjakan sisanya yg tak ada sulit-sulitnya..
Dengan *telah diketahui* *Nomor Lantai*nya, teman baik kita yg di
gedung-tinggi di
sebalah kantor kita, akan mudah kita cari.
Tekan *LANTAI 11* pada panel LIFT, setelah sampai di lantai 11 tinggal
tengok kanan kiri
Di kolom mana dia berada, hampiri dia; pegang dan gandeng tangannya dengan
mesrah,
ajak-lah turun sekedar makan pecel lele bersama..
Begitu kan perumpamaannya. !??
2011/6/6 Partroom 1 <tpmpc1@chemi-con.co.id >
>
> Dear Para Master.
> Setiap minggu saya membuat daftar belanjaan yang saya ajukan sama Boss
> dengan kisaran harga berdasarkan pembelian terakhir dari salah satu
> supplier.
>
> Masalahnya adalah data pembeliannya semakin bertambah,
> dan membuat saya kerepotan untuk sorting datanya.
> Karena saya mencarinya manual dengan Auto Filter kemudian saya copy.
>
> Mungkin ada yang bisa bantu saya agar proses pencariaan harga bisa lebih
> cepat,
>
> Terimakasih sebelumnya
> Dalis
>
- 1c.
-
Re: Pencarian Harga Terakhir
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Tue Jun 7, 2011 7:55 pm (PDT)
Array formula filter bisa membantu.
Kid.
2011/6/6 Partroom 1 <tpmpc1@chemi-con.co.id >
>
>
> Dear Para Master.
>
> Setiap minggu saya membuat daftar belanjaan yang saya ajukan sama Boss
> dengan kisaran harga berdasarkan pembelian terakhir dari salah satu
> supplier.
>
> Masalahnya adalah data pembeliannya semakin bertambah,
> dan membuat saya kerepotan untuk sorting datanya.
> Karena saya mencarinya manual dengan Auto Filter kemudian saya copy.
>
> Mungkin ada yang bisa bantu saya agar proses pencariaan harga bisa lebih
> cepat,
>
> Terimakasih sebelumnya
> Dalis
>
>
>
- 1d.
-
Re: Pencarian Harga Terakhir
Posted by: "Ahmad Adriansyah" ahmad.adriansyah@trac.astra.co.id
Tue Jun 7, 2011 11:15 pm (PDT)
Semoga bisa membantu terhadap 1 dari sekian banyak cara.
Pertama-tama kita cari dulu tanggal transaksi terakhirnya menggunakan
formula max: {=MAX(IF('Data Pembelian'!$A$2:$A$34= Sheet2!$H3; 'Data
Pembelian'!$B$2:$B$34) )}
Lalu setelah tanggalnya ketemu, baru gunakan sumproduct :
=SUMPRODUCT(('Data Pembelian'!$ A$3:$A$34= Sheet2!H3) *('Data
Pembelian'!$B$3:$B$34= Sheet2!L3) *('Data Pembelian'!$ C$3:$C$34) )
Data yang bold biru dapat disesuaikan dengan jumlah penambahan transaksi
berikutnya....
Ahmad Adriansyah
www.loketshafira.co.cc
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com ] On
Behalf Of Partroom 1
Sent: 06 Juni 2011 15:21
To: XL-mania
Subject: ]] XL-mania [[ Pencarian Harga Terakhir
Dear Para Master.
Setiap minggu saya membuat daftar belanjaan yang saya ajukan sama Boss
dengan kisaran harga berdasarkan pembelian terakhir dari salah satu
supplier.
Masalahnya adalah data pembeliannya semakin bertambah,
dan membuat saya kerepotan untuk sorting datanya.
Karena saya mencarinya manual dengan Auto Filter kemudian saya copy.
Mungkin ada yang bisa bantu saya agar proses pencariaan harga bisa lebih
cepat,
Terimakasih sebelumnya
Dalis
- 2a.
-
Re: membuat diagram pohon
Posted by: "Zul Hendra" zul.nyonk@gmail.com pizzatuna4000
Tue Jun 7, 2011 7:53 pm (PDT)
Gunakan aja Pivot Table.
Lalu pilih di Ribbon Design-nya "Show in Outline Form"
2011/6/6 naNa <ayoess@yahoo.com >
>
>
> dear para pakar XL-Mania
>
> Mohon bantuannya,. untuk membuat diagram pohon (equipment tree),.. seperti
> file terlampir,
> saya sudah coba-mencoba namun hasilnya tidak tepat melulu,. .
>
> sebelum dan sesudahnya saya ucapkan terima kasih banyak atas perhatian dan
> solusinya.
>
> salam , jaya terus xl-mania
>
> Ayus S (Mr.)
>
>
>
--
Best Regards,
*Zulhendra, A.Md*
- 2b.
-
Re: membuat diagram pohon
Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit
Tue Jun 7, 2011 7:53 pm (PDT)
Dear Ayus S,
Pohonnya da jadi nich, tapi dahannya (garis) lom jadi. Mungkin ada
yang bisa bantu??
Berikut cuplikan VBA-nya :
Sub Pohon()
vHasil = 4
For vData = 4 To 65536
vCol = 2: vCol2 = 21
If Cells(vData, 2) <> vbNullString Then
For vCol = 2 To 6
If Cells(vData, vCol) <> vbNullString Then
If Cells(vData, vCol) <> Cells(vData - 1, vCol) Then
Cells(vHasil, vCol2) = Cells(vData, vCol)
vCol2 = vCol2 + 1
vHasil = vHasil + 1
Else
vCol2 = vCol2 + 1
End If
End If
Next vCol
Else
Exit Sub
End If
Next vData
End Sub
Asumsi vCol (kolom pertama data) dimulai dari 2 (kolom B), vCol2
(kolom pertama hasil) dimulai dari 21 (kolom U), vData & vHasil =
baris pertama dari data.
Ada tampilan hasil yang tidak sama, mungkin hanya kecelakaan..
CMIIW
Blessings,
Fran'z
On 6/6/11, naNa <ayoess@yahoo.com > wrote:
> dear para pakar XL-Mania
>
> Mohon bantuannya,. untuk membuat diagram pohon (equipment tree),.. seperti
> file terlampir,
> saya sudah coba-mencoba namun hasilnya tidak tepat melulu,. .
>
> sebelum dan sesudahnya saya ucapkan terima kasih banyak atas perhatian dan
> solusinya.
>
> salam , jaya terus xl-mania
>
> Ayus S (Mr.)
>
>
>
>
>
>
>
>
>
>
>
- 2c.
-
Re: membuat diagram pohon
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Tue Jun 7, 2011 7:55 pm (PDT)
Coba dengan pivot table.
Kid.
2011/6/6 naNa <ayoess@yahoo.com >
>
>
> dear para pakar XL-Mania
>
> Mohon bantuannya,. untuk membuat diagram pohon (equipment tree),.. seperti
> file terlampir,
> saya sudah coba-mencoba namun hasilnya tidak tepat melulu,. .
>
> sebelum dan sesudahnya saya ucapkan terima kasih banyak atas perhatian dan
> solusinya.
>
> salam , jaya terus xl-mania
>
> Ayus S (Mr.)
>
>
>
- 3.
-
memasang menu toolbar " tool" pada excel
Posted by: "Nurfidah Dwitiyanti" nurfidahdwitiyanti@yahoo.co.id nurfidahdwitiyanti
Tue Jun 7, 2011 7:53 pm (PDT)
Salam kenal ^^..
Sebelumnya saya mengucapkan selamat dan ancungin 2 jempol wt XLmania..cos bisa membuat blog sekeren dan sangat bermanfaat seperti ini untuk orang2 yang masih awam dengan Excel (seperti saya nieh..hehe..)
langsng aja ya mas, saya mau tanya (boleh kan???hehe) bagaimana sieh cara memasang menu toolbar "tool" pada excel???apakah bs didownload gratis atau harus install ulang lg excel nya??
thanks ya XLmania..^^ ditunggu balasannya...
Sukses selalu bwt XLmania..:)
- 4a.
-
Bls: ]] XL-mania [[ Pencarian Harga Terakhir
Posted by: "Pietroli Foe" pietrolifoe@yahoo.com pietrolifoe
Tue Jun 7, 2011 7:54 pm (PDT)
Dalis..
Semoga membantu...
Salam
Piet
Dari: Partroom 1 <tpmpc1@chemi-con.co.id >
Kepada: XL-mania <XL-mania@yahoogroups.com >
Dikirim: Senin, 6 Juni 2011 15:21
Judul: ]] XL-mania [[ Pencarian Harga Terakhir
Dear Para Master.
Setiap minggu saya membuat daftar belanjaan yang saya ajukan sama Boss
dengan kisaran harga berdasarkan pembelian terakhir dari salah satu supplier.
Masalahnya adalah data pembeliannya semakin bertambah,
dan membuat saya kerepotan untuk sorting datanya.
Karena saya mencarinya manual dengan Auto Filter kemudian saya copy.
Mungkin ada yang bisa bantu saya agar proses pencariaan hargabisa lebih cepat,
Terimakasih sebelumnya
Dalis
- 4b.
-
Bls: ]] XL-mania [[ Pencarian Harga Terakhir
Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri
Tue Jun 7, 2011 7:55 pm (PDT)
sepertinya contoh tabel manual di attachment ada kesalahan pengambilan data tanggal terakahir transaksi yang seharusnya 10 maret tapi di tabel manual tertulis 9 april 2011 akibatnya data harga dan suplier jadi ikut mengacu pada tanggal tersebut. dengan formula array
kolom harga
{=INDEX('Data Pembelian'!C$1:C$34;MAX( IF('Data Pembelian'!$ A$1:$A$34= SOLUSI!$A20; ROW('Data Pembelian'!$ A$1:$A$34) )))}
kolom tanggal
{=INDEX('Data Pembelian'!B$1:B$34;MAX( IF('Data Pembelian'!$ A$1:$A$34= SOLUSI!A20; ROW('Data Pembelian'!$ A$1:$A$34) )))}
kolom suplier
{=INDEX('Data Pembelian'!D$1:D$34;MAX( IF('Data Pembelian'!$ A$1:$A$34= SOLUSI!A20; ROW('Data Pembelian'!$ A$1:$A$34) )))}
semuanya terkoreksi dengan tepat.
wassalam
Ghozi Alkatiri
--- Pada Sen, 6/6/11, Partroom 1 <tpmpc1@chemi-con.co.id > menulis:
Dari: Partroom 1 <tpmpc1@chemi-con.co.id >
Judul: ]] XL-mania [[ Pencarian Harga Terakhir
Kepada: "XL-mania" <XL-mania@yahoogroups.com >
Tanggal: Senin, 6 Juni, 2011, 3:21 PM
Dear Para Master.
Setiap minggu saya membuat daftar belanjaan yang saya ajukan
sama Boss
dengan kisaran harga berdasarkan pembelian terakhir dari salah
satu supplier.
Masalahnya adalah data pembeliannya semakin
bertambah,
dan membuat saya kerepotan untuk sorting datanya.
Karena saya mencarinya manual dengan Auto Filter kemudian saya
copy.
Mungkin ada yang bisa bantu saya agar proses
pencariaan hargabisa lebih cepat,
Terimakasih sebelumnya
Dalis
- 5.
-
Transpos Matriks
Posted by: "Anak Pesisir" syahrul.fisika@gmail.com syahrul_1504
Tue Jun 7, 2011 7:54 pm (PDT)
bagaimana kabar kakak2 anggota XL-Mania?
semoga sehat dan sejahtra selalu..
kakak2, aku anggota baru di group ini, dan aku juga belum biasa menggunakan
Ms Office Excel. tetapi, aku sudah dihadapkan pada suatu kasus yang agak
rumit. aku harus memplot sebuah grafik antara X-Y dan data yang aku punya
berupa matriks 68 kali 7. yang ingin aku tanyakan adalah bagaimana mengubah
semua baris dari matriks tersebut menjadi 1 kolom dengan ketentuan baris
pertama (kolom 1-7) menjadi baris 1-7 dan seterusnya agar diperoleh data
Sumbu-X satu kolom dan Sumbu-Y satu kolom dalam Excel sehingga dapat diplot.
aku sertakan file excel pekerjaanku..
terimakasih sebelumnya untuk bantuan kakak2 anggota dalam gorup ini.
syahrul
- 6a.
-
mengubah baris menjadi kolom
Posted by: "Agus Priyanto" maros_boy@rocketmail.com maros_boy@rocketmail.com
Tue Jun 7, 2011 7:54 pm (PDT)
hi selamat siang,
ane punya sedikit masalah mengenai data excel...
langsung sj, ane mo nanya:
misalnya:
cell A1 berisi no. barang "10001"
cell A2 berisi tanggal "01/01/2011"
(cell A3:A5 kosong)
kemudian
cell A6 berisi no. barang "10002"
cell A7 berisi tanggal "07/01/2011"
(cell A8:A12 kosong)
kemudian
cell A13 berisi no. barang "10007"
cell A14 berisi tanggal "25/01/2011"
dan seterusnya (data tdk berurutan)
bgmn caranya agar isi cell A2 berpindah ke cell B1, cell A7 ke B6, cell A14 ke B13, dst dgn menggunakan formula???
- 6b.
-
Re: mengubah baris menjadi kolom
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Tue Jun 7, 2011 10:46 pm (PDT)
pada B1
tulis :
=if(len(a1),a2,"")
Kid.
2011/6/7 Agus Priyanto <maros_boy@rocketmail.com >
>
>
> hi selamat siang,
> ane punya sedikit masalah mengenai data excel...
> langsung sj, ane mo nanya:
> misalnya:
>
> cell A1 berisi no. barang "10001"
> cell A2 berisi tanggal "01/01/2011"
> (cell A3:A5 kosong)
> kemudian
> cell A6 berisi no. barang "10002"
> cell A7 berisi tanggal "07/01/2011"
> (cell A8:A12 kosong)
> kemudian
> cell A13 berisi no. barang "10007"
> cell A14 berisi tanggal "25/01/2011"
>
> dan seterusnya (data tdk berurutan)
>
> bgmn caranya agar isi cell A2 berpindah ke cell B1, cell A7 ke B6, cell A14
> ke B13, dst dgn menggunakan formula???
>
>
>
- 6c.
-
Re: mengubah baris menjadi kolom
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Tue Jun 7, 2011 10:51 pm (PDT)
** formula tuliskan di C1
=IF((A1<>"")*(A2<>"") ,A1,"")
** formula tuliskan di D1
=IF((A1<>"")*(A2<>"") ,A2,"")
copy dan paste ke cells dibawahnya sampai sejajar data terkahir di kolom A
copy range C1:Dn
Select / Blok A1
Paste Special > Value
Hapus Kolom C dan D
Kesimpulannyah:
Formula hanya bisa me"niru' data di cell lain, tapi dia ndak bisa
menghapus data di cell lain,
atau MEMINDAH data dari cell satu ke cell lain (memindah itu tidak sama
dengan menyalin
karena dm memindah selain ada proses mengkopy ada pula proses menghapus asli
datanya.)
Makanya kita sendiri yang harus menghapus cell/range yg perlu dihapus.
Kalau mau otomatis penuh, lihat di sheet2
2011/6/7 Agus Priyanto <maros_boy@rocketmail.com >
> hi selamat siang,
> ane punya sedikit masalah mengenai data excel...
> langsung sj, ane mo nanya:
> misalnya:
>
> cell A1 berisi no. barang "10001"
> cell A2 berisi tanggal "01/01/2011"
> (cell A3:A5 kosong)
> kemudian
> cell A6 berisi no. barang "10002"
> cell A7 berisi tanggal "07/01/2011"
> (cell A8:A12 kosong)
> kemudian
> cell A13 berisi no. barang "10007"
> cell A14 berisi tanggal "25/01/2011"
>
> dan seterusnya (data tdk berurutan)
> bgmn caranya agar isi cell A2 berpindah ke cell B1, cell A7 ke B6, cell
> A14 ke B13, dst dgn menggunakan formula???
>
>
- 7.
-
bisakah excel membuat hasil menjadi blink atau ngedip ?????
Posted by: "Deny Syarifudin" d_sya_99_xl@yahoo.com d_sya_99_xl
Tue Jun 7, 2011 7:54 pm (PDT)
Dear Excel mania,
apakah di excel bisa membuat hasil (huruf) menjadi ngedip atau nge-blink ????
misalkan, apabila di kolom Jumlah
Hari (file terlampir) itu hasil nya lebih besar atau sama dengan 4 maka
harus ngedip atau nge-blink jika tidak ya tentunya tidak usah ngedip atau nge-blink.
Oh iyah, saya menggunakan Ms. Excel 2003.
Terima kasih atas perhatiannya.
Deny s.
- 8.
-
look up dengan lebih dari 1
Posted by: "ign_elwis" elwismusa.tambuwun@ymail.com ign_elwis
Tue Jun 7, 2011 7:55 pm (PDT)
dear xl mania,
boleh saya minta pencerahannya, saya masih di jaman flinstone
kemampuannya :P
saya ingin buat look up dengan lebih dari 1 kondisi dan sheet
misal:
sheet1
pilih pilih rumus
bln no urut ket
Jan 001 a
Feb 003 z
sheet2_Jan
no urut ket
001 a
002 b
003 c
sheet3_Feb
no urut ket
001 x
002 y
003 z
dst..sd Des
begitulah kira2 yg sedang saya hadapi
mohon kiranya pencerahan dari teman2 semua
salam hangat
ign.elwis
- 9.
-
Excell SQLlite
Posted by: "Nazar" avatarudin@gmail.com udin_aye
Tue Jun 7, 2011 7:56 pm (PDT)
Selamat Pagi agan2 master Excell
ada yg punya sample code vba excell yg pake database sqlite
- konneksi excell ke database sqlite
- import data dri sqlite ke excel & excel ke sqlite
- proses querry lainnya
boleh sharing dong gan ! ... please
- 10a.
-
New poll for XL-mania
Posted by: "XL-mania@yahoogroups.com" XL-mania@yahoogroups.com
Tue Jun 7, 2011 8:00 pm (PDT)
Enter your vote today! A new poll has been created for the
XL-mania group:
Kalau "50 jurus rahasia excel" atau buku serupa terbit lagi, versi Microsoft Excel manakah yang Anda ingingkan untuk dijadikan tampilannya?
o Microsoft Excel 10.0 [Ms. Excel 2002]
o Microsoft Excel 11.0 [Ms. Excel 2003]
o Microsoft Excel 12.0 [Ms. Excel 2007]
o Microsoft Excel 14.0 [Ms. Excel 2010]
o ...kok versi 13.0 nggak ada?
To vote, please visit the following web page:
http://groups.yahoo.com/ group/XL- mania/surveys? id=13086871
Note: Please do not reply to this message. Poll votes are
not collected via email. To vote, you must go to the Yahoo! Groups
web site listed above.
Thanks!
- 11.
-
Meng- indexs data dari beberapa sheet secara otomatis
Posted by: "Syafruddin Hasibuan" excelqu@yahoo.co.id excelqu
Tue Jun 7, 2011 10:51 pm (PDT)
Selamat siang semua...
Dear.. para pakar XL-Mania semua, mohon kiranya dapat membantu saya untuk permasalahan yang saya alami dalam pekerjaan sehari-hari.
Adapun permasalahan yang saya alami, saya setiap hari harus membuat planning produksi yang terdiri dari beberapa sheet yang nantinya digabungkan menjadi 1 sheet target produksi. Biasanya yang saya lakukan adalah dengan menggunakan fungsi sort pada setiap sheet dan meng copy nya ke sheet target sesuai tanggal akan produksi.
Yang ingin saya tanyakan dan juga mohon bantuannya ada kah cara untuk membuat data pada sheet target secara otomatis sesuai part no dan qty plan sesuai tanggal rencana produksi. Mohon dibantu dan dibuatkan juga mohon diberikan pencerahan / penjelasan untuk fungsi atau rumus2 yang digunakan.
Terima Kasih
S. Ruddi
- 12a.
-
P1 & P2
Posted by: "Cecep" w_518_er@yahoo.co.id w_518_er
Tue Jun 7, 2011 10:52 pm (PDT)
Dear para XL Mania,
P1 P2 yang bikin lelah, harus hitung satu" sampe akhir bulan.
Pencerahan kepada Master XL Mania.
Best Regards
Cecep Taufik Ahmad
- 12b.
-
Re: P1 & P2
Posted by: "harjanto_YMMWJ@yamaha-motor.co.id" harjanto_YMMWJ@yamaha-motor.co.id
Wed Jun 8, 2011 5:08 am (PDT)
Dear Mr. Cecep,
Disini saya coba bantu dengan rumus sederhana saya, akan tetapi memang ada
konflik yaitu
AK = RK --> OK
AK & RK tidak diisi --> munculnya 0
Kalau AK & RK tidak diisi maka nilainya sama-sama 0 (AK = RK) jadi
munculnya OK
Mungkin XL-mania yang lain bisa membantu?
Best Regards,
Harjanto
"Cecep" <w_518_er@yahoo.co.id >
Sent by: XL-mania@yahoogroups.com
06/08/2011 11:51 AM
Please respond to
XL-mania@yahoogroups.com
To
<XL-mania@yahoogroups.com >
cc
Subject
]] XL-mania [[ P1 & P2
Dear para XL Mania,
P1 P2 yang bikin lelah, harus hitung satu" sampe akhir bulan.
Pencerahan kepada Master XL Mania.
Best Regards
Cecep Taufik Ahmad
[attachment "xl man.xls" deleted by harjanto YMMWJ/YAMAHA]
- 12c.
-
Re: P1 & P2
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Jun 8, 2011 5:08 am (PDT)
P1 ::
=IF((C5=0)*(C6=0),0,IF( C6=C5,1,( C5<C6)-2) )
P2 ::
=-1+(C6>0)
Gunakan format cell number.
Kid.
2011/6/8 Cecep <w_518_er@yahoo.co.id >
>
>
> Dear para XL Mania,
>
>
>
> P1 P2 yang bikin lelah, harus hitung satu" sampe akhir bulan.
>
>
>
> Pencerahan kepada Master XL Mania.
>
>
>
>
>
>
>
> Best Regards
>
> Cecep Taufik Ahmad
>
>
>
>
>
- 12d.
-
Re: P1 & P2
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Wed Jun 8, 2011 5:08 am (PDT)
=IF((C5<>"")*(C$5=C$6) ,"OK",IF( C6<C5,-1, 0))
=IF(C6<>"","OK",-1)
2011/6/8 Cecep <w_518_er@yahoo.co.id >
>
> Dear para XL Mania,
>
> P1 P2 yang bikin lelah, harus hitung satu" sampe akhir bulan.
>
> Pencerahan kepada Master XL Mania.
>
> Best Regards
>
Cecep Taufik Ahmad
>
>
>
- 13.
-
Project: Membuat UDF Lagi ( IsOpen & SheetFound )
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Tue Jun 7, 2011 11:19 pm (PDT)
[Kategori: Makro] [Kelas: Pemula]
©sskk (serial siti kurang kerjaan) edisi 201106)
Di dalam aplikasi anda, baik yg cukup mengandalkan fitur dan formula di
worksheet
maupun yg harus dibantu makro dari balik pagar-nya, mungkin sekali waktu
akan
bertemu dengan 2 keperluan spt ini:
- *apakah sebuah sheet *(diketahui nama-sheet-nya)* ADA di workbook ?*
- *apakah sebuah workbook *(diketahui nama-book-nya)* sudah TERBUKA ?*
Kedua pertanyaan itu kita inginkan jawabannya berupa Logical value: *True
atau False*.
Kelak, Jika jawaban sudah ditangan, jalan di depan kita terbuka kembali,
yaitu jalan
bercabang: Kalau TRUE mau "ngapain", kalau FALSE mau "ngapain" pulak ?
"Suka suka" anda: proses-proses apa yg akan anda tuliskan berikutnya. Ya
'kan ?
*( Ya Iyyya Lah !!)*
Di Worksheet maupun di VBA, dengan terus berkembangnya versi Excel, mudah
mudahan Oom Bill Gentholett (sodara jau - nya Oom Bill Gates) berkenan
menambahkan
fungsi-fungsi baru seperti itu.
Andaikan belum ada, mengapa kita tidak "BIKING SENDIRI" saja fungsinya Jo !.
Apabila kita akan berurusan dgn suatu worksheet-tertentu, maka untuk
menunjuk
hidungnya kita perlu *meraba worksheet (dlm koleksi Worksheets) satu
persatu. *
Manakala kriterianya sesuai, maka woksheet yg sedang teraba itulah
Malingnya.
Pekerjaan seperti ini perlu sebuah KALANG / LOOP, misalnya:
For Each xSheet in Worksheets - proses - Next
Dalam hal mencari sheet yg kemungkinan = TIDAK ADA, maka dlm loop tsb
jika ada workseet yg sesuai dgn kriteria, sebuah *variable boolean *kita isi
TRUE
sambil kita hentikan loopnya.
Jika sampai loop berakhir tanpa ada worksheet yg sesuai dgn kriteria,
artinya
variable boolean tsb masih berisi FALSE
Dua keadaan ini (TRUE atau FALSE) baru akan diketahui ketika keluar dari
Loop.
Proses mencari sebuah workbook di dalam koleksi Workbooks: tidak berbeda.
karena hanya lain nama objectnya saja, prinsipnya tetap sama = *mencari
sebuah *
*object dlm koleksi-object *(apakah memenuhi kriteria tertentu)
Sheet-tertentu atau Worksheet-tertentu adalah sebuah object, sedangkan
Sheets atau Worksheets (ada ES nya lho..) adalah Koleksi Object.
Penggemar makro jangan samapai tidak mencataat hal seperti ini
Mungkin struktur pemrogramannya seperti ini
Function Adakah(NamaSheet As String) As Boolean
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = NamaSheet Then
Adakah = True
Exit For
End If
Next ws
End Function
Pemakaiannya di prosedur lain:
If Adakah("Sheet1001") *= True* Then
'- proses alt 1 --
Else
'- proses alt 2 --
End if
karena adakah(argument) sendiri sudah berupa Logical Value
maka penulisannya bisa diringkas seperti ini
If Adakah("Sheet1001") Then
'- proses alt 1 --
Else
'- proses alt 2 --
End if
Pemakaian di worksheet, mungkin seperti ini
=IF(Adakah("Laporan2011" ),Laporan2011! C11,F16)* 10000
Algoritma seperti UDF di atas itu, cukup sukses dan banyak yg
menggunakannya.
Kekurangannya adalah : loop bisa berlangsung lama (perlu banyak waktu)
terutama
jika anggota koleksi object yg akan diraba cukup banyak.
(bayangkan jika mencari satu sheet yg tidak ada atau yg indexnya paling
akhir
di sebuah koleksi worksheets yg anggota sheet nya = 999999 lembar, ada ndak
ya?)
Kacian deh Loop !
*Membuat prosedur yg sama kerjanya, tetapi tanpa Loop (Mempercepat Makro)*
Walaupun untuk ukuran mesin sekarang, hal seperti dijelaskan di atas itu
tidak terasa
lagi, tetapi kita masih wajib mencari cara lain yg (mudah-mudahan) lebih
cepat.
Kita ketahui bahwa meng-assigned sebuah variable object dengan sebuah sheet
yg sebetulnya TIDAK ADA, akan menimbulkan error.
Jangan lupa ya... meng-assign variable object harus dengan Statement Set
*Set* ObjVar = ObjectTertentu
sedangkan mengisi variable data cukup dengan: NmVariable = Data
Atau kalau mau : *Let* NmVariable = Data
Dim SitX as Worksheet
Set SitX = Sheets("LaporanAsalLapor")
Jika sheet bernama "LaporanAsalLapor" ternyata *euweuh* alias "ndak ada"..
maka terjadi error. Tetapi sebelum itu kita 'kan bisa pasang kuda-kuda agar
si error
(walaupun muncul) kita SURUH diam-diam saja, jangan brisikk!.
Dim SitX as Worksheet
On Error Resume Next
Set SitX = Shets("LaporanAsalLapor")
'-- perintah berikutnya --
Manakala kuda-kuda sudah terpasang seperti itu; jika terjadi error (karena
sheet
bernama "LaporanAsalLapor" = tidak ada) maka program pointer langsung
ngacir
ke baris perintah berikutnya tanpa berisik...
Dan kita sebagai "XL-maniawan / XL-maniawati sejati" yg sedang belajar
menjadi
"programmer ulung" (hayyyahhh!!), janganlah sampai melewatkan HAL YG SEPELE
ini.
Dengan terlaluinya perintah :
On Error Resume Next
Set SitX = Shets("LaporanAsalLapor")
maka di baris berikutnya, *variable SitX* sudah jelas punya *status *yaitu*
berupa *
*dua kemungkinan*:
(*1) SitX = *sudah mewakili object **sheet* bernama "LaporanAsalLapor"
atau (jika terjadi error yg diam-diam dilewatkan)
(*2) SitX tidak mewakili apapun; atau dapat dikatakan: *SitX is Nothing*
!
Memang konon ceritaknya, di sono-nya variable object itu sejak
dideklarasikan sampai
sesaat sebelum di assigned, akan bernilai Nothing
Variable Boolean sejak dideklarasikan sampai sesaat sebelum di ISI nilai
Logical
sudah membawa nilai defaultanya yaitu = FALSE.
(di vba, tidak seperti di fortran atau c, semua variable sudah punya nilai
default
ketika dia dideklarasikan)
Nah kalau begitu Perintah selanjutnya hanya perlu satu baris statement:
*If Not SitX Is Nothing* Then *SUATU_VARIABLE = True*
Ndak Boong, Ndak Ribet.... banyak untungnya !
Dengan demikian pekerjaan mendeteksi apakah suatu worksheet memang ADA
sudah selesai sampai di sini, yaitu dengan diyakininya sebuah variable
mendapat
nilai *False* atau *True* itu tadi...
*Berikut ini dicontohkan coding lengkap 4 prosedur Fungsi (UDF)*
*1 Apakah sebuah sheet (diketahui nama-sheet-nya) ADA di workbook *
* *dalam dua versi : Tanpa looping -vs- Menggunakan looping
Function IsOpen(WbName As String) As Boolean
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks(WbName)
If Not wb Is Nothing Then IsOpen = True
End Function
Function Terbukakah(NmBook As String) As Boolean
Dim book As Workbook
*For Each* book In Workbooks
If book.Name = NmBook Then
Terbukakah = True
Exit For
End If
*Next* book
End Function
*2 Apakah sebuah workbook (diketahui nama-book-nya) sudah TERBUKA *
dalam dua versi : Tanpa looping -vs- menggunakan looping
Function SheetFound(WsName As String) As Boolean
Dim Ws As Worksheet
On Error Resume Next
Set Ws = Sheets(WsName)
If Not Ws Is Nothing Then SheetFound = True
End Function
Function Adakah(NamaSht As String) As Boolean
Dim Sht As Worksheet
For Each ws In Worksheets
If Sht.Name = NamaSht Then
Adakah = True
Exit For
End If
Next Sht
End Function
'-------------------- --------- --------- --------- --
*Pelajaran yg mungkin didapat dari project ini:*
* bahwa selain ada Prosedur Sub, ada juga *prosedur Function*
* hasil suatu komputasi di sebuah Prosedur Function, akhirnya selalu
/ harus diberikan kepada Variable NamaFungsi
* looping didalam sebuah koleksi object
* menyaring data / object dgn kriteria tertentu selama Looping berjalan.
* upaya mempercepat tercapainya tujuan (mempersingkat running time)
* Kadang proses yg memerlukan looping, bisa digantikan oleh trick lain
* Penggunaan On Error Resume Next
* Perbedaan mengAssign /mengisi variable Object vs Variable data
* VBA mengenal adanya Nilai Default sebuah variable sejak dideklarasikan.
workbook: ctv_Fungsi IsOpen dan
SheetFound.xls<http://www.box.net/shared/ >17vdmfcdk4
** bagi members yg memerlukan fil tsb, kapan saja masih bisa mendownload
dari:
http://www.box.net/shared/ 17vdmfcdk4
Bluewater, 4 Juni 2011
"hormat kami",
STDEV(i)
attachment *.zi_ agar di-rename dulu menajdi *.zip untuk kemudian di
extract (dgn winzip) menjadi *.xls
- 14.
-
Filtering dengan Rumus
Posted by: "kenshin 1210" kenshin.1210@yahoo.co.id kenshin.1210
Wed Jun 8, 2011 5:08 am (PDT)
Yth, Para Pakar Excel,
Mohon bantuannya untuk pemecahan masalah tersebut terlampir. Saya sudah mencoba menggunakan contoh yang pernah dikirimkan ke milis ini, namun hingga sekarang masih belum berhasil.
Atas bantuannya terima kasih.
Salam,
-rio-
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari |
| jadi budak kantoooOOooorrr... |
| 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 |
+-------------------------------------------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari |
| jadi budak kantoooOOooorrr... |
| 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 Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar