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.
2011/6/13 si Nung <[email protected]>
>
>
> On 13 Jun 2011 at 8:34, Mr. Kid wrote:
>
> > Wa alaikumusalam Wr. Wb.
> >
> > Misal range yang akan dinamai adalah range C7:J19
> > di sheet bernama myData. Nama range yang
> > dikehendaki adalah myRange
> >
> > Sheets("myData").range("c7:j19").name="myRange"
>
> trims mr ki(n)d :)
>
> wajib hardcoded ya ?
>
> kemarin coba rekam makro dapat offset offset ya hardcoded juga walau pilih
> opsi relative cell :(
>
> rencana saya,
> buat makro untuk memberi nama secara otomatis, buat tombolnya,
> kemudian setelah buka file xls yg berjibun, select rangenya, tekan tombol,
> jadi deh nama rangenya...
>
> mohon pencerahan kembali :)
>
>
> > Kid.
> >
> > 2011/6/13 si Nung <[email protected]>
> >
> > >
> > >
> > > assalamu'alaikum
> > >
> > > mohon pencerahan vba untuk menamai range yg sudah disorot,
> > > karena luasan range ini bervariasi pada tiap sheet serta luasannya
> tetap
> > > (bukan dinamis)
> > > jadi setelah menyorot range tertentu dan hendak menamainya dengan
> rumusan
> > > tertentu (namafile_namasheet)
> > >
> > > contoh file rangename.xls (8 KB) terlampir,
> > >
> > > dari googling dapat link berikut :
> > > http://www.xtremevbtalk.com/showthread.php?t=43003
> > > Naming an Excel range,
> > >
> > > ada vba sbb :
> > > Range("A1").CurrentRegion.Select
> > > Names.Add Name:="Import", RefersTo:=activecell.currentrange.Range
> > >
> > > namun ketika saya praktekkan masih error (learning by doing sih :))
> > > mohon pencerahan anggota belajar-excel
> > >
> > > sebelumnya saya sampaikan terima kasih
> > >
> > > wassalamu'alaikum
>
> /*-sig-
>
> "Wisdom and knowledge is everywhere,
> but so is stupidity."
>
> Reivan
>
> -sig-*/
>
>
>
