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 <[email protected]>
>
>
> maaf koreksi:
> *1 FUNGSI Inputbox*
> *2. METHOD InputBox*
> (tidak ada property InputBox)
>
>
>
>
>
> ----- Original Message -----
> *From:* siti Vi <[email protected]>
> *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 <[email protected]>
> *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<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
>>
>
>
>
>
