Wa'alaikumussalam wr wb Silakan disesuaikan baris kode VBA-nya dengan klausa kode VBA untuk merujuk secara dinamis. Coretan tentang VBA bisa dimulai dari sini <http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html>. Untuk khusus pembahasan tentang range (yang bisa menjadi ide menyusun kode VBA untuk merujuk secara dinamis) bisa dimulai dari sini <http://b-excel.blogspot.com/2013/09/belajarvba-011-range-01-berdasar-alamat.html> sebanyak 6 seri coretan.
Selamat berkreativitas dalam VBA Wassalamu'alaikum wr wb Kid On Thu, Apr 2, 2015 at 8:12 PM, Dwi Hartanto [email protected] [belajar-excel] <[email protected]> wrote: > > > Assalamulaikum Wr Wb "Mr Kid" > Terima kasih sudah terbantu, tetapi bisa ga kalau rangenya kebaca > automatis sampai data terakhir. > Kalo datanya bertambah kan rangenya berubah, jd harus diganti terus > macronya. Mohon dibantu lg ya.. > Terimakasih > > Wassalamu alaikum Wr Wb > > > > > On Wednesday, 1 April 2015, 4:40, "'Mr. Kid' [email protected] > [belajar-excel]" <[email protected]> wrote: > > > > 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.. > > > > > >
