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.tindakannya_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 <[email protected]> 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 <[email protected]>
>
> > **
> >
> >
> > 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]
> ---------------------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
