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