iya makasih pak kid
Pada tanggal 23/11/12, Mr. Kid <mr.nm...@gmail.com> menulis: > 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 >>> >>> >> >> >