maaf koreksi: 1 FUNGSI Inputbox 2. METHOD InputBox (tidak ada property InputBox)
----- Original Message ----- From: siti Vi To: [email protected] Sent: Sunday, November 01, 2009 03:08PM Subject: Re: [belajar-excel] on error goto saya sudah menduga pertanyaan ini akan muncul. tetapi dari mula kan anda belum meyebutkan INPUT itu mau di masukkan dengan CARA apa ? (pak wahyu ini selalu menanyakan hal yg BELUM dibuat SPESIFIK !) agaknya beliau tidak suka mengajukan contoh kasus dlm bentuk workbook Gini lho ya... Di Excel & VBA ada 2 macam inputbox 1. Property Inputbox 2. Method InputBox member dari Application 1 = Property InputBox : hanya mampu menghasilkan STRING Apapun yg dimasukkan ke inputbox seperti yg dibuat pak wahyu itu walaupun berupa karakter angka atau karakter yg dibentuk seperti DATE akan diterima sbg data string. 2 = Aplication.InputBox: dapat menerima berbagai macam type data / object asal di dalam penggunaannya kita menentuan TYPE nya sekedar penjelasan (asal-asalan) ada di sini http://tech.groups.yahoo.com/group/XL-mania/message/8242 ----- Original Message ----- From: wahyu abdi To: [email protected] Sent: Sunday, November 01, 2009 11:39AM Subject: Re: [belajar-excel] on error goto 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
