wa'alaikumussalam wr wb (mbok yao dipanjangin dikit supaya lebih baik)
Goal seek punya 3 elemen pokok, yaitu :
> nilai_target (konstanta bertipe numerik)
> range_changing_cell
> range_set_cell (berisi formula yang link ke range changing cell)
Dengan VBA
Syntax :
range_set_cell.goalseek nilai_target , range_changing_cell
atau jika hasil dari code di atas kurang sesuai atau tidak memuaskan karena
tidak sama dengan hasil dialog window goal seek dari dalam worksheet, bisa
menggunakan :
application.executeexcel4macro _
"GOAL.SEEK(""" _
& alamatR1C1_range_set_cell _
& """," _
& nilai_target _
& ",""" _
& alamatR1C1_range_changing_cell _
& """)"
A. Nilai target konstan
- nilai_target adalah konstan 5000
- range_changing_cell ada di B1:B10
- tange_set_cell (berformula) ada di A1:A10
dim lRowKe as long
for lrowke=1 to 10 'jumlah baris data dari a1:a10
range("a1:a10").cells(lrowke).goalseek 5000 ,
range("b1:b10").cells(lrowke)
next lrowke
atau
dim lRowKe as long
for lrowke=1 to 10 'jumlah baris data dari a1:a10
application.executeexcel4macro _
"GOAL.SEEK(""" _
&
range("a1:a10").cells(lrowke).address(referencestyle:=xlR1C1) _
& """," _
& 5000 _
& ",""" _
&
range("b1:b10").cells(lrowke).address(referencestyle:=xlR1C1) _
& """)"
next lrowke
B. Nilai target setiap baris data berbeda-beda
- nilai_target ada di range C1:C10
- range_changing_cell ada di B1:B10
- tange_set_cell (berformula) ada di A1:A10
dim lRowKe as long
for lrowke=1 to 10 'jumlah baris data dari a1:a10
range("a1:a10").cells(lrowke).goalseek
range("c1:c10").cells(lrowke).value, range("b1:b10").cells(lrowke)
next lrowke
atau
dim lRowKe as long
for lrowke=1 to 10 'jumlah baris data dari a1:a10
application.executeexcel4macro _
"GOAL.SEEK(""" _
&
range("a1:a10").cells(lrowke).address(referencestyle:=xlR1C1) _
& """," _
& range("c1:c10").cells(lrowke).value _
& ",""" _
&
range("b1:b10").cells(lrowke).address(referencestyle:=xlR1C1) _
& """)"
next lrowke
Selamat mencoba
wassalamu'alaikum wr wb
Kid
2015-03-30 19:20 GMT+11:00 Dwi Hartanto [email protected]
[belajar-excel] <[email protected]>:
>
>
> Ass...
> Mau tanya dong rumus macro utk goalseek sampai data terakhir
> Trims
>
> Wass..
>
>
>
