Dalam kasus ini, tanda kurung siku tersebut adalah sebagai cara alternatif untuk merujuk ke suatu range tertentu, o iya, sedikit koreksi, seharusnya [E2:F5] = [E2:F2].Formula Dan setelah membuka file lampiran, diketahui data pada kolom sebelah kiri dari formula tersebut datanya saling bergandengan (contiguous) sampai akhir, berikut ini dengan memanfaatkan AutoFill method, [E2:F2].AutoFill [E2:F5], 4
>semoga bermanfaat --- In [email protected], aji mumpung <pupung1986@...> wrote: > > terima kasih pak Anton, ilmu baru lagi untuk saya, > > [E3:F5] = [E2:F2].Formula > > mungkin pak Anton & master yang lain bisa menjelaskan arti kurung siku di > atas artinya apa ya? karena saya baru sekali ini menemukan solusi > menggunakan kurung siku dalam VBA, kalo dalam formula biasanya merujuk > kepada suatu alamat cell atau range dalam sebuah tabel. > > wassalam, > > -aji mumpung- > > Pada 24 Oktober 2012 10:45, summonery summonery@... menulis: > > > ** > > > > > > ikutan juga ya,, sekedar memperpendek, > > > > Range("E2:F2").Copy Range("E3:F5").PasteSpecial (xlPasteFormulas) > > > > dapat diperpendek lagi menjadi: > > > > [E3:F5] = [E2:F2].Formula > > > > > > >semoga bermanfaat > > > > > > --- In [email protected], aji mumpung pupung1986@ wrote: > > > > > > ikutan lagi ya.. > > > > > > sekarang coba belajar memperpendek script yuk.. > > > > > > lihat kode yang ini: > > > Range("E2:F2").*Select* > > > *Selection*.Copy > > > > > > bisa disingkat menjadi: > > > Range("E2:F2").Copy karena yang *dimerahin* bisa digabung dan > > > > > dihilangkan > > > > > > begitu juga yang ini: > > > Range("E3:F5").*Select* > > > *Selection*.PasteSpecial Paste:=xlPasteFormulas > > > > > > > > bisa disingkat menjadi: > > > Range("E3:F5").PasteSpecial Paste:=xlPasteFormulas > > > > > > jadi dari 4 baris kode dapat disingkat menjadi 2 baris saja: > > > Range("E2:F2").Copy > > > Range("E3:F5").PasteSpecial Paste:=xlPasteFormulas > > > > > > nah, dari 2 baris yang dikasih warna biru di atas, ternyata masih bisa > > > disingkat lagi lho.. gak percaya? > > > karena syntax untuk copy dalam vba adalah sbb: > > > * > > > > > nama_workbook.nama_sheet.lokasi_cell_atau_range_yang_mau_dicopy.tindakan\ nya_yaitu_copy > > > > > * [spasi] lokasi_tujuan.tindakannya_yaitu_paste_atau_paste_special > > > > > > perhatikan yang dimerahin adalah lokasi cell atau range awal yang mau > > dicopy > > > yang dikasih warna biru adalah lokasi cell atau range tujuan yang mau > > > dipaste > > > > > > jadi yang warna *hijau* bisa disingkat menjadi: > > > > > Range("E2:F2").Copy Range("E3:F5").PasteSpecial (xlPasteFormulas) > > > > > > jadi ternyata dari 4 baris kode ini: > > > Range("E2:F2").Select > > > Selection.Copy > > > Range("E3:F5").Select > > > Selection.PasteSpecial Paste:=xlPasteFormulas > > > > > > bisa disingkat menjadi 1 baris: > > > Range("E2:F2").Copy Range("E3:F5").PasteSpecial (xlPasteFormulas) > > > > > > semoga bermanfaat, > > > > > > wassalam, > > > > > > -aji mumpung- > > > > > > > > > Pada 24 Oktober 2012 01:30, lkm jktind lkmjktind@ menulis: > > > > > > > > > sudah bisa. > > > > > > > > terima kasih pak kid > > > > > > > > Sub rubah_formula() > > > > > > > > Cells(2, 6).Formula = "=Upper(RC[-4])" > > > > Cells(2, 5).Formula = "=RC[-2]*rc[-1]" > > > > Cells(2, 6).Name = "coba" > > > > Cells(2, 5).Name = "coba1" > > > > > > > > > > > > Range("E2:F2").Select > > > > Selection.Copy > > > > Range("E3:F5").Select > > > > Selection.PasteSpecial Paste:=xlPasteFormulas > > > > Range("I4").Select > > > > Application.CutCopyMode = False > > > > > > > > Cells(2, 8).Value = Cells(2, 6) > > > > Cells(2, 9).Value = Cells(2, 5) > > > > > > > > Cells(2, 11).Value = Evaluate("coba") > > > > Cells(2, 12).Value = Evaluate("coba1") > > > > > > > > End Sub > > > > > > > > > > > > 2012/10/23 Mr. Kid mr.nmkid@ > > > > > > > > > > > ** > > > > > > > > > > > > > > > Evaluate digunakan untuk mengubah suatu nama range menjadi sebuah > > object > > > > > atau menjadi suatu nilai. > > > > > Jadi yang diubah adalah sebuah nama range. > > > > > > > > > > Contoh : > > > > > 1. Evaluate("A1") artinya mengubah nama range A1 (tentu saja nama > > range > > > > A1 > > > > > adalah cell A1), maka hasil evaluate adalah sebuah object range a1. > > > > > > > > > > Jadi, jika ada cell C7 akan diisi dengan nilai A1, bisa dengan : > > > > > range("c7").value = evaluate("A1").value > > > > > yang sering disingkat dengan : > > > > > range("c7").value = evaluate("A1") > > > > > karena properti default suatu range adalah value. > > > > > > > > > > 2. Evaluate("=A1") artinya mengubah nama range yang dirujuk dengan > > > > formula > > > > > (refers to berisi formula) yang berbunyi =A1 > > > > > begitu juga ketika ada Evaluate("=suatu formula panjang"). > > > > > > > > > > Pada kasus : > > > > > Cells(2, 11).Value = Evaluate(Cells(2, 5)) > > > > > artinya : nilai di cell baris 2 kolom 11 [cells(2,11).value] akan > > diisi > > > > > dengan nilai hasil evaluate terhadap cell(2,5) dan diambil nilainya > > > > > (default properti range adalah value. > > > > > Jika cell(2,5) berisi tulisan atau angka berbunyi 125, berarti baris > > : > > > > > > > > > > Cells(2, 11).Value = Evaluate(Cells(2, 5)) > > > > > akan berarti : > > > > > nilai di cell baris 2 kolom 11 [cells(2,11).value] akan diisi dengan > > > > nilai > > > > > hasil evaluate terhadap 125 dan diambil nilainya (default properti > > range > > > > > adalah value. > > > > > Karena nama range 125 tidak bisa didefinisikan maka nilai dalam nama > > > > range > > > > > antah berantah itu akan menghasilkan error value. > > > > > > > > > > Jika baris Cells(2, 11).Value = Evaluate(Cells(2, 5)) maksudnya > > adalah > > > > > mengambil nilai di cells(2,5), maka : > > > > > Cells(2, 11).Value = Evaluate("=" & Cells(2, 5).value) > > > > > atau > > > > > Cells(2, 11).Value = Cells(2, 5).value > > > > > > > > > > Wassalam, > > > > > Kid. > > > > > > > > > > > > > > > > > > > > > ------------------------------------ > > > > > > > > --------------------------------------------------------------------- > > > > bergabung ke milis (subscribe), kirim mail kosong ke: > > > > [email protected] > > > > > > > > posting ke milis, kirimkan ke: > > > > [email protected] > > > > > > > > berkunjung ke web milis > > > > http://tech.groups.yahoo.com/group/belajar-excel/messages > > > > > > > > melihat file archive / mendownload lampiran > > > > http://www.mail-archive.com/[email protected]/ > > > > atau (sejak 25-Apr-2011) bisa juga di : > > > > http://milis-belajar-excel.1048464.n5.nabble.com/ > > > > > > > > menghubungi moderators & owners: [email protected] > > > > > > > > keluar dari membership milis (UnSubscribe): > > > > kirim mail kosong ke [email protected] > > > > > > ---------------------------------------------------------------------Yah\ oo! > > > > Groups Links > > > > > > > > > > > > > > > > > > > > > > > > > >
