nah kalo gini kan jadi JLAZZ adanya... tarengkyu mas Mr. kid... (lagi sibuk ya...)
oiya, penulisan OnError duwa kali itu menuruti kabar dari pak wahyu (yg di excel 2003 KU ternyata masih ELLOL-ELLOL zuga....) habisnya pak wahyu tidak menyertakan code yg dicoba.. (agar bisa siti coba juga di pc KU) ------- btw menurutku (masih ngeyel nih..) khusus pemilihan fungsi (keadaan mengharuskanspt itu) jika sudah ada fungsi di VBA, kita sebaiknya gunakan dulu sebelum pinjam fungsi dari workshet seperti kasus pinjam FIND / padahal VBA sudah punya InStr ----- Original Message ----- From: Mr. Kid To: [email protected] Sent: Thursday, November 12, 2009 3:43 AM Subject: Re: [belajar-excel] menghindari program berhenti... @Mr. Zam, daripada berurusan dengan error message yang memang harus hati-hati, selama bisa menggunakan fungsi yang jarang menghasilkan error message. jadi baris kode untuk hal itu, menjadi 2 baris saja : strCurrent = OrderTable(EdRecNo, 17) strCurrent = trim$(mid$(strCurrent, instr(1, strCurrent, ";") +1 , len(strCurrent ) +1)) tapi, jika strCurrent (yang jadi strRemark -- hasil proses) akan ditulis ke cell, tetap gunakan OrderTable(EdRecNo, 17)=strcurrent jangan langsung : OrderTable(EdRecNo, 17) = trim$(mid$(strCurrent, instr(1, strCurrent, ";") +1 , len(strCurrent ) +1)) @mbak Siti di xl2007, dengan 1 baris On Error Resume Next bisa (tidak perlu 2). dari sifat trap error dengan on error, maka baris i = WorksheetFunction.Find("ada", "di jakarta") akan dilewati jika menghasilkan error (i tidak akan diperbarui nilainya). jadi, jika dalam sebuah loop, i akan bernilai hasil proses loop terakhir yang tidak menghasilkan error. biasanya, kalau hasil i yang sangat dibutuhkan untuk proses selanjutnya pada loop tersebut juga, disertai baris pengisi nilai default yang dipakai : i = WorksheetFunction.Find("ada", "di jakarta") if err.number<>0 then i=2009 'misal jika i hasilnya error, set jadi nilai default, yaitu butuhnya 2009 err.clear end if msgbox i Tapi ndak tahu dengan xl2003 dan sebelumnya. Kid. 2009/11/12 siti Vi <[email protected]> kalau bisa (menghilangkan timbulnya error message) terus fungsi itu menghasilkan data apa ? misal (mohon dicoba di pc pak wahyu) Sub coba1() Dim i As Integer On Error Resume Next On Error Resume Next i = WorksheetFunction.Find("ada", "di jakarta") MsgBox i End Sub Sub coba2() Dim i As Integer ' On Error Resume Next i = WorksheetFunction.Find("ada", "berada di jakarta") MsgBox i End Sub pada sat sub coba1 dijalankan msgbox menghasilkan apa ?? (sayangnya apa yg dikatakan "BISA mbak" itu codingnya seperti apa kok ndak di tulis kemaree..) ----- Original Message ----- From: wahyu abdi To: [email protected] Sent: Wednesday, November 11, 2009 7:01 PM Subject: Re: [belajar-excel] menghindari program berhenti... Bisa Mbak, saya pakai Excel 2007, dengan cara yang agak aneh "on error resume next" nya saya ketik dua baris (mulanya iseng doang, tapi berhasil tuh), tadinya satu baris masih error mulu, kenapa ya?
