wa'alaikumussalam wr wb
mas Nang,
coba pakai on error resume next
dim h as long, x as string
on error resume next
x="bc"
h=application.worksheetfunction.find("a",x)
if h=0 then
h=15
endif
err.clear
on error goto 0
atau pakai evaluate
dim h as long, x as string
x="bc"
h=evaluate("=iferror( find( *""*a*""* , *""*" & x & "*""* ) ,15)")
'kalau di sebuah cells, sama dengan formula berbunyi : =iferror( find( *"*
a*"* , *"*bc*"* ) , 15 )
'satu bijik petik dua (") disebuah bunyi teks menjadi 2 buah petik dua ("")
di dalam penulisan nilai teks di baris kode
'x="b dan "" c juga d" 'akan membuat x berisi nilai teks berbunyi b dan "
c juga d
Wassalamu'alaikum wr wb
Kid
2016-09-15 6:49 GMT+07:00 Nang Agus nanga...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Asalamualaikum warahmatullah
>
> Dear member Belajar Excel
>
> saya membuat sebuah cekrip sederhana untuk menangkap error namun error
> tersebut tidak dapat diubah karena hasilnya selalu #VALUE
>
> h = application.worksheetFunction.Find("a",x,1)
> if iserror(h) then h = 15
>
> hasil h selalu #VALUE jika a tidak ditemukan
> bagaimanakah cekripnya agar h = 15 jika a tidak ditemukan?
> terima kasih atas perhatiannya
> Wasalamualaikum warahmatullah
>
>
>
