Tambahin :
On Error Resume Next
strCurrent = OrderTable(EdRecNo, 17)
i = Application.WorksheetFunction.Find(";", strCurrent)
strReplaced =
Application.WorksheetFunction.Replace(Arg1:=strCurrent, Arg2:=1,
Arg3:=i, Arg4:="")
TxtRemark = Application.WorksheetFunction.Trim(strReplaced)
............
--- On Wed, 11/11/09, Ahmad Zamroni <[email protected]> wrote:
From: Ahmad Zamroni <[email protected]>
Subject: [belajar-excel] menghindari program berhenti...
To: "belajar-excel" <[email protected]>
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.WorksheetFunction.Find(";", strCurrent)
strReplaced =
Application.WorksheetFunction.Replace(Arg1:=strCurrent, Arg2:=1,
Arg3:=i, Arg4:="")
TxtRemark = Application.WorksheetFunction.Trim(strReplaced)
-zam-
------------------------------------
bergabung ke milis (subscribe)
kirim mail kosong ke: [email protected]
posting ke milis
kirim kan ke: [email protected]
berkunjung ke web milis:
http://groups.yahoo.com/group/belajar-excel/
melihat file archive / mendownload lampiran
http://www.mail-archive.com/[email protected]/
menhubungi moderators & owners:
[email protected]
keluar dari milis (unsubscribe)
kirim mail kosong ke: [email protected]
ExcelWeb <http://opi.110mb.com/>Yahoo! Groups Links
