Wa'alaikumussalam wr wb
Hai Edo,
Jadi bisa ada banyak cells sekaligus yang diubah (misal dengan copas) dan
yang berubah hanya di kolom C (di preview nya, kolom C adalah persentase).
> pada event change milik worksheet diberi kode VBA berikut :
dim rng as range,lRow as long
if not intersect( target,range("c:c") is nothing then 'cek yang
berubah beririsan dengan kolom C
application.enableevents=false 'cegah Excel untuk responsif
terhadap perilaku
on error resume next 'lewati error yang terjadi
for each rng in intersect( target,range("c:c") 'di setiap cells
yang berubah di kolom C
lrow=rng.row 'simpan baris
cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value 'isi
kolom D
if err.number=0 then 'kolom D terisi dengan baik ?
cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value 'isi kolom B
endif 'selesai cek kolom D terisi dengan baik
err.clear 'hapus error yang terjadi
next rng 'ke range yang berubah berikutnya
on error goto 0 'kembalikan setting trap error ke default
application.enableevents=true 'excel boleh responsif lagi
endif 'selesai cek
Wassalamu'alaikum wr wb
Kid
2015-11-26 22:07 GMT+07:00 edo_hangg...@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum..
>
>
> Dear All
>
> Mau tanya bagaimana cara membuat kode VBA bahwa untuk setiap pengisian
> atau perubahan nilai di setiap baris di kolom C akan menghasilkan nilai di
> setiap baris yang ada di kolom D berupa perkalian dari baris di kolom A
> dikali dengan baris di kolom C . Sedangkan nilai yang ada di baris di kolom
> B sendiri akan berkurang menjadi nilai dari kolom B yang awal dikurangi
> dengan nilai yg ada di baris kolom D.
>
>
> Untuk lebih jelasnya, saya lampirkan filenya.
>
>
> Terima kasih
>
>
> Edo
>
>
>
>
