Jumat, 08 Februari 2013

[belajar-excel] Digest Number 2075

17 New Messages

Digest #2075
3b
3c
5b
Re: Warning message saat close Database by "Mr. Kid" nmkid.family@ymail.com
5c
5d
6b
Re: Aplikasi Ex yg cell di tablet by "Mr. Kid" nmkid.family@ymail.com
7
Copy sheet 1 ke 2 by "Aden S" adendum_81

Messages

Thu Feb 7, 2013 10:12 pm (PST) . Posted by:

"Agiftandrõsuno Hu Z" giftasunohu

Dear Pak Bagus,
Trimakasih file+solusi nya,,
Jika boleh tahu,, caranya gimana tha itu..?? heheh...
Terus kan Pak, pengennya setiap hari minggu dan libur nasional pada bulan2 bersangkutan di blok abu-abu..
Apakah bisa dan mohon pencerahan caranya bagaimana?...

Makasih yaa...

Salam,
Gita

________________________________
Dari: Bagus bagus@kingjim.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 8 Februari 2013 10:50
Judul: Re: [belajar-excel] Cara mengambil tanggal dan nama hari dari bulan bersangkutan


 
Dear Gita;
 
File terlampir semoga sesuai harapan
 
Wassalam
~ Bagus~
----- Original Message -----
>From: Agiftandrõsuno Hu Z
>To: belajar-excel@yahoogroups.com
>Sent: Friday, February 08, 2013 9:47 AM
>Subject: [belajar-excel] Cara mengambil tanggal dan nama hari dari bulan bersangkutan
>

>Dear All,
>
>
>Saya ingin mengambil nama hari berdasarkan tanggal dari bulan Desember 2012 hingga bulan Juni 2013 atau kemungkinan November 2013, 
>Saya uda coba-coba tapi belum berhasil..
>Excelnya cuma bisa ambil nama hari berdasarkan tanggal pada bulan Desember 2013 padahal yang saya inginkan dimulai dari Desember 2012..
>
>
>Mohon bantuan para master semua..
>
>
>Thanks,
>
>
>Gita.

Thu Feb 7, 2013 10:26 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Setahu saya, settingan itu berlaku untuk masing2 komputer.

Salam,
Hendrik

________________________________
From: Agiftandrõsuno Hu Z giftasunohu@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
Sent: Friday, 8 February 2013, 11:07
Subject: Bls: Bls: [belajar-excel] Bagaimana cara proteksi kode vba / kode makro di excel


 
Thanks Pak Hendrik,

Apakah dengan cara ini, file excel dimaksud jika dibuka di komputer lain akan otomatis juga membuka file excelnya tanpa ada security warning gitu ?

Makasih,

Salam,
Gita

________________________________
Dari: hendrik karnadi hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
Dikirim: Jumat, 8 Februari 2013 10:31
Judul: Re: Bls: [belajar-excel] Bagaimana cara proteksi kode vba / kode makro di excel


 
Ikut nimbrung,
Coba set Macro Securitynya ke "Enable all macros".

Salam,
Hendrik Karnadi

________________________________
From: Agiftandrõsuno Hu Z giftasunohu@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
Sent: Friday, 8 February 2013, 9:30
Subject: Bls: [belajar-excel] Bagaimana cara proteksi kode vba / kode makro di excel


 
Dear Ms Jan,
Thanks solusinya..

Nah,kalo kita ingin tiap kali buka excel yang ada vba nya dibuka namun otomatis meng-enable-kan security warning ttg adanya kode vba dalam excel tersebut? Kira2 gimana caranya? Biar pengguna lainnya gak ribet meng-klik 'enable' gitu...
Thanks..

Salam,
Gita.

________________________________
Dari: Jan Raisin miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 7 Februari 2013 11:31
Judul: Re: [belajar-excel] Bagaimana cara proteksi kode vba / kode makro di excel


 
Coba cara berikut:

1. Klik kanan pada VBA Project-nya
2. Pilih VBA Project Properties
3. Akan muncul form Project Properties
4. Klik tab Protection
5. Isi Password & Confirm Password
6. Klik OK

Wassalam,

-Miss Jan Raisin-

Pada 7 Februari 2013 11.15, Agiftandrõsuno Hu Z giftasunohu@yahoo.co.id> menulis:


>Dear master
Excel semua,
>Saya pemula
disini,
>Boleh nanya
gimana caranya proteksi kode makro yang di file excel agar pengguna yang lain
tidak merubah kode/rumus yang digunakan ?

>Makasih..

>Salam,
>Gita.

Thu Feb 7, 2013 10:38 pm (PST) . Posted by:

"Heru Safrudin" superheruu

Ok. lalu bagaimana kalo kita mau loncat ke record tertentu, misal dari
posisi 1 loncat ke record 20, bagaimana syntax perintahnya ?

Pada tanggal 08/02/13, Mr. Kid mr.nmkid@gmail.com> menulis:
> Coba langkah berikut :
> 1. deklarasikan variabel nomor record (misal lRec) pada level modul (bukan
> dalam prosedur) dengan scope public
> 2. deklarasikan juga koneksi db dan recordset db pada level modul dengan
> scope public
> 3. susun prosedur untuk tutup db yang isinya menutup recordset dan buang
> object recordset, tutup koneksi dan buang object koneksi
> 4. buat prosedur untuk buka koneksi dan susun recordset. Awali dengan
> memanggil prosedur menutup db (nomor 3) sebelum membuat koneksi dan susun
> recordset. Kemudian set lrec adalah 1 dan lakukan movefirst pada recordset
> 5. susun prosedur untuk lompat ke record pertama yang isinya movefirst
> dengan syarat jika lrec lebih dari 1. Set nilai lrec menjadi 1 setelah
> melakukan movefirst pada record set
> 6. susun prosedur untuk lompat ke record terakhir (movelast) ketika lrec
> belum mencapai jumlah record dan set lrec menjadi jumlah record setelah
> movelast
> 7. susun prosedur untuk lompat ke record berikut (movenext) ketika lrec
> belum mencapai jumlah record dan set lrec bertambah 1 setelah movenext
> 8. susub prosedur untuk lompat ke record sebelum (moveprevious) ketika lrec
> lebih dari 1 dan set lrec berkurang 1 setelah moveprevious
> 9. susun prosedur untuk baca record dan menulis ke object penampilan data
> 10. ubah seluruh prosedur yang bertugas untuk meng-query ulang agar selalu
> memanggil prosedur nomor 4.
> 11. susun prosedur menuju record tertentu yang berisi proses buka db
> (panggil nomor 4) dilanjutkan loop berisi movenext sampai lrec bernilai
> sama dengan yang diinginkan.
>
> Wassalam,
> Kid.
>
> 2013/2/8 Heru Safrudin superheruu@gmail.com>
>
>> Yth, Miss Jan, terima kasih infonya
>>
>> Maksud saya posisi record di database, bukan nilai suatu kontrol
>> Misal kita klik tombol Next, tombol Next mengerjakan rs.movenext....
>> nah perintah next tadi pindah ke posisi record ke berapa ?
>> baru ditampilkan di label1.caption
>>
>> Begitu
>>
>> Pada tanggal 07/02/13, Jan Raisin miss.jan.raisin@gmail.com> menulis:
>> > Wa'alaikumsalam wr. wb.,
>> >
>> > Asumsi: tombol Next dan Previous menggunakan Spin Button, dan Current
>> > Record ditampilkan di Label
>> >
>> > maka untuk menampilkan posisi record bisa memanfaatkan event change
>> > milik
>> > spin button tersebut
>> >
>> > spinbutton1.value = ambil_posisi_recordnya
>> > label1.caption = spinbutton1.value
>> >
>> >
>> > secara default nilai minimal spin button adalah nol dan nilai maksimal
>> > adalah 100, tetapi nilai ini bisa diubah.
>> >
>> > Wassalam,
>> >
>> > -Miss Jan Raisin-
>> >
>> > Pada 7 Februari 2013 14.54, Heru Safrudin superheruu@gmail.com>
>> menulis:
>> >
>> >> Dear Master,
>> >>
>> >> Saya ingin memberi tampilan pada form dengan tombol Next dan Previous
>> >> Nah sekarang bagaimana command untuk menampilkan current record
>> >> tersebut
>> >> ?
>> >> --
>> >> Terima kasih
>> >>
>> >> ������������ ���������� ���������� ����� �������������
>> >> Heru Safrudin
>> >>
>> >>
>> >> ------------------------------------
>> >>
>> >> ----------------------------------------------------------
>> >> 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
>> >>
>> ----------------------------------------------------------Yahoo!
>> >> Groups Links
>> >>
>> >>
>> >>
>> >>
>> >
>>
>>
>> --
>> Terima kasih
>>
>> ������������ ���������� ���������� ����� �������������
>> Heru Safrudin
>>
>>
>> ------------------------------------
>>
>> ----------------------------------------------------------
>> 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
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>

--
Terima kasih

������������ ���������� ���������� ����� �������������
Heru Safrudin

Thu Feb 7, 2013 10:49 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Yang nomor 11 kan...

asumsi
1. sudah ada variabel lrec,recordset (misal rs), dan koneksi (misal con)
2. sudah ada prosedur buka db dan susun recordset, serta set lrec=1 dengan
rs diletakkan pada record pertama (movefirst) bernama BukaDB
3. sudah ada prosedur pasang nilai record ke object tampilan (range,
control, dsb) bernama Tampilkan

prosedur ke lokasi tertentu
public sub GotoRecord( lTujuan as long )
dim lLoop as long
bukadb
do while lrec












superheruu@gmail.com>

> Ok. lalu bagaimana kalo kita mau loncat ke record tertentu, misal dari
> posisi 1 loncat ke record 20, bagaimana syntax perintahnya ?
>
> Pada tanggal 08/02/13, Mr. Kid mr.nmkid@gmail.com> menulis:
> > Coba langkah berikut :
> > 1. deklarasikan variabel nomor record (misal lRec) pada level modul
> (bukan
> > dalam prosedur) dengan scope public
> > 2. deklarasikan juga koneksi db dan recordset db pada level modul dengan
> > scope public
> > 3. susun prosedur untuk tutup db yang isinya menutup recordset dan buang
> > object recordset, tutup koneksi dan buang object koneksi
> > 4. buat prosedur untuk buka koneksi dan susun recordset. Awali dengan
> > memanggil prosedur menutup db (nomor 3) sebelum membuat koneksi dan susun
> > recordset. Kemudian set lrec adalah 1 dan lakukan movefirst pada
> recordset
> > 5. susun prosedur untuk lompat ke record pertama yang isinya movefirst
> > dengan syarat jika lrec lebih dari 1. Set nilai lrec menjadi 1 setelah
> > melakukan movefirst pada record set
> > 6. susun prosedur untuk lompat ke record terakhir (movelast) ketika lrec
> > belum mencapai jumlah record dan set lrec menjadi jumlah record setelah
> > movelast
> > 7. susun prosedur untuk lompat ke record berikut (movenext) ketika lrec
> > belum mencapai jumlah record dan set lrec bertambah 1 setelah movenext
> > 8. susub prosedur untuk lompat ke record sebelum (moveprevious) ketika
> lrec
> > lebih dari 1 dan set lrec berkurang 1 setelah moveprevious
> > 9. susun prosedur untuk baca record dan menulis ke object penampilan data
> > 10. ubah seluruh prosedur yang bertugas untuk meng-query ulang agar
> selalu
> > memanggil prosedur nomor 4.
> > 11. susun prosedur menuju record tertentu yang berisi proses buka db
> > (panggil nomor 4) dilanjutkan loop berisi movenext sampai lrec bernilai
> > sama dengan yang diinginkan.
> >
> > Wassalam,
> > Kid.
> >
> > 2013/2/8 Heru Safrudin superheruu@gmail.com>
> >
> >> Yth, Miss Jan, terima kasih infonya
> >>
> >> Maksud saya posisi record di database, bukan nilai suatu kontrol
> >> Misal kita klik tombol Next, tombol Next mengerjakan rs.movenext....
> >> nah perintah next tadi pindah ke posisi record ke berapa ?
> >> baru ditampilkan di label1.caption
> >>
> >> Begitu
> >>
> >> Pada tanggal 07/02/13, Jan Raisin miss.jan.raisin@gmail.com> menulis:
> >> > Wa'alaikumsalam wr. wb.,
> >> >
> >> > Asumsi: tombol Next dan Previous menggunakan Spin Button, dan Current
> >> > Record ditampilkan di Label
> >> >
> >> > maka untuk menampilkan posisi record bisa memanfaatkan event change
> >> > milik
> >> > spin button tersebut
> >> >
> >> > spinbutton1.value = ambil_posisi_recordnya
> >> > label1.caption = spinbutton1.value
> >> >
> >> >
> >> > secara default nilai minimal spin button adalah nol dan nilai maksimal
> >> > adalah 100, tetapi nilai ini bisa diubah.
> >> >
> >> > Wassalam,
> >> >
> >> > -Miss Jan Raisin-
> >> >
> >> > Pada 7 Februari 2013 14.54, Heru Safrudin superheruu@gmail.com>
> >> menulis:
> >> >
> >> >> Dear Master,
> >> >>
> >> >> Saya ingin memberi tampilan pada form dengan tombol Next dan Previous
> >> >> Nah sekarang bagaimana command untuk menampilkan current record
> >> >> tersebut
> >> >> ?
> >> >> --
> >> >> Terima kasih
> >> >>
> >> >> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> >> >> Heru Safrudin
> >> >>
> >> >>
> >> >> ------------------------------------
> >> >>
> >> >> ----------------------------------------------------------
> >> >> 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
> >> >>
> >>
> ----------------------------------------------------------Yahoo!
> >> >> Groups Links
> >> >>
> >> >>
> >> >>
> >> >>
> >> >
> >>
> >>
> >> --
> >> Terima kasih
> >>
> >> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> >> Heru Safrudin
> >>
> >>
> >> ------------------------------------
> >>
> >> ----------------------------------------------------------
> >> 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
> >>
> ----------------------------------------------------------Yahoo!
> >> Groups Links
> >>
> >>
> >>
> >>
> >
>
>
> --
> Terima kasih
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Heru Safrudin
>
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>

Thu Feb 7, 2013 10:54 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Cara lain pakai methods Move milik record set
public sub GotoRecord( lTujuan as long )
rs.move ltujuan-lrec
end sub

sekarang tinggal pilih.

Wassalam,
Kid.

2013/2/8 Mr. Kid mr.nmkid@gmail.com>

> Yang nomor 11 kan...
>
> asumsi
> 1. sudah ada variabel lrec,recordset (misal rs), dan koneksi (misal con)
> 2. sudah ada prosedur buka db dan susun recordset, serta set lrec=1 dengan
> rs diletakkan pada record pertama (movefirst) bernama BukaDB
> 3. sudah ada prosedur pasang nilai record ke object tampilan (range,
> control, dsb) bernama Tampilkan
>
> prosedur ke lokasi tertentu
> public sub GotoRecord( lTujuan as long )
> dim lLoop as long
> bukadb
> do while lrec
lrec=lrec+1
> rs.movenext
> loop
> end sub
>
> pada event milik interface untuk menuju record tertentu diisi :
> GotoRecord 20 'jika akan menuju record 20 [ganti nilai sesuai kebutuhan]
> Tampilkan
>
>
> Wassalam,
> Kid.
>
> 2013/2/8 Heru Safrudin superheruu@gmail.com>
>
>> Ok. lalu bagaimana kalo kita mau loncat ke record tertentu, misal dari
>> posisi 1 loncat ke record 20, bagaimana syntax perintahnya ?
>>
>> Pada tanggal 08/02/13, Mr. Kid mr.nmkid@gmail.com> menulis:
>> > Coba langkah berikut :
>> > 1. deklarasikan variabel nomor record (misal lRec) pada level modul
>> (bukan
>> > dalam prosedur) dengan scope public
>> > 2. deklarasikan juga koneksi db dan recordset db pada level modul dengan
>> > scope public
>> > 3. susun prosedur untuk tutup db yang isinya menutup recordset dan buang
>> > object recordset, tutup koneksi dan buang object koneksi
>> > 4. buat prosedur untuk buka koneksi dan susun recordset. Awali dengan
>> > memanggil prosedur menutup db (nomor 3) sebelum membuat koneksi dan
>> susun
>> > recordset. Kemudian set lrec adalah 1 dan lakukan movefirst pada
>> recordset
>> > 5. susun prosedur untuk lompat ke record pertama yang isinya movefirst
>> > dengan syarat jika lrec lebih dari 1. Set nilai lrec menjadi 1 setelah
>> > melakukan movefirst pada record set
>> > 6. susun prosedur untuk lompat ke record terakhir (movelast) ketika lrec
>> > belum mencapai jumlah record dan set lrec menjadi jumlah record setelah
>> > movelast
>> > 7. susun prosedur untuk lompat ke record berikut (movenext) ketika lrec
>> > belum mencapai jumlah record dan set lrec bertambah 1 setelah movenext
>> > 8. susub prosedur untuk lompat ke record sebelum (moveprevious) ketika
>> lrec
>> > lebih dari 1 dan set lrec berkurang 1 setelah moveprevious
>> > 9. susun prosedur untuk baca record dan menulis ke object penampilan
>> data
>> > 10. ubah seluruh prosedur yang bertugas untuk meng-query ulang agar
>> selalu
>> > memanggil prosedur nomor 4.
>> > 11. susun prosedur menuju record tertentu yang berisi proses buka db
>> > (panggil nomor 4) dilanjutkan loop berisi movenext sampai lrec bernilai
>> > sama dengan yang diinginkan.
>> >
>> > Wassalam,
>> > Kid.
>> >
>> > 2013/2/8 Heru Safrudin superheruu@gmail.com>
>> >
>> >> Yth, Miss Jan, terima kasih infonya
>> >>
>> >> Maksud saya posisi record di database, bukan nilai suatu kontrol
>> >> Misal kita klik tombol Next, tombol Next mengerjakan rs.movenext....
>> >> nah perintah next tadi pindah ke posisi record ke berapa ?
>> >> baru ditampilkan di label1.caption
>> >>
>> >> Begitu
>> >>
>> >> Pada tanggal 07/02/13, Jan Raisin miss.jan.raisin@gmail.com> menulis:
>> >> > Wa'alaikumsalam wr. wb.,
>> >> >
>> >> > Asumsi: tombol Next dan Previous menggunakan Spin Button, dan Current
>> >> > Record ditampilkan di Label
>> >> >
>> >> > maka untuk menampilkan posisi record bisa memanfaatkan event change
>> >> > milik
>> >> > spin button tersebut
>> >> >
>> >> > spinbutton1.value = ambil_posisi_recordnya
>> >> > label1.caption = spinbutton1.value
>> >> >
>> >> >
>> >> > secara default nilai minimal spin button adalah nol dan nilai
>> maksimal
>> >> > adalah 100, tetapi nilai ini bisa diubah.
>> >> >
>> >> > Wassalam,
>> >> >
>> >> > -Miss Jan Raisin-
>> >> >
>> >> > Pada 7 Februari 2013 14.54, Heru Safrudin superheruu@gmail.com>
>> >> menulis:
>> >> >
>> >> >> Dear Master,
>> >> >>
>> >> >> Saya ingin memberi tampilan pada form dengan tombol Next dan
>> Previous
>> >> >> Nah sekarang bagaimana command untuk menampilkan current record
>> >> >> tersebut
>> >> >> ?
>> >> >> --
>> >> >> Terima kasih
>> >> >>
>> >> >> ������������ ���������� ���������� ����� �������������
>> >> >> Heru Safrudin
>> >> >>
>> >> >>
>> >> >> ------------------------------------
>> >> >>
>> >> >>
>> ----------------------------------------------------------
>> >> >> 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
>> >> >>
>> >>
>> ----------------------------------------------------------Yahoo!
>> >> >> Groups Links
>> >> >>
>> >> >>
>> >> >>
>> >> >>
>> >> >
>> >>
>> >>
>> >> --
>> >> Terima kasih
>> >>
>> >> ������������ ���������� ���������� ����� �������������
>> >> Heru Safrudin
>> >>
>> >>
>> >> ------------------------------------
>> >>
>> >> ----------------------------------------------------------
>> >> 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
>> >>
>> ----------------------------------------------------------Yahoo!
>> >> Groups Links
>> >>
>> >>
>> >>
>> >>
>> >
>>
>>
>> --
>> Terima kasih
>>
>> ������������ ���������� ���������� ����� �������������
>> Heru Safrudin
>>
>>
>> ------------------------------------
>>
>> ----------------------------------------------------------
>> 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
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>

Thu Feb 7, 2013 11:25 pm (PST) . Posted by:

"Bagus" bagus4bls

Dear Gita;

Cara:
1. Block A8:C19, Pilih data -> List -> Resize list, A8:C19 ubah menjadi A8:A19
2. Edit tanggal pada cell D8: 1/1/2012 ubah menjadi 12/1/2012
3. Drag ke kanan sesuai keinginan (di excel-ku g cukup kalo dibuat sampe nov 2013)
4. kembalikan list seperti sediakala A8:C19
5. Atur print area -> break page
6. selesai

Cara mem-block abu2 pada hari minggu dan hari libur.
1. Buat baris bantu pada baris 3 dan 4
2. Pada D3 ketik formula =IF(D7="min",1,"") copy kekanan
3. Pada baris 4 (D4:HG4) lihat kalender (input manual) kalo hari libur maka isi 1
4. Block D7:HG7 masuk k conditional formating. isi Formula Is dengan: =SUM(D$3:D$4)>=1 Format dgn warna abu2
5. Selesai

File terlampir, semoga bisa dipahami

Wassalam

~ Bagus ~

----- Original Message -----
From: Agiftandrõsuno Hu Z
To: belajar-excel@yahoogroups.com
Sent: Friday, February 08, 2013 12:27 PM
Subject: Bls: [belajar-excel] Cara mengambil tanggal dan nama hari dari bulan bersangkutan

Dear Pak Bagus,
Trimakasih file+solusi nya,,
Jika boleh tahu,, caranya gimana tha itu..?? heheh...
Terus kan Pak, pengennya setiap hari minggu dan libur nasional pada bulan2 bersangkutan di blok abu-abu..
Apakah bisa dan mohon pencerahan caranya bagaimana?...

Makasih yaa...

Salam,
Gita

----------------------------------------------------------
Dari: Bagus bagus@kingjim.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 8 Februari 2013 10:50
Judul: Re: [belajar-excel] Cara mengambil tanggal dan nama hari dari bulan bersangkutan

Dear Gita;

File terlampir semoga sesuai harapan

Wassalam
~ Bagus ~
----- Original Message -----
From: Agiftandrõsuno Hu Z
To: belajar-excel@yahoogroups.com
Sent: Friday, February 08, 2013 9:47 AM
Subject: [belajar-excel] Cara mengambil tanggal dan nama hari dari bulan bersangkutan

Dear All,

Saya ingin mengambil nama hari berdasarkan tanggal dari bulan Desember 2012 hingga bulan Juni 2013 atau kemungkinan November 2013,
Saya uda coba-coba tapi belum berhasil..
Excelnya cuma bisa ambil nama hari berdasarkan tanggal pada bulan Desember 2013 padahal yang saya inginkan dimulai dari Desember 2012..

Mohon bantuan para master semua..

Thanks,

Gita.

Thu Feb 7, 2013 11:43 pm (PST) . Posted by:

Dear Be-Exceller,

Saya coba-coba bikin VBA code untuk message Box , yaitu saat akan di tutup
databasenya, akan timbul pertanyaan apakah yakin akan di tutup atau tidak
? Kalau di tutup, akan timbul pertanyaan lagi

apakah akan di save atau tidak. Nah, VBA code berhasil kalau di save tapi
kalau tidak di save tidak berhasil. Kira-kira dimana yah letak
kesalahannya ?

Ini VBA Codenya :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim intTanya As Integer
Dim intsaveconfirm As Integer

intTanya = MsgBox("Are you sure you want to exit from this database ?",
vbYesNo, "Confirmation")
intsaveconfirm = MsgBox("Do you want to save the changes you made in this
database ?", vbYesNo, "Save Confirmation")

If intTanya = vbYes Then
If intsaveconfirm = vbYes Then
ActiveWorkbook.Save
Else
ActiveWorkbook.Close Savechanges:=False
End If
Else
Cancel = True
End If
End Sub

Terima kasih jawabannya,
Wassalam,
Tio

Fri Feb 8, 2013 1:11 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Tio,

Coba :
1. diluar prosedur dideklarasikan sebuah variabel boolean status close
(scope module saja juga boleh [private])
private bClose as boolean

2. dalam event before close milik workbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim intTanya As Integer
Dim intsaveconfirm As Integer

if bClose then
exit sub
endif

intTanya = MsgBox("Are you sure you want to exit from this database ?",
vbYesNo, "Confirmation")
intsaveconfirm = MsgBox("Do you want to save the changes you made in this
database ?", vbYesNo, "Save Confirmation")

If intTanya = vbYes Then
If intsaveconfirm = vbYes Then
ActiveWorkbook.Save
Else
bclose=true
ActiveWorkbook.Close Savechanges:=False
End If
Else
Cancel = True
End If
End Sub

Wassalam,
Kid.

On Fri, Feb 8, 2013 at 1:58 PM, tio.adjie@ptssb.co.id> wrote:

> **
>
>
>
> Dear Be-Exceller,
>
> Saya coba-coba bikin VBA code untuk message Box , yaitu saat akan di tutup
> databasenya, akan timbul pertanyaan apakah yakin akan di tutup atau tidak ?
> Kalau di tutup, akan timbul pertanyaan lagi
>
> apakah akan di save atau tidak. Nah, VBA code berhasil kalau di save tapi
> kalau tidak di save tidak berhasil. Kira-kira dimana yah letak kesalahannya
> ?
>
>
> Ini VBA Codenya :
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Dim intTanya As Integer
> Dim intsaveconfirm As Integer
>
> intTanya = MsgBox("Are you sure you want to exit from this database ?",
> vbYesNo, "Confirmation")
> intsaveconfirm = MsgBox("Do you want to save the changes you made in this
> database ?", vbYesNo, "Save Confirmation")
>
> If intTanya = vbYes Then
> If intsaveconfirm = vbYes Then
> ActiveWorkbook.Save
> Else
> ActiveWorkbook.Close Savechanges:=False
> End If
> Else
> Cancel = True
> End If
> End Sub
>
>
> Terima kasih jawabannya,
> Wassalam,
> Tio
>
>

Fri Feb 8, 2013 2:12 am (PST) . Posted by:

"lesbon sitorus" lesbon_sitorus

saya mengalami kejadian aneh di excell 2007 nie.
setiap saya input angka ke dalam cell, langsung dibagi 100.
saya input 1, gitu tekan enter langsung muncul 0.01
saya input 100, gitu tekan enter langsung jadi 1

bagaimana solusinya Bos bos?
minta tolong ya.

--- Mods ---
Untuk membuka thread baru :
- login account email pribadi Anda
- dalam tampilan Inbox, cari tombol Compose
- isi bagian To dengan alamat milis, yaitu :
belajar-excel@yahoogroups.com
- tulis subject yang mewakili kasus
- jabarkan detil kasus dalam body email dengan bahasa yang santun dan mudah dimengerti.
- [bila perlu atau akan memudahkan calon penanggap] lampirkan file (attach file) berisi data contoh dan hasil kerja manual
- tekan Send bila sudah dirasa siap dan pantas dibaca umum.
------------

Fri Feb 8, 2013 2:35 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Lesbon,

Coba atur di Excel Options.
1. ke Excel options :: office button (bunder pojok kiri atas layar) ->
Excel Options (kanan bawah menu yang muncul di kiri Exit)
2. page Advanced (sisi kiri) -> lihat detail (sisi kanan) -> blok Editing
Options -> hilangkan centang dari item 'Automatically insert a decimal
point'
3. OK sampai worksheet
[image: Inline image 1]

Wassalam,
Kid.

2013/2/8 lesbon sitorus lesbon_sitorus@yahoo.com>

> **
>
>
> saya mengalami kejadian aneh di excell 2007 nie.
> setiap saya input angka ke dalam cell, langsung dibagi 100.
> saya input 1, gitu tekan enter langsung muncul 0.01
> saya input 100, gitu tekan enter langsung jadi 1
>
> bagaimana solusinya Bos bos?
> minta tolong ya.
>
> --- Mods ---
> Untuk membuka thread baru :
> - login account email pribadi Anda
> - dalam tampilan Inbox, cari tombol Compose
> - isi bagian To dengan alamat milis, yaitu :
> belajar-excel@yahoogroups.com
> - tulis subject yang mewakili kasus
> - jabarkan detil kasus dalam body email dengan bahasa yang santun dan
> mudah dimengerti.
> - [bila perlu atau akan memudahkan calon penanggap] lampirkan file (attach
> file) berisi data contoh dan hasil kerja manual
> - tekan Send bila sudah dirasa siap dan pantas dibaca umum.
> ------------
>
>

Fri Feb 8, 2013 4:31 am (PST) . Posted by:

Terima kasih atas jawabannya, tapi sepertinya belum berhasil.

Untuk code

if bClose then
   exit sub
endif

exit Sub warnanya merah

Wassalam,
Tio

"Mr. Kid" mr.nmkid@gmail.com>
Sent by: belajar-excel@yahoogroups.com
02/08/2013 04:10 PM
Please respond to belajar-excel

To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Warning message saat close Database

Hai Tio,

Coba :
1. diluar prosedur dideklarasikan sebuah variabel boolean status close
(scope module saja juga boleh [private])
private bClose as boolean

2. dalam event before close milik workbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim intTanya As Integer
Dim intsaveconfirm As Integer

if bClose then
   exit sub
endif

intTanya = MsgBox("Are you sure you want to exit from this database ?",
vbYesNo, "Confirmation")
intsaveconfirm = MsgBox("Do you want to save the changes you made in this
database ?", vbYesNo, "Save Confirmation")

If intTanya = vbYes Then        
                    If intsaveconfirm = vbYes Then
                            ActiveWorkbook.Save
                   Else
                            bclose=true
                            ActiveWorkbook.Close Savechanges:=False
                    End If
Else
    Cancel = True
End If
End Sub

Wassalam,
Kid.

On Fri, Feb 8, 2013 at 1:58 PM, tio.adjie@ptssb.co.id> wrote:
 

Dear Be-Exceller,

Saya coba-coba bikin VBA code untuk message Box , yaitu saat akan di tutup
databasenya, akan timbul pertanyaan apakah yakin akan di tutup atau tidak
? Kalau di tutup, akan timbul pertanyaan lagi

apakah akan di save atau tidak. Nah, VBA code berhasil kalau di save tapi
kalau tidak di save tidak berhasil. Kira-kira dimana yah letak
kesalahannya ?

Ini VBA Codenya :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim intTanya As Integer
Dim intsaveconfirm As Integer

intTanya = MsgBox("Are you sure you want to exit from this database ?",
vbYesNo, "Confirmation")
intsaveconfirm = MsgBox("Do you want to save the changes you made in this
database ?", vbYesNo, "Save Confirmation")

If intTanya = vbYes Then        
                    If intsaveconfirm = vbYes Then
                            ActiveWorkbook.Save
                   Else
                            ActiveWorkbook.Close Savechanges:=False
                    End If
Else
    Cancel = True
End If
End Sub

Terima kasih jawabannya,
Wassalam,
Tio

Fri Feb 8, 2013 2:12 am (PST) . Posted by:

odhyz83_assasaky

Mr.Kid.. apakah fungsi macro untuk Tablet berbasis android juga ada??

Salam
Odhy
Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: "Mr. Kid" mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 7 Feb 2013 19:08:00
To: belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Aplikasi Ex yg cell di tablet

Hai Tuti,

Kalau yang di-install dan full dari tabletnya, sepertinya masih belum ada
(atau sekarang udah ada ya) yang bisa pakai pivot table.
Kalau yang kerjanya di cloud (biasanya butuh koneksi internet setidaknya 3G
yang stabil) bisa coba dengan install CloudOn yang bisa diunduh via Google
Play.

Wassalam,
Kid.

2013/2/7 tuti andrayani andrayani_lee@yahoo.co.id>

> **
>
>
> Dear All,
>
> Mohon sharingnya aplikasi excell apa yg cukup lengkap (fs pivot
> table,chart) yg bisa diinstall di tablet yg berbasis android?
>
> Thanks
> Tuti
>
>
>
>

Fri Feb 8, 2013 2:33 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

hehehe...
sepertinya belum ada app yang support macro
bahkan yang bekerja on cloud seperti cloudon pun belum tersedia fasilitas
untuk menggunakan macro.
Mungkin kedepan akan ada fasilitas menggunakan macro (bisa jadi harus
berbayar dulu)

Hidup bersama teknologi yang sedang berkembang menuju dewasa membutuhkan
kesabaran lebih.

Wassalam,
Kid.

2013/2/8 odhyz83_assasaky@yahoo.com>

> **
>
>
> ** Mr.Kid.. apakah fungsi macro untuk Tablet berbasis android juga ada??
>
> Salam
> Odhy
> Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...!
> ------------------------------
> *From: * "Mr. Kid" mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Thu, 7 Feb 2013 19:08:00 +0700
> *To: *belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Aplikasi Ex yg cell di tablet
>
>
>
> Hai Tuti,
>
> Kalau yang di-install dan full dari tabletnya, sepertinya masih belum ada
> (atau sekarang udah ada ya) yang bisa pakai pivot table.
> Kalau yang kerjanya di cloud (biasanya butuh koneksi internet setidaknya
> 3G yang stabil) bisa coba dengan install CloudOn yang bisa diunduh via
> Google Play.
>
> Wassalam,
> Kid.
>
> 2013/2/7 tuti andrayani andrayani_lee@yahoo.co.id>
>
>> **
>>
>>
>> Dear All,
>>
>> Mohon sharingnya aplikasi excell apa yg cukup lengkap (fs pivot
>> table,chart) yg bisa diinstall di tablet yg berbasis android?
>>
>> Thanks
>> Tuti
>>
>>
>>
>
>

Fri Feb 8, 2013 4:32 am (PST) . Posted by:

odhyz83_assasaky

Terima kasih Mr.Kid, kalo ada upadate aplikasi tersebut mohon dishare..

Salam
Odhy
Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: "Mr. Kid" mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 8 Feb 2013 17:31:13
To: belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Aplikasi Ex yg cell di tablet

hehehe...
sepertinya belum ada app yang support macro
bahkan yang bekerja on cloud seperti cloudon pun belum tersedia fasilitas
untuk menggunakan macro.
Mungkin kedepan akan ada fasilitas menggunakan macro (bisa jadi harus
berbayar dulu)

Hidup bersama teknologi yang sedang berkembang menuju dewasa membutuhkan
kesabaran lebih.

Wassalam,
Kid.

2013/2/8 odhyz83_assasaky@yahoo.com>

> **
>
>
> ** Mr.Kid.. apakah fungsi macro untuk Tablet berbasis android juga ada??
>
> Salam
> Odhy
> Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...!
> ------------------------------
> *From: * "Mr. Kid" mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Thu, 7 Feb 2013 19:08:00 +0700
> *To: *belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Aplikasi Ex yg cell di tablet
>
>
>
> Hai Tuti,
>
> Kalau yang di-install dan full dari tabletnya, sepertinya masih belum ada
> (atau sekarang udah ada ya) yang bisa pakai pivot table.
> Kalau yang kerjanya di cloud (biasanya butuh koneksi internet setidaknya
> 3G yang stabil) bisa coba dengan install CloudOn yang bisa diunduh via
> Google Play.
>
> Wassalam,
> Kid.
>
> 2013/2/7 tuti andrayani andrayani_lee@yahoo.co.id>
>
>> **
>>
>>
>> Dear All,
>>
>> Mohon sharingnya aplikasi excell apa yg cukup lengkap (fs pivot
>> table,chart) yg bisa diinstall di tablet yg berbasis android?
>>
>> Thanks
>> Tuti
>>
>>
>>
>
>

Fri Feb 8, 2013 2:54 am (PST) . Posted by:

"Aden S" adendum_81

Dear All,

saya punya kasus, dimana saya ingin menduplikat file secara automatis dari sheet 1 ke sheet 2, tapi hanya item2 tertentu (yang berkode khusus misal D) yang di copy, dan ketika terjadi perubahan di sheet 1 (misal penambahan atau pengurangan) secara otomatis di sheet 2 juga akan berubah, untuk lebih detailnya bisa di lihat di lampiran email ini.

Terima kasih banyak atas bantuannya.

Salam Hangat

Aden S

Fri Feb 8, 2013 3:11 am (PST) . Posted by:

"cindhi dwi" cindhi.nouvie

Assalamu'alaikum,,

Mr. maaf yaa, mau nanya lagi..
Jadi, saya udah nyoba command dari alamat web yg Mr kasi, dan bisa di download filenya..
Tapi, pas saya buka filenya, isi dari file yg saya download manual dgn file yg saya download menggunakan macro berbeda Mr..

Ini isi file yg sya download manual..

Ini isi file yang saya download menggunakan macro

Padahal Mr. saya udah log in terlebih dahulu ke alamat web nya..

Oia, saya memakai command ini :

Sub Macro_IEWeb_ver1()

Dim myURL As String
myURL = "http://10.17.221.5/graph_xport.php?local_graph_id=5174&rra_id=2&view_type="

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send

myURL = WinHttpReq.ResponseBody
If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.ResponseBody
    oStream.SaveToFile ("D:\Data Data Data Data\Jakarta - connect to Bandung.csv")
    oStream.Close

End If

End Sub

Menurut Mr. dan master2 excel yg lain bagaimana ya dengan permasalahan saya ini??
Apakah ada cara / command lain untuk kasus saya??

--
Terima Kasih,

Regards,

Cindhi Dwi Novita

________________________________
From: Mr. Kid mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, February 4, 2013 6:15 PM
Subject: Re: [belajar-excel] Macro untuk Mengolah data *.csv dari Internet Explorer


 
Wa'alaikumussalam Wr. Wb.

Untuk download file, coba lihat disini :
http://www.cpearson.com/Excel/DownloadFile.aspx
atau
http://social.msdn.microsoft.com/Forums/en/isvvba/thread/bd0ee306-7bb5-4ce4-8341-edd9475f84ad

Biasanya, jika harus ada login ke website tujuan, lakukan login melalui IE dan biarkan tetap aktif, baru jalankan VBA untuk download-nya.
Untuk pengolahan file hasil download, coba search di posting terdahulu di milis. Sepertinya ada banyak kasus tentang buka tutup file.

Memanfaatkan Web Query :
Andaikan di website bisa muncul bentuk tabel (tanpa perlu download file), maka usai login dengan IE, bisa dilakukan proses get external data web query.
Setiap sheet berisi satu koneksi juga bisa. DIatur dengan VBA lalu copas ke sheet temporary juga bisa.

Wassalam,
Kid.

2013/2/4 cindhi dwi cindhi.nouvie@yahoo.com>

Assalamualaikum MasTer dan MbaTer....
>
>
>
>Saya sedang mencoba membuat macro excel yang bisa mengolah data untuk menentukan nilai tertinggi dari suatu objek yang diambil/unduh dari internet explorer.
>Ada ratusan data ber-extensi file *.csv yang harus saya unduh/ambil dari internet explorer, kemudian mengolahnya satu-persatu, Oleh karena itu saya mencoba untuk membuat macronya.
>
>Kendala saya saat ini adalah bagaimana cara untuk mengunduh data excel tersebut secara otomatis dengan menggunakan macro excel.
>Setelah saya perhatikan, setiap data *.csv yang saya unduh memiliki alamat yang sama, namun berbeda di table_id nya saja, seperti gambar di bawah ini.
>
>
>
>
>
>Untuk memasuki alamat di atas memerlukan username dan password (misalkan Username : Cindhi dan password : 12345).
>
>Sebelumnya saya sudah mencoba fasilitas di menu toolbar Data --> From Web, namun gagal.
>
>
>Selesai semua file diunduh, file tersebut diolah satu persatu untuk dicari nilai maksimumnya seperti gambar di bawah ini.
>
>
>Kemudian setelah mendapatkan nilai maksimum dari setiap file, maka nilai maksimum tersebut di satukan di tabel berikut ini :
>
>
>
>
>Mohon bantuannya untuk permasalahan saya ini ya MasTer & MbaTer
>
>Contoh file terlampir.
>Terimakasih....
>
>
>
>Regards,
>Cindhi Dwi
>
>
>
>

Fri Feb 8, 2013 3:30 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

*Coba script berikut :*
Public Sub DownloadFile(ByVal sAlamatFile As String, ByVal sFileHasil As
String)
Dim objXMLHTTP As Object
Dim lFile As Long
Dim btFileRespon() As Byte

'init object dari class msxml2.xmlhttp
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
'jika akan menggunakan referensi tetap ke MSXML, gunakan :
'dim objXMLHTTP as msxml2.xmlhttp
'set objxmlhttp=new msxml2.xmlhttp

With objXMLHTTP
'buka saluran ke alamat webfile dan kirim balik hasilnya (request)
.Open "GET", sAlamatFile, False
.Send

'tunggu sampai status ready dari request bukan 4. Selama itu,
lakukan doevent supaya request tetap diproses
Do While .readyState <> 4
DoEvents
Loop

'jika sampai baris ini, artinya semua request telah selesai
'jadi simpan hasil request (yang bertype byte) ke sebuah array byte
'array inilah file yang didownload
btFileRespon = .ResponseBody
End With

'file lama di hapus
If LenB(Dir$(sFileHasil)) <> 0 Then
Kill sFileHasil
End If

'buat file output binary untuk menulis isi dari byte hasil request
lFile = FreeFile
Open sFileHasil For Binary As #lFile 'buka file dengan
tunjuk ke pointernya (akan dibuat jika belum ada)
Put #lFile, , btFileRespon 'isi byte datanya
Close #lFile 'tutup file

'lepaskan memory
Set objXMLHTTP = Nothing
End Sub

*Contoh cara pemakaian prosedur download file.
*Misal akan download sebuah file csv dari website berikut : (coba dibuka
link ke WHO nya)
http://www.who.int/tb/country/data/download/en/index.html

Disana ada sebuah link download file csv bertuliskan :
» Download the data dictionary [csv
30kb]https://extranet.who.int/tme/generateCSV.asp?ds=dictionary>

Jika mouse di-hover ke atas link tersebut, akan tampak disudut kiri bawah
biasanya, alamat url link tersebut. Untuk link di atas, bunyinya adalah :
https://extranet.who.int/tme/generateCSV.asp?ds=dictionary
Alamat inilah yang akan digunakan untuk download file csv.

Berikut ini adalah sebuah prosedur untuk mendownload dari link :
https://extranet.who.int/tme/generateCSV.asp?ds=dictionary
Public Sub ContohCaraPakai()
Dim sUrl As String, sFile As String

sUrl = "https://extranet.who.int/tme/generateCSV.asp?ds=dictionary"
sFile = "G:\temp\tes.csv" 'ganti dengan lokasi peletakan file yang
di-download

DownloadFile sUrl, sFile

MsgBox "Done."
End Sub

Wassalam,
Kid.

2013/2/8 cindhi dwi cindhi.nouvie@yahoo.com>

> http://10.17.221.5/graph_xport.php?local_graph_id=5174&rra_id=2&view_type=
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar