Thanks a lot Mbak atas quick responnya, langsung saya coba nih, ... --- 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> 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
