Pada InputBox bawaan Excel Application (coba cari di Help), inputbox bisa menerima beberapa datatype dan beberapa object. Konstanta 8 berarti input berupa object range.
Kid. 2011/6/13 si Nung <[email protected]> > > > terima kasih untuk tanggapan mr kid > > saya akan mencobanya > > > rng.name=sname > > kuncinya disini rupanya, range bisa langsung diberi nama > > sepertinya rng bisa diganti selection > > kemarin kemarin setelah ketik selection kemudian di tambah titik, > karena gak muncul opsi opsi lanjutannya, > jadi belum tahu ... > > > Range","a1",type:=8 > > type 8 maksudnya apa ya ? > atau help keywordnya :) > > wassalamu'alaikum > > sinung > ( > toppostingmengikutisaranhttp://tech.groups.yahoo.com/group/belajar-excel/message/10697: > ))) > > > On 13 Jun 2011 at 9:06, Mr. Kid wrote: > > > gak wajib. > > > > Silakan dikembangkan saja. > > > > Misal : > > > > dim rng as range > > dim sname as string > > on error resume next > > set rng=application.inputbox("Pilih range yang akan dinamai","Input > > Range","a1",type:=8 > > if err.number <> 0 then > > err.clear > > exit sub > > endif > > > > sname=inputbox("Tulis nama range") > > if lenb(trim$(sname))<>0 then > > sname=replace$("_" & sname," ","_") > > endif > > > > rng.name=sname > > > > > > Kid. > > > > /*-sig- > > "Wisdom and knowledge is everywhere, > but so is stupidity." > > Reivan > > -sig-*/ > > >
