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?
--- On Wed, 11/11/09, siti Vi <[email protected]> wrote:
From: siti Vi <[email protected]>
Subject: Re: [belajar-excel] menghindari program berhenti...
To: [email protected]
Date: Wednesday, November 11, 2009, 6:22 AM
oh bisa to ?
(apa sudah di praktekkan ??)
kalau di pc ku, dari dulu worksheetfunction. find jika diaplikasikan
di vba,
kalau tidak menemukan substring yg dicari tentu menimbulkan error
message
walaupun sudah didahului instruksi :
On Error Resume Next
atau mungkin pc / excel saya yg tidak standar ya...
----- Original Message -----
From: Puthut Wibowo
To: belajar-excel@ yahoogroups. com
Sent: Wednesday, November 11, 2009 5:18 PM
Subject: Re: [belajar-excel] menghindari program berhenti...
Tambahin :
On Error Resume Next
strCurrent = OrderTable(EdRecNo, 17)
i = Application. WorksheetFunctio n.Find("; ", strCurrent)
strReplaced =
Application. WorksheetFunctio n.Replace( Arg1:=strCurrent , Arg2:=1,
Arg3:=i, Arg4:="")
TxtRemark = Application. WorksheetFunctio n.Trim(strReplac ed)
............
--- On Wed, 11/11/09, Ahmad Zamroni <ahza...@gmail. com> wrote:
From: Ahmad Zamroni <ahza...@gmail. com>
Subject: [belajar-excel] menghindari program berhenti...
To: "belajar-excel" <belajar-excel@ yahoogroups. com>
Date: Wednesday, November 11, 2009, 2:40 PM
Dear pakar macro,
Gimana caranya menkondisikan baris perintah berikut agar tidak timbul
error jika dari cell yang aktif tidak ditemukan yang dimaui, baik itu
karena cell kosong atau tidak ada karakter “;”?
strCurrent = OrderTable(EdRecNo, 17)
i = Application. WorksheetFunctio n.Find("; ", strCurrent)
strReplaced =
Application. WorksheetFunctio n.Replace( Arg1:=strCurrent , Arg2:=1,
Arg3:=i, Arg4:="")
TxtRemark = Application. WorksheetFunctio n.Trim(strReplac ed)
-zam-
