*konsep*nya....
ada banyak cara, satu di antaranya:
Perulangan dengan FOR - NEXT
sekolom range yg berisi data harga diakses current-regionnya
misal salah satu cell berisi data hara = B7
Set Tabel = Range("B7").CurrentRegion
Tinggi tabel dikoreksi dengan mengurangi JUDUL KOLOM (kalau ada)
cell teratas di koreksi dengan offset(1,0) (judul kolom diasumsikan setinggi
1 baris)
maka didapat tabel setinggi data yg ada.
lalu perulangan dapat dilakukan dengan
FOR i = 1 to Tabel.Rows.Count
di tiap perulangan diadakan pengalian antar cells untuk mencari total1
Tabel(i,3) = Tabel(i,1)*Tabel(i,2)
maksodnya cell pada tabel di baris i kolom 3 diisi dengan
hasil kali cell (di baris i) di kolom 1 * cell di kolom 2
looping berhenti pada hitungan yg sama dengan tinggi tabel.
cara lain
perulangan dengan DO - LOOP
syarat DO Until Activecell = ""
data teratas diselect
pengisian cell kolom 3 (total1) dengan
Activecell.cells(1,3) = Activecell.cells(1,1) * Activecell.cells(1,2)
memindah activecell ke bawah 1 baris
Activecell.cells(2,1). select
atau Activecell.Offset(1,0).select
berikan pembatas bawah perulangan
LOOP
perulangan berhenti jika acativecell yg di pindah kebawah menemui cell
kosong
oiya total2 itu ngitung apa to ? aku kok ndak tau..
Tabel(1,4) = Tabel(1,3)*2
gitu kalik yaa...
maaf di atas bilang "konsep", tapi jawabnya sudah mirip "Coding"
harusnya kan beda ya..
2009/3/7 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 .. ..
>
