15 New Messages
Digest #2155
8b
Re: Re : Re : Macro untuk Mengolah data *.csv dari Internet Explorer by "Mr. Kid" nmkid.family@ymail.com
Messages
Wed Mar 13, 2013 8:18 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Alhamdulillah.
Yup begitulah.
Untuk antisipasi kondisi :
1. 'script yang error 1 -> menghasilkan error
2. 'script error 2 -> tidak menghasilkan error
maka sebelum baris on error goto Pesanku diberi proses menghapus error yang
terjadi sebelumnya (tentu akibat nomor 1 saja, karena kalau nomor 2 juga
error pasti telah terhenti dan tidak akan sampai on error goto pesanku)
menjadi :
*err.clear
on error goto Pesanku*
Wassalam,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.com >
> **
>
>
> **
> Misalkan saya balik begini
>
> On error resume next
> 'script yang error 1
>
> on error goto 0
> 'script error 2
> on error goto Pesanku
> 'script yang error 3
> *Jika script error 2 bisa memunculkan dialog debug artinya itu seperti
> yang saya harapkan
> dan solusinya adalah "*on error goto 0*"*
> **
> kemudian script yang error 3 masih tetap dihandling ke label *Pesanku,
> dan ini menakjubkan :D*
> *Jika itu benar berarti udah the problem has been solved*
> **
> Thanks Mr.Kid ...
> **
>
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, March 14, 2013 9:53 AM
> *Subject:* Re: [belajar-excel] Tentang Error Handling
>
>
>
> Yup.
>
> demikianlah kira-kiranya
> Konsep dasarnya adalah mengalihkan proses ketika bertemu error (On Error)
> jadi karena ada baris On Error setelah On Error Resume Next, jika baris On
> Error baru itu tereksekusi, maka On Error Resume Next tidak berlaku lagi
> karena pengalihan error dirujuk ke suatu tempat lain oleh On Error yang
> baru.
>
> Contoh :
> On error resume next
> 'script yang error 1
>
> on error goto Pesanku
> 'script yang error 2
>
> on error goto 0
> 'script error 3
>
> PesanKu:
> msgbox "yup"
> err.clear
> on error goto 0
>
> Pada script di atas, baris On error goto 0 sebelum script error 3 tidak
> akan pernah dieksekusi jika ada error pada script yang error 2 karena akan
> lompat ke Pesanku.
> Pada bagian pesanku, ada pernyataan pengalihan On Error Goto 0
> Jika prosedur berakhir (End Sub) maka semua error tidak akan dialihkan
> ketempat lain melainkan ke baris yang error tersebut.
>
> Wassalam,
> Kid.
>
> 2013/3/14 Heru Safrudin <superheruu@gmail.com >
>
>> **
>>
>>
>> Apakah Artinya begini :
>> Jika diatas udah dipasang On Error resume next (proses pencuekan)
>> kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
>> berarti PENCUEKAN telah diakhiri ??
>>
>> Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
>>
>> > Wa'alaikumussalam Wr. Wb.
>> >
>> > Hai Heru,
>> >
>> > 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
>> > kode yang terdapat error, atau cuma satu baris yang kedapatan error
>> > pertama.
>> >>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
>> > 'kalau ketemu error, cuekin aje bro'
>> >>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya.
>> Jika
>> > nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
>> > berikutnya.
>> >>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
>> > setelah bertemu baris error itu pantas dieksekusi atau tidak.*
>>
>> > Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
>> > hanya berisi 3 sheet saja)
>> > public sub SekedarContoh()
>> > on error resume next
>> >
>> > if sheets(23).name = "kid" then
>> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformation
>> >
>> > if sheets(17).name="kid" then
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinformation
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
>> > endif
>> > end sub
>> >
>> > Jika di eksekusi, maka akan muncul error di baris :
>> > if sheets(23).name = "kid" then
>> > karena tidak ada sheet ke-23 dalam tab sheet.
>> > ketika diminta untuk dicuekin, maka dieksekusilah baris :
>> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
>> > loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
>> > dalam msgbox (IF kok bernilai TRUE) ?
>> > Begitu juga ketika bertemu baris :
>> > if sheets(17).name="kid" then
>> >
>> > Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di
>> atas
>> > adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
>> > prosedur menjadi :
>> > public sub SekedarContohAntisipasi()
>> > * dim sNamaSheet as string
>> > * on error resume next
>> >
>> > *sNamaSheet *=sheets(23).name
>> > if *sNamaSheet * = "kid" then
>>
>> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformation
>> >
>> > *sNamaSheet *=sheets(17).name
>> > if *sNamaSheet *="kid" then
>>
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinformation
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
>> > endif
>> > end sub
>> >
>> > 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> > terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
>> > dihandling errornya (biar bisa cek errornya)
>> >>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>> >>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
>> > dengan On Error Goto sesuatu
>> >>> sesuatu bisa berisi nomor baris atau label tertentu.
>> >>> Contoh :
>> > public sub SekedarContohPengalihan()
>> > * dim sNamaSheet as string
>> > * on error resume next
>> >
>> > *sNamaSheet *=sheets(23).name
>> > if *sNamaSheet * = "kid" then
>>
>> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformation
>> > *on error goto 0*
>> > *sNamaSheet *=sheets(17).name
>> > if *sNamaSheet *="kid" then
>>
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinformation
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
>> > endif
>> > end sub
>> >
>> > pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
>> > error maka tetaplah pada baris error tersebut (Goto baris 0)
>> > dan hal ini akan memunculkan dialog debug.
>> >
>> > Contoh dengan label :
>> > public sub SekedarContohLabel()
>> > * dim sNamaSheet as string
>> > * on error resume next
>> >
>> > *sNamaSheet *=sheets(23).name
>> > if *sNamaSheet * = "kid" then
>>
>> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformation
>> > *on error goto PesanKu*
>> > *sNamaSheet *=sheets(17).name
>> > if *sNamaSheet *="kid" then
>>
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinformation
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
>> > endif
>> >
>> > *PesanKu:*
>>
>> > msgbox "Yah error di sheet ke-17 deh",vbexclamation
>> > end sub
>> >
>> > Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
>> > error, pergilah ke label bernama 'PesanKu'
>> > Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang
>> ada
>> > di dekat End Sub itu akan selalu dieksekusi.
>> > Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika
>> memang
>> > terjadi error dengan object bernama Err yang memiliki beberapa properti
>> > seperti Number.
>> > Contoh :
>> > public sub SekedarContohLabelErrorSaja()
>> > * dim sNamaSheet as string
>> > * on error resume next
>> >
>> > *sNamaSheet *=sheets(23).name
>> > if *sNamaSheet * = "kid" then
>>
>> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformation
>> > *on error goto PesanKu*
>> > *sNamaSheet *=sheets(17).name
>> > if *sNamaSheet *="kid" then
>>
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinformation
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
>> > endif
>> >
>> > *PesanKu:*
>>
>> > if err.number <> 0 then
>> > msgbox "Yah error di sheet ke-17 deh",vbexclamation
>> > endif
>> > end sub
>> >
>> > Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah
>> label
>> > PesanKu akan dieksekusi.
>> > Jika error pertama (akibat baris : *sNamaSheet *=sheets(23).name)
>> sedangkan
>> > pada baris *sNamaSheet *=sheets(17).name tidak error, maka msgbox tetap
>>
>> > dieksekusi karena status object err masih ada nilainya akibat error
>> pertama
>> > baris *sNamaSheet *=sheets(23).name
>> > Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
>> > *=sheets(23).name
>>
>> > harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
>> > dengan memanfaatkan methods clear milik object err.
>> > Contoh :
>> > public sub SekedarContohLabelErrorSaja()
>> > * dim sNamaSheet as string
>> > * on error resume next
>> >
>> > *sNamaSheet *=sheets(23).name
>> > if *sNamaSheet * = "kid" then
>>
>> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformation
>> > *Err.Clear*
>> > *on error goto PesanKu*
>> > *sNamaSheet *=sheets(17).name
>> > if *sNamaSheet *="kid" then
>>
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinformation
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
>> > endif
>> >
>> > *PesanKu:*
>>
>> > if err.number <> 0 then
>> > msgbox "Yah error di sheet ke-17 deh",vbexclamation
>> > endif
>> > end sub
>> >
>> >
>> > Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err
>> yang
>> > memiliki banyak properti seperti Number, Description, dsb, yang juga
>> > memiliki methods Clear untuk menghapus error yang pernah terjadi.
>> >
>> > gitu kali ya.
>> >
>> > Wassalamu'alaikum Wr. Wb.,
>> > Kid.
>> >
>> >
>> > 2013/3/14 Heru Safrudin <superheruu@gmail.com >
>> >
>> >> Dear Master,
>> >>
>> >> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> >> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> >> error pertama.
>> >>
>> >> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> >> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> >> untuk dihandling errornya (biar bisa cek errornya)
>> >> --
>> >> 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
>>
>>
>
>
Yup begitulah.
Untuk antisipasi kondisi :
1. 'script yang error 1 -> menghasilkan error
2. 'script error 2 -> tidak menghasilkan error
maka sebelum baris on error goto Pesanku diberi proses menghapus error yang
terjadi sebelumnya (tentu akibat nomor 1 saja, karena kalau nomor 2 juga
error pasti telah terhenti dan tidak akan sampai on error goto pesanku)
menjadi :
*err.clear
on error goto Pesanku*
Wassalam,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.
> **
>
>
> **
> Misalkan saya balik begini
>
> On error resume next
> 'script yang error 1
>
> on error goto 0
> 'script error 2
> on error goto Pesanku
> 'script yang error 3
> *Jika script error 2 bisa memunculkan dialog debug artinya itu seperti
> yang saya harapkan
> dan solusinya adalah "*on error goto 0*"*
> **
> kemudian script yang error 3 masih tetap dihandling ke label *Pesanku,
> dan ini menakjubkan :D*
> *Jika itu benar berarti udah the problem has been solved*
> **
> Thanks Mr.Kid ...
> **
>
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Thursday, March 14, 2013 9:53 AM
> *Subject:* Re: [belajar-excel] Tentang Error Handling
>
>
>
> Yup.
>
> demikianlah kira-kiranya
> Konsep dasarnya adalah mengalihkan proses ketika bertemu error (On Error)
> jadi karena ada baris On Error setelah On Error Resume Next, jika baris On
> Error baru itu tereksekusi, maka On Error Resume Next tidak berlaku lagi
> karena pengalihan error dirujuk ke suatu tempat lain oleh On Error yang
> baru.
>
> Contoh :
> On error resume next
> 'script yang error 1
>
> on error goto Pesanku
> 'script yang error 2
>
> on error goto 0
> 'script error 3
>
> PesanKu:
> msgbox "yup"
> err.clear
> on error goto 0
>
> Pada script di atas, baris On error goto 0 sebelum script error 3 tidak
> akan pernah dieksekusi jika ada error pada script yang error 2 karena akan
> lompat ke Pesanku.
> Pada bagian pesanku, ada pernyataan pengalihan On Error Goto 0
> Jika prosedur berakhir (End Sub) maka semua error tidak akan dialihkan
> ketempat lain melainkan ke baris yang error tersebut.
>
> Wassalam,
> Kid.
>
> 2013/3/14 Heru Safrudin <superheruu@gmail.
>
>> **
>>
>>
>> Apakah Artinya begini :
>> Jika diatas udah dipasang On Error resume next (proses pencuekan)
>> kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
>> berarti PENCUEKAN telah diakhiri ??
>>
>> Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.
>>
>> > Wa'alaikumussal
>> >
>> > Hai Heru,
>> >
>> > 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
>> > kode yang terdapat error, atau cuma satu baris yang kedapatan error
>> > pertama.
>> >>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
>> > 'kalau ketemu error, cuekin aje bro'
>> >>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya.
>> Jika
>> > nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
>> > berikutnya.
>> >>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
>> > setelah bertemu baris error itu pantas dieksekusi atau tidak.*
>>
>> > Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
>> > hanya berisi 3 sheet saja)
>> > public sub SekedarContoh(
>> > on error resume next
>> >
>> > if sheets(23).name = "kid" then
>> > msgbox "sheets bernama kid adalah sheet-ku"
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclama
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformat
>> >
>> > if sheets(17).name=
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinforma
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
>> > endif
>> > end sub
>> >
>> > Jika di eksekusi, maka akan muncul error di baris :
>> > if sheets(23).name = "kid" then
>> > karena tidak ada sheet ke-23 dalam tab sheet.
>> > ketika diminta untuk dicuekin, maka dieksekusilah baris :
>> > msgbox "sheets bernama kid adalah sheet-ku"
>> > loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
>> > dalam msgbox (IF kok bernilai TRUE) ?
>> > Begitu juga ketika bertemu baris :
>> > if sheets(17).name=
>> >
>> > Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di
>> atas
>> > adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
>> > prosedur menjadi :
>> > public sub SekedarContohAntisi
>> > * dim sNamaSheet as string
>> > * on error resume next
>> >
>> > *sNamaSheet *=sheets(23)
>> > if *sNamaSheet * = "kid" then
>>
>> > msgbox "sheets bernama kid adalah sheet-ku"
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclama
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformat
>> >
>> > *sNamaSheet *=sheets(17)
>> > if *sNamaSheet *="kid" then
>>
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinforma
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
>> > endif
>> > end sub
>> >
>> > 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> > terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
>> > dihandling errornya (biar bisa cek errornya)
>> >>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>> >>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
>> > dengan On Error Goto sesuatu
>> >>> sesuatu bisa berisi nomor baris atau label tertentu.
>> >>> Contoh :
>> > public sub SekedarContohPengal
>> > * dim sNamaSheet as string
>> > * on error resume next
>> >
>> > *sNamaSheet *=sheets(23)
>> > if *sNamaSheet * = "kid" then
>>
>> > msgbox "sheets bernama kid adalah sheet-ku"
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclama
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformat
>> > *on error goto 0*
>> > *sNamaSheet *=sheets(17)
>> > if *sNamaSheet *="kid" then
>>
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinforma
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
>> > endif
>> > end sub
>> >
>> > pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
>> > error maka tetaplah pada baris error tersebut (Goto baris 0)
>> > dan hal ini akan memunculkan dialog debug.
>> >
>> > Contoh dengan label :
>> > public sub SekedarContohLabel(
>> > * dim sNamaSheet as string
>> > * on error resume next
>> >
>> > *sNamaSheet *=sheets(23)
>> > if *sNamaSheet * = "kid" then
>>
>> > msgbox "sheets bernama kid adalah sheet-ku"
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclama
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformat
>> > *on error goto PesanKu*
>> > *sNamaSheet *=sheets(17)
>> > if *sNamaSheet *="kid" then
>>
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinforma
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
>> > endif
>> >
>> > *PesanKu:*
>>
>> > msgbox "Yah error di sheet ke-17 deh",vbexclama
>> > end sub
>> >
>> > Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
>> > error, pergilah ke label bernama 'PesanKu&#
>> > Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang
>> ada
>> > di dekat End Sub itu akan selalu dieksekusi.
>> > Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika
>> memang
>> > terjadi error dengan object bernama Err yang memiliki beberapa properti
>> > seperti Number.
>> > Contoh :
>> > public sub SekedarContohLabelE
>> > * dim sNamaSheet as string
>> > * on error resume next
>> >
>> > *sNamaSheet *=sheets(23)
>> > if *sNamaSheet * = "kid" then
>>
>> > msgbox "sheets bernama kid adalah sheet-ku"
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclama
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformat
>> > *on error goto PesanKu*
>> > *sNamaSheet *=sheets(17)
>> > if *sNamaSheet *="kid" then
>>
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinforma
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
>> > endif
>> >
>> > *PesanKu:*
>>
>> > if err.number <> 0 then
>> > msgbox "Yah error di sheet ke-17 deh",vbexclama
>> > endif
>> > end sub
>> >
>> > Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah
>> label
>> > PesanKu akan dieksekusi.
>> > Jika error pertama (akibat baris : *sNamaSheet *=sheets(23)
>> sedangkan
>> > pada baris *sNamaSheet *=sheets(17)
>>
>> > dieksekusi karena status object err masih ada nilainya akibat error
>> pertama
>> > baris *sNamaSheet *=sheets(23)
>> > Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
>> > *=sheets(23)
>>
>> > harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
>> > dengan memanfaatkan methods clear milik object err.
>> > Contoh :
>> > public sub SekedarContohLabelE
>> > * dim sNamaSheet as string
>> > * on error resume next
>> >
>> > *sNamaSheet *=sheets(23)
>> > if *sNamaSheet * = "kid" then
>>
>> > msgbox "sheets bernama kid adalah sheet-ku"
>> > else
>> > msgbox "ternyata bukan sheet bernama kid",vbexclama
>> > endif
>> >
>> > msgbox "coba sheet lain ah",vbinformat
>> > *Err.Clear*
>> > *on error goto PesanKu*
>> > *sNamaSheet *=sheets(17)
>> > if *sNamaSheet *="kid" then
>>
>> > msgbox "yang ini adalah sheet-ku, karena bernama
>> > kid",vbinforma
>> > else
>> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
>> > endif
>> >
>> > *PesanKu:*
>>
>> > if err.number <> 0 then
>> > msgbox "Yah error di sheet ke-17 deh",vbexclama
>> > endif
>> > end sub
>> >
>> >
>> > Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err
>> yang
>> > memiliki banyak properti seperti Number, Description, dsb, yang juga
>> > memiliki methods Clear untuk menghapus error yang pernah terjadi.
>> >
>> > gitu kali ya.
>> >
>> > Wassalamu'
>> > Kid.
>> >
>> >
>> > 2013/3/14 Heru Safrudin <superheruu@gmail.
>> >
>> >> Dear Master,
>> >>
>> >> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> >> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> >> error pertama.
>> >>
>> >> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> >> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> >> untuk dihandling errornya (biar bisa cek errornya)
>> >> --
>> >> Terima kasih
>> >>
>> >> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> >> Heru Safrudin
>> >>
>> >>
>> >> ------------
>> >>
>> >> ------------
>> >> bergabung ke milis (subscribe), kirim mail kosong ke:
>> >> belajar-excel-
>> >>
>> >> posting ke milis, kirimkan ke:
>> >> belajar-excel@
>> >>
>> >> berkunjung ke web milis
>> >> http://tech.
>> >>
>> >> melihat file archive / mendownload lampiran
>> >> http://www.mail-
>> >> atau (sejak 25-Apr-2011) bisa juga di :
>> >> http://milis-
>> >>
>> >> menghubungi moderators & owners: belajar-excel-
>> >>
>> >> keluar dari membership milis (UnSubscribe)
>> >> kirim mail kosong ke belajar-excel-
>> >> ------------
>> >> Groups Links
>>
>> >>
>> >>
>> >>
>> >>
>> >
>>
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>
>
Wed Mar 13, 2013 8:21 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Ok sip, masalah udah dipecahkan and siap bertempur lagi....
Thank so muuuuach.......
----- Original Message -----
From: Jan Raisin
To: belajar-excel@yahoogroups.com
Sent: Thursday, March 14, 2013 10:05 AM
Subject: Re: [belajar-excel] Tentang Error Handling
pak Heru..
mungkin sederhananya begini:
Jika ketemu error dan si error akan dicuekin, gunakan saja On Error Resume Next. hasilnya tiap ketemu error gak akan diapa apain.. dianggap bener saja
Jika ketemu error tapi errornya gak dicuekin tapi disapa.. gunakan saja On Error Goto someting
yang dikasih warna merah itu adalah label, bisa diganti dengan kata yang lain, yang akan akan digunakan untuk menentukan apakah baris di bawah error akan terus dieksekusi atau.. keluar dari prosedur dan pindah ke prosedur yang lain.
Jika ketemu error dan errornya ingin dicuekin, lalu error numbernya diset ulang ke nilai defaultnya (sebelum ketemu error).. gunakan saja On Error Goto 0
jadi penggunaannya adalah salah satu dari:
On Error Resume Next atau
On Error Goto 0 atau
On Error Goto TerserahMauKeMana
kira-kira begitu pak.
Penjelasan mr Kid sebelumnya sudah sangat jelas, Jan perlu banyak belajar agar dapat menjelaskan secara detail seperti itu. ^_^
Wassalam,
-Miss Jan Raisin-
Pada 14 Maret 2013 09.46, Heru Safrudin <superheruu@gmail.com > menulis:
Apakah Artinya begini :
Jika diatas udah dipasang On Error resume next (proses pencuekan)
kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
berarti PENCUEKAN telah diakhiri ??
Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
> Wa'alaikumussalam Wr. Wb.
>
> Hai Heru,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> kode yang terdapat error, atau cuma satu baris yang kedapatan error
> pertama.
>>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> 'kalau ketemu error, cuekin aje bro'
>>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya. Jika
> nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> berikutnya.
>>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> setelah bertemu baris error itu pantas dieksekusi atau tidak.*
> Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> hanya berisi 3 sheet saja)
> public sub SekedarContoh()
> on error resume next
>
> if sheets(23).name = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
>
> if sheets(17).name="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> Jika di eksekusi, maka akan muncul error di baris :
> if sheets(23).name = "kid" then
> karena tidak ada sheet ke-23 dalam tab sheet.
> ketika diminta untuk dicuekin, maka dieksekusilah baris :
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> dalam msgbox (IF kok bernilai TRUE) ?
> Begitu juga ketika bertemu baris :
> if sheets(17).name="kid" then
>
> Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> prosedur menjadi :
> public sub SekedarContohAntisipasi()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
>
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> dihandling errornya (biar bisa cek errornya)
>>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> dengan On Error Goto sesuatu
>>> sesuatu bisa berisi nomor baris atau label tertentu.
>>> Contoh :
> public sub SekedarContohPengalihan()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto 0*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> error maka tetaplah pada baris error tersebut (Goto baris 0)
> dan hal ini akan memunculkan dialog debug.
>
> Contoh dengan label :
> public sub SekedarContohLabel()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> end sub
>
> Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> error, pergilah ke label bernama 'PesanKu'
> Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> di dekat End Sub itu akan selalu dieksekusi.
> Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika memang
> terjadi error dengan object bernama Err yang memiliki beberapa properti
> seperti Number.
> Contoh :
> public sub SekedarContohLabelErrorSaja()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> endif
> end sub
>
> Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> PesanKu akan dieksekusi.
> Jika error pertama (akibat baris : *sNamaSheet *=sheets(23).name) sedangkan
> pada baris *sNamaSheet *=sheets(17).name tidak error, maka msgbox tetap
> dieksekusi karena status object err masih ada nilainya akibat error pertama
> baris *sNamaSheet *=sheets(23).name
> Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> *=sheets(23).name
> harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> dengan memanfaatkan methods clear milik object err.
> Contoh :
> public sub SekedarContohLabelErrorSaja()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *Err.Clear*
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> endif
> end sub
>
>
> Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err yang
> memiliki banyak properti seperti Number, Description, dsb, yang juga
> memiliki methods Clear untuk menghapus error yang pernah terjadi.
>
> gitu kali ya.
>
> Wassalamu'alaikum Wr. Wb.,
> Kid.
>
>
> 2013/3/14 Heru Safrudin <superheruu@gmail.com >
>
>> Dear Master,
>>
>> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> error pertama.
>>
>> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> untuk dihandling errornya (biar bisa cek errornya)
>> --
>> 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
Thank so muuuuach....
----- Original Message -----
From: Jan Raisin
To: belajar-excel@
Sent: Thursday, March 14, 2013 10:05 AM
Subject: Re: [belajar-excel] Tentang Error Handling
pak Heru..
mungkin sederhananya begini:
Jika ketemu error dan si error akan dicuekin, gunakan saja On Error Resume Next. hasilnya tiap ketemu error gak akan diapa apain.. dianggap bener saja
Jika ketemu error tapi errornya gak dicuekin tapi disapa.. gunakan saja On Error Goto someting
yang dikasih warna merah itu adalah label, bisa diganti dengan kata yang lain, yang akan akan digunakan untuk menentukan apakah baris di bawah error akan terus dieksekusi atau.. keluar dari prosedur dan pindah ke prosedur yang lain.
Jika ketemu error dan errornya ingin dicuekin, lalu error numbernya diset ulang ke nilai defaultnya (sebelum ketemu error).. gunakan saja On Error Goto 0
jadi penggunaannya adalah salah satu dari:
On Error Resume Next atau
On Error Goto 0 atau
On Error Goto TerserahMauKeMana
kira-kira begitu pak.
Penjelasan mr Kid sebelumnya sudah sangat jelas, Jan perlu banyak belajar agar dapat menjelaskan secara detail seperti itu. ^_^
Wassalam,
-Miss Jan Raisin-
Pada 14 Maret 2013 09.46, Heru Safrudin <superheruu@gmail.
Apakah Artinya begini :
Jika diatas udah dipasang On Error resume next (proses pencuekan)
kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
berarti PENCUEKAN telah diakhiri ??
Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.
> Wa'alaikumussal
>
> Hai Heru,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> kode yang terdapat error, atau cuma satu baris yang kedapatan error
> pertama.
>>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> 'kalau ketemu error, cuekin aje bro'
>>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya. Jika
> nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> berikutnya.
>>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> setelah bertemu baris error itu pantas dieksekusi atau tidak.*
> Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> hanya berisi 3 sheet saja)
> public sub SekedarContoh(
> on error resume next
>
> if sheets(23).name = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
>
> if sheets(17).name=
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> Jika di eksekusi, maka akan muncul error di baris :
> if sheets(23).name = "kid" then
> karena tidak ada sheet ke-23 dalam tab sheet.
> ketika diminta untuk dicuekin, maka dieksekusilah baris :
> msgbox "sheets bernama kid adalah sheet-ku"
> loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> dalam msgbox (IF kok bernilai TRUE) ?
> Begitu juga ketika bertemu baris :
> if sheets(17).name=
>
> Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> prosedur menjadi :
> public sub SekedarContohAntisi
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
>
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> dihandling errornya (biar bisa cek errornya)
>>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> dengan On Error Goto sesuatu
>>> sesuatu bisa berisi nomor baris atau label tertentu.
>>> Contoh :
> public sub SekedarContohPengal
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto 0*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> error maka tetaplah pada baris error tersebut (Goto baris 0)
> dan hal ini akan memunculkan dialog debug.
>
> Contoh dengan label :
> public sub SekedarContohLabel(
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> end sub
>
> Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> error, pergilah ke label bernama 'PesanKu&#
> Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> di dekat End Sub itu akan selalu dieksekusi.
> Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika memang
> terjadi error dengan object bernama Err yang memiliki beberapa properti
> seperti Number.
> Contoh :
> public sub SekedarContohLabelE
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> endif
> end sub
>
> Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> PesanKu akan dieksekusi.
> Jika error pertama (akibat baris : *sNamaSheet *=sheets(23)
> pada baris *sNamaSheet *=sheets(17)
> dieksekusi karena status object err masih ada nilainya akibat error pertama
> baris *sNamaSheet *=sheets(23)
> Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> *=sheets(23)
> harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> dengan memanfaatkan methods clear milik object err.
> Contoh :
> public sub SekedarContohLabelE
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *Err.Clear*
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> endif
> end sub
>
>
> Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err yang
> memiliki banyak properti seperti Number, Description, dsb, yang juga
> memiliki methods Clear untuk menghapus error yang pernah terjadi.
>
> gitu kali ya.
>
> Wassalamu'
> Kid.
>
>
> 2013/3/14 Heru Safrudin <superheruu@gmail.
>
>> Dear Master,
>>
>> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> error pertama.
>>
>> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> untuk dihandling errornya (biar bisa cek errornya)
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>> ------------
>>
>> ------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@
>>
>> berkunjung ke web milis
>> http://tech.
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-
>>
>> menghubungi moderators & owners: belajar-excel-
>>
>> keluar dari membership milis (UnSubscribe)
>> kirim mail kosong ke belajar-excel-
>> ------------
>> Groups Links
>>
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
Wed Mar 13, 2013 9:11 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Waw begitu ya...... excelent ...Thanks lagi.....
----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Thursday, March 14, 2013 10:18 AM
Subject: Re: [belajar-excel] Tentang Error Handling
Alhamdulillah.
Yup begitulah.
Untuk antisipasi kondisi :
1. 'script yang error 1 -> menghasilkan error
2. 'script error 2 -> tidak menghasilkan error
maka sebelum baris on error goto Pesanku diberi proses menghapus error yang terjadi sebelumnya (tentu akibat nomor 1 saja, karena kalau nomor 2 juga error pasti telah terhenti dan tidak akan sampai on error goto pesanku) menjadi :
err.clear
on error goto Pesanku
Wassalam,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.com >
Misalkan saya balik begini
On error resume next
'script yang error 1
on error goto 0
'script error 2
on error goto Pesanku
'script yang error 3
Jika script error 2 bisa memunculkan dialog debug artinya itu seperti yang saya harapkan
dan solusinya adalah "on error goto 0"
kemudian script yang error 3 masih tetap dihandling ke label Pesanku, dan ini menakjubkan :D
Jika itu benar berarti udah the problem has been solved
Thanks Mr.Kid ...
----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Thursday, March 14, 2013 9:53 AM
Subject: Re: [belajar-excel] Tentang Error Handling
Yup.
demikianlah kira-kiranya
Konsep dasarnya adalah mengalihkan proses ketika bertemu error (On Error)
jadi karena ada baris On Error setelah On Error Resume Next, jika baris On Error baru itu tereksekusi, maka On Error Resume Next tidak berlaku lagi karena pengalihan error dirujuk ke suatu tempat lain oleh On Error yang baru.
Contoh :
On error resume next
'script yang error 1
on error goto Pesanku
'script yang error 2
on error goto 0
'script error 3
PesanKu:
msgbox "yup"
err.clear
on error goto 0
Pada script di atas, baris On error goto 0 sebelum script error 3 tidak akan pernah dieksekusi jika ada error pada script yang error 2 karena akan lompat ke Pesanku.
Pada bagian pesanku, ada pernyataan pengalihan On Error Goto 0
Jika prosedur berakhir (End Sub) maka semua error tidak akan dialihkan ketempat lain melainkan ke baris yang error tersebut.
Wassalam,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.com >
Apakah Artinya begini :
Jika diatas udah dipasang On Error resume next (proses pencuekan)
kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
berarti PENCUEKAN telah diakhiri ??
Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
> Wa'alaikumussalam Wr. Wb.
>
> Hai Heru,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> kode yang terdapat error, atau cuma satu baris yang kedapatan error
> pertama.
>>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> 'kalau ketemu error, cuekin aje bro'
>>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya. Jika
> nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> berikutnya.
>>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> setelah bertemu baris error itu pantas dieksekusi atau tidak.*
> Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> hanya berisi 3 sheet saja)
> public sub SekedarContoh()
> on error resume next
>
> if sheets(23).name = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
>
> if sheets(17).name="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> Jika di eksekusi, maka akan muncul error di baris :
> if sheets(23).name = "kid" then
> karena tidak ada sheet ke-23 dalam tab sheet.
> ketika diminta untuk dicuekin, maka dieksekusilah baris :
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> dalam msgbox (IF kok bernilai TRUE) ?
> Begitu juga ketika bertemu baris :
> if sheets(17).name="kid" then
>
> Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> prosedur menjadi :
> public sub SekedarContohAntisipasi()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
>
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> dihandling errornya (biar bisa cek errornya)
>>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> dengan On Error Goto sesuatu
>>> sesuatu bisa berisi nomor baris atau label tertentu.
>>> Contoh :
> public sub SekedarContohPengalihan()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto 0*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> error maka tetaplah pada baris error tersebut (Goto baris 0)
> dan hal ini akan memunculkan dialog debug.
>
> Contoh dengan label :
> public sub SekedarContohLabel()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> end sub
>
> Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> error, pergilah ke label bernama 'PesanKu'
> Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> di dekat End Sub itu akan selalu dieksekusi.
> Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika memang
> terjadi error dengan object bernama Err yang memiliki beberapa properti
> seperti Number.
> Contoh :
> public sub SekedarContohLabelErrorSaja()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> endif
> end sub
>
> Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> PesanKu akan dieksekusi.
> Jika error pertama (akibat baris : *sNamaSheet *=sheets(23).name) sedangkan
> pada baris *sNamaSheet *=sheets(17).name tidak error, maka msgbox tetap
> dieksekusi karena status object err masih ada nilainya akibat error pertama
> baris *sNamaSheet *=sheets(23).name
> Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> *=sheets(23).name
> harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> dengan memanfaatkan methods clear milik object err.
> Contoh :
> public sub SekedarContohLabelErrorSaja()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *Err.Clear*
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> endif
> end sub
>
>
> Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err yang
> memiliki banyak properti seperti Number, Description, dsb, yang juga
> memiliki methods Clear untuk menghapus error yang pernah terjadi.
>
> gitu kali ya.
>
> Wassalamu'alaikum Wr. Wb.,
> Kid.
>
>
> 2013/3/14 Heru Safrudin <superheruu@gmail.com >
>
>> Dear Master,
>>
>> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> error pertama.
>>
>> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> untuk dihandling errornya (biar bisa cek errornya)
>> --
>> 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
----- Original Message -----
From: Mr. Kid
To: belajar-excel@
Sent: Thursday, March 14, 2013 10:18 AM
Subject: Re: [belajar-excel] Tentang Error Handling
Alhamdulillah.
Yup begitulah.
Untuk antisipasi kondisi :
1. 'script yang error 1 -> menghasilkan error
2. 'script error 2 -> tidak menghasilkan error
maka sebelum baris on error goto Pesanku diberi proses menghapus error yang terjadi sebelumnya (tentu akibat nomor 1 saja, karena kalau nomor 2 juga error pasti telah terhenti dan tidak akan sampai on error goto pesanku) menjadi :
err.clear
on error goto Pesanku
Wassalam,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.
Misalkan saya balik begini
On error resume next
'script yang error 1
on error goto 0
'script error 2
on error goto Pesanku
'script yang error 3
Jika script error 2 bisa memunculkan dialog debug artinya itu seperti yang saya harapkan
dan solusinya adalah "on error goto 0"
kemudian script yang error 3 masih tetap dihandling ke label Pesanku, dan ini menakjubkan :D
Jika itu benar berarti udah the problem has been solved
Thanks Mr.Kid ...
----- Original Message -----
From: Mr. Kid
To: belajar-excel@
Sent: Thursday, March 14, 2013 9:53 AM
Subject: Re: [belajar-excel] Tentang Error Handling
Yup.
demikianlah kira-kiranya
Konsep dasarnya adalah mengalihkan proses ketika bertemu error (On Error)
jadi karena ada baris On Error setelah On Error Resume Next, jika baris On Error baru itu tereksekusi, maka On Error Resume Next tidak berlaku lagi karena pengalihan error dirujuk ke suatu tempat lain oleh On Error yang baru.
Contoh :
On error resume next
'script yang error 1
on error goto Pesanku
'script yang error 2
on error goto 0
'script error 3
PesanKu:
msgbox "yup"
err.clear
on error goto 0
Pada script di atas, baris On error goto 0 sebelum script error 3 tidak akan pernah dieksekusi jika ada error pada script yang error 2 karena akan lompat ke Pesanku.
Pada bagian pesanku, ada pernyataan pengalihan On Error Goto 0
Jika prosedur berakhir (End Sub) maka semua error tidak akan dialihkan ketempat lain melainkan ke baris yang error tersebut.
Wassalam,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.
Apakah Artinya begini :
Jika diatas udah dipasang On Error resume next (proses pencuekan)
kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
berarti PENCUEKAN telah diakhiri ??
Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.
> Wa'alaikumussal
>
> Hai Heru,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> kode yang terdapat error, atau cuma satu baris yang kedapatan error
> pertama.
>>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> 'kalau ketemu error, cuekin aje bro'
>>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya. Jika
> nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> berikutnya.
>>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> setelah bertemu baris error itu pantas dieksekusi atau tidak.*
> Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> hanya berisi 3 sheet saja)
> public sub SekedarContoh(
> on error resume next
>
> if sheets(23).name = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
>
> if sheets(17).name=
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> Jika di eksekusi, maka akan muncul error di baris :
> if sheets(23).name = "kid" then
> karena tidak ada sheet ke-23 dalam tab sheet.
> ketika diminta untuk dicuekin, maka dieksekusilah baris :
> msgbox "sheets bernama kid adalah sheet-ku"
> loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> dalam msgbox (IF kok bernilai TRUE) ?
> Begitu juga ketika bertemu baris :
> if sheets(17).name=
>
> Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> prosedur menjadi :
> public sub SekedarContohAntisi
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
>
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> dihandling errornya (biar bisa cek errornya)
>>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> dengan On Error Goto sesuatu
>>> sesuatu bisa berisi nomor baris atau label tertentu.
>>> Contoh :
> public sub SekedarContohPengal
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto 0*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> error maka tetaplah pada baris error tersebut (Goto baris 0)
> dan hal ini akan memunculkan dialog debug.
>
> Contoh dengan label :
> public sub SekedarContohLabel(
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> end sub
>
> Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> error, pergilah ke label bernama 'PesanKu&#
> Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> di dekat End Sub itu akan selalu dieksekusi.
> Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika memang
> terjadi error dengan object bernama Err yang memiliki beberapa properti
> seperti Number.
> Contoh :
> public sub SekedarContohLabelE
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> endif
> end sub
>
> Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> PesanKu akan dieksekusi.
> Jika error pertama (akibat baris : *sNamaSheet *=sheets(23)
> pada baris *sNamaSheet *=sheets(17)
> dieksekusi karena status object err masih ada nilainya akibat error pertama
> baris *sNamaSheet *=sheets(23)
> Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> *=sheets(23)
> harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> dengan memanfaatkan methods clear milik object err.
> Contoh :
> public sub SekedarContohLabelE
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *Err.Clear*
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> endif
> end sub
>
>
> Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err yang
> memiliki banyak properti seperti Number, Description, dsb, yang juga
> memiliki methods Clear untuk menghapus error yang pernah terjadi.
>
> gitu kali ya.
>
> Wassalamu'
> Kid.
>
>
> 2013/3/14 Heru Safrudin <superheruu@gmail.
>
>> Dear Master,
>>
>> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> error pertama.
>>
>> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> untuk dihandling errornya (biar bisa cek errornya)
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>> ------------
>>
>> ------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@
>>
>> berkunjung ke web milis
>> http://tech.
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-
>>
>> menghubungi moderators & owners: belajar-excel-
>>
>> keluar dari membership milis (UnSubscribe)
>> kirim mail kosong ke belajar-excel-
>> ------------
>> Groups Links
>>
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
Wed Mar 13, 2013 8:28 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Mr. pakai baju Merah yaa.......!!! :D
----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Wednesday, March 13, 2013 3:11 PM
Subject: Re: [belajar-excel] Kopi darat
Bagaimana kalau BeExceller yang punya ide sebagai ketua panitianya ?
Silakan dibentuk anggota panitianya, kemudian diatur lokasi dan waktunya (bisa lewat polling ke seluruh BeExceller).
Disusun agenda acaranya, dsb.
;)
Wassalam,
Kid.
2013/3/13 Jan Raisin <miss.jan.raisin@gmail.com >
tambah 1 suara lagi yang setuju acara kopdar BeExcel..
usul nama acaranya MARIORI singkatan dari MAkanan RIngan Obrolan RIngan jadi gak perlu bahas kasus Excel.. cukup bahas di millis saja :))
biar akrab gitu ^_^
-Miss Jan Raisin-
Pada 13 Maret 2013 11.32, hendrik karnadi <hendrikkarnadi@yahoo.com > menulis:
Saya secara pribadi setuju aja asalkan waktunya di luar jam kerja, mis. Sabtu atau Minggu, dan yang terpenting:
- Ada yang mau menjadi EO nya (seksi repot gitu)
- Ada yang mau sponsor tempat (makanan sih bisa bawa ransum sendiri).
Usulan acaranya : Ramah tamah atau plus plus..... (seminar + pengumpulan dana sosial, dll), tergantung kepada EO dan sponsornya
Salam,
HK
----------------------------------------------------------
From: Heru Safrudin <superheruu@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 13 March 2013, 11:12
Subject: Re: [belajar-excel] Kopi darat
Pooling di FB aja, kita lihat seberapa peminatnya ?
Saya mau LIKE yang pertama
Pada tanggal 13/03/13, dwint ruswanto <dwint.ruswanto@gmail.com > menulis:
> setuju, saya juga ingin berkenalan dengan para master di sini, seperti mr
> Kid, pak Hendrik, pak Anton, dan mas Ghozi, dan mbak Jan Raisin.
> hehehe :D
>
> Wassalam,
>
> -dwint-
>
> Pada 13 Maret 2013 10.04, Indra Sanjaya <indradjaja80an@yahoo.com > menulis:
>
>> **
>>
>>
>> Dear Moderator,
>>
>> Sejak bergabung November 2011 sudah banyak forum ini membantu saya dlm
>> memecahkan masalah Ms excel yg Sy hadapi. Dan untuk lebih melengkapi
>> kebersamaan ini, bagaimana kalo diadakan kopi darat?
>>
>> Mohon tanggapannya moderator.
>>
>>
>> Salam,
>> Djaja.
>>
>>
>>
>
--
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
----- Original Message -----
From: Mr. Kid
To: belajar-excel@
Sent: Wednesday, March 13, 2013 3:11 PM
Subject: Re: [belajar-excel] Kopi darat
Bagaimana kalau BeExceller yang punya ide sebagai ketua panitianya ?
Silakan dibentuk anggota panitianya, kemudian diatur lokasi dan waktunya (bisa lewat polling ke seluruh BeExceller).
Disusun agenda acaranya, dsb.
;)
Wassalam,
Kid.
2013/3/13 Jan Raisin <miss.jan.raisin@
tambah 1 suara lagi yang setuju acara kopdar BeExcel..
usul nama acaranya MARIORI singkatan dari MAkanan RIngan Obrolan RIngan jadi gak perlu bahas kasus Excel.. cukup bahas di millis saja :))
biar akrab gitu ^_^
-Miss Jan Raisin-
Pada 13 Maret 2013 11.32, hendrik karnadi <hendrikkarnadi@
Saya secara pribadi setuju aja asalkan waktunya di luar jam kerja, mis. Sabtu atau Minggu, dan yang terpenting:
- Ada yang mau menjadi EO nya (seksi repot gitu)
- Ada yang mau sponsor tempat (makanan sih bisa bawa ransum sendiri).
Usulan acaranya : Ramah tamah atau plus plus..... (seminar + pengumpulan dana sosial, dll), tergantung kepada EO dan sponsornya
Salam,
HK
------------
From: Heru Safrudin <superheruu@gmail.
To: belajar-excel@
Sent: Wednesday, 13 March 2013, 11:12
Subject: Re: [belajar-excel] Kopi darat
Pooling di FB aja, kita lihat seberapa peminatnya ?
Saya mau LIKE yang pertama
Pada tanggal 13/03/13, dwint ruswanto <dwint.ruswanto@
> setuju, saya juga ingin berkenalan dengan para master di sini, seperti mr
> Kid, pak Hendrik, pak Anton, dan mas Ghozi, dan mbak Jan Raisin.
> hehehe :D
>
> Wassalam,
>
> -dwint-
>
> Pada 13 Maret 2013 10.04, Indra Sanjaya <indradjaja80an@
>
>> **
>>
>>
>> Dear Moderator,
>>
>> Sejak bergabung November 2011 sudah banyak forum ini membantu saya dlm
>> memecahkan masalah Ms excel yg Sy hadapi. Dan untuk lebih melengkapi
>> kebersamaan ini, bagaimana kalo diadakan kopi darat?
>>
>> Mohon tanggapannya moderator.
>>
>>
>> Salam,
>> Djaja.
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
------------
------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-
posting ke milis, kirimkan ke:
belajar-excel@
berkunjung ke web milis
http://tech.
melihat file archive / mendownload lampiran
http://www.mail-
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-
menghubungi moderators & owners: belajar-excel-
keluar dari membership milis (UnSubscribe)
kirim mail kosong ke belajar-excel-
------------
Wed Mar 13, 2013 8:31 pm (PDT) . Posted by:
"Toni Kus indratno" tonny.kuzh@ymail.com
Bikin Seragam aja.....
--------------------------------------
Toni Kus Indratno
tonikus.staff.uad.ac.id
----------------------------------------------------------
________________________________
Dari: Heru Safrudin <superheruu@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 14 Maret 2013 10:27
Judul: Re: [belajar-excel] Kopi darat
Mr. pakai baju Merah yaa.......!!! :D
----- Original Message -----
>From: Mr. Kid
>To: belajar-excel@yahoogroups.com
>Sent: Wednesday, March 13, 2013 3:11 PM
>Subject: Re: [belajar-excel] Kopi darat
>
>
>Bagaimana kalau BeExceller yang punya ide sebagai ketua panitianya ?
>Silakan dibentuk anggota panitianya, kemudian diatur lokasi dan waktunya
(bisa lewat polling ke seluruh BeExceller).
>Disusun agenda acaranya,
dsb.
>
>;)
>
>Wassalam,
>Kid.
>
>
>2013/3/13 Jan Raisin <miss.jan.raisin@gmail.com >
>
>
>>
>>tambah 1 suara lagi yang setuju acara kopdar BeExcel..
>>
>>
>>usul nama acaranya MARIORI singkatan dari MAkanan RIngan Obrolan RIngan jadi gak perlu bahas kasus Excel.. cukup bahas di millis saja :))
>>biar akrab gitu ^_^
>>
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>Pada 13 Maret 2013 11.32, hendrik karnadi <hendrikkarnadi@yahoo.com > menulis:
>>
>>
>>
>>>
>>>Saya secara pribadi setuju aja asalkan waktunya di luar jam kerja, mis. Sabtu atau Minggu, dan yang terpenting:
>>>- Ada yang mau menjadi EO nya (seksi repot gitu)
>>>- Ada yang mau sponsor tempat (makanan sih bisa bawa ransum sendiri).
>>>
>>>
>>>Usulan acaranya : Ramah tamah atau plus plus..... (seminar + pengumpulan dana sosial, dll), tergantung kepada EO dan sponsornya
>>>
>>>
>>>Salam,
>>>HK
>>>
>>>
>>>
>>>________________________________
>>> From: Heru Safrudin <superheruu@gmail.com >
>>>To: belajar-excel@yahoogroups.com
>>>Sent: Wednesday, 13 March 2013, 11:12
>>>Subject: Re: [belajar-excel] Kopi darat
>>>
>>>
>>>Pooling di FB aja, kita lihat seberapa peminatnya ?
>>>Saya mau
LIKE yang pertama
>>>
>>>Pada tanggal 13/03/13, dwint ruswanto <dwint.ruswanto@gmail.com > menulis:
>>>> setuju,
saya juga ingin berkenalan dengan para master di sini, seperti mr
>>>>
Kid, pak Hendrik, pak Anton, dan mas Ghozi, dan mbak Jan Raisin.
>>>>
hehehe :D
>>>>
>>>> Wassalam,
>>>>
>>>>
-dwint-
>>>>
>>>> Pada 13 Maret 2013 10.04, Indra Sanjaya <indradjaja80an@yahoo.com > menulis:
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> Dear
Moderator,
>>>>>
>>>>> Sejak bergabung November 2011 sudah
banyak forum ini membantu saya dlm
>>>>> memecahkan masalah Ms excel
yg Sy hadapi. Dan untuk lebih melengkapi
>>>>> kebersamaan ini,
bagaimana kalo diadakan kopi darat?
>>>>>
>>>>> Mohon
tanggapannya moderator.
>>>>>
>>>>>
>>>>>
Salam,
>>>>>
Djaja.
>>>>>
>>>>>
>>>>>
>>>>
>>>
>>>
>>>--
>>>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
>>>
>>>
Traditional
>>>
>>>
(Yahoo! ID required)
>>>
>>> belajar-excel-fullfeatured@yahoogroups.com
------------
Toni Kus Indratno
tonikus.staff.
------------
____________
Dari: Heru Safrudin <superheruu@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 14 Maret 2013 10:27
Judul: Re: [belajar-excel] Kopi darat
Mr. pakai baju Merah yaa.......!!
----- Original Message -----
>From: Mr. Kid
>To: belajar-excel@
>Sent: Wednesday, March 13, 2013 3:11 PM
>Subject: Re: [belajar-excel] Kopi darat
>
>
>Bagaimana kalau BeExceller yang punya ide sebagai ketua panitianya ?
>Silakan dibentuk anggota panitianya, kemudian diatur lokasi dan waktunya
(bisa lewat polling ke seluruh BeExceller).
>Disusun agenda acaranya,
dsb.
>
>;)
>
>Wassalam,
>Kid.
>
>
>2013/3/13 Jan Raisin <miss.jan.raisin@
>
>
>>
>>tambah 1 suara lagi yang setuju acara kopdar BeExcel..
>>
>>
>>usul nama acaranya MARIORI singkatan dari MAkanan RIngan Obrolan RIngan jadi gak perlu bahas kasus Excel.. cukup bahas di millis saja :))
>>biar akrab gitu ^_^
>>
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>Pada 13 Maret 2013 11.32, hendrik karnadi <hendrikkarnadi@
>>
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: Heru Safrudin <superheruu@gmail.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
LIKE yang pertama
>>>
>>>
>>>
saya juga ingin berkenalan dengan para master di sini, seperti mr
>>>
Kid, pak Hendrik, pak Anton, dan mas Ghozi, dan mbak Jan Raisin.
>>>
hehehe :D
>>>
>>>
>>>
>>>
-dwint-
>>>
>>>
>>>
>>>
>>>
>>>
>>>
Moderator,
>>>
>>>
banyak forum ini membantu saya dlm
>>>
yg Sy hadapi. Dan untuk lebih melengkapi
>>>
bagaimana kalo diadakan kopi darat?
>>>
>>>
tanggapannya moderator.
>>>
>>>
>>>
Salam,
>>>
Djaja.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ
وَبَرَكَاتُهُ
>>>
Safrudin
>>>
>>>
>>>
>>>
>>>
>>>
ke milis (subscribe), kirim mail kosong ke:
>>>belajar-excel-
>>>
>>>
ke milis, kirimkan ke:
>>>belajar-excel@
>>>
>>>
milis
>>>http://tech.
>>>
>>>
file archive / mendownload lampiran
>>>http://www.mail-
>>>
(sejak 25-Apr-2011) bisa juga di :
>>>http://milis-
>>>
>>>
moderators & owners: belajar-excel-
>>>
>>>
membership milis (UnSubscribe)
>>>
>>>
Groups Links
>>>
>>>
Traditional
>>>
>>>
(Yahoo! ID required)
>>>
>>> belajar-excel-
Wed Mar 13, 2013 8:47 pm (PDT) . Posted by:
"Aliif Akbar" aliif.akbar
Nah? Kan g thu domisili masing2?
Pengennya kan bareng ama suhunya kan?
Mr.Kid domisili mana, miss Jan Raisin domisili mana, bang Hendrik Karnadi mana?
Bis itu kita adain, kalau kita ngadain di Jakarta kebetulan sy domisili Jakarta tiba2 para suhu domisili di jawa timur misalnya, kan susah,... "̮♡hϱ♡hϱ♡hϱ♡"̮"̮♡hϱ♡hϱ♡hϱ♡"̮
Salam,
Aliif Akbar
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-----Original Message-----
From: Toni Kus indratno <tonny.kuzh@ymail.com >
Sender: belajar-excel@yahoogroups.com
Date: Thu, 14 Mar 2013 11:31:26
To: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Kopi darat
Bikin Seragam aja.....
--------------------------------------
Toni Kus Indratno
tonikus.staff.uad.ac.id
----------------------------------------------------------
________________________________
Dari: Heru Safrudin <superheruu@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 14 Maret 2013 10:27
Judul: Re: [belajar-excel] Kopi darat
Mr. pakai baju Merah yaa.......!!! :D
----- Original Message -----
>From: Mr. Kid
>To: belajar-excel@yahoogroups.com
>Sent: Wednesday, March 13, 2013 3:11 PM
>Subject: Re: [belajar-excel] Kopi darat
>
>
>Bagaimana kalau BeExceller yang punya ide sebagai ketua panitianya ?
>Silakan dibentuk anggota panitianya, kemudian diatur lokasi dan waktunya
(bisa lewat polling ke seluruh BeExceller).
>Disusun agenda acaranya,
dsb.
>
>;)
>
>Wassalam,
>Kid.
>
>
>2013/3/13 Jan Raisin <miss.jan.raisin@gmail.com >
>
>
>>
>>tambah 1 suara lagi yang setuju acara kopdar BeExcel..
>>
>>
>>usul nama acaranya MARIORI singkatan dari MAkanan RIngan Obrolan RIngan jadi gak perlu bahas kasus Excel.. cukup bahas di millis saja :))
>>biar akrab gitu ^_^
>>
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>Pada 13 Maret 2013 11.32, hendrik karnadi <hendrikkarnadi@yahoo.com > menulis:
>>
>>
>>
>>>
>>>Saya secara pribadi setuju aja asalkan waktunya di luar jam kerja, mis. Sabtu atau Minggu, dan yang terpenting:
>>>- Ada yang mau menjadi EO nya (seksi repot gitu)
>>>- Ada yang mau sponsor tempat (makanan sih bisa bawa ransum sendiri).
>>>
>>>
>>>Usulan acaranya : Ramah tamah atau plus plus..... (seminar + pengumpulan dana sosial, dll), tergantung kepada EO dan sponsornya
>>>
>>>
>>>Salam,
>>>HK
>>>
>>>
>>>
>>>________________________________
>>> From: Heru Safrudin <superheruu@gmail.com >
>>>To: belajar-excel@yahoogroups.com
>>>Sent: Wednesday, 13 March 2013, 11:12
>>>Subject: Re: [belajar-excel] Kopi darat
>>>
>>>
>>>Pooling di FB aja, kita lihat seberapa peminatnya ?
>>>Saya mau
LIKE yang pertama
>>>
>>>Pada tanggal 13/03/13, dwint ruswanto <dwint.ruswanto@gmail.com > menulis:
>>>> setuju,
saya juga ingin berkenalan dengan para master di sini, seperti mr
>>>>
Kid, pak Hendrik, pak Anton, dan mas Ghozi, dan mbak Jan Raisin.
>>>>
hehehe :D
>>>>
>>>> Wassalam,
>>>>
>>>>
-dwint-
>>>>
>>>> Pada 13 Maret 2013 10.04, Indra Sanjaya <indradjaja80an@yahoo.com > menulis:
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> Dear
Moderator,
>>>>>
>>>>> Sejak bergabung November 2011 sudah
banyak forum ini membantu saya dlm
>>>>> memecahkan masalah Ms excel
yg Sy hadapi. Dan untuk lebih melengkapi
>>>>> kebersamaan ini,
bagaimana kalo diadakan kopi darat?
>>>>>
>>>>> Mohon
tanggapannya moderator.
>>>>>
>>>>>
>>>>>
Salam,
>>>>>
Djaja.
>>>>>
>>>>>
>>>>>
>>>>
>>>
>>>
>>>--
>>>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
>>>
>>>
Traditional
>>>
>>>
(Yahoo! ID required)
>>>
>>> belajar-excel-fullfeatured@yahoogroups.com
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
Pengennya kan bareng ama suhunya kan?
Mr.Kid domisili mana, miss Jan Raisin domisili mana, bang Hendrik Karnadi mana?
Bis itu kita adain, kalau kita ngadain di Jakarta kebetulan sy domisili Jakarta tiba2 para suhu domisili di jawa timur misalnya, kan susah,... "̮♡hϱ♡hϱ♡hϱ♡"̮"̮♡hϱ♡hϱ♡hϱ♡"̮
Salam,
Aliif Akbar
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...
-----Original Message-----
From: Toni Kus indratno <tonny.kuzh@ymail.
Sender: belajar-excel@
Date: Thu, 14 Mar 2013 11:31:26
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Bls: [belajar-excel] Kopi darat
Bikin Seragam aja.....
------------
Toni Kus Indratno
tonikus.staff.
------------
____________
Dari: Heru Safrudin <superheruu@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 14 Maret 2013 10:27
Judul: Re: [belajar-excel] Kopi darat
Mr. pakai baju Merah yaa.......!!
----- Original Message -----
>From: Mr. Kid
>To: belajar-excel@
>Sent: Wednesday, March 13, 2013 3:11 PM
>Subject: Re: [belajar-excel] Kopi darat
>
>
>Bagaimana kalau BeExceller yang punya ide sebagai ketua panitianya ?
>Silakan dibentuk anggota panitianya, kemudian diatur lokasi dan waktunya
(bisa lewat polling ke seluruh BeExceller).
>Disusun agenda acaranya,
dsb.
>
>;)
>
>Wassalam,
>Kid.
>
>
>2013/3/13 Jan Raisin <miss.jan.raisin@
>
>
>>
>>tambah 1 suara lagi yang setuju acara kopdar BeExcel..
>>
>>
>>usul nama acaranya MARIORI singkatan dari MAkanan RIngan Obrolan RIngan jadi gak perlu bahas kasus Excel.. cukup bahas di millis saja :))
>>biar akrab gitu ^_^
>>
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>Pada 13 Maret 2013 11.32, hendrik karnadi <hendrikkarnadi@
>>
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: Heru Safrudin <superheruu@gmail.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
LIKE yang pertama
>>>
>>>
>>>
saya juga ingin berkenalan dengan para master di sini, seperti mr
>>>
Kid, pak Hendrik, pak Anton, dan mas Ghozi, dan mbak Jan Raisin.
>>>
hehehe :D
>>>
>>>
>>>
>>>
-dwint-
>>>
>>>
>>>
>>>
>>>
>>>
>>>
Moderator,
>>>
>>>
banyak forum ini membantu saya dlm
>>>
yg Sy hadapi. Dan untuk lebih melengkapi
>>>
bagaimana kalo diadakan kopi darat?
>>>
>>>
tanggapannya moderator.
>>>
>>>
>>>
Salam,
>>>
Djaja.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ
وَبَرَكَاتُهُ
>>>
Safrudin
>>>
>>>
>>>
>>>
>>>
>>>
ke milis (subscribe), kirim mail kosong ke:
>>>belajar-excel-
>>>
>>>
ke milis, kirimkan ke:
>>>belajar-excel@
>>>
>>>
milis
>>>http://tech.
>>>
>>>
file archive / mendownload lampiran
>>>http://www.mail-
>>>
(sejak 25-Apr-2011) bisa juga di :
>>>http://milis-
>>>
>>>
moderators & owners: belajar-excel-
>>>
>>>
membership milis (UnSubscribe)
>>>
>>>
Groups Links
>>>
>>>
Traditional
>>>
>>>
(Yahoo! ID required)
>>>
>>> belajar-excel-
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
Ma'af sekali Be-Exceller, baru buka.
Errornya berbunyi :
Error run-time 1004
Paste Methode of Worksheets class failed
Ini code VBA yang gagal :
Private Sub ExportData_Click()
Dim TgBrs As Integer
Dim wbTarget As Workbook
Dim cPath As String
Dim TinggiMaxBaris As Integer
cPath = "\\sbplg01b\Qcmntrng\6Sigma\QC_Time_Sheet_Input.xls"
TgBrs = Range(Range("C3"), Range("C3").End(xlDown)).Rows.Count + 2
Range("A3:S" & TgBrs).Select
Selection.Cut
Set wbTarget = Workbooks.Open(Filename:=cPath, UpdateLinks:=False)
wbTarget.Activate
wbTarget.Save ' Ini sudah di save sebelum memulai aktivitas
TinggiMaxBaris =
Worksheets("January").Range("C1").CurrentRegion.Rows.Count
Worksheets("January").Range("A" & TinggiMaxBaris).Offset(1, 0).Select
ActiveWindow.ActiveSheet.Paste ' Dibaris ini errornya
Application.CutCopyMode = False
wbTarget.Close Savechanges:=True
Set wbTarget = Nothing
End Sub
Kira-kira kenapa errornya dan bagaimana solusinya ?
Terima kasih jawabannya. Semoga Tuhan membalas.
Wassalam,
Tio
"Mr. Kid" <mr.nmkid@gmail.com >
Sent by: belajar-excel@yahoogroups.com
03/09/2013 03:08 PM
Please respond to belajar-excel
To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Re: Mencegah bentrok data di File Sharing
Errornya dibaris apa ?
Wassalam,
Kid.
2013/3/9 tioali2011 <tioali2011@yahoo.co.id >
Dear Be-Exceller,
Saya sudah melakukan seperti Mr. Kid sarankan, yaitu setelah open file
target, saya save, tapi error.
Yaitu Setelah Open wb target, saya lakukan code VBA :
wbTarget.save
wbTarget.Worksheet("January").select
wbTarget.Range("A2").select
ActiveSheet.paste.
Tapi code VBA tsb gagal. Kira-kira kenapa yah ? Apakah ada alternatif lain
bagaimana mencegah data bentrok di file sharing ? Seperti bila ada
peringatan, maka secara otomatis Code VBA memerintahkan untuk klik tombol
Accept Others dan membatalkan perintah berikutnya.
Terima kasih,
Wassalam,
Tio
Errornya berbunyi :
Error run-time 1004
Paste Methode of Worksheets class failed
Ini code VBA yang gagal :
Private Sub ExportData_Click(
Dim TgBrs As Integer
Dim wbTarget As Workbook
Dim cPath As String
Dim TinggiMaxBaris As Integer
cPath = "\&#
TgBrs = Range(Range(
Range("
Selection.Cut
Set wbTarget = Workbooks.Open(
wbTarget.Activate
wbTarget.Save ' Ini sudah di save sebelum memulai aktivitas
TinggiMaxBaris =
Worksheets("
Worksheets("
ActiveWindow.
Application.
wbTarget.Close Savechanges:
Set wbTarget = Nothing
End Sub
Kira-kira kenapa errornya dan bagaimana solusinya ?
Terima kasih jawabannya. Semoga Tuhan membalas.
Wassalam,
Tio
"Mr. Kid" <mr.nmkid@gmail.
Sent by: belajar-excel@
03/09/2013 03:08 PM
Please respond to belajar-excel
To: belajar-excel@
cc:
Subject: Re: [belajar-excel] Re: Mencegah bentrok data di File Sharing
Errornya dibaris apa ?
Wassalam,
Kid.
2013/3/9 tioali2011 <tioali2011@yahoo.
Dear Be-Exceller,
Saya sudah melakukan seperti Mr. Kid sarankan, yaitu setelah open file
target, saya save, tapi error.
Yaitu Setelah Open wb target, saya lakukan code VBA :
wbTarget.save
wbTarget.Worksheet(
wbTarget.Range(
ActiveSheet.
Tapi code VBA tsb gagal. Kira-kira kenapa yah ? Apakah ada alternatif lain
bagaimana mencegah data bentrok di file sharing ? Seperti bila ada
peringatan, maka secara otomatis Code VBA memerintahkan untuk klik tombol
Accept Others dan membatalkan perintah berikutnya.
Terima kasih,
Wassalam,
Tio
Wed Mar 13, 2013 8:47 pm (PDT) . Posted by:
"leonard merari" ari140583
Dear Master,
Menanyakan sedikit untuk file terlampir apakah option buttin dalam 1 sheet bisa mempengaruhi 2 cell berbeda? Serta apakah output nomer yang dikeluarkan pada cell yang dipengaruhi option button bisa diatur atau harus urut?
Terima Kasih :)
Thu Mar 14, 2013 12:01 am (PDT) . Posted by:
"Aisyah Zahrah" aisyah_zahrah@ymail.com
Assalamu`alaikum Wr. Wb.
Dear Excell-er
Saya mau minta saran dan solusi
bagaimana untuk membuat Format Analisa pengeluaran material dari GUDANG dengan ACTUAL pemakaian di PRODUKSI
untuk lebih jelasnya File terlampir
Atas bantuannya saya ucapkan Terima Kasih
Wassalamu`alaikum Wr..Wb..
Dear Excell-er
Saya mau minta saran dan solusi
bagaimana untuk membuat Format Analisa pengeluaran material dari GUDANG dengan ACTUAL pemakaian di PRODUKSI
untuk lebih jelasnya File terlampir
Atas bantuannya saya ucapkan Terima Kasih
Wassalamu`alaikum Wr..Wb..
Thu Mar 14, 2013 12:03 am (PDT) . Posted by:
"lde.herman" lde.herman
Kepada Para Master Excel
Mohon Bantuan untuk solusinya
1. Untuk Guru Matapelajaran diberi format penilaian mata pelajaran
2. Untuk Wali Kelas melakukan rekap untuk semua mata pelajaran berdasarkan nilai dari guru mata pelajaran
solusinya dong dalam bentuk makro
terima kasih atas bantuannya
Mohon Bantuan untuk solusinya
1. Untuk Guru Matapelajaran diberi format penilaian mata pelajaran
2. Untuk Wali Kelas melakukan rekap untuk semua mata pelajaran berdasarkan nilai dari guru mata pelajaran
solusinya dong dalam bentuk makro
terima kasih atas bantuannya
Thu Mar 14, 2013 12:19 am (PDT) . Posted by:
"lde.herman" lde.herman
Kepada Para Master Excel
Mohon Bantuan untuk solusinya
1. Untuk Guru Matapelajaran diberi format penilaian mata pelajaran
2. Untuk Wali Kelas melakukan rekap untuk semua mata pelajaran berdasarkan nilai dari guru mata pelajaran
solusinya dong dalam bentuk makro
terima kasih atas bantuannya
Mohon Bantuan untuk solusinya
1. Untuk Guru Matapelajaran diberi format penilaian mata pelajaran
2. Untuk Wali Kelas melakukan rekap untuk semua mata pelajaran berdasarkan nilai dari guru mata pelajaran
solusinya dong dalam bentuk makro
terima kasih atas bantuannya
Thu Mar 14, 2013 12:52 am (PDT) . Posted by:
"La ode herman Umar" lde.herman
--- Pada Rab, 13/3/13, La ode herman Umar <lde.herman@yahoo.
Dari: La ode herman Umar <lde.herman@yahoo.
Judul: Rekap Nilai dari Guru Ke Wali Kelas
Kepada: belajar-excel@
Tanggal: Rabu, 13 Maret, 2013, 5:13 AM
Kepada Para Master Excel
Mohon Bantuan untuk solusinya
1. Untuk Guru Matapelajaran diberi format penilaian mata pelajaran (nama filex : guru.xls)
2. Untuk Wali Kelas melakukan rekap untuk semua mata pelajaran berdasarkan nilai dari guru mata pelajaran (walikelas.xlsx)
solusinya dong dalam bentuk makro
terima kasih atas bantuannya
Thu Mar 14, 2013 12:19 am (PDT) . Posted by:
"Eka Subyantara"
Dear Mas Indra,
Kalau saya akan membuatnya dalam dua sheet:
1. Database yang berisi data2 penting siswa
2. Buku Induk yang akan menampilkan data seorang siswa berdasarkan key
no urut pada database
Kreativitas kita akan dituntut pada no 2 untuk menghasilkan tampilan
mirip dengan buku induk fisik yang sudah ada.
Selamat bereksperimen. berikut ini hanyalah contoh yang
amat-sangat-sekali sederhana :-)
= eka =
Berbagilah sebelum dilarang
On 3/14/13, Indra Enter <indraenter@ymail.com > wrote:
> Salam sejahtera buat rekan2....
>
> Mohon kepada rekan2 bagaiman cara membuat Buku Induk Siswa dengan
> menggunakan Ms. Excel?
>
>
> Terima kasih,
>
>
> Salam hormat,
>
>
> Indraenter
Kalau saya akan membuatnya dalam dua sheet:
1. Database yang berisi data2 penting siswa
2. Buku Induk yang akan menampilkan data seorang siswa berdasarkan key
no urut pada database
Kreativitas kita akan dituntut pada no 2 untuk menghasilkan tampilan
mirip dengan buku induk fisik yang sudah ada.
Selamat bereksperimen. berikut ini hanyalah contoh yang
amat-sangat-
= eka =
Berbagilah sebelum dilarang
On 3/14/13, Indra Enter <indraenter@ymail.
> Salam sejahtera buat rekan2....
>
> Mohon kepada rekan2 bagaiman cara membuat Buku Induk Siswa dengan
> menggunakan Ms. Excel?
>
>
> Terima kasih,
>
>
> Salam hormat,
>
>
> Indraenter
Thu Mar 14, 2013 3:17 am (PDT) . Posted by:
"cindhi dwi" cindhi.nouvie
Assalamu'alaikum wr wb
Mr, Mau nanya lagi yaa..
Saya sudah mencoba script dari Mr. tapi macronya tidak bekerja.. Jadi, saya mencoba script ini :
Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_2_Website()
Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
sURL = "http://10.21.51.16/graph_xport.php?local_graph_id=5174&rra_id=2&view_type= "
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.Navigate sURL
oBrowser.Visible = True
Do
' Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = oBrowser.Document
HTMLDoc.all.UserName.Value = "NOP"
HTMLDoc.all.passwd.Value = "123456"
For Each oHTML_Element In HTMLDoc.getElementsByTagName("input";)
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub
Berhasil si Mr. tapi, ada dialog save direktori file seperti gambar di bawah ini :
Masalahnya, file yang akan saya download ratusan Mr..
Apakah ada solusi lain untuk bisa save file di direktori tertentu dengan otomatis menggunakan macro ?
Terima kasih atas pemecahannya ^^
Wa'alaikumsalam wr wb
Regards,
Cindhi Dwi Novita
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, February 8, 2013 6:30 PM
Subject: Re: Re: [belajar-excel] Macro untuk Mengolah data *.csv dari Internet Explorer
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]
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=
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (2)
Recent Activity: * New Members 26
Visit Your Group
----------------------------------------------------------
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
----------------------------------------------------------
Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback
.
__,_._,__
Mr, Mau nanya lagi yaa..
Saya sudah mencoba script dari Mr. tapi macronya tidak bekerja.. Jadi, saya mencoba script ini :
Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_2_Website(
Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
sURL = "http://10.21.
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.Navigate sURL
oBrowser.Visible = True
Do
' Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = oBrowser.Document
HTMLDoc.all.
HTMLDoc.all.
For Each oHTML_Element In HTMLDoc.getElements
If oHTML_Element.
Next
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub
Berhasil si Mr. tapi, ada dialog save direktori file seperti gambar di bawah ini :
Masalahnya, file yang akan saya download ratusan Mr..
Apakah ada solusi lain untuk bisa save file di direktori tertentu dengan otomatis menggunakan macro ?
Terima kasih atas pemecahannya ^^
Wa'alaikumsalam wr wb
Regards,
Cindhi Dwi Novita
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Friday, February 8, 2013 6:30 PM
Subject: Re: Re: [belajar-excel] Macro untuk Mengolah data *.csv dari Internet Explorer
Coba script berikut :
Public Sub DownloadFile(
Dim objXMLHTTP As Object
Dim lFile As Long
Dim btFileRespon(
'init object dari class msxml2.xmlhttp
Set objXMLHTTP = CreateObject(
'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"
.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$(sFileHasi
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.
Disana ada sebuah link download file csv bertuliskan :
» Download the data dictionary [csv 30kb]
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.
Alamat inilah yang akan digunakan untuk download file csv.
Berikut ini adalah sebuah prosedur untuk mendownload dari link : https://extranet.
Public Sub ContohCaraPakai(
Dim sUrl As String, sFile As String
sUrl = "https://extranet.
sFile = "G:\
DownloadFile sUrl, sFile
MsgBox "Done."
End Sub
Wassalam,
Kid.
2013/2/8 cindhi dwi <cindhi.nouvie@
http://10.17.
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (2)
Recent Activity: * New Members 26
Visit Your Group
------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-
posting ke milis, kirimkan ke:
belajar-excel@
berkunjung ke web milis
http://tech.
melihat file archive / mendownload lampiran
http://www.mail-
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-
menghubungi moderators & owners: belajar-excel-
keluar dari membership milis (UnSubscribe)
kirim mail kosong ke belajar-excel-
------------
Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback
.
__,_._,__
Thu Mar 14, 2013 5:00 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Untuk bypass save dialog bawaan inet belum pernah nyoba. maaf ya.
Mungkin winapi bisa bisa kali ya. Tahapnya kira-kira dapatkan handle window
save dialog, lalu dapatkan handle tombol save dalam window tersebut,
kemudian send message untuk klik (mungkin butuh wndproc).
Kalau boleh tahu, link untuk download file pertama seperti apa dan link
untuk download file kedua seperti apa ?
Wassalamu'alaikum Wr. Wb.
Kid.
2013/3/14 cindhi dwi <cindhi.nouvie@yahoo.com >
> Assalamu'alaikum wr wb
>
> Mr, Mau nanya lagi yaa..
>
> Saya sudah mencoba script dari Mr. tapi macronya tidak bekerja.. Jadi,
> saya mencoba script ini :
>
> Dim HTMLDoc As HTMLDocument
> Dim oBrowser As InternetExplorer
>
> Sub Login_2_Website()
>
> Dim oHTML_Element As IHTMLElement
> Dim sURL As String
>
>
> On Error GoTo Err_Clear
> sURL = "
> http://10.21.51.16/graph_xport.php?local_graph_id=5174&rra_id=2&view_type=
> "
> Set oBrowser = New InternetExplorer
> oBrowser.Silent = True
> oBrowser.timeout = 60
> oBrowser.Navigate sURL
> oBrowser.Visible = True
>
> Do
> ' Wait till the Browser is loaded
> Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
>
> Set HTMLDoc = oBrowser.Document
>
> HTMLDoc.all.UserName.Value = "NOP"
> HTMLDoc.all.passwd.Value = "123456"
>
>
>
> For Each oHTML_Element In HTMLDoc.getElementsByTagName("input";)
> If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
> Next
>
> Err_Clear:
> If Err <> 0 Then
>
> Err.Clear
> Resume Next
> End If
>
> End Sub
>
> Berhasil si Mr. tapi, ada dialog save direktori file seperti gambar di
> bawah ini :
>
> [image: Inline image 1]
>
> Masalahnya, file yang akan saya download ratusan Mr..
>
> Apakah ada solusi lain untuk bisa save file di direktori tertentu dengan
> otomatis menggunakan macro ?
>
> Terima kasih atas pemecahannya ^^
>
>
>
> Wa'alaikumsalam wr wb*
>
> Regards,
>
>
> Cindhi Dwi Novita*
>
>
> *
>
> From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, February 8, 2013 6:30 PM
> *Subject:* Re: Re: [belajar-excel] Macro untuk Mengolah data *.csv dari
> Internet Explorer
>
>
> *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=
>
>
>
> Reply via web post<http://groups.yahoo.com/group/belajar-excel/post;_ylc=X3oDMTJyOTRocXFqBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAMyMjQ1NQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzEzNjAzMjMwMzc-?act=reply&messageNum=22455 > Reply
> to sender
> <mr.nmkid@gmail.com ?subject=Re%3A%20Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20Mengolah%20data%20%2A%2Ecsv%20dari%20Internet%20Explorer> Reply
> to group
> <belajar-excel@yahoogroups.com ?subject=Re%3A%20Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20Mengolah%20data%20%2A%2Ecsv%20dari%20Internet%20Explorer> Start
> a New Topic<http://groups.yahoo.com/group/belajar-excel/post;_ylc=X3oDMTJmOGllZW4xBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEzNjAzMjMwMzc- > Messages
> in this topic<http://groups.yahoo.com/group/belajar-excel/message/22454;_ylc=X3oDMTM3ZnV2cTR1BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAMyMjQ1NQRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzEzNjAzMjMwMzcEdHBjSWQDMjI0NTQ- >(2)
> Recent Activity:
>
> - New Members<http://groups.yahoo.com/group/belajar-excel/members;_ylc=X3oDMTJndjYxM2ozBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxMzYwMzIzMDM2?o=6 >
> 26
>
> Visit Your Group<http://groups.yahoo.com/group/belajar-excel;_ylc=X3oDMTJmMDR2dHNtBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEzNjAzMjMwMzY- >
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------
> [image: Yahoo! Groups]<http://groups.yahoo.com/;_ylc=X3oDMTJlZ3NlbWszBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTM2MDMyMzAzNw-- >
> Switch to: Text-Only<belajar-excel-traditional@yahoogroups.com ?subject=Change%20Delivery%20Format:%20Traditional>,
> Daily Digest<belajar-excel-digest@yahoogroups.com ?subject=Email%20Delivery:%20Digest>�
> Unsubscribe<belajar-excel-unsubscribe@yahoogroups.com ?subject=Unsubscribe>� Terms
> of Use <http://docs.yahoo.com/info/terms/ > � Send us Feedback
> <ygroupsnotifications@yahoogroups.com ?subject=Feedback%20on%20the%20redesigned%20individual%20mail%20v1>
> .
>
> __,_._,__
>
>
Untuk bypass save dialog bawaan inet belum pernah nyoba. maaf ya.
Mungkin winapi bisa bisa kali ya. Tahapnya kira-kira dapatkan handle window
save dialog, lalu dapatkan handle tombol save dalam window tersebut,
kemudian send message untuk klik (mungkin butuh wndproc).
Kalau boleh tahu, link untuk download file pertama seperti apa dan link
untuk download file kedua seperti apa ?
Wassalamu'
Kid.
2013/3/14 cindhi dwi <cindhi.nouvie@
> Assalamu'
>
> Mr, Mau nanya lagi yaa..
>
> Saya sudah mencoba script dari Mr. tapi macronya tidak bekerja.. Jadi,
> saya mencoba script ini :
>
> Dim HTMLDoc As HTMLDocument
> Dim oBrowser As InternetExplorer
>
> Sub Login_2_Website(
>
> Dim oHTML_Element As IHTMLElement
> Dim sURL As String
>
>
> On Error GoTo Err_Clear
> sURL = "
> http://10.21.
> "
> Set oBrowser = New InternetExplorer
> oBrowser.Silent = True
> oBrowser.timeout = 60
> oBrowser.Navigate sURL
> oBrowser.Visible = True
>
> Do
> ' Wait till the Browser is loaded
> Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
>
> Set HTMLDoc = oBrowser.Document
>
> HTMLDoc.all.
> HTMLDoc.all.
>
>
>
> For Each oHTML_Element In HTMLDoc.getElements
> If oHTML_Element.
> Next
>
> Err_Clear:
> If Err <> 0 Then
>
> Err.Clear
> Resume Next
> End If
>
> End Sub
>
> Berhasil si Mr. tapi, ada dialog save direktori file seperti gambar di
> bawah ini :
>
> [image: Inline image 1]
>
> Masalahnya, file yang akan saya download ratusan Mr..
>
> Apakah ada solusi lain untuk bisa save file di direktori tertentu dengan
> otomatis menggunakan macro ?
>
> Terima kasih atas pemecahannya ^^
>
>
>
> Wa'alaikumsalam wr wb*
>
> Regards,
>
>
> Cindhi Dwi Novita*
>
>
> *
>
> From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Friday, February 8, 2013 6:30 PM
> *Subject:* Re: Re: [belajar-excel] Macro untuk Mengolah data *.csv dari
> Internet Explorer
>
>
> *Coba script berikut :*
> Public Sub DownloadFile(
> String)
> Dim objXMLHTTP As Object
> Dim lFile As Long
> Dim btFileRespon(
>
> 'init object dari class msxml2.xmlhttp
> Set objXMLHTTP = CreateObject(
> '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"
> .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$(sFileHasi
> 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.
>
> Disana ada sebuah link download file csv bertuliskan :
> � Download the data dictionary [csv 30kb]<https://extranet.
>
> 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.
> Alamat inilah yang akan digunakan untuk download file csv.
>
> Berikut ini adalah sebuah prosedur untuk mendownload dari link :
> https://extranet.
> Public Sub ContohCaraPakai(
> Dim sUrl As String, sFile As String
>
> sUrl = "https://extranet.
> sFile = "G:\
> di-download
>
> DownloadFile sUrl, sFile
>
> MsgBox "Done."
> End Sub
>
> Wassalam,
> Kid.
>
>
> 2013/2/8 cindhi dwi <cindhi.nouvie@
>
> http://10.17.
>
>
>
> Reply via web post<http://groups.
> to sender
> <mr.nmkid@gmail.
> to group
> <belajar-excel@
> a New Topic<http://groups.
> in this topic<http://groups.
> Recent Activity:
>
> - New Members<http://groups.
> 26
>
> Visit Your Group<http://groups.
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> [image: Yahoo! Groups]<http://groups.
> Switch to: Text-Only<belajar-excel-
> Daily Digest<belajar-excel-
> Unsubscribe<belajar-excel-
> of Use <http://docs.
> <ygroupsnotification
> .
>
> __,_._,__
>
>
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