ups koreksi pada baris : l = 2 / 2 * rng.value 'berpotensi error, ketika rng berisi string atau ada banyak cell dalam rng menjadi : 'berpotensi error, ketika rng berisi string, ada banyak cell dalam rngData l = 2 / 2 * rngData.value
Wassalamu'alaikum Wr. Wb. Kid. 2012/11/23 Mr. Kid <mr.nm...@gmail.com> > Wa'alaikumussalam Wr. Wb. > > Biasanya error trap yang sudah jelas posisinya diberi peng-handle > pesannya. Jadi memang harus paham apakah baris tersebut berpotensi error > atau tidak. > Contoh : > Public Sub CobaErrTrapSederhana(lNilai as long, rngData as range) > Dim l As Long > Dim sMsg As String > > On Error Resume Next > l = 1 / lNilai 'berpotensi error, ketika input lNilai adalah 0 > sMsg = sMsg & Now & vbTab & Err.Number & vbTab & Err.Description & > vbCrLf > > l = 2 > > l = 2 / 2 * rng.value 'berpotensi error, ketika rng berisi string > atau ada banyak cell dalam rng > sMsg = sMsg & Now & vbTab & Err.Number & vbTab & Err.Description & > vbCrLf > > MsgBox sMsg > Err.Clear > End Sub > > Wassalamu'alaikum Wr. Wb. > Kid. > > > 2012/11/23 him mah <himmah....@gmail.com> > >> ** >> >> >> Assalamu'alaikum Wr. Wb. >> >> ketika kita membuat perintah menggunakan VBA atau makro maka sering >> kita mengalami error, bisa ngga ya semua error itu ditampung terlebih >> dahulu sampai semua prosedur dijalankan sampai akhir. Nah ketika >> emang dalam proses tersebut terjadi error bisa 1 atau lebih, maka >> error tersebut akan ditampilkan dalam sheet tertentu lengkap dengan >> waktu kejadiannya misal saja sheet "ERROR". kira-kira kalau seperti >> itu bagaimana VBA nya >> >> terima kasih >> >> > >