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
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-excel/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-excel/join
(Yahoo! ID required)
<*> To change settings via email:
[email protected]
[email protected]
<*> To unsubscribe from this group, send an email to:
[email protected]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
