hi Denny co,
Konsepnya dengan Copy Paste Formula.
Langkahnya,
- jika belum ada baris formula yang terpasang, pasang formula, misal dengan
Range("j5")="=c5*d5"
- copy range yang sudah ada formulanya, misal range("j5:k5").copy
- paste formula ke range tujuan, misal range("j6:j" &
range("c5").end(xldown).row).pastespecial xlpasteformula
kalau akan dibuat untuk bisa digunakan pada kolom lain dengan formula
berbeda, bisa dengan :
- menambahkan InputBox(), bisa jadi beberapa inputbox()
- menambahkan argumen pada sub, dan call sub ini dari prosedur lain, misal
worksheet events.
tapi, teks formula atau referensi range harus diganti berupa variabel yang
nilai variabelnya didapat dari kedua cara tersebut (salah satu atau
keduanya).
Kalau dituliskan (konsep dasar),
Public Sub IsiKolom()
'pasang formula
Range("j5")="=c5*d5"
Range("k5")="=j5*2"
'copy range
Range("j5:k5").copy
'paste formula saja mulai dari baris berikut dari yang sudahada formulanya
'asumsinya kolom c5 tidak ada cell yang blank (pilih kolom yang tidak ada
cell yang blank)
range("j6:j" & range("c5").end(xldown).row).pastespecial xlpasteformula
end sub
kid.
2009/3/8 denny co <[email protected]>
> Pls di bantu,
>
> Konsep makro untuk perulangan-nya gimana ya
>
> Formula
> total1 = harga * jumlah
> total2 = total1* 2
>
> data di bawah jumlah fluktuatif, bisa sampai ribuan...
> gimana konsep perulangan nya ya teman2, so pada saat klik
> perintah(jalankan makro), otomatis di total1 & total2 langsung terisi. data
> nya bisa ribuan
>
> terimakasih banyak
>
>
>
>
> harga jumlah
> total1 total2 Rp100.000 1 Rp100.000 2 Rp100.000 3
> Rp100.000 4 Rp100.000 5 Rp100.000 6 Rp100.000 7
> Rp100.000 8 Rp100.000 9 Dst .. ..
> .
>
>
>
