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.
2012/10/23 lkm jktind <[email protected]>
> **
>
>
> Pak Aji.
>
> Cara pakai evaluate yg ku gunakan itu salah nya dimana ?
>
> Sub rubah_formula()
> Cells(2, 5).Formula = "=Upper(RC[-3])"
> Cells(2, 6).Formula = "=RC[-3]*rc[-2]"
>
> Cells(2, 8).Value = Cells(2, 5)
> Cells(2, 9).Value = Cells(2, 6)
>
> Cells(2, 11).Value = Evaluate(Cells(2, 5))
> Cells(2, 12).Value = Evaluate(Cells(2, 6))
>
>
> End Sub
>
>
>
> 2012/10/23 aji mumpung <[email protected]>
>
>> **
>>
>>
>> wa'alaikumsalam wr. wb.,
>>
>> ibu Titis.
>>
>> bisa menggunakan:
>>
>> akan menghasilkan rumus di cell yang dituju
>> nama_workbook.range(alamat_cell).Formula = "=SumProduct(rumusnya)"
>>
>> akan menghasilkan nilai pada cell yang dituju
>> nama_workbook.range(alamat_cell).Value = Evaluate("=SumProduct(rumusnya)
>> ")
>> nama_workbook.range(alamat_cell).Value = Application.WorkSheetsFunction.
>> Sumproduct(rumusnya)
>>
>> monggo, dipilih mana yang disuka
>>
>> wassalam,
>>
>> -aji mumpung-
>>
>>
>> Pada 23 Oktober 2012 18:14, Titis Ardiyana Wulandari <[email protected]
>> > menulis:
>>
>> **
>>>
>>>
>>>
>>> Assalamu'alaikum
>>>
>>> Teman-teman,
>>> minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro,
>>> bagaimana rumusnya?
>>>
>>> Terimakasih
>>>
>>>
>>
>
>
