8 Messages
Digest #4736
2a
Re: Cek file open di server apakah dibuka dikomputer sendiri atau di by "Mr. Kid" nmkid.family@ymail.com
Messages
Sun Mar 17, 2019 3:35 pm (PDT) . Posted by:
"Agus"
Assalamu'alaikum Warahmatullah,
Mas Kid, ikut bertanya.
On error goto 0 adalah mematikan error handling di sebuah prosedur.
jika prosedur tersebut terdapat 4 error handling, apakah
keempat-empatnya dimatikan atau hanya satu saja di atas on error goto 0?
Terima kasih
Wasalamualaikum Warahmatullah
KenangAgus
On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
> Analisa Anda itu kurang tepat.
> On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab
> masalah.
> Kasihan si on error goto 0.
> On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
> Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
> hmmm..
>
> ya sudah, atur saja deh
>
>
>
>
>
Mas Kid, ikut bertanya.
On error goto 0 adalah mematikan error handling di sebuah prosedur.
jika prosedur tersebut terdapat 4 error handling, apakah
keempat-empatnya dimatikan atau hanya satu saja di atas on error goto 0?
Terima kasih
Wasalamualaikum Warahmatullah
KenangAgus
On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
> Analisa Anda itu kurang tepat.
> On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab
> masalah.
> Kasihan si on error goto 0.
> On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
> Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
> hmmm..
>
> ya sudah, atur saja deh
>
>
>
>
>
Sun Mar 17, 2019 3:56 pm (PDT) . Posted by:
"Tio Adi Bayu Adjie"
Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next , proses tidak berhenti.
Ini simulasi saya . Coba diganti resume next dengan On error goto 0. Secara bergantian.
Sub LatihanErrHandling2_Click()
Dim dblValue As Double
On Error GoTo ErrHandler
dblValue = 1 / 0
MsgBox "Lanjut ke kode berikutnya"
Exit Sub
ErrHandler:
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Err.Clear
Resume Next '
'On Error GoTo 0
End Sub
On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com<mailto:mr.nmkid@gmail.com> [belajar-excel] wrote:
Analisa Anda itu kurang tepat.
On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab masalah.
Kasihan si on error goto 0.
On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
hmmm..
ya sudah, atur saja deh
Ini simulasi saya . Coba diganti resume next dengan On error goto 0. Secara bergantian.
Sub LatihanErrHandling2_Click()
Dim dblValue As Double
On Error GoTo ErrHandler
dblValue = 1 / 0
MsgBox "Lanjut ke kode berikutnya"
Exit Sub
ErrHandler:
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Err.Clear
Resume Next '
'On Error GoTo 0
End Sub
On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com<mailto:mr.nmkid@gmail.com> [belajar-excel] wrote:
Analisa Anda itu kurang tepat.
On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab masalah.
Kasihan si on error goto 0.
On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
hmmm..
ya sudah, atur saja deh
Sun Mar 17, 2019 4:03 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bukannya pakai On error resume next sudah cukup untuk melewati error.
Resume biasanya dipakai untuk blok yang akan sering dipakai tapi tidak mau
meletakkannya menjadi sebuah prosedur terpisah.
Tapi kalau sekadar error handling untuk melewati (mengabaikan) error, cukup
dengan on error resume next. Bisa lebih hemat proses, karena proses tidak
perlu lompat-lompat bolak balik setiap kali ada error. Proses bisa jalan
lurus (forward).
Regards,
Kid
On Mon, Mar 18, 2019 at 5:57 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya
> bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next ,
> proses tidak berhenti.
>
>
>
> Ini simulasi saya . Coba diganti resume next dengan On error goto 0.
> Secara bergantian.
>
>
>
> Sub LatihanErrHandling2_Click()
>
> Dim dblValue As Double
>
>
>
> On Error GoTo ErrHandler
>
> dblValue = 1 / 0
>
>
>
> MsgBox "Lanjut ke kode berikutnya"
>
>
>
> Exit Sub
>
> ErrHandler:
>
> Application.DisplayAlerts = True
>
> Application.EnableEvents = True
>
> Application.ScreenUpdating = True
>
> Application.DisplayStatusBar = True
>
> Application.Calculation = xlCalculationAutomatic
>
> Err.Clear
>
> Resume Next '
>
> 'On Error GoTo 0
>
> End Sub
>
>
>
>
>
> On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
>
>
>
> Analisa Anda itu kurang tepat.
>
> On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab
> masalah.
>
> Kasihan si on error goto 0.
>
> On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
>
> Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
>
> hmmm..
>
>
>
> ya sudah, atur saja deh
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Resume biasanya dipakai untuk blok yang akan sering dipakai tapi tidak mau
meletakkannya menjadi sebuah prosedur terpisah.
Tapi kalau sekadar error handling untuk melewati (mengabaikan) error, cukup
dengan on error resume next. Bisa lebih hemat proses, karena proses tidak
perlu lompat-lompat bolak balik setiap kali ada error. Proses bisa jalan
lurus (forward).
Regards,
Kid
On Mon, Mar 18, 2019 at 5:57 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya
> bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next ,
> proses tidak berhenti.
>
>
>
> Ini simulasi saya . Coba diganti resume next dengan On error goto 0.
> Secara bergantian.
>
>
>
> Sub LatihanErrHandling2_Click()
>
> Dim dblValue As Double
>
>
>
> On Error GoTo ErrHandler
>
> dblValue = 1 / 0
>
>
>
> MsgBox "Lanjut ke kode berikutnya"
>
>
>
> Exit Sub
>
> ErrHandler:
>
> Application.DisplayAlerts = True
>
> Application.EnableEvents = True
>
> Application.ScreenUpdating = True
>
> Application.DisplayStatusBar = True
>
> Application.Calculation = xlCalculationAutomatic
>
> Err.Clear
>
> Resume Next '
>
> 'On Error GoTo 0
>
> End Sub
>
>
>
>
>
> On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
>
>
>
> Analisa Anda itu kurang tepat.
>
> On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab
> masalah.
>
> Kasihan si on error goto 0.
>
> On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
>
> Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
>
> hmmm..
>
>
>
> ya sudah, atur saja deh
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Sun Mar 17, 2019 4:13 pm (PDT) . Posted by:
"Tio Adi Bayu Adjie"
Mr Kid. Alasan saya tidak pakai on error resume next, karena saya butuh dikembalikan lagi ke posisi semula.
Ini yg saya perlu dikembalikan.
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Maret 2019 7:03
To: BeExcel
Subject: Re: [belajar-excel] Cara penulisan error handling
Bukannya pakai On error resume next sudah cukup untuk melewati error.
Resume biasanya dipakai untuk blok yang akan sering dipakai tapi tidak mau meletakkannya menjadi sebuah prosedur terpisah.
Tapi kalau sekadar error handling untuk melewati (mengabaikan) error, cukup dengan on error resume next. Bisa lebih hemat proses, karena proses tidak perlu lompat-lompat bolak balik setiap kali ada error. Proses bisa jalan lurus (forward).
Regards,
Kid
On Mon, Mar 18, 2019 at 5:57 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next , proses tidak berhenti.
Ini simulasi saya . Coba diganti resume next dengan On error goto 0. Secara bergantian.
Sub LatihanErrHandling2_Click()
Dim dblValue As Double
On Error GoTo ErrHandler
dblValue = 1 / 0
MsgBox "Lanjut ke kode berikutnya"
Exit Sub
ErrHandler:
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Err.Clear
Resume Next '
'On Error GoTo 0
End Sub
On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com<mailto:mr.nmkid@gmail.com> [belajar-excel] wrote:
Analisa Anda itu kurang tepat.
On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab masalah.
Kasihan si on error goto 0.
On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
hmmm..
ya sudah, atur saja deh
Ini yg saya perlu dikembalikan.
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Maret 2019 7:03
To: BeExcel
Subject: Re: [belajar-excel] Cara penulisan error handling
Bukannya pakai On error resume next sudah cukup untuk melewati error.
Resume biasanya dipakai untuk blok yang akan sering dipakai tapi tidak mau meletakkannya menjadi sebuah prosedur terpisah.
Tapi kalau sekadar error handling untuk melewati (mengabaikan) error, cukup dengan on error resume next. Bisa lebih hemat proses, karena proses tidak perlu lompat-lompat bolak balik setiap kali ada error. Proses bisa jalan lurus (forward).
Regards,
Kid
On Mon, Mar 18, 2019 at 5:57 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next , proses tidak berhenti.
Ini simulasi saya . Coba diganti resume next dengan On error goto 0. Secara bergantian.
Sub LatihanErrHandling2_Click()
Dim dblValue As Double
On Error GoTo ErrHandler
dblValue = 1 / 0
MsgBox "Lanjut ke kode berikutnya"
Exit Sub
ErrHandler:
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Err.Clear
Resume Next '
'On Error GoTo 0
End Sub
On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com<mailto:mr.nmkid@gmail.com> [belajar-excel] wrote:
Analisa Anda itu kurang tepat.
On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab masalah.
Kasihan si on error goto 0.
On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
hmmm..
ya sudah, atur saja deh
Sun Mar 17, 2019 4:14 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb.
On error resume next 'artinya error hhandling di baris setelah lokasi error
On error goto 0 'artinya error handling tetap di lokasi error.
On error goto label 'artinya error handling di lokasi dengan label tertentu
Jadi, di baris pertama, error handler akan resume next
begitu sampai baris ke-2, error handler menjadi tetap di lokasi error
(seakan-akan tidak ada error handler ketika bertemu error, seperti default
error handler gitu deh)
pas sampai baris ke-3, error handler menjadi menuju lokasi dengan label
tertentu
On error goto -1 'artinya status error yang sedang ada dibuang tanpa
mengubah error handling yang sedang aktif
Artinya, error handler yang aktif selalu 1, yaitu yang terakhir diproses.
Wa'alaikumussalam wr wb,
Kid
On Mon, Mar 18, 2019 at 5:35 AM Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamu'alaikum Warahmatullah,
> Mas Kid, ikut bertanya.
> On error goto 0 adalah mematikan error handling di sebuah prosedur.
> jika prosedur tersebut terdapat 4 error handling, apakah keempat-empatnya
> dimatikan atau hanya satu saja di atas on error goto 0?
> Terima kasih
> Wasalamualaikum Warahmatullah
> KenangAgus
>
> On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
>
>
> Analisa Anda itu kurang tepat.
> On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab
> masalah.
> Kasihan si on error goto 0.
> On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
> Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
> hmmm..
>
> ya sudah, atur saja deh
>
>
>
>
>
>
>
>
On error resume next 'artinya error hhandling di baris setelah lokasi error
On error goto 0 'artinya error handling tetap di lokasi error.
On error goto label 'artinya error handling di lokasi dengan label tertentu
Jadi, di baris pertama, error handler akan resume next
begitu sampai baris ke-2, error handler menjadi tetap di lokasi error
(seakan-akan tidak ada error handler ketika bertemu error, seperti default
error handler gitu deh)
pas sampai baris ke-3, error handler menjadi menuju lokasi dengan label
tertentu
On error goto -1 'artinya status error yang sedang ada dibuang tanpa
mengubah error handling yang sedang aktif
Artinya, error handler yang aktif selalu 1, yaitu yang terakhir diproses.
Wa'alaikumussalam wr wb,
Kid
On Mon, Mar 18, 2019 at 5:35 AM Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamu'alaikum Warahmatullah,
> Mas Kid, ikut bertanya.
> On error goto 0 adalah mematikan error handling di sebuah prosedur.
> jika prosedur tersebut terdapat 4 error handling, apakah keempat-empatnya
> dimatikan atau hanya satu saja di atas on error goto 0?
> Terima kasih
> Wasalamualaikum Warahmatullah
> KenangAgus
>
> On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
>
>
> Analisa Anda itu kurang tepat.
> On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab
> masalah.
> Kasihan si on error goto 0.
> On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
> Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
> hmmm..
>
> ya sudah, atur saja deh
>
>
>
>
>
>
>
>
Sun Mar 17, 2019 4:16 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
walah...
jebulnya...
lha kalo itu kan,
tinggal pindahin baris msgbox setelah semua application.blabla itu.
malah bisa tetap pakai on error goto keluar supaya lebih rapi arah proses
dan handler-nya.
kok sukanya memperumit sesuatu yang sederhana loh...
On Mon, Mar 18, 2019 at 6:13 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Mr Kid. Alasan saya tidak pakai on error resume next, karena saya butuh
> dikembalikan lagi ke posisi semula.
>
> Ini yg saya perlu dikembalikan.
>
> Application.DisplayAlerts = True
>
> Application.EnableEvents = True
>
> Application.ScreenUpdating = True
>
> Application.DisplayStatusBar = True
>
> Application.Calculation = xlCalculationAutomatic
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 18 Maret 2019 7:03
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Cara penulisan error handling
>
>
>
>
>
> Bukannya pakai On error resume next sudah cukup untuk melewati error.
>
>
>
> Resume biasanya dipakai untuk blok yang akan sering dipakai tapi tidak mau
> meletakkannya menjadi sebuah prosedur terpisah.
>
> Tapi kalau sekadar error handling untuk melewati (mengabaikan) error,
> cukup dengan on error resume next. Bisa lebih hemat proses, karena proses
> tidak perlu lompat-lompat bolak balik setiap kali ada error. Proses bisa
> jalan lurus (forward).
>
>
>
> Regards,
>
> Kid
>
>
>
>
>
>
>
> On Mon, Mar 18, 2019 at 5:57 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya
> bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next ,
> proses tidak berhenti.
>
>
>
> Ini simulasi saya . Coba diganti resume next dengan On error goto 0.
> Secara bergantian.
>
>
>
> Sub LatihanErrHandling2_Click()
>
> Dim dblValue As Double
>
>
>
> On Error GoTo ErrHandler
>
> dblValue = 1 / 0
>
>
>
> MsgBox "Lanjut ke kode berikutnya"
>
>
>
> Exit Sub
>
> ErrHandler:
>
> Application.DisplayAlerts = True
>
> Application.EnableEvents = True
>
> Application.ScreenUpdating = True
>
> Application.DisplayStatusBar = True
>
> Application.Calculation = xlCalculationAutomatic
>
> Err.Clear
>
> Resume Next '
>
> 'On Error GoTo 0
>
> End Sub
>
>
>
>
>
> On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
>
>
>
> Analisa Anda itu kurang tepat.
>
> On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab
> masalah.
>
> Kasihan si on error goto 0.
>
> On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
>
> Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
>
> hmmm..
>
>
>
> ya sudah, atur saja deh
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
jebulnya...
lha kalo itu kan,
tinggal pindahin baris msgbox setelah semua application.blabla itu.
malah bisa tetap pakai on error goto keluar supaya lebih rapi arah proses
dan handler-nya.
kok sukanya memperumit sesuatu yang sederhana loh...
On Mon, Mar 18, 2019 at 6:13 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Mr Kid. Alasan saya tidak pakai on error resume next, karena saya butuh
> dikembalikan lagi ke posisi semula.
>
> Ini yg saya perlu dikembalikan.
>
> Application.DisplayAlerts = True
>
> Application.EnableEvents = True
>
> Application.ScreenUpdating = True
>
> Application.DisplayStatusBar = True
>
> Application.Calculation = xlCalculationAutomatic
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 18 Maret 2019 7:03
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Cara penulisan error handling
>
>
>
>
>
> Bukannya pakai On error resume next sudah cukup untuk melewati error.
>
>
>
> Resume biasanya dipakai untuk blok yang akan sering dipakai tapi tidak mau
> meletakkannya menjadi sebuah prosedur terpisah.
>
> Tapi kalau sekadar error handling untuk melewati (mengabaikan) error,
> cukup dengan on error resume next. Bisa lebih hemat proses, karena proses
> tidak perlu lompat-lompat bolak balik setiap kali ada error. Proses bisa
> jalan lurus (forward).
>
>
>
> Regards,
>
> Kid
>
>
>
>
>
>
>
> On Mon, Mar 18, 2019 at 5:57 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya
> bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next ,
> proses tidak berhenti.
>
>
>
> Ini simulasi saya . Coba diganti resume next dengan On error goto 0.
> Secara bergantian.
>
>
>
> Sub LatihanErrHandling2_Click()
>
> Dim dblValue As Double
>
>
>
> On Error GoTo ErrHandler
>
> dblValue = 1 / 0
>
>
>
> MsgBox "Lanjut ke kode berikutnya"
>
>
>
> Exit Sub
>
> ErrHandler:
>
> Application.DisplayAlerts = True
>
> Application.EnableEvents = True
>
> Application.ScreenUpdating = True
>
> Application.DisplayStatusBar = True
>
> Application.Calculation = xlCalculationAutomatic
>
> Err.Clear
>
> Resume Next '
>
> 'On Error GoTo 0
>
> End Sub
>
>
>
>
>
> On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
>
>
>
> Analisa Anda itu kurang tepat.
>
> On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab
> masalah.
>
> Kasihan si on error goto 0.
>
> On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
>
> Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
>
> hmmm..
>
>
>
> ya sudah, atur saja deh
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Sun Mar 17, 2019 8:01 pm (PDT) . Posted by:
"Tio Adi Bayu Adjie"
Maaf Mr. Kid, saya gak ngerti. Mohon dibuatkan contohnya seperti apa yang dimaksud Mr. Kid.
Terima kasih atas jawabannya.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Maret 2019 7:16
To: BeExcel
Subject: Re: [belajar-excel] Cara penulisan error handling
walah...
jebulnya...
lha kalo itu kan,
tinggal pindahin baris msgbox setelah semua application..blabla itu.
malah bisa tetap pakai on error goto keluar supaya lebih rapi arah proses dan handler-nya.
kok sukanya memperumit sesuatu yang sederhana loh...
On Mon, Mar 18, 2019 at 6:13 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Mr Kid. Alasan saya tidak pakai on error resume next, karena saya butuh dikembalikan lagi ke posisi semula.
Ini yg saya perlu dikembalikan.
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups..com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>]
Sent: 18 Maret 2019 7:03
To: BeExcel
Subject: Re: [belajar-excel] Cara penulisan error handling
Bukannya pakai On error resume next sudah cukup untuk melewati error.
Resume biasanya dipakai untuk blok yang akan sering dipakai tapi tidak mau meletakkannya menjadi sebuah prosedur terpisah.
Tapi kalau sekadar error handling untuk melewati (mengabaikan) error, cukup dengan on error resume next. Bisa lebih hemat proses, karena proses tidak perlu lompat-lompat bolak balik setiap kali ada error. Proses bisa jalan lurus (forward).
Regards,
Kid
On Mon, Mar 18, 2019 at 5:57 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next , proses tidak berhenti.
Ini simulasi saya . Coba diganti resume next dengan On error goto 0. Secara bergantian.
Sub LatihanErrHandling2_Click()
Dim dblValue As Double
On Error GoTo ErrHandler
dblValue = 1 / 0
MsgBox "Lanjut ke kode berikutnya"
Exit Sub
ErrHandler:
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Err.Clear
Resume Next '
'On Error GoTo 0
End Sub
On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com<mailto:mr.nmkid@gmail.com> [belajar-excel] wrote:
Analisa Anda itu kurang tepat.
On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab masalah.
Kasihan si on error goto 0.
On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
hmmm..
ya sudah, atur saja deh
Terima kasih atas jawabannya.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Maret 2019 7:16
To: BeExcel
Subject: Re: [belajar-excel] Cara penulisan error handling
walah...
jebulnya...
lha kalo itu kan,
tinggal pindahin baris msgbox setelah semua application..blabla itu.
malah bisa tetap pakai on error goto keluar supaya lebih rapi arah proses dan handler-nya.
kok sukanya memperumit sesuatu yang sederhana loh...
On Mon, Mar 18, 2019 at 6:13 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Mr Kid. Alasan saya tidak pakai on error resume next, karena saya butuh dikembalikan lagi ke posisi semula.
Ini yg saya perlu dikembalikan.
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups..com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>]
Sent: 18 Maret 2019 7:03
To: BeExcel
Subject: Re: [belajar-excel] Cara penulisan error handling
Bukannya pakai On error resume next sudah cukup untuk melewati error.
Resume biasanya dipakai untuk blok yang akan sering dipakai tapi tidak mau meletakkannya menjadi sebuah prosedur terpisah.
Tapi kalau sekadar error handling untuk melewati (mengabaikan) error, cukup dengan on error resume next. Bisa lebih hemat proses, karena proses tidak perlu lompat-lompat bolak balik setiap kali ada error. Proses bisa jalan lurus (forward).
Regards,
Kid
On Mon, Mar 18, 2019 at 5:57 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next , proses tidak berhenti.
Ini simulasi saya . Coba diganti resume next dengan On error goto 0. Secara bergantian.
Sub LatihanErrHandling2_Click()
Dim dblValue As Double
On Error GoTo ErrHandler
dblValue = 1 / 0
MsgBox "Lanjut ke kode berikutnya"
Exit Sub
ErrHandler:
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Err.Clear
Resume Next '
'On Error GoTo 0
End Sub
On 3/18/2019 05:12, 'Mr. Kid' mr.nmkid@gmail.com<mailto:mr.nmkid@gmail.com> [belajar-excel] wrote:
Analisa Anda itu kurang tepat.
On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab masalah.
Kasihan si on error goto 0.
On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
hmmm..
ya sudah, atur saja deh
Sun Mar 17, 2019 4:33 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kalau resume dipakai dalam definisi error handler, jadinya diletakkan
sebelum proses-proses yang berpotensi menimbulkan error.
on error resume next 'atau on error resume 700 'kalau ada baris kode yang
diberi nomor baris bernilai 700
'proses yang berpotensi error disini
Kalau resume dipakai dalam blok error handler, maka diletakkan di bagian
akhir blok agar kembali ke baris setelah baris kode penyebab error.
Biasanya, dengan adanya blok handler yang pakai resume seperti ini, proses
jadi lompat ke sana kesini dalam prosedur yang sama.
Umumnya, daripada pakai blok kode, disarankan pakai prosedur lain.
Blok kode program lainnya bisa disusun dengan gosub.
Contoh : 2 blok kode program yang sebaiknya dihindari
Public Sub SebaiknyaDihindari()
Dim d As Long
On Error GoTo PESAN_ERROR
d = 1
Error (13)
GoSub BLOK_SUB
'banyak proses lain disini
d = 2
Error (9)
GoSub BLOK_SUB
Exit Sub
PESAN_ERROR:
MsgBox "Pesan ke-" & d & vbCrLf & Err.Number & " - " & Err.Description,
vbInformation, "Resume Error"
Resume Next
BLOK_SUB:
MsgBox "Pesan sub ke-" & d, vbInformation, "GoSub Return"
Return
End Sub
Regards,
Kid
On Mon, Mar 18, 2019 at 5:19 AM Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Dear All,
>
> Saya gagal paham penulisan Resume next,
> yang benar penulisan resume next (on error resume next) di awal atau di
> akhir?
> kalau ditulis di akhir gunanya apa?
>
> Regard
> NangAgus
> On 3/17/2019 18:44, Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
> [belajar-excel] wrote:
>
>
>
> Terima kasih Mr. Kid atas jawabannya. Semoga amal baiknya diterima
> disisiNya. Amiin.
>
>
>
> No. 2
>
> Saya sudah buat function berikut untuk menentukan apakah file di server
> dibuka di network atau di computer sendiri. *Tapi belum dicoba. Tolong
> tanggapannya.*
>
>
>
> *Public Function FileTerbuka() As Boolean*
>
> Dim alamatfilemaster As String
>
> alamatfilemaster = "\\AlamatServer\FolderServer\Subfolder\NamaFilenya.xlsx"
>
>
>
> FileTerbuka = False
>
>
>
> On Error GoTo not_open
>
>
>
> Workbooks(alamatfilemaster).Activate
>
>
>
> Exit Function
>
> not_open:
>
> MsgBox "File master terbuka di computer anda" & vbNewLine & vbNewLine
> & _
>
> "Silahkan tutup file master dulu", vbInformation, "Info"
>
> FileTerbuka = True
>
> Err.Clear
>
> Resume Next
>
> *End Function*
>
>
>
>
>
>
sebelum proses-proses yang berpotensi menimbulkan error.
on error resume next 'atau on error resume 700 'kalau ada baris kode yang
diberi nomor baris bernilai 700
'proses yang berpotensi error disini
Kalau resume dipakai dalam blok error handler, maka diletakkan di bagian
akhir blok agar kembali ke baris setelah baris kode penyebab error.
Biasanya, dengan adanya blok handler yang pakai resume seperti ini, proses
jadi lompat ke sana kesini dalam prosedur yang sama.
Umumnya, daripada pakai blok kode, disarankan pakai prosedur lain.
Blok kode program lainnya bisa disusun dengan gosub.
Contoh : 2 blok kode program yang sebaiknya dihindari
Public Sub SebaiknyaDihindari()
Dim d As Long
On Error GoTo PESAN_ERROR
d = 1
Error (13)
GoSub BLOK_SUB
'banyak proses lain disini
d = 2
Error (9)
GoSub BLOK_SUB
Exit Sub
PESAN_ERROR:
MsgBox "Pesan ke-" & d & vbCrLf & Err.Number & " - " & Err.Description,
vbInformation, "Resume Error"
Resume Next
BLOK_SUB:
MsgBox "Pesan sub ke-" & d, vbInformation, "GoSub Return"
Return
End Sub
Regards,
Kid
On Mon, Mar 18, 2019 at 5:19 AM Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Dear All,
>
> Saya gagal paham penulisan Resume next,
> yang benar penulisan resume next (on error resume next) di awal atau di
> akhir?
> kalau ditulis di akhir gunanya apa?
>
> Regard
> NangAgus
> On 3/17/2019 18:44, Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
> [belajar-excel] wrote:
>
>
>
> Terima kasih Mr. Kid atas jawabannya. Semoga amal baiknya diterima
> disisiNya. Amiin.
>
>
>
> No. 2
>
> Saya sudah buat function berikut untuk menentukan apakah file di server
> dibuka di network atau di computer sendiri. *Tapi belum dicoba. Tolong
> tanggapannya.
>
>
>
> *Public Function FileTerbuka(
>
> Dim alamatfilemaster As String
>
> alamatfilemaster = "\&#
>
>
>
> FileTerbuka = False
>
>
>
> On Error GoTo not_open
>
>
>
> Workbooks(alamatfil
>
>
>
> Exit Function
>
> not_open:
>
> MsgBox "File master terbuka di computer anda" & vbNewLine & vbNewLine
> & _
>
> "Silahkan tutup file master dulu", vbInformation, "Info"
>
> FileTerbuka = True
>
> Err.Clear
>
> Resume Next
>
> *End Function*
>
>
>
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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