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>
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
