Terima kasih Mr.Kid
Tadi iseng2 saya coba pake angka untuk kolomnya, ternyata bisa jalan juga.
Salam,
HK
Sent from Samsung Mobile
<div>-------- Original message --------</div><div>From: "'Mr. Kid'
mr.nm...@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
</div><div>Date:13/12/2014 13:04 (GMT+07:00) </div><div>To: BeExcel
<belajar-excel@yahoogroups.com> </div><div>Subject: Re: [belajar-excel] Mengisi
waktu menjelang pulang </div><div>
</div>Boleh Pak, tapi column($a:$j) jika akan 10 kolom. Jika akan 37 kolom
gimana ? Jika dengan Row, akan menjadi Row( $1:$37 ) dan lebih mudah bukan?
Cukup di-transpose saja menjadi Transpose( Row( $1:$37 ) ) sehingga data yang
tadinya 37 baris x 1 kolom menjadi 1 baris x 37 kolom.
2014-12-13 13:26 GMT+11:00 Hendrik Karnadi hendrikkarn...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
Terima kasih Mr.Kid.
Memang perlu pengulangan dalam belajar sehingga materi yang dipelajari membekas
pada memory.
Btw, mau nanya sedikit Mr.Kid apakah tranpose row boleh diganti dengan column?
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
From: "'Mr. Kid' mr.nm...@gmail.com [belajar-excel]"
Date:13/12/2014 02:18 (GMT+07:00)
To: BeExcel
Subject: Re: [belajar-excel] Mengisi waktu menjelang pulang
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 :
1 2 3 4 5 6 7 8 9 10
2 4 6 8 10 12 14 16 18 20
3 6 9 12 15 18 21 24 27 30
4 8 12 16 20 24 28 32 36 40
5 10 15 20 25 30 35 40 45 50
6 12 18 24 30 36 42 48 54 60
7 14 21 28 35 42 49 56 63 70
8 16 24 32 40 48 56 64 72 80
9 18 27 36 45 54 63 72 81 90
10 20 30 40 50 60 70 80 90 100
Usahakan jangan lebih dari 5 menit, sambil menunggu waktu pulang.
Salam,
HK
