ubah deklarasi dim l as Long, menjadi : (supaya lebih mudah dipahami)
dim datakrywn as range, tblabsens as range
dim tbnewrow as long, l as long
---
currentregion adalah methods suatu range untuk memblok *satu *area range
yang bersinggungan
offset untuk merujuk ke suatu cell berdasar jarak dari cell patokan
(anchor), seperti dalam fungsi Offset input parameter pertama dan kedua
resize untuk mengubah luasan range yang dirujuk berdasar tinggi (jumlah
baris) dan lebar (jumlah kolom) seperti fungsi Offset input parameter 3 dan
4
angka dalam kurung adalah input parameter yang dibutuhkan oleh method
tersebut.
Coba di worksheet buat satu blok angka-angka acak yang unik. Misal di c3
sampai e5
kemudian di a1
mulai dengan :
=offset(c3,1,1)
sama saja dengan VBA
range("c3").offset(1,1)
cell berikut :
=rows(offset(c3,1,0,2,1)) -> apa arti formula ini ?
di vbakan jadi :
range("c3").offset(1,0).resize(2,1).rows.count
di worksheet coba klik c3 lalu (di xl2007) goto special pilih current region
tekan OK
VBA-nya :
range("c3").currentregion
Kid.
2011/8/7 <[email protected]>
> **
>
>
> ** Dear master x-cel,
>
> Saya sbnrnya awam banget dgn vb,karna itu minta tlong.tapi stlh
> tahu,melajari sndri g bs karna g tahu bahasanya. Kalo berkenan bisa g
> jelasin bahasa vb dbwh in terutama u/ bahasa currentregion,offset dan resize
> serta angka dalam kurung.
> Maaf ngerepoti trus,terutama mbak paling baik sedunia,mbak siti.
>
> Private sub user form_initialize()
> Dim I as long
>
> Set datakrywn = sheet. ("datakaryawan").range("a3").current
> region.offset(1,0)
> With datakrywn
> Set datakrywn = .resize(rows.count -1, .columns.count)
> End with
>
> Set tblabsens = sheets("saving data").cells(1).currentregion
> Tbnewrow = tblabsens.rows.count + 1
> With Cbokaryawan
> .Columncount = 2
> .Boundcolumns = 1
> .Columnwidths = "40,100"
> .Clear
> For I = 1 to datakrywn.rows.count
> .Add item
> .Column(0, I - 1) = datakrywn (I, 1)
> .Column(1, I - 1) = datakrywn (I, 2)
> Next
> End with
> Tblabsens.parent.activate
> End sub
>
>
>
> Thank's
>
>
>
> Tjahya
>
> Sent from my BlackBerry®
> ------------------------------
> *From: * "STDEV(i)" <[email protected]>
> *Sender: * [email protected]
> *Date: *Sun, 7 Aug 2011 13:47:29 +0700
> *To: *<[email protected]>
> *ReplyTo: * [email protected]
> *Subject: *Re: [belajar-excel] Belajar istilah vb
>
> Kita sedang membicarakan bahasa VBA.
> *
> *
> *Variable *
> A named storage location that can contain data that can be modified during
> program execution.
> Each variable has a name that uniquely identifies it within its scope. A
> data type can be specified or not.
> Variable names must begin with an alphabetic character, must be unique
> within the same scope,
> can't be longer than 255 characters, and can't contain an embedded period
> or type-declaration character.
>
> Sebelum digunakan, variable sebaiknya dideklarasikan (ditentukan namanya,
> scope-nya, type data nya)
> Salah satu statement untuk mendeklarasikan Variable adalah Dim (mungkin
> dari kata Dimension)
>
> Dim MyVar As Long
> mendeklarasikan variable bernama MyVal dengan type data = Bilangan
> LongInteger
>
> Dim KolomNIK As Range
> mendeklarasikan variable bernama KolomNIK, type datanya Object Range
>
> Public R As Integer
> mendeklarasikan variable bernama Rl dengan type data = Bilangan Integer
> dengan scope (daerah berlaku dan umur) yg lebih luas.
>
> MyVar = 65536
> Menginisialisasi /mengisi *Variable data* bernama dengan nilai 65536
>
> *Set* KolomNIK = Sheet1.Range("H2:H78")
> Menantukan / mengisi* variable OBJECT* Range bernama KolomNIK untuk
> mewakili
> Range("H2:H78") yg ada di Sheet1
>
> Untuk hal hal lain pak Tjahya dapat membuka VBE, klik Aikon TandaTanya
> (HELP)
> isikan keyword yg ingin diketahui.
> [image: VBE help.GIF]
>
> Kembali saya menyatakan (untuk kesekian kalinya) : balajar pemrograman
> tanpa pegang buku text-nya
> akan sama dengan Nakoda yg berlayar tanpa membawa kompas dan peta...
>
> *Pertanyaan:*
> Apakah yg berbeda dalam menginisialisasi *variable data* dan* variable
> object ?*
> *
> *
>
> 2011/8/7 <[email protected]>
> > Saya seringkali liat istilah *'dim' ...'as'.*.. Dan juga 'set' ...=...
> Terus istilah* 'for' *...=....
> > *Apaan* ya itu, seringkali kalo aq amati kalo pake vb mesti awalannya
> itu.
> > sekalian tanya karna tadi ada yg tanya syntax me, aq tanya lainnya.
> >
> > Thank's
> > Tjahya
>
>
>
