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 [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.ad...@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.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 > > > > > > > > > > > > > > >
