15 New Messages
Digest #2249
3b
Re: cara menampilkan gambar di program excel tapi gambarnya ada di f by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Mengambil Data Access dan Menaruhnya Sesuai dengan Kriteria di E by "Abdurrahman Suryadi" abduh_suryadi
4b
Re: Mengambil Data Access dan Menaruhnya Sesuai dengan Kriteria di E by "Mr. Kid" nmkid.family@ymail.com
Messages
Fri Apr 19, 2013 6:47 am (PDT) . Posted by:
"Rizki Agung" rizki_fisthein
Assalamualaikum,,,wr,,,wb...
mohon bantuannya,,,bagaimana cara mengisi data dalam tabel yang sayang cetak warna kuning dengan fungsi vlookup. terima kasih atas bantuannya.
mohon bantuannya,,
Fri Apr 19, 2013 7:43 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
lihat attachment
wassalam
Ghozi Alkatiri
________________________________
Dari: Rizki Agung <rizki_fisthein@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 19 April 2013 20:41
Judul: [belajar-excel] Mengurutkan data yang acak 2
Assalamualaikum,,,wr,,,wb...
mohon bantuannya,,,bagaimana cara mengisi data dalam tabel yang sayang cetak warna kuning dengan fungsi vlookup. terima kasih atas bantuannya.
wassalam
Ghozi Alkatiri
____________
Dari: Rizki Agung <rizki_fisthein@
Kepada: "belajar-excel@
Dikirim: Jumat, 19 April 2013 20:41
Judul: [belajar-excel] Mengurutkan data yang acak 2
Assalamualaikum,
mohon bantuannya,,
Fri Apr 19, 2013 7:51 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
sorry attachmentnya kurang lengkap
wassalam
Ghozi Alkatiri
________________________________
Dari: ghozi alkatiri <ghozialkatiri@yahoo.co.id >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 19 April 2013 21:38
Judul: Bls: [belajar-excel] Mengurutkan data yang acak 2
lihat attachment
wassalam
Ghozi Alkatiri
________________________________
Dari: Rizki Agung <rizki_fisthein@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 19 April 2013 20:41
Judul: [belajar-excel] Mengurutkan data yang acak 2
Assalamualaikum,,,wr,,,wb...
mohon bantuannya,,,bagaimana cara mengisi data dalam tabel yang sayang cetak warna kuning dengan fungsi vlookup. terima kasih atas bantuannya.
wassalam
Ghozi Alkatiri
____________
Dari: ghozi alkatiri <ghozialkatiri@
Kepada: "belajar-excel@
Dikirim: Jumat, 19 April 2013 21:38
Judul: Bls: [belajar-excel] Mengurutkan data yang acak 2
lihat attachment
wassalam
Ghozi Alkatiri
____________
Dari: Rizki Agung <rizki_fisthein@
Kepada: "belajar-excel@
Dikirim: Jumat, 19 April 2013 20:41
Judul: [belajar-excel] Mengurutkan data yang acak 2
Assalamualaikum,
mohon bantuannya,,
Fri Apr 19, 2013 8:43 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir.
- Buka txt file dengan Excel (Windows Explorer -> klik kanan file -> open
with -> MS Excel)
- jika muncul dialog window text to column, abaikan saja pilih delimited
lalu next sampai finish atau di cancel jika ada pilihannya
- data harus muncul sebagai data 1 kolom di kolom A saja
- copy data ke file terlampir di A2
- klik tombol [SPLIT]
Wassalam,
Kid.
2013/4/19 Ahmad Nurul <ahmad_3suci@yahoo.co.id >
> **
>
>
>
> Dear Para B Exceler,
>
> Mohon batuannya ilmu untuk convert dari txt ke excel supaya terlihat
> rapih, gimana caranya.
> Karena saya masih pemula, atas perhatiannya saya ucapkan terimakasih.
>
> terlmpir file txt, saya zip karena kebesaran filenya.
>
> Best Regard,
>
> *Ahmad Nurul Imran*
> **
> *Jl. KH. Tb. A. Khotib No. 43 Kedalingan Serang - 42117*
> *Hp : 087774309887*
> *Tlp : 0254-203282*
> **
>
>
>
>
- Buka txt file dengan Excel (Windows Explorer -> klik kanan file -> open
with -> MS Excel)
- jika muncul dialog window text to column, abaikan saja pilih delimited
lalu next sampai finish atau di cancel jika ada pilihannya
- data harus muncul sebagai data 1 kolom di kolom A saja
- copy data ke file terlampir di A2
- klik tombol [SPLIT]
Wassalam,
Kid.
2013/4/19 Ahmad Nurul <ahmad_3suci@
> **
>
>
>
> Dear Para B Exceler,
>
> Mohon batuannya ilmu untuk convert dari txt ke excel supaya terlihat
> rapih, gimana caranya.
> Karena saya masih pemula, atas perhatiannya saya ucapkan terimakasih.
>
> terlmpir file txt, saya zip karena kebesaran filenya.
>
> Best Regard,
>
> *Ahmad Nurul Imran*
> **
> *Jl. KH. Tb. A. Khotib No. 43 Kedalingan Serang - 42117*
> *Hp : 087774309887*
> *Tlp : 0254-203282*
> **
>
>
>
>
Fri Apr 19, 2013 1:03 pm (PDT) . Posted by:
"ika p" ikap_sari
saya udah coba download apa ada file yang lengkap dengan rumus nya
karena saya ga mengerti sama sekali.
mohon di bantu
--- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
>
> Coba lihat-lihat file tentang insert picture terlampir.
>
> File juga bisa diunduh disini :
> https://www.box.com/s/vp8lqos5zq0gb4kx94i6
>
> Wassalam,
> Kid.
>
>
> 2013/4/19 ika p <ikap_sari@...>
>
> > **
> >
> >
> > mohon bantuannya master -master saya baru nihhh dalam group ini dan
> > pengetahuan akan excel juga masih belajar saya kesulitan membuat gambar
> > di lembaran excel saya dan folder gambar ada di D saya sangat
> > membutuhkan bantuan data yang saya mau input gambar sangat banyak
> >
> > Terimakasih
> >
> >
> >
>
karena saya ga mengerti sama sekali.
mohon di bantu
--- In belajar-excel@
>
> Coba lihat-lihat file tentang insert picture terlampir.
>
> File juga bisa diunduh disini :
> https://www.
>
> Wassalam,
> Kid.
>
>
> 2013/4/19 ika p <ikap_sari@
>
> > **
> >
> >
> > mohon bantuannya master -master saya baru nihhh dalam group ini dan
> > pengetahuan akan excel juga masih belajar saya kesulitan membuat gambar
> > di lembaran excel saya dan folder gambar ada di D saya sangat
> > membutuhkan bantuan data yang saya mau input gambar sangat banyak
> >
> > Terimakasih
> >
> >
> >
>
Fri Apr 19, 2013 9:07 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Ika,
Untuk kegiatan seperti ini tidak disediakan fungsi built-in Excel nya,
sehingga harus menggunakan VBA untuk membuat UDF (user defined function =
fungsi buatan sendiri). Pastikan komputer mengijinkan Macro untuk bekerja.
Coba file terlampir yang sudah diperbarui.
Bisa juga diunduh di :
https://www.box.com/s/vp8lqos5zq0gb4kx94i6
Cara pakai :
1. Unduh file dan extract
2. dalam folder hasil extract ada sebuah folder bernama Images
3. masukkan file gambar ke folder images
4. buka file Insert_Picture.xlsm
5. jika ada security macro yang muncul, tekan Enable.
6. jika menggunakan sheet use_event_change, hanya bisa untuk gambar jpg
(kecuali jika dilakukan pengubahan script)
jika menggunakan sheet use_UDF, pastikan folder diisi di cell yang
tersedia dan ubah formula kolom A agar bisa memilih ekstensi file gambar
sesuai kebutuhan (yang terpasang dalam formula saat ini adalah jpg [lihat
susunan formulanya])
7. data baru berupa nama file gambar, yang ditulis di kolom B dalam tabel
pada baris kosong pertama di kolom B
8. UDF GetImage memiliki syntax :
=GetImage( nama_file_lengkap , range_lokasi_gambar )
Wassalam,
Kid.
2013/4/19 ika p <ikap_sari@yahoo.co.id >
> **
>
>
> saya udah coba download apa ada file yang lengkap dengan rumus nya
>
> karena saya ga mengerti sama sekali.
>
> mohon di bantu
>
>
> --- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
> >
> > Coba lihat-lihat file tentang insert picture terlampir.
> >
> > File juga bisa diunduh disini :
> > https://www.box.com/s/vp8lqos5zq0gb4kx94i6
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2013/4/19 ika p <ikap_sari@...>
> >
> > > **
>
> > >
> > >
> > > mohon bantuannya master -master saya baru nihhh dalam group ini dan
> > > pengetahuan akan excel juga masih belajar saya kesulitan membuat gambar
> > > di lembaran excel saya dan folder gambar ada di D saya sangat
> > > membutuhkan bantuan data yang saya mau input gambar sangat banyak
> > >
> > > Terimakasih
> > >
> > >
> > >
> >
>
>
>
Untuk kegiatan seperti ini tidak disediakan fungsi built-in Excel nya,
sehingga harus menggunakan VBA untuk membuat UDF (user defined function =
fungsi buatan sendiri). Pastikan komputer mengijinkan Macro untuk bekerja.
Coba file terlampir yang sudah diperbarui.
Bisa juga diunduh di :
https://www.
Cara pakai :
1. Unduh file dan extract
2. dalam folder hasil extract ada sebuah folder bernama Images
3. masukkan file gambar ke folder images
4. buka file Insert_Picture.
5. jika ada security macro yang muncul, tekan Enable.
6. jika menggunakan sheet use_event_change, hanya bisa untuk gambar jpg
(kecuali jika dilakukan pengubahan script)
jika menggunakan sheet use_UDF, pastikan folder diisi di cell yang
tersedia dan ubah formula kolom A agar bisa memilih ekstensi file gambar
sesuai kebutuhan (yang terpasang dalam formula saat ini adalah jpg [lihat
susunan formulanya])
7. data baru berupa nama file gambar, yang ditulis di kolom B dalam tabel
pada baris kosong pertama di kolom B
8. UDF GetImage memiliki syntax :
=GetImage( nama_file_lengkap , range_lokasi_
Wassalam,
Kid.
2013/4/19 ika p <ikap_sari@yahoo.
> **
>
>
> saya udah coba download apa ada file yang lengkap dengan rumus nya
>
> karena saya ga mengerti sama sekali.
>
> mohon di bantu
>
>
> --- In belajar-excel@
> >
> > Coba lihat-lihat file tentang insert picture terlampir.
> >
> > File juga bisa diunduh disini :
> > https://www.
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2013/4/19 ika p <ikap_sari@
> >
> > > **
>
> > >
> > >
> > > mohon bantuannya master -master saya baru nihhh dalam group ini dan
> > > pengetahuan akan excel juga masih belajar saya kesulitan membuat gambar
> > > di lembaran excel saya dan folder gambar ada di D saya sangat
> > > membutuhkan bantuan data yang saya mau input gambar sangat banyak
> > >
> > > Terimakasih
> > >
> > >
> > >
> >
>
>
>
Fri Apr 19, 2013 1:03 pm (PDT) . Posted by:
"Abdurrahman Suryadi" abduh_suryadi
Wa'alaikmslam Wr. Wb.
Terima kasih atas jawabannya yg inspiratif Mr. Kid. Mohn maaf kalau
prtanyaan saya tdk jelas.
kasus aslinya seperti ini:
Saya mempunyai minimal 4 transaksi dalam 4 table. yaitu tblPembelian,
tblPenjualan, tblRetun, tblMutasi.
Semua table saya group menurut tanggal kemudian qty dan JumlahHarga
dijumlahkan. Data tersebut kemudian mau saya masukkan ke dalam excel. di
excel sudah tersedia tanggal 1-3-2-13 s/d 31-3-2013. seperti format
terlampir. bagaimana cara memasukkan data yg ada di setiap table ke setiap
kolom sesuai dengan tanggal yg ada?
File excel & access terlampir. Terima kasih
Wassalamu'alaikum Wr. Wb.
Pada 19 April 2013 21.15, Mr. Kid <mr.nmkid@gmail.com > menulis:
> **
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Bagaimana kalau dicoba begini :
> 1. nama sheet kriteria diasumsikan bernama sheet1 (sesuaikan dengan
> keadaan nyata) dan memiliki struktur tabel berkaidah database.
> >> ada nama kolom yang rapat, records juga rapat, tipe data setiap kolom
> adalah konsisten hanya 1 tipedata
>
> 2. tabel sumber data di Access bernama tblData dengan 4 fields.
>
> 3. save workbook dan buka file access
>
> 4. di file Access, lakukan :
> >> ribbon External Data -> group Import -> Excel -> browse file Excel yang
> disave dinomor 3 (file kerja) -> pilih Link blabla -> OK
> >> pilih show worksheets -> pilih sheet1 (sheetnya kriteria) -> next ->
> centang First row blabla -> beri nama (misal tblLinkKriteria) -> finish
>
> 5. di file Access, buat query Left Join dengan sisi kiri adalah
> tblLinkKriteria (hasil nomor 4) dan sisi kanan adalah tblData dan atur join
> keys nya
> >> simpan query (misal dengan nama qViewKriteria)
>
> 6. tutup file access dan kembali ke Excel kerja (Excel yang di save di
> nomor 3)
>
> 7. buat sheet baru (misal diberi nama ViewKriteria) lalu lakukan get
> external data dari file access tadi dan ambil qViewKriteria
>
> 8. atur di VBA, setiap kali user pencet tombol di sheet1 :
> >> A. save workbook
> >> B. refresh all
>
> 9. save workbook lagi dan coba ubah nilai kriteria dan pencet tombol, lalu
> lihat ke sheet ViewKriteria
>
> moga-moga imajinasi di atas ndak keliru banget dan bisa berhasil jika
> dilakukan.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
>
> 2013/4/19 Adi <abduhsuryadi@gmail.com >
>
>> **
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> Saya mempunyai data yg kompleks di access, dan sangat membutuhkan bantuan
>> para master untuk membawanya ke excel. berikut contoh kasusnya (mudah2an
>> bisa jelas tanpa attachment, saya butuh logikanya):
>>
>> 1. saya mempunya database anak2 di access (D:\Datasiswa.accdb)
>> 2. dalam database ada table (tblData), terdiri dari 4 field: NoInduk,
>> Nama, Alamat, tglLahir
>> 3. Di excel saya sudah siapkan sebuah sheet1 yang di dalamnya ada data
>> induk siswa.
>> 4. Pertanyaanya, bagaimana mengambil data yang ada di tblData sehingga
>> menyesuaikan tempatnya dengan data Induk yang ada di excel?
>>
>> Mudah2an bisa dipahami.
>>
>> Catatan: sebelum ini saya menggunakan fungsi copyrecordset yang saya
>> tempatkan di sheet yang lain, kemudian melookup data yang ada ke Nomor
>> Induk siswa yang sudah ada di sheet1.
>>
>> Terima kasih.
>> Wassalamu'alaikum Wr. Wb.
>>
>>
>
>
Terima kasih atas jawabannya yg inspiratif Mr. Kid. Mohn maaf kalau
prtanyaan saya tdk jelas.
kasus aslinya seperti ini:
Saya mempunyai minimal 4 transaksi dalam 4 table. yaitu tblPembelian,
tblPenjualan, tblRetun, tblMutasi.
Semua table saya group menurut tanggal kemudian qty dan JumlahHarga
dijumlahkan. Data tersebut kemudian mau saya masukkan ke dalam excel. di
excel sudah tersedia tanggal 1-3-2-13 s/d 31-3-2013. seperti format
terlampir. bagaimana cara memasukkan data yg ada di setiap table ke setiap
kolom sesuai dengan tanggal yg ada?
File excel & access terlampir. Terima kasih
Wassalamu'
Pada 19 April 2013 21.15, Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Wa'alaikumussal
>
> Bagaimana kalau dicoba begini :
> 1. nama sheet kriteria diasumsikan bernama sheet1 (sesuaikan dengan
> keadaan nyata) dan memiliki struktur tabel berkaidah database.
> >> ada nama kolom yang rapat, records juga rapat, tipe data setiap kolom
> adalah konsisten hanya 1 tipedata
>
> 2. tabel sumber data di Access bernama tblData dengan 4 fields.
>
> 3. save workbook dan buka file access
>
> 4. di file Access, lakukan :
> >> ribbon External Data -> group Import -> Excel -> browse file Excel yang
> disave dinomor 3 (file kerja) -> pilih Link blabla -> OK
> >> pilih show worksheets -> pilih sheet1 (sheetnya kriteria) -> next ->
> centang First row blabla -> beri nama (misal tblLinkKriteria) -> finish
>
> 5. di file Access, buat query Left Join dengan sisi kiri adalah
> tblLinkKriteria (hasil nomor 4) dan sisi kanan adalah tblData dan atur join
> keys nya
> >> simpan query (misal dengan nama qViewKriteria)
>
> 6. tutup file access dan kembali ke Excel kerja (Excel yang di save di
> nomor 3)
>
> 7. buat sheet baru (misal diberi nama ViewKriteria) lalu lakukan get
> external data dari file access tadi dan ambil qViewKriteria
>
> 8. atur di VBA, setiap kali user pencet tombol di sheet1 :
> >> A. save workbook
> >> B. refresh all
>
> 9. save workbook lagi dan coba ubah nilai kriteria dan pencet tombol, lalu
> lihat ke sheet ViewKriteria
>
> moga-moga imajinasi di atas ndak keliru banget dan bisa berhasil jika
> dilakukan.
>
> Wassalamu'
> Kid.
>
>
>
>
>
> 2013/4/19 Adi <abduhsuryadi@
>
>> **
>>
>>
>> Assalamu'
>>
>> Saya mempunyai data yg kompleks di access, dan sangat membutuhkan bantuan
>> para master untuk membawanya ke excel. berikut contoh kasusnya (mudah2an
>> bisa jelas tanpa attachment, saya butuh logikanya):
>>
>> 1. saya mempunya database anak2 di access (D:\Datasiswa.
>> 2. dalam database ada table (tblData), terdiri dari 4 field: NoInduk,
>> Nama, Alamat, tglLahir
>> 3. Di excel saya sudah siapkan sebuah sheet1 yang di dalamnya ada data
>> induk siswa.
>> 4. Pertanyaanya, bagaimana mengambil data yang ada di tblData sehingga
>> menyesuaikan tempatnya dengan data Induk yang ada di excel?
>>
>> Mudah2an bisa dipahami.
>>
>> Catatan: sebelum ini saya menggunakan fungsi copyrecordset yang saya
>> tempatkan di sheet yang lain, kemudian melookup data yang ada ke Nomor
>> Induk siswa yang sudah ada di sheet1.
>>
>> Terima kasih.
>> Wassalamu'
>>
>>
>
>
Fri Apr 19, 2013 9:46 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Assalamu'alaikum Wr. Wb.
1. buat sebuah query UNION di file access kira-kira strukturnya : (simpan,
misal namanya qViewOut1)
SELECT 'Pembelian' as jenis, kol1,kol2,kolN FROM tblPembelian
UNION ALL
SELECT 'Penjualan' as jenis, kol1,kol2,kolN FROM tblPenjualan
UNION ALL
SELECT 'Mutasi' as jenis, kol1,kol2,kolN FROM tblMutasi
UNION ALL
SELECT 'Pengembalian' as jenis, kol1,kol2,kolN FROM tblPengembalian
2. buka Excel, buat sheet baru, lakukan get external data dari access untuk
ambil qViewOut1, tampilkan sebagai pivot table
3. atur pivot table agar tanggal di sisi rows, jenis di sisi columns, qty
dan jumlah yang dibutuhkan di sisi Values
sampai sini, data tanggal yang ditampilkan adalah seluruh data yang ada.
Jika data memiliki tanggal yang loncat (misal data hanya punya 1 lalu 17
lalu 19)
jika ingin tanggal tertentu atau bulan tertentu, bisa di filter di pivot
table atau dalam query saat akan ambil data dari access dengan get external
data tadi.
Jika ingin series tanggalnya utuh (tidak tergantung tanggal dalam data di
access, maka buat sheet baru dengan header (1 cell saja tidak merge)
bernama tanggal di A1 dan A2 mulai diisi data tanggal sebulan yang akan
ditampilkan.
Save workbook, buat link table seperti email lalu terhadap sheet kriteria
yang berisi data tanggal saja itu.
tambahkan pada qViewOut1 dengan query union si tabel kriteria ini.
Misal tabel hasil link diberi nama tLinkTanggal
tambahkan di qViewOut1 bunyi :
UNION ALL
SELECT 'Mutasi' as jenis,kolTanggal,0,0,0 FROM tLinkTanggal
save query
refresh pivot table di excel
klik kanan field tanggal dalam pivot, field setting, tab layout & print,
centang show item with no data,ok sampai kembali ke worksheet
Sampai sini, semua tanggal sebulan akan tampak beserta bulan-bulan lain.
Filter saat get external data atau filter pivot table bisa dilakukan untuk
memilih bulan tertentu.
Biasanya sampai sini masih kurang sesuai keinginan. Baiklah, kita mulai
yang lebih lanjut tentang hal ini, tetapi pastikan dulu hal-hal di atas
telah dipahami benang merahnya, bahwa pivot table bekerja menampilkan apa
saja yang ada dengan mudah ketika struktur datanya sederhana, yaitu
berbentuk fact table yang berisi dimensions dan measures
di Access buat query baru (misal diberi nama qViewOut2)
isi dengan query berbunyi :
SELECT * FROM qViewOut1
WHERE
nama_kol_tanggal
BETWEEN (SELECT min( kolTgl ) as tgl FROM tLinkTanggal)
AND (SELECT max( kolTgl ) as tgl FROM tLinkTanggal)
di Excel sheet baru lakukan get external data ambil dari access qViewOut2
dan ditampilkan sebagai pivot table. Atur pivot table termasuk setting
field tanggal agar show item with no data.
save workbook. Setiap kali ubah tabel kriteria, lakukan save workbook dan
refresh pivot table.
Sampai sini, susunan pivot table mestinya sudah bisa seperti yang
diharapkan.
Jika masih ndak puas, silakan pelajari query JOIN lebih dulu, kemudian
mulai buat query JOIN multi tables.
Kira-kira susunannya : (silakan tanya ke mas Aksan, bang Haer, atau bang
Opi cara convert bunyinya ke querynya access yang optimum)
SELECT ambil kolom yang dibutuhkan dengan menyertai nama alias si tabel
masing-masing misal
SELECT dt1.tanggal, dtjual.qty as Qty_Jual, dtjual.jumlahharga as
TotHarga_Jual, dtbeli.blablabla....,,,,,,
FROM tLinkTanggal as dt1
LEFT OUTER JOIN (SELECT tanggal, SUM(qty) as qty, SUM(jumlahharga) as
jumlahharga FROM tblPenjualan GROUP BY tanggal) as dtJual
ON dt1.tanggal=dtJual.Tanggal
LEFT OUTER JOIN (SELECT tanggal, SUM(qty) as qty, SUM(jumlahharga) as
jumlahharga FROM tblPembelian GROUP BY tanggal) as dtBeli
ON dt1.tanggal=dtBeli.Tanggal
dan join ke tabel selanjutnya
simpan query misal bernama qViewOut3
lalu get external data di Excel, bisa ditampilkan menjadi tabel atau pivot
table. Biasanya pivot tablenya sudah ndak terlalu luwes lagi.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/4/20 Abdurrahman Suryadi <abduhsuryadi@gmail.com >
> **
>
>
> Wa'alaikmslam Wr. Wb.
> Terima kasih atas jawabannya yg inspiratif Mr. Kid. Mohn maaf kalau
> prtanyaan saya tdk jelas.
> kasus aslinya seperti ini:
> Saya mempunyai minimal 4 transaksi dalam 4 table. yaitu tblPembelian,
> tblPenjualan, tblRetun, tblMutasi.
> Semua table saya group menurut tanggal kemudian qty dan JumlahHarga
> dijumlahkan. Data tersebut kemudian mau saya masukkan ke dalam excel. di
> excel sudah tersedia tanggal 1-3-2-13 s/d 31-3-2013. seperti format
> terlampir. bagaimana cara memasukkan data yg ada di setiap table ke setiap
> kolom sesuai dengan tanggal yg ada?
> File excel & access terlampir. Terima kasih
> Wassalamu'alaikum Wr. Wb.
>
>
> Pada 19 April 2013 21.15, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> **
>>
>>
>> Wa'alaikumussalam Wr. Wb.
>>
>> Bagaimana kalau dicoba begini :
>> 1. nama sheet kriteria diasumsikan bernama sheet1 (sesuaikan dengan
>> keadaan nyata) dan memiliki struktur tabel berkaidah database.
>> >> ada nama kolom yang rapat, records juga rapat, tipe data setiap kolom
>> adalah konsisten hanya 1 tipedata
>>
>> 2. tabel sumber data di Access bernama tblData dengan 4 fields.
>>
>> 3. save workbook dan buka file access
>>
>> 4. di file Access, lakukan :
>> >> ribbon External Data -> group Import -> Excel -> browse file Excel
>> yang disave dinomor 3 (file kerja) -> pilih Link blabla -> OK
>> >> pilih show worksheets -> pilih sheet1 (sheetnya kriteria) -> next ->
>> centang First row blabla -> beri nama (misal tblLinkKriteria) -> finish
>>
>> 5. di file Access, buat query Left Join dengan sisi kiri adalah
>> tblLinkKriteria (hasil nomor 4) dan sisi kanan adalah tblData dan atur join
>> keys nya
>> >> simpan query (misal dengan nama qViewKriteria)
>>
>> 6. tutup file access dan kembali ke Excel kerja (Excel yang di save di
>> nomor 3)
>>
>> 7. buat sheet baru (misal diberi nama ViewKriteria) lalu lakukan get
>> external data dari file access tadi dan ambil qViewKriteria
>>
>> 8. atur di VBA, setiap kali user pencet tombol di sheet1 :
>> >> A. save workbook
>> >> B. refresh all
>>
>> 9. save workbook lagi dan coba ubah nilai kriteria dan pencet tombol,
>> lalu lihat ke sheet ViewKriteria
>>
>> moga-moga imajinasi di atas ndak keliru banget dan bisa berhasil jika
>> dilakukan.
>>
>> Wassalamu'alaikum Wr. Wb.
>> Kid.
>>
>>
>>
>>
>>
>> 2013/4/19 Adi <abduhsuryadi@gmail.com >
>>
>>> **
>>>
>>>
>>> Assalamu'alaikum Wr. Wb.
>>>
>>> Saya mempunyai data yg kompleks di access, dan sangat membutuhkan
>>> bantuan para master untuk membawanya ke excel. berikut contoh kasusnya
>>> (mudah2an bisa jelas tanpa attachment, saya butuh logikanya):
>>>
>>> 1. saya mempunya database anak2 di access (D:\Datasiswa.accdb)
>>> 2. dalam database ada table (tblData), terdiri dari 4 field: NoInduk,
>>> Nama, Alamat, tglLahir
>>> 3. Di excel saya sudah siapkan sebuah sheet1 yang di dalamnya ada data
>>> induk siswa.
>>> 4. Pertanyaanya, bagaimana mengambil data yang ada di tblData sehingga
>>> menyesuaikan tempatnya dengan data Induk yang ada di excel?
>>>
>>> Mudah2an bisa dipahami.
>>>
>>> Catatan: sebelum ini saya menggunakan fungsi copyrecordset yang saya
>>> tempatkan di sheet yang lain, kemudian melookup data yang ada ke Nomor
>>> Induk siswa yang sudah ada di sheet1.
>>>
>>> Terima kasih.
>>> Wassalamu'alaikum Wr. Wb.
>>>
>>>
>>
>
>
1. buat sebuah query UNION di file access kira-kira strukturnya : (simpan,
misal namanya qViewOut1)
SELECT 'Pembelian&#
UNION ALL
SELECT 'Penjualan&#
UNION ALL
SELECT 'Mutasi&#
UNION ALL
SELECT 'Pengembalian&#
2. buka Excel, buat sheet baru, lakukan get external data dari access untuk
ambil qViewOut1, tampilkan sebagai pivot table
3. atur pivot table agar tanggal di sisi rows, jenis di sisi columns, qty
dan jumlah yang dibutuhkan di sisi Values
sampai sini, data tanggal yang ditampilkan adalah seluruh data yang ada.
Jika data memiliki tanggal yang loncat (misal data hanya punya 1 lalu 17
lalu 19)
jika ingin tanggal tertentu atau bulan tertentu, bisa di filter di pivot
table atau dalam query saat akan ambil data dari access dengan get external
data tadi.
Jika ingin series tanggalnya utuh (tidak tergantung tanggal dalam data di
access, maka buat sheet baru dengan header (1 cell saja tidak merge)
bernama tanggal di A1 dan A2 mulai diisi data tanggal sebulan yang akan
ditampilkan.
Save workbook, buat link table seperti email lalu terhadap sheet kriteria
yang berisi data tanggal saja itu.
tambahkan pada qViewOut1 dengan query union si tabel kriteria ini.
Misal tabel hasil link diberi nama tLinkTanggal
tambahkan di qViewOut1 bunyi :
UNION ALL
SELECT 'Mutasi&#
save query
refresh pivot table di excel
klik kanan field tanggal dalam pivot, field setting, tab layout & print,
centang show item with no data,ok sampai kembali ke worksheet
Sampai sini, semua tanggal sebulan akan tampak beserta bulan-bulan lain.
Filter saat get external data atau filter pivot table bisa dilakukan untuk
memilih bulan tertentu.
Biasanya sampai sini masih kurang sesuai keinginan. Baiklah, kita mulai
yang lebih lanjut tentang hal ini, tetapi pastikan dulu hal-hal di atas
telah dipahami benang merahnya, bahwa pivot table bekerja menampilkan apa
saja yang ada dengan mudah ketika struktur datanya sederhana, yaitu
berbentuk fact table yang berisi dimensions dan measures
di Access buat query baru (misal diberi nama qViewOut2)
isi dengan query berbunyi :
SELECT * FROM qViewOut1
WHERE
nama_kol_tanggal
BETWEEN (SELECT min( kolTgl ) as tgl FROM tLinkTanggal)
AND (SELECT max( kolTgl ) as tgl FROM tLinkTanggal)
di Excel sheet baru lakukan get external data ambil dari access qViewOut2
dan ditampilkan sebagai pivot table. Atur pivot table termasuk setting
field tanggal agar show item with no data.
save workbook. Setiap kali ubah tabel kriteria, lakukan save workbook dan
refresh pivot table.
Sampai sini, susunan pivot table mestinya sudah bisa seperti yang
diharapkan.
Jika masih ndak puas, silakan pelajari query JOIN lebih dulu, kemudian
mulai buat query JOIN multi tables.
Kira-kira susunannya : (silakan tanya ke mas Aksan, bang Haer, atau bang
Opi cara convert bunyinya ke querynya access yang optimum)
SELECT ambil kolom yang dibutuhkan dengan menyertai nama alias si tabel
masing-masing misal
SELECT dt1.tanggal, dtjual.qty as Qty_Jual, dtjual.jumlahharga as
TotHarga_Jual, dtbeli.blablabla.
FROM tLinkTanggal as dt1
LEFT OUTER JOIN (SELECT tanggal, SUM(qty) as qty, SUM(jumlahharga) as
jumlahharga FROM tblPenjualan GROUP BY tanggal) as dtJual
ON dt1.tanggal=
LEFT OUTER JOIN (SELECT tanggal, SUM(qty) as qty, SUM(jumlahharga) as
jumlahharga FROM tblPembelian GROUP BY tanggal) as dtBeli
ON dt1.tanggal=
dan join ke tabel selanjutnya
simpan query misal bernama qViewOut3
lalu get external data di Excel, bisa ditampilkan menjadi tabel atau pivot
table. Biasanya pivot tablenya sudah ndak terlalu luwes lagi.
Wassalamu'
Kid.
2013/4/20 Abdurrahman Suryadi <abduhsuryadi@
> **
>
>
> Wa'alaikmslam Wr. Wb.
> Terima kasih atas jawabannya yg inspiratif Mr. Kid. Mohn maaf kalau
> prtanyaan saya tdk jelas.
> kasus aslinya seperti ini:
> Saya mempunyai minimal 4 transaksi dalam 4 table. yaitu tblPembelian,
> tblPenjualan, tblRetun, tblMutasi.
> Semua table saya group menurut tanggal kemudian qty dan JumlahHarga
> dijumlahkan. Data tersebut kemudian mau saya masukkan ke dalam excel. di
> excel sudah tersedia tanggal 1-3-2-13 s/d 31-3-2013. seperti format
> terlampir. bagaimana cara memasukkan data yg ada di setiap table ke setiap
> kolom sesuai dengan tanggal yg ada?
> File excel & access terlampir. Terima kasih
> Wassalamu'
>
>
> Pada 19 April 2013 21.15, Mr. Kid <mr.nmkid@gmail.
>
> **
>>
>>
>> Wa'alaikumussal
>>
>> Bagaimana kalau dicoba begini :
>> 1. nama sheet kriteria diasumsikan bernama sheet1 (sesuaikan dengan
>> keadaan nyata) dan memiliki struktur tabel berkaidah database.
>> >> ada nama kolom yang rapat, records juga rapat, tipe data setiap kolom
>> adalah konsisten hanya 1 tipedata
>>
>> 2. tabel sumber data di Access bernama tblData dengan 4 fields.
>>
>> 3. save workbook dan buka file access
>>
>> 4. di file Access, lakukan :
>> >> ribbon External Data -> group Import -> Excel -> browse file Excel
>> yang disave dinomor 3 (file kerja) -> pilih Link blabla -> OK
>> >> pilih show worksheets -> pilih sheet1 (sheetnya kriteria) -> next ->
>> centang First row blabla -> beri nama (misal tblLinkKriteria) -> finish
>>
>> 5. di file Access, buat query Left Join dengan sisi kiri adalah
>> tblLinkKriteria (hasil nomor 4) dan sisi kanan adalah tblData dan atur join
>> keys nya
>> >> simpan query (misal dengan nama qViewKriteria)
>>
>> 6. tutup file access dan kembali ke Excel kerja (Excel yang di save di
>> nomor 3)
>>
>> 7. buat sheet baru (misal diberi nama ViewKriteria) lalu lakukan get
>> external data dari file access tadi dan ambil qViewKriteria
>>
>> 8. atur di VBA, setiap kali user pencet tombol di sheet1 :
>> >> A. save workbook
>> >> B. refresh all
>>
>> 9. save workbook lagi dan coba ubah nilai kriteria dan pencet tombol,
>> lalu lihat ke sheet ViewKriteria
>>
>> moga-moga imajinasi di atas ndak keliru banget dan bisa berhasil jika
>> dilakukan.
>>
>> Wassalamu'
>> Kid.
>>
>>
>>
>>
>>
>> 2013/4/19 Adi <abduhsuryadi@
>>
>>> **
>>>
>>>
>>> Assalamu'
>>>
>>> Saya mempunyai data yg kompleks di access, dan sangat membutuhkan
>>> bantuan para master untuk membawanya ke excel. berikut contoh kasusnya
>>> (mudah2an bisa jelas tanpa attachment, saya butuh logikanya):
>>>
>>> 1. saya mempunya database anak2 di access (D:\Datasiswa.
>>> 2. dalam database ada table (tblData), terdiri dari 4 field: NoInduk,
>>> Nama, Alamat, tglLahir
>>> 3. Di excel saya sudah siapkan sebuah sheet1 yang di dalamnya ada data
>>> induk siswa.
>>> 4. Pertanyaanya, bagaimana mengambil data yang ada di tblData sehingga
>>> menyesuaikan tempatnya dengan data Induk yang ada di excel?
>>>
>>> Mudah2an bisa dipahami.
>>>
>>> Catatan: sebelum ini saya menggunakan fungsi copyrecordset yang saya
>>> tempatkan di sheet yang lain, kemudian melookup data yang ada ke Nomor
>>> Induk siswa yang sudah ada di sheet1.
>>>
>>> Terima kasih.
>>> Wassalamu'
>>>
>>>
>>
>
>
Fri Apr 19, 2013 6:10 pm (PDT) . Posted by:
"belajar excell" belajar.excell
Pak Kid, terima kasih banyak atas bantuannya, sudah seperti yang saya inginkan.
Pak, seandainya memungkinkan, bisakah Pak Kid mengajarkan cara baca VBA yang telah Pak Kid buat ? hehe
Mungkin dengan mengetahui cara bacanya, saya bisa sedikit lebih paham mengenai VBA.
Terima kasih byk ya Pak Kid,
RS
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Thursday, April 18, 2013 12:25 AM
Subject: Re: [belajar-excel] Advanced Filet + Pivot VBA
File terlampir mencoba menata letak field Month agar bisa disembunyikan. Tidak ada yang diubah pada VBA-nya.
Wassalam,
Kid.
2013/4/17 belajar excell <belajar.excell@yahoo.com >
>
>Pak Kid, terima kasih untuk bantuannya, sekali lagi saya mendapat ilmu tambahan yang sangat membantu saya dalam mempelajari VBA.
>Mohon maaf karena saya kurang menjelaskan pivot seperti apa yang di inginkan, maksd sya adalah hasil dari advanced filter itu berupa penjumlahan ( sum ) pada pivot ( seperti pada contoh sheet - hasil yang di inginkan ).
>
>
>Jadi pada waktu advanced filter kita pilih month 1 dan month 2, maka bentuk pivot sumnya juga adalah hasil penjumlahan dari month1 dan 2.
>kalu saya pilih month 6 dan month 7, maka pivot sumnya adalah hasil penjumlahn dari moonth 6 dan 7. begitu juga setrusnya.
>
>
>sekali lagi mohon maap karena udah merepotkan, maklumlah wawasan saya dalam VBA masih sangat minim, hehehe
>
>
>Di tolong ya Pak Kid dan rekan2 semuanya,,
>
>
>RS
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com >
>To: BeExcel <belajar-excel@yahoogroups.com >
>Sent: Wednesday, April 17, 2013 2:47 PM
>
>Subject: Re: [belajar-excel] Advanced Filet + Pivot VBA
>
>
>
>Bagaimana jika seperti file terlampir ?
>Cukup dengan sheet Test, tapi bisa filter dengan VBA (user ndak perlu filter langsung di pivot table).
>
>btw, kenapa user tidak diminta filter langsung di pivot table ya....
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/4/17 <belajar.excell@yahoo.com >
>
>
>>
>> Miss Jan, terima kasih byk utk ilmunya..saya sudah ganti sheet4 jadi sheet22,setelah d jalankan berhasil.
>>Tapi masalahx adalah hasil pivotnya mengacu pada sheet test.bukan mengacu pada sheet result.
>>Sebenarx yg saya inginkan adalah dari sheet test,di saring lg datax yg nnti d taruh di sheet result.dari hasil saringan di sheet result tersebut maka di buat pivot..
>>
>>Mohon bantuannya ya ...
>>
>>RS
>>
>>
>>
>>
>>
>>
>>Sent from my BlackBerry®
>>powered by Sinyal Kuat INDOSAT
>>________________________________
>>
>>From: Jan Raisin <miss.jan.raisin@gmail.com >
>>Sender: belajar-excel@yahoogroups.com
>>Date: Wed, 17 Apr 2013 08:43:35 +0700
>>To: <belajar-excel@yahoogroups.com >
>>ReplyTo: belajar-excel@yahoogroups.com
>>Subject: Re: [belajar-excel] Advanced Filet + Pivot VBA
>>
>>
>>Hai RS,
>>
>>
>>scriptnya error di baris berikut:
>>
>>
>>Set objTable = Sheet4.PivotTableWizard
>>
>>
>> karena dalam workbook tersebut tidak ada sheet dengan nomor index 4, coba lihat gambar di bawah ini (hasil screen shoot monitor)
>>
>>
>>
>>
>>
>>
>>sheet yang ada adalah sheet1, sheet2, sheet22, dan sheet3.
>>Karena Jan melihat sheet22 masih kosong sama sekali, coba ganti scriptnya menjadi seperti ini:
>>
>>
>>Set objTable = Sheet22.PivotTableWizard
>>
>>
>>
>>atau dengan cara lain, ubah nomor index sheet22 menjadi sheet4 tanpa melakukan modifikasi terhadap script yang sudah ada.
>>
>>
>>lalu jalankan kembali script yang anda susun.
>>
>>
>>Sebagai tambahan wacana, ada 2 macam error saat penulisan script, yaitu:
>>1. Syntax Error, hal ini dapat langsung diketahui karena script VBA akan berubah menjadi warna merah
>>2. Run-Time Error, hal ini baru diketahui saat script dijalankan, untuk mengetahui dimana letak salahnya dapat dengan menekan tombol F8 berkali-kali
>>
>>
>>Kesalahan dalam script di atas dinamakan Run-Time Error
>>
>>
>>Semoga penjelasan yang singkat ini dapat menjadi tambahan ilmu bagi semua, jika ada yang salah tolong dikoreksi.
>>
>>
>>Wassalam,
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>
>>Pada 16 April 2013 19.47, belajar excell <belajar.excell@yahoo.com > menulis:
>>
>>
>>>
>>>Selamat malam semuanya,
>>>
>>>
>>>Mohon maaf lagi, kali ini sya mau Tanya lagi mengenai Pivot lagi. Tapi kali ini sya coba padukan Advanced filter dan Pivot, tapi masalahnya
>>>Sepertinya syntax untuk pivotnya tidak berkerja pada sheet hasil advanced filter, Mohon bantuannya bagaimana agar syntax tersebut dapat berfungsi lagi ya ?
>>>
>>>Terima kasih banyak atas bantuannya
>>>
>>>RS
>>>
>>>
>>>
>
>
>
Pak, seandainya memungkinkan, bisakah Pak Kid mengajarkan cara baca VBA yang telah Pak Kid buat ? hehe
Mungkin dengan mengetahui cara bacanya, saya bisa sedikit lebih paham mengenai VBA.
Terima kasih byk ya Pak Kid,
RS
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Thursday, April 18, 2013 12:25 AM
Subject: Re: [belajar-excel] Advanced Filet + Pivot VBA
File terlampir mencoba menata letak field Month agar bisa disembunyikan. Tidak ada yang diubah pada VBA-nya.
Wassalam,
Kid.
2013/4/17 belajar excell <belajar.excell@
>
>Pak Kid, terima kasih untuk bantuannya, sekali lagi saya mendapat ilmu tambahan yang sangat membantu saya dalam mempelajari VBA.
>Mohon maaf karena saya kurang menjelaskan pivot seperti apa yang di inginkan, maksd sya adalah hasil dari advanced filter itu berupa penjumlahan ( sum ) pada pivot ( seperti pada contoh sheet - hasil yang di inginkan ).
>
>
>Jadi pada waktu advanced filter kita pilih month 1 dan month 2, maka bentuk pivot sumnya juga adalah hasil penjumlahan dari month1 dan 2.
>kalu saya pilih month 6 dan month 7, maka pivot sumnya adalah hasil penjumlahn dari moonth 6 dan 7. begitu juga setrusnya.
>
>
>sekali lagi mohon maap karena udah merepotkan, maklumlah wawasan saya dalam VBA masih sangat minim, hehehe
>
>
>Di tolong ya Pak Kid dan rekan2 semuanya,,
>
>
>RS
>
>
>
>________
> From: Mr. Kid <mr.nmkid@gmail.
>To: BeExcel <belajar-excel@
>Sent: Wednesday, April 17, 2013 2:47 PM
>
>Subject: Re: [belajar-excel] Advanced Filet + Pivot VBA
>
>
>
>Bagaimana jika seperti file terlampir ?
>Cukup dengan sheet Test, tapi bisa filter dengan VBA (user ndak perlu filter langsung di pivot table).
>
>btw, kenapa user tidak diminta filter langsung di pivot table ya....
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/4/17 <belajar.excell@
>
>
>>
>> Miss Jan, terima kasih byk utk ilmunya..saya sudah ganti sheet4 jadi sheet22,setelah d jalankan berhasil.
>>Tapi masalahx adalah hasil pivotnya mengacu pada sheet test.bukan mengacu pada sheet result.
>>Sebenarx yg saya inginkan adalah dari sheet test,di saring lg datax yg nnti d taruh di sheet result.dari hasil saringan di sheet result tersebut maka di buat pivot..
>>
>>Mohon bantuannya ya ...
>>
>>RS
>>
>>
>>
>>
>>
>>
>>Sent from my BlackBerry®
>>powered by Sinyal Kuat INDOSAT
>>____
>>
>>From: Jan Raisin <miss.jan.raisin@
>>Sender: belajar-excel@
>>Date: Wed, 17 Apr 2013 08:43:35 +0700
>>To: <belajar-excel@
>>ReplyTo: belajar-excel@
>>Subject: Re: [belajar-excel] Advanced Filet + Pivot VBA
>>
>>
>>Hai RS,
>>
>>
>>scriptnya error di baris berikut:
>>
>>
>>Set objTable = Sheet4.PivotTableWi
>>
>>
>> karena dalam workbook tersebut tidak ada sheet dengan nomor index 4, coba lihat gambar di bawah ini (hasil screen shoot monitor)
>>
>>
>>
>>
>>
>>
>>sheet yang ada adalah sheet1, sheet2, sheet22, dan sheet3.
>>Karena Jan melihat sheet22 masih kosong sama sekali, coba ganti scriptnya menjadi seperti ini:
>>
>>
>>Set objTable = Sheet22.PivotTableW
>>
>>
>>
>>atau dengan cara lain, ubah nomor index sheet22 menjadi sheet4 tanpa melakukan modifikasi terhadap script yang sudah ada.
>>
>>
>>lalu jalankan kembali script yang anda susun.
>>
>>
>>Sebagai tambahan wacana, ada 2 macam error saat penulisan script, yaitu:
>>1. Syntax Error, hal ini dapat langsung diketahui karena script VBA akan berubah menjadi warna merah
>>2. Run-Time Error, hal ini baru diketahui saat script dijalankan, untuk mengetahui dimana letak salahnya dapat dengan menekan tombol F8 berkali-kali
>>
>>
>>Kesalahan dalam script di atas dinamakan Run-Time Error
>>
>>
>>Semoga penjelasan yang singkat ini dapat menjadi tambahan ilmu bagi semua, jika ada yang salah tolong dikoreksi.
>>
>>
>>Wassalam,
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>
>>Pada 16 April 2013 19.47, belajar excell <belajar.excell@
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>
>
>
Fri Apr 19, 2013 6:49 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kegiatan memfilter pivot dilakukan oleh prosedur berikut :
Public Sub FilterPivotReport(Optional bState As Boolean = False)
Dim pvt As PivotTable
Application.ScreenUpdating = False
Sheet2.Calculate
Set pvt = Sheet2.PivotTables(1)
With pvt
.RefreshTable
With .PivotFields("Month";)
.ClearAllFilters
.PivotFilters.Add xlCaptionIsBetween,
Value1:=Sheet2.Range("c11").Value, Value2:=Sheet2.Range("c12").Value
End With
End With
Application.ScreenUpdating = True
End Sub
Nama prosedur : FilterPivotReport
Jenis prosedur : Sub [artinya : tidak memberikan nilai balik hasil prosedur
-> nilai baliknya null]
Scope prosedur : Public [artinya bisa digunakan dimanapun dalam workbook]
Input parameter : bState [artinya membutuhkan inputan ketika dipanggil
untuk bekerja yang nilai inputan tersebut disimpan dalam bState]
Tipe input parameter : Boolean [bisa diisi nilai TRUE atau FALSE]
Tingkat kebutuhan input parameter : Optional [artinya boleh tidak diberi
nilai, jika tidak diberi nilai, maka akan menggunakan nilai default]
Nilai default input parameter : False [jika bState tidak diberi nilai, maka
akan diberi nilai FALSE]
Tujuan ada input parameter dalam prosedur ini : menghilangkan nama prosedur
dari daftar prosedur di Run Macro (ALT F8) dari worksheet
Isi prosedur :
1. deklarasi variabel wadah pivot table dengan scope lokal dalam prosedur
Dim pvt As PivotTable
2. turn off kegiatan merefresh tampilan yang dilakukan aplikasi agar tidak
sibuk merefresh (hemat proses)
Application.ScreenUpdating = False
3. mengkalkulasi sheet kerja (nama object sheet2 dalam vba bukan nama sheet
dalam tab sheet)
Sheet2.Calculate
4. isi variabel pivot table dengan benda pivot table yang ada dalam sheet
kerja
Set pvt = Sheet2.PivotTables(1)
bahasa manusia :
"variabel object pivot table (pvt) diisi dengan pivot table ke-1 yang ada
di dalam sheet2"
5. fokus bekerja pada pivot table (yang ada dalam variabel pivot)
With pvt
6. refresh pivot table
.RefreshTable
7. fokus pada fields bernama Month dalam pivot table
With .PivotFields("Month";)
8. hapus seluruh filter yang ada
.ClearAllFilters
9. lakukan filter baru terhadap pivot table
.PivotFilters.Add xlCaptionIsBetween,
Value1:=Sheet2.Range("c11").Value, Value2:=Sheet2.Range("c12").Value
bahasa manusia :
"pada field kerja di object filters (pivotfilters) ditambahkan (add) proses
filter dengan tipe filter berupa nilai batas bawah dan nilai batas atas (
xlCaptionIsBetween) yang nilai batas bawah adalah nilai yang ada dalam
sheet kerja range C11 dan nilai batas atas adalah nilai yang didapat dari
sheet kerja range C12"
10. selesai bekerja pada field Month (yang tadi dimulai di nomor 7)
End With
11. selesai berkerja pada pivot table (yang tadi dimulai di nomor 5)
End With
12. ijinkan kembali aplikasi untuk aktif me-refresh tampilan
Application.ScreenUpdating = True
13. tanda akhir blok prosedur
End Sub
Wassalam,
Kid.
2013/4/20 belajar excell <belajar.excell@yahoo.com >
> **
>
>
> Pak Kid, terima kasih banyak atas bantuannya, sudah seperti yang saya
> inginkan.
>
> Pak, seandainya memungkinkan, bisakah Pak Kid mengajarkan cara baca VBA
> yang telah Pak Kid buat ? hehe
> Mungkin dengan mengetahui cara bacanya, saya bisa sedikit lebih paham
> mengenai VBA.
>
> Terima kasih byk ya Pak Kid,
>
> RS
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Thursday, April 18, 2013 12:25 AM
>
> *Subject:* Re: [belajar-excel] Advanced Filet + Pivot VBA
>
>
> File terlampir mencoba menata letak field Month agar bisa disembunyikan.
> Tidak ada yang diubah pada VBA-nya.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/17 belajar excell <belajar.excell@yahoo.com >
>
> **
>
> Pak Kid, terima kasih untuk bantuannya, sekali lagi saya mendapat ilmu
> tambahan yang sangat membantu saya dalam mempelajari VBA.
> Mohon maaf karena saya kurang menjelaskan pivot seperti apa yang di
> inginkan, maksd sya adalah hasil dari advanced filter itu berupa
> penjumlahan ( sum ) pada pivot ( seperti pada contoh sheet - hasil yang di
> inginkan ).
>
> Jadi pada waktu advanced filter kita pilih month 1 dan month 2, maka
> bentuk pivot sumnya juga adalah hasil penjumlahan dari month1 dan 2.
> kalu saya pilih month 6 dan month 7, maka pivot sumnya adalah hasil
> penjumlahn dari moonth 6 dan 7. begitu juga setrusnya.
>
> sekali lagi mohon maap karena udah merepotkan, maklumlah wawasan saya
> dalam VBA masih sangat minim, hehehe
>
> Di tolong ya Pak Kid dan rekan2 semuanya,,
>
> RS
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, April 17, 2013 2:47 PM
>
> *Subject:* Re: [belajar-excel] Advanced Filet + Pivot VBA
>
> Bagaimana jika seperti file terlampir ?
> Cukup dengan sheet Test, tapi bisa filter dengan VBA (user ndak perlu
> filter langsung di pivot table).
>
> btw, kenapa user tidak diminta filter langsung di pivot table ya....
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/17 <belajar.excell@yahoo.com >
>
> **
>
> ** Miss Jan, terima kasih byk utk ilmunya..saya sudah ganti sheet4 jadi
> sheet22,setelah d jalankan berhasil.
> Tapi masalahx adalah hasil pivotnya mengacu pada sheet test.bukan mengacu
> pada sheet result.
> Sebenarx yg saya inginkan adalah dari sheet test,di saring lg datax yg
> nnti d taruh di sheet result.dari hasil saringan di sheet result tersebut
> maka di buat pivot..
>
> Mohon bantuannya ya ...
>
> RS
>
>
>
>
>
> Sent from my BlackBerry�
> powered by Sinyal Kuat INDOSAT
> ------------------------------
> *From: * Jan Raisin <miss.jan.raisin@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 17 Apr 2013 08:43:35 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Advanced Filet + Pivot VBA
>
>
> Hai RS,
>
> scriptnya error di baris berikut:
>
> Set objTable = Sheet4.PivotTableWizard
>
> karena dalam workbook tersebut tidak ada sheet dengan nomor index 4, coba
> lihat gambar di bawah ini (hasil screen shoot monitor)
>
> [image: Gambar sisip 2]
>
> sheet yang ada adalah sheet1, sheet2, sheet22, dan sheet3.
> Karena Jan melihat sheet22 masih kosong sama sekali, coba ganti scriptnya
> menjadi seperti ini:
>
> Set objTable = Sheet22.PivotTableWizard
>
> atau dengan cara lain, ubah nomor index sheet22 menjadi sheet4 tanpa
> melakukan modifikasi terhadap script yang sudah ada.
>
> lalu jalankan kembali script yang anda susun.
>
> Sebagai tambahan wacana, ada 2 macam error saat penulisan script, yaitu:
> 1. Syntax Error, hal ini dapat langsung diketahui karena script VBA akan
> berubah menjadi warna merah
> 2. Run-Time Error, hal ini baru diketahui saat script dijalankan, untuk
> mengetahui dimana letak salahnya dapat dengan menekan tombol F8 berkali-kali
>
> Kesalahan dalam script di atas dinamakan Run-Time Error
>
> Semoga penjelasan yang singkat ini dapat menjadi tambahan ilmu bagi semua,
> jika ada yang salah tolong dikoreksi.
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 16 April 2013 19.47, belajar excell <belajar.excell@yahoo.com >menulis:
>
> **
>
> Selamat malam semuanya,
>
> Mohon maaf lagi, kali ini sya mau Tanya lagi mengenai Pivot lagi. Tapi
> kali ini sya coba padukan Advanced filter dan Pivot, tapi masalahnya
> Sepertinya syntax untuk pivotnya tidak berkerja pada sheet hasil advanced
> filter, Mohon bantuannya bagaimana agar syntax tersebut dapat berfungsi
> lagi ya ?
>
> Terima kasih banyak atas bantuannya
>
> RS
>
>
>
>
>
>
>
>
>
>
Public Sub FilterPivotReport(
Dim pvt As PivotTable
Application.
Sheet2.Calculate
Set pvt = Sheet2.PivotTables(
With pvt
.RefreshTable
With .PivotFields(
.ClearAllFilters
.PivotFilters.
Value1:=Sheet2.
End With
End With
Application.
End Sub
Nama prosedur : FilterPivotReport
Jenis prosedur : Sub [artinya : tidak memberikan nilai balik hasil prosedur
-> nilai baliknya null]
Scope prosedur : Public [artinya bisa digunakan dimanapun dalam workbook]
Input parameter : bState [artinya membutuhkan inputan ketika dipanggil
untuk bekerja yang nilai inputan tersebut disimpan dalam bState]
Tipe input parameter : Boolean [bisa diisi nilai TRUE atau FALSE]
Tingkat kebutuhan input parameter : Optional [artinya boleh tidak diberi
nilai, jika tidak diberi nilai, maka akan menggunakan nilai default]
Nilai default input parameter : False [jika bState tidak diberi nilai, maka
akan diberi nilai FALSE]
Tujuan ada input parameter dalam prosedur ini : menghilangkan nama prosedur
dari daftar prosedur di Run Macro (ALT F8) dari worksheet
Isi prosedur :
1. deklarasi variabel wadah pivot table dengan scope lokal dalam prosedur
Dim pvt As PivotTable
2. turn off kegiatan merefresh tampilan yang dilakukan aplikasi agar tidak
sibuk merefresh (hemat proses)
Application.
3. mengkalkulasi sheet kerja (nama object sheet2 dalam vba bukan nama sheet
dalam tab sheet)
Sheet2.Calculate
4. isi variabel pivot table dengan benda pivot table yang ada dalam sheet
kerja
Set pvt = Sheet2.PivotTables(
bahasa manusia :
"variabel object pivot table (pvt) diisi dengan pivot table ke-1 yang ada
di dalam sheet2"
5. fokus bekerja pada pivot table (yang ada dalam variabel pivot)
With pvt
6. refresh pivot table
.RefreshTable
7. fokus pada fields bernama Month dalam pivot table
With .PivotFields(
8. hapus seluruh filter yang ada
.ClearAllFilters
9. lakukan filter baru terhadap pivot table
.PivotFilters.
Value1:=Sheet2.
bahasa manusia :
"pada field kerja di object filters (pivotfilters) ditambahkan (add) proses
filter dengan tipe filter berupa nilai batas bawah dan nilai batas atas (
xlCaptionIsBetween) yang nilai batas bawah adalah nilai yang ada dalam
sheet kerja range C11 dan nilai batas atas adalah nilai yang didapat dari
sheet kerja range C12"
10. selesai bekerja pada field Month (yang tadi dimulai di nomor 7)
End With
11. selesai berkerja pada pivot table (yang tadi dimulai di nomor 5)
End With
12. ijinkan kembali aplikasi untuk aktif me-refresh tampilan
Application.
13. tanda akhir blok prosedur
End Sub
Wassalam,
Kid.
2013/4/20 belajar excell <belajar.excell@
> **
>
>
> Pak Kid, terima kasih banyak atas bantuannya, sudah seperti yang saya
> inginkan.
>
> Pak, seandainya memungkinkan, bisakah Pak Kid mengajarkan cara baca VBA
> yang telah Pak Kid buat ? hehe
> Mungkin dengan mengetahui cara bacanya, saya bisa sedikit lebih paham
> mengenai VBA.
>
> Terima kasih byk ya Pak Kid,
>
> RS
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Thursday, April 18, 2013 12:25 AM
>
> *Subject:* Re: [belajar-excel] Advanced Filet + Pivot VBA
>
>
> File terlampir mencoba menata letak field Month agar bisa disembunyikan.
> Tidak ada yang diubah pada VBA-nya.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/17 belajar excell <belajar.excell@
>
> **
>
> Pak Kid, terima kasih untuk bantuannya, sekali lagi saya mendapat ilmu
> tambahan yang sangat membantu saya dalam mempelajari VBA.
> Mohon maaf karena saya kurang menjelaskan pivot seperti apa yang di
> inginkan, maksd sya adalah hasil dari advanced filter itu berupa
> penjumlahan ( sum ) pada pivot ( seperti pada contoh sheet - hasil yang di
> inginkan ).
>
> Jadi pada waktu advanced filter kita pilih month 1 dan month 2, maka
> bentuk pivot sumnya juga adalah hasil penjumlahan dari month1 dan 2.
> kalu saya pilih month 6 dan month 7, maka pivot sumnya adalah hasil
> penjumlahn dari moonth 6 dan 7. begitu juga setrusnya.
>
> sekali lagi mohon maap karena udah merepotkan, maklumlah wawasan saya
> dalam VBA masih sangat minim, hehehe
>
> Di tolong ya Pak Kid dan rekan2 semuanya,,
>
> RS
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Wednesday, April 17, 2013 2:47 PM
>
> *Subject:* Re: [belajar-excel] Advanced Filet + Pivot VBA
>
> Bagaimana jika seperti file terlampir ?
> Cukup dengan sheet Test, tapi bisa filter dengan VBA (user ndak perlu
> filter langsung di pivot table).
>
> btw, kenapa user tidak diminta filter langsung di pivot table ya....
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/17 <belajar.excell@
>
> **
>
> ** Miss Jan, terima kasih byk utk ilmunya..saya sudah ganti sheet4 jadi
> sheet22,setelah d jalankan berhasil.
> Tapi masalahx adalah hasil pivotnya mengacu pada sheet test.bukan mengacu
> pada sheet result.
> Sebenarx yg saya inginkan adalah dari sheet test,di saring lg datax yg
> nnti d taruh di sheet result.dari hasil saringan di sheet result tersebut
> maka di buat pivot..
>
> Mohon bantuannya ya ...
>
> RS
>
>
>
>
>
> Sent from my BlackBerry�
> powered by Sinyal Kuat INDOSAT
> ------------
> *From: * Jan Raisin <miss.jan.raisin@
> *Sender: * belajar-excel@
> *Date: *Wed, 17 Apr 2013 08:43:35 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Advanced Filet + Pivot VBA
>
>
> Hai RS,
>
> scriptnya error di baris berikut:
>
> Set objTable = Sheet4.PivotTableWi
>
> karena dalam workbook tersebut tidak ada sheet dengan nomor index 4, coba
> lihat gambar di bawah ini (hasil screen shoot monitor)
>
> [image: Gambar sisip 2]
>
> sheet yang ada adalah sheet1, sheet2, sheet22, dan sheet3.
> Karena Jan melihat sheet22 masih kosong sama sekali, coba ganti scriptnya
> menjadi seperti ini:
>
> Set objTable = Sheet22.PivotTableW
>
> atau dengan cara lain, ubah nomor index sheet22 menjadi sheet4 tanpa
> melakukan modifikasi terhadap script yang sudah ada.
>
> lalu jalankan kembali script yang anda susun.
>
> Sebagai tambahan wacana, ada 2 macam error saat penulisan script, yaitu:
> 1. Syntax Error, hal ini dapat langsung diketahui karena script VBA akan
> berubah menjadi warna merah
> 2. Run-Time Error, hal ini baru diketahui saat script dijalankan, untuk
> mengetahui dimana letak salahnya dapat dengan menekan tombol F8 berkali-kali
>
> Kesalahan dalam script di atas dinamakan Run-Time Error
>
> Semoga penjelasan yang singkat ini dapat menjadi tambahan ilmu bagi semua,
> jika ada yang salah tolong dikoreksi.
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 16 April 2013 19.47, belajar excell <belajar.excell@
>
> **
>
> Selamat malam semuanya,
>
> Mohon maaf lagi, kali ini sya mau Tanya lagi mengenai Pivot lagi. Tapi
> kali ini sya coba padukan Advanced filter dan Pivot, tapi masalahnya
> Sepertinya syntax untuk pivotnya tidak berkerja pada sheet hasil advanced
> filter, Mohon bantuannya bagaimana agar syntax tersebut dapat berfungsi
> lagi ya ?
>
> Terima kasih banyak atas bantuannya
>
> RS
>
>
>
>
>
>
>
>
>
>
Fri Apr 19, 2013 6:51 pm (PDT) . Posted by:
"Mulki" mulki_akbar
Terimakasih Mr.Kid telah memberi alternafi lain.
Cuma kalo boleh saya tau xKum itu dasarnya apa ya Mr.Kid ?
Jika tanpa menggunakan kolom bantu xKum apakah bisa Mr.Kid ?
Mohon pencerahannya.
Terimakasih & wassalam,
Mulki
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Friday, April 19, 2013 6:04 PM
Subject: Re: [belajar-excel] Grafik pareto
Series kumulatif dibuat xy scatter aja kali ya.
Kemudian series individu diperluas 1 record.
File terlampir.
Wassalam,
Kid.
2013/4/19 Mulki <mulki@aop.component.astra.co.id >
Terimakasih atas pencerahannya Mr. Kid.
Boleh minta sarannya lagi bagaimana supaya chart type line bisa sampai menjejak sampa 0% seperti contoh gambar disampingnya.
Terimakasih
Wassalam,
Mulki
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Friday, April 19, 2013 3:00 PM
Subject: Re: [belajar-excel] Grafik pareto
Wa'alaikumussalam Wr. Wb.
Coba langkah berikut :
1. blok area data (beserta header)
2. lakukan Insert Chart dan pilih tipe Column
3. klik series milik nilai kumulatifnya dan di klik kanan pilih format data series
4. atur agar series diletakkan pada secondary axis (pilih Secondary axis pada bagian tentang Plot on) lalu tekan OK
5. klik kanan series milik kumulatif -> ubah tipe chart menjadi line
6. klik kanan series nilai individu -> format data series -> atur gap chart agar lebih rapat sesuai kebutuhan -> tekan OK
Wassalamu'alaikum Wr. Wb.,
Kid.
2013/4/19 Mulki <mulki@aop.component.astra.co.id >
Assalamu'alaikum Wr. Wb.
Dear rekan2 B-XL-ers.
Mohon bantuannya utk membuat grafik pareto yg tampilannya bisa dilihat dlm lampiran berikut.
Terimakasih atas pencerahannya.
Wassalam,
Cuma kalo boleh saya tau xKum itu dasarnya apa ya Mr.Kid ?
Jika tanpa menggunakan kolom bantu xKum apakah bisa Mr.Kid ?
Mohon pencerahannya.
Terimakasih & wassalam,
Mulki
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Friday, April 19, 2013 6:04 PM
Subject: Re: [belajar-excel] Grafik pareto
Series kumulatif dibuat xy scatter aja kali ya.
Kemudian series individu diperluas 1 record.
File terlampir.
Wassalam,
Kid.
2013/4/19 Mulki <mulki@aop.component
Terimakasih atas pencerahannya Mr. Kid.
Boleh minta sarannya lagi bagaimana supaya chart type line bisa sampai menjejak sampa 0% seperti contoh gambar disampingnya.
Terimakasih
Wassalam,
Mulki
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Friday, April 19, 2013 3:00 PM
Subject: Re: [belajar-excel] Grafik pareto
Wa'alaikumussal
Coba langkah berikut :
1. blok area data (beserta header)
2. lakukan Insert Chart dan pilih tipe Column
3. klik series milik nilai kumulatifnya dan di klik kanan pilih format data series
4. atur agar series diletakkan pada secondary axis (pilih Secondary axis pada bagian tentang Plot on) lalu tekan OK
5. klik kanan series milik kumulatif -> ubah tipe chart menjadi line
6. klik kanan series nilai individu -> format data series -> atur gap chart agar lebih rapat sesuai kebutuhan -> tekan OK
Wassalamu'
Kid.
2013/4/19 Mulki <mulki@aop.component
Assalamu'
Dear rekan2 B-XL-ers.
Mohon bantuannya utk membuat grafik pareto yg tampilannya bisa dilihat dlm lampiran berikut.
Terimakasih atas pencerahannya.
Wassalam,
Fri Apr 19, 2013 7:10 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kalau ndak salah begini ceritanya Pak,
nilai individu ditampilkan dengan tipe chart column yang axis X-nya mulai
dari 1 dengan step 1 (1,2,3,4,dst).
Individu akan diletakkan di nilai Axis X tersebut (A,B,C,D,dst)
Karena lebar setiap column adalah 1 (stepnya 1 antar axis X) dan individu
diletakkan pada setiap nilai axis X yang mulai dari 1 dan seterusnya, maka
axis X bernilai awal column pertama adalah di nilai 0.5. Axis X column ke
dua diawali pada nilai axiz 1.5 (stepnya kan tetap 1 ya)
Pada series kumulatif, akan digunakan tipe chart xyscatter yang membutuhkan
2 titik (x,y).
Maka dibuatlah kolom xKum sebagai axis X dan titik 0 adalah pada koordinat
(0,0.5). Itu sebabnya ditambahkan sebuah record nilai kum 0% dan xKum
bernilai 0.5. Nilai xKum berikutnya selalu step 1 dari xkum sebelumnya.
Jika diperhatikan, maka series kumulatif akan memiliki 5 titik (mulai dari
0% sampai 100%). Maka series individu juga perlu diperluas agar menjadi 5
record. Karena column pertama ingin menempel pada axis Y, maka perluasan
dilakukan dengan menambah 1 record sesudah record terakhir.
Wassalam,
Kid.
2013/4/20 Mulki <mulki@aop.component.astra.co.id >
> **
>
>
> **
> Terimakasih Mr.Kid telah memberi alternafi lain.
> Cuma kalo boleh saya tau xKum itu dasarnya apa ya Mr.Kid ?
> Jika tanpa menggunakan kolom bantu xKum apakah bisa Mr.Kid ?
>
> Mohon pencerahannya.
>
>
> Terimakasih & wassalam,
> Mulki
>
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Friday, April 19, 2013 6:04 PM
> *Subject:* Re: [belajar-excel] Grafik pareto
>
>
>
> Series kumulatif dibuat xy scatter aja kali ya.
> Kemudian series individu diperluas 1 record.
>
> File terlampir.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/19 Mulki <mulki@aop.component.astra.co.id >
>
>> **
>>
>>
>> **
>> Terimakasih atas pencerahannya Mr. Kid.
>>
>> Boleh minta sarannya lagi bagaimana supaya chart type line bisa sampai
>> menjejak sampa 0% seperti contoh gambar disampingnya.
>>
>>
>> Terimakasih
>>
>>
>> Wassalam,
>> Mulki
>>
>>
>>
>> ----- Original Message -----
>> *From:* Mr. Kid <mr.nmkid@gmail.com >
>> *To:* BeExcel <belajar-excel@yahoogroups.com >
>> *Sent:* Friday, April 19, 2013 3:00 PM
>> *Subject:* Re: [belajar-excel] Grafik pareto
>>
>>
>>
>> Wa'alaikumussalam Wr. Wb.
>>
>> Coba langkah berikut :
>> 1. blok area data (beserta header)
>> 2. lakukan Insert Chart dan pilih tipe Column
>> 3. klik series milik nilai kumulatifnya dan di klik kanan pilih format
>> data series
>> 4. atur agar series diletakkan pada secondary axis (pilih Secondary axis
>> pada bagian tentang Plot on) lalu tekan OK
>> 5. klik kanan series milik kumulatif -> ubah tipe chart menjadi line
>> 6. klik kanan series nilai individu -> format data series -> atur gap
>> chart agar lebih rapat sesuai kebutuhan -> tekan OK
>>
>> Wassalamu'alaikum Wr. Wb.,
>> Kid.
>>
>>
>>
>>
>>
>>
>> 2013/4/19 Mulki <mulki@aop.component.astra.co.id >
>>
>>> **
>>>
>>>
>>> **
>>> Assalamu'alaikum Wr. Wb.
>>>
>>> Dear rekan2 B-XL-ers.
>>>
>>> Mohon bantuannya utk membuat grafik pareto yg tampilannya bisa dilihat
>>> dlm lampiran berikut.
>>>
>>> Terimakasih atas pencerahannya.
>>>
>>>
>>> Wassalam,
>>>
>>>
>>>
>>
>
>
nilai individu ditampilkan dengan tipe chart column yang axis X-nya mulai
dari 1 dengan step 1 (1,2,3,4,dst)
Individu akan diletakkan di nilai Axis X tersebut (A,B,C,D,dst)
Karena lebar setiap column adalah 1 (stepnya 1 antar axis X) dan individu
diletakkan pada setiap nilai axis X yang mulai dari 1 dan seterusnya, maka
axis X bernilai awal column pertama adalah di nilai 0.5. Axis X column ke
dua diawali pada nilai axiz 1.5 (stepnya kan tetap 1 ya)
Pada series kumulatif, akan digunakan tipe chart xyscatter yang membutuhkan
2 titik (x,y).
Maka dibuatlah kolom xKum sebagai axis X dan titik 0 adalah pada koordinat
(0,0.5). Itu sebabnya ditambahkan sebuah record nilai kum 0% dan xKum
bernilai 0.5. Nilai xKum berikutnya selalu step 1 dari xkum sebelumnya.
Jika diperhatikan, maka series kumulatif akan memiliki 5 titik (mulai dari
0% sampai 100%). Maka series individu juga perlu diperluas agar menjadi 5
record. Karena column pertama ingin menempel pada axis Y, maka perluasan
dilakukan dengan menambah 1 record sesudah record terakhir.
Wassalam,
Kid.
2013/4/20 Mulki <mulki@aop.component
> **
>
>
> **
> Terimakasih Mr.Kid telah memberi alternafi lain.
> Cuma kalo boleh saya tau xKum itu dasarnya apa ya Mr.Kid ?
> Jika tanpa menggunakan kolom bantu xKum apakah bisa Mr.Kid ?
>
> Mohon pencerahannya.
>
>
> Terimakasih & wassalam,
> Mulki
>
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Friday, April 19, 2013 6:04 PM
> *Subject:* Re: [belajar-excel] Grafik pareto
>
>
>
> Series kumulatif dibuat xy scatter aja kali ya.
> Kemudian series individu diperluas 1 record.
>
> File terlampir.
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/19 Mulki <mulki@aop.component
>
>> **
>>
>>
>> **
>> Terimakasih atas pencerahannya Mr. Kid.
>>
>> Boleh minta sarannya lagi bagaimana supaya chart type line bisa sampai
>> menjejak sampa 0% seperti contoh gambar disampingnya.
>>
>>
>> Terimakasih
>>
>>
>> Wassalam,
>> Mulki
>>
>>
>>
>> ----- Original Message -----
>> *From:* Mr. Kid <mr.nmkid@gmail.
>> *To:* BeExcel <belajar-excel@
>> *Sent:* Friday, April 19, 2013 3:00 PM
>> *Subject:* Re: [belajar-excel] Grafik pareto
>>
>>
>>
>> Wa'alaikumussal
>>
>> Coba langkah berikut :
>> 1. blok area data (beserta header)
>> 2. lakukan Insert Chart dan pilih tipe Column
>> 3. klik series milik nilai kumulatifnya dan di klik kanan pilih format
>> data series
>> 4. atur agar series diletakkan pada secondary axis (pilih Secondary axis
>> pada bagian tentang Plot on) lalu tekan OK
>> 5. klik kanan series milik kumulatif -> ubah tipe chart menjadi line
>> 6. klik kanan series nilai individu -> format data series -> atur gap
>> chart agar lebih rapat sesuai kebutuhan -> tekan OK
>>
>> Wassalamu'
>> Kid.
>>
>>
>>
>>
>>
>>
>> 2013/4/19 Mulki <mulki@aop.component
>>
>>> **
>>>
>>>
>>> **
>>> Assalamu'
>>>
>>> Dear rekan2 B-XL-ers.
>>>
>>> Mohon bantuannya utk membuat grafik pareto yg tampilannya bisa dilihat
>>> dlm lampiran berikut.
>>>
>>> Terimakasih atas pencerahannya.
>>>
>>>
>>> Wassalam,
>>>
>>>
>>>
>>
>
>
Fri Apr 19, 2013 6:51 pm (PDT) . Posted by:
"Fuadi Arief" see_fu
thanks atas bantuannya Miss Jan Raisin. Sesuai banget dengan yang saya
inginkan. Skali lagi thanks Miss......;)
inginkan. Skali lagi thanks Miss......;)
Fri Apr 19, 2013 8:28 pm (PDT) . Posted by:
"Assalamu alaikum Salam" idola_free
Mohon bantuannya untuk pakar-pakar excel, saya punya masalah untuk menyelesaikan tugas saya tentang bagaimana caranya mengisikan data list dalam ComboBox yang ada di UserForm yang datanya ada di sheet, saya cari di arsip kebanyakan hanya menggunakan satu combobox dan belum menemukan yang multi combobox, mohon bisa diselesaikan secepatnya, untuk Mr.Kid kalau bisa menyelesaikan mohon kode vba-nya tidak di protect seperti file saya dulu. untuk lebih jelasnya kita langsung ke TEKAPE aja (file terlampir). yang pertama jawab tak doakan mudah rejekinya, panjang umurnya, barokah usianya.
--- Mods ---
Biasanya mas Kid ndak pernah protect apapun. Jika di-protect pun selalu disediakan passwordnya baik di email text maupun didalam VBA yang terbuka untuk dilihat. Jika tidak menemukannya, silakan tanyakan ke milis. Biasanya banyak BeExceller yang sudah menemukan password-nya.
Kebiasaan mas Kid itu password-nya Belajar-Excel.
------------
--- Mods ---
Biasanya mas Kid ndak pernah protect apapun. Jika di-protect pun selalu disediakan passwordnya baik di email text maupun didalam VBA yang terbuka untuk dilihat. Jika tidak menemukannya, silakan tanyakan ke milis. Biasanya banyak BeExceller yang sudah menemukan password-nya.
Kebiasaan mas Kid itu password-nya Belajar-Excel.
------------
Fri Apr 19, 2013 9:46 pm (PDT) . Posted by:
"Dede Suparman" dede_suparman111
Dear Be-Exceler,
Asslamu'alaikum,
Mohon bantuannya, saya membuat user form yang ada text berjalan dan time masing-masing 1 form, bisa kah ke duanya digabung menjadi 1 user form sudah diotak atik eeh mlh ga jalan kedua-duanya, trimakasih sebelum nya,,,file terlampir.
salam,
Del
Asslamu'
Mohon bantuannya, saya membuat user form yang ada text berjalan dan time masing-masing 1 form, bisa kah ke duanya digabung menjadi 1 user form sudah diotak atik eeh mlh ga jalan kedua-duanya, trimakasih sebelum nya,,,file terlampir.
salam,
Del
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar