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 <[email protected]>
> 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 <[email protected]>
>
>> **
>>
>>
>> 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
>>
>>
>
>
