mana to contoh yang mau di trap errornya.
2009/11/1 wahyu abdi <[email protected]>
>
>
> Dear Mbak,
> Setelah dicoba dengan sedikit modifikasi hasilnya lain lo mbak, bisa copy
> paste contoh di bawah.
>
> Sub whateverusaylah()
>
> Dim variableku As Variant
> variableku = InputBox(" masukkan angka 1 ")
> ''''variableku = 1
>
> MsgBox TypeName(variableku)
> variableku = "KAMU"
> MsgBox TypeName(variableku)
> Set variableku = Sheets(1).Range("A10:B15")
> MsgBox TypeName(variableku)
> End Sub
>
> salam
> wahyu
>
>
> --- On *Fri, 10/30/09, siti Vi <[email protected]>* wrote:
>
>
> From: siti Vi <[email protected]>
> Subject: Re: [belajar-excel] on error goto
> To: [email protected]
> Date: Friday, October 30, 2009, 6:37 AM
>
>
> ketika user menginput suatu data, lazimnya kita menampung data tsb ke
> dalam sebuah ariable.
>
> sebuah variable dapat diketahui tyedatanya: antara lain dengan memanfaatkan
> fungsi TypeName
>
> Jadi kalau type data tidak sesuai yg dikehendaki, kita langsung dapat
> mengantisipasi
> kesalahan input tsb.
>
> If TypeName(VariableMu ) = "String" Then
> '-------bla bla bla
> Else
> '------blli bli bli
> End If
> *
> TypeName Function*
> Returns a String that provides information about a variable.
> Syntax: TypeName(varname)
> The required varname argument is a Variant containing any variable except a
> variable of a user-defined type.
> Remarks
> The string returned by TypeName can be any one of the following:
> dst.....
>
> cobalah menjalankan prosedur ini, dan lihat apa yg terjadi..
>
> Sub AntiSpesifikYa( )
> Dim variableku As Variant
> variableku = 1
> MsgBox TypeName(variableku )
> variableku = "KAMU"
> MsgBox TypeName(variableku )
> Set variableku = Sheets(1).Range("A10:B15")
> MsgBox TypeName(variableku )
> End Sub
>
>
>
> 2009/10/30 wahyu71 <wahy...@yahoo.
> com<http://us.mc335.mail.yahoo.com/mc/[email protected]>
> >
>
>>
>> Dear Milis,
>>
>> Saya mengalami kesulitan untuk perangkap error kesalahan input, contoh
>> bila yang diminta input string yang diinput malah angka atau sebaliknya,
>> saya coba pakai on error goto -----> looping ,hanya bisa untuk satu kali
>> looping, sementara kesalahan input kan bisa berkali - kali. Bagaimana
>> caranya ya untuk mengatasi masalah ini?
>>
>> Thanks sebelumnya.
>>
>> salam wahyu
>>
>
>
>
>
