Haiyaa, akhirnya bisa juga, semoga bermanfaat buat yang punya masalah yang sama. sub errtrapp() on error resume next ' looping for trapping error on error goto 0 end sub
--- On Sun, 11/1/09, wahyu abdi <[email protected]> wrote: From: wahyu abdi <[email protected]> Subject: Re: [belajar-excel] on error goto To: [email protected] Date: Sunday, November 1, 2009, 8:12 PM Thanks Mr. Kid dan Mbak Vi, sama sekali nggak kepikiran kalau angka bisa di paksa jadi string Salam Kompak Wahyu --- On Sun, 11/1/09, kid <nmkid.family@ gmail.com> wrote: From: kid <nmkid.family@ gmail.com> Subject: Re: [belajar-excel] on error goto To: belajar-excel@ yahoogroups. com Date: Sunday, November 1, 2009, 6:41 AM Lalu bapaknya mau pakai InputBox yang mana ? hehehe... Mau input apa sih ? Semua data asli dganti jadi dummy ga apa kok.., kadang kala kalau gak tahu persis duduk perkaranya, malah membuat sesuatu yang mudah jadi ruwet lho.. Kalau mau membuat InputBox dalam loop, kira-kiranya begini aja deh. Dim sTemp as String on error resume next do stemp=inputbox( "masukkan angka 1") if stemp="1" then msgbox "gitu dong, nurut sama komputer ya..." exit do endif loop until stemp=vbnullstring Bisa dicoba.. tapi, dimana pakainya ya... entahlah bisa dimana saja... fungsi inputbox baris : stemp=inputbox( "masukkan angka 1") bisa diganti dengan method milik aplikasi menjadi : stemp=application. InputBox("", ,,,,,,2) Baca help untuk lebih jelasnya. Kid. 2009/11/1 siti Vi <setiyowati.devi@ gmail.com> maaf koreksi: 1 FUNGSI Inputbox 2. METHOD InputBox (tidak ada property InputBox) ----- Original Message ----- From: siti Vi To: belajar-excel@ yahoogroups. com 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: belajar-excel@ yahoogroups. com 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 <setiyowati.devi@ gmail.com> wrote: From: siti Vi <setiyowati.devi@ gmail.com> Subject: Re: [belajar-excel] on error goto To: belajar-excel@ yahoogroups. com 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
