well done.
Ada ide lain lagi ?
Mungkin mau pakai loop for each atau do loop. Do Loop bisa pakai yang while
atau pakai until.
btw,
Andai masih ingat pembahasan dalam kopdar#2 tentang object dalam Excel
ditambah berrempong ria memahami evaluate, jadinya seperti ini :
*sheets("nama sheet penulisan").range("alamat pojok kiri atas lokasi
penulisan").resize( 10,10 ).value = _*
* evaluate( "=row($1:$10)*transpose( row($1:$10) )" )*
Bagian :
sheets("nama sheet penulisan") -> mencolek sheet tertentu tanpa
perlu meng-select atau meng-activate
. -> untuk mengakses member dari object terakhir yang disebut
(mengakses anak-anaknya di object terakhir yang disebut)
range("alamat pojok kiri atas lokasi penulisan") -> mencolek range di
alamat tertentu (bisa 1 atau lebih cells) tanpa meng-select
resize( 10,10 ) -> memperluas area range yang dicolek menjadi n
baris x m baris ( n , m ) misal (10,10)
value -> mengakses properti bernama value yang biasanya memegang nilai
yang disimpan dalam sebuah cells
= -> operator untuk meng-set nilai baru karena sebelumnya tanda sama
dengan ini bukan kegiatan pembandingan
evaluate -> menggunakan fitur bawaan Excel untuk meng-evaluate suatu
ekspresi seperti formula dan menghasilkan nilainya saja
(pernah pakai formula auditing ? klik cells berformula ->
ribbon Formulas -> group Formula Auditing -> Evaluate formula)
=row($1:$10)*transpose( row($1:$10) ) -> ekspresi yang
di-evaluate
>> bagian ini bisa dipakai langsung di worksheet dengan cara :
> copy ke clipboard bagian tersebut (blok bunyinya dan
CTRL C
> blok 10 baris x 10 kolom cells
> ke formula bar -> paste (CTRL V)
> tekan CTRL SHIFT ENTER (supaya jadi array formula)
Pada baris script di atas, evaluate akan menghasilkan suatu array berisi
nilai-nilai data hasil formula.
Jadi yang ditulis ke sheets(blabla adalah nilai dalam array nilai-nilai
data hasil pengolahan evaluate
Wassalam,
Kid.
On Sat, Dec 13, 2014 at 5:16 AM, hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Ini ide tengah malam menjelang subuh di Jakarta.
>
> Option Explicit
> Sub Tes()
> Dim Rng As Range
> Set Rng = Range(Cells(1, 1), Cells(10, 10))
> With Rng
> .FormulaR1C1 = "=ROW()*COLUMN()"
> End With
> End Sub
>
> Salam,
> HK
>
> ------------------------------
> *From:* "'Mr. Kid' mr.nm...@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Friday, 12 December 2014, 11:47
>
> *Subject:* Re: [belajar-excel] Mengisi waktu menjelang pulang
>
>
> eh gak ada yang posting ide lain lagi ?
> yang lempar kasus juga gak punya ide lain nih ?
> VBA hanya bisa menyelesaikan dengan satu ide saja ? :(
>
> 2014-12-11 22:12 GMT+11:00 Mr. Kid <mr.nm...@gmail.com>:
>
> Kalau gitu coba ubah sana sini dan eksplorasi lagi. Sapa tahu ada bahan
> posting yang sedikit berbeda (setidaknya bunyinya) dengan yang sudah ada.
>
>
>
>
>
>
> 2014-12-11 22:00 GMT+11:00 sony.ar...@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Waduh.. Telat saya :(
>
> Powered by paid monthly bills®
> ------------------------------
> *From: * "'Mr. Kid' mr.nm...@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Thu, 11 Dec 2014 21:55:34 +1100
> *To: *BeExcel<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Mengisi waktu menjelang pulang
>
>
> Ada ide lain lagi ?
>
> 2014-12-11 21:26 GMT+11:00 Nang Agus nanga...@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Sudah 1 jam masih boleh coba yaaa :)
>
> Sub jajal()
> Dim a As Integer
> Dim b As Integer
> For a = 1 To 10
> For b = 1 To 10
> Cells(a, b).Value = b * a
> Next b
> Next a
> End Sub
>
> mungkin masih kurang sederhana
>
> 2014-12-11 17:17 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Sudah 5 menit kok belum ada yang posting hasil karyanya ya....
>
>
>
> 2014-12-11 21:10 GMT+11:00 hendrik karnadi hendrikkarn...@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Bagi yang merasa pemula dalam macro, mari kita iseng2 membuat macro
> kecil dengan looping untuk menghasilkan data di bawah ini :
>
> 1234567891024681012141618203691215182124273048121620242832364051015202530
> 35404550612182430364248546071421283542495663708162432404856647280918273645
> 5463728190102030405060708090100
>
> Usahakan jangan lebih dari 5 menit, sambil menunggu waktu pulang.
>
> Salam,
> HK
>
>
>
>
>
>
>
>
>
