Asalamualaikum warahmatullah.
Terima kasih mas Kid
permasalahan selesai.
Wasalamualaikum warahmatullah.
2016-09-15 8:33 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> 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
>>
>>
>
>
