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.ad...@ptssb.co.id<mailto:tio.ad...@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-ex...@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.ad...@ptssb.co.id<mailto:tio.ad...@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.nm...@gmail.com<mailto:mr.nm...@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
