hmmm...
Jadi tetap tidak bisa dijelaskan dinamisnya seperti apa ya....
Kalau dinamisnya itu karena ada baris yang kosong-kosong yang jumlah baris
kosong antar recordnya tidak tentu, kalau pakai formula :
A. Asumsi : (yang kolom A selalu berisi nilai bertipe numerik yang akan
dijumlah [regional setting english])
formula dikolom hasil (misal mulai baris 2 dengan header dibaris 1)
=IF(IsNumber(a2),Sum(a$1:a2),"")
copy ke semua baris data, atau ubah tabel data menjadi excel table
supaya tidak perlu repot meng-copy formula ke seluruh record
atau dengan :
=IF(IsNumber(a2),Iferror(LookUp(9^9,b$1:b1),0)+n(a2),"")
copy ke semua baris data, atau ubah tabel data menjadi excel table
supaya tidak perlu repot meng-copy formula ke seluruh record
B. Andai dinamis dimaksudkan dengan :
1. jumlah record berubah-ubah,
2. kolom A selalu ada isinya (not null),
3. kolom B yang bertipe numerik saja yang dijumlahkan,
4. hasil running totoal di kolom C
5. header di baris 1 dan record data mulai baris 2
Tanpa VBA :
1. buat headernya (misal di A1:C1 diberi nama header berupa nilai konstan
[bukan hasil formula])
2. isi sebuah record saja (records lainnya dicopas nanti)
* A2 sudah ada sebuah nilai (ingat, asumsinya kolom A not null)
* B2 juga diisi sebuah nilai numerik
* C2 pasanga formula :
=IF(IsNumber(b2),Sum(b$1:b2),"") -> kolom a not null, tetapi
kriteria yang dijumlah adalah yang b berisi nilai numerik
atau
=IF(IsNumber(b2),Iferror(LookUp(9^9,c$1:c1),0)+n(b2),"")
3. blok A1:C2 -> ribbon Home -> group Styles -> Format as Table -> pilih
sebuah styles
4. copas record data lainnya di cells A3 (baris kosong baru yang pertama
ditemukan) [ingat, asumsinya kolom a not null]
5. selesai
Jadi, kondisi dinamis itu sebenarnya bisa didefinisikan dan akan menentukan
proses mana yang lebih sesuai dan efisien.
Hal lainnya, kalau pakai VBA dengan asumsi seperti poin A.
Record dari baris 2 sampai 3000 (area range yang akan dipasangi formula
bisa ditentukan dengan VBA [bagian yang biru])
Range("b2:b3000").formula = "=IF(IsNumber(a2),Sum(a$1:a2),"""")"
'tanpa R1C1 styles juga bisa
Kondisi : cells hasil di G2:H3000 (2 kolom) dengan G adalah running total
di kolom A dan H running total di kolom H, VBA-nya :
Range("g2:h3000").formula = "=IF(IsNumber(a2),Sum(a$1:a2),"""")"
'tanpa R1C1 styles juga bisa
Kalau 1 formula universal bisa digunakan dan bunyi formula yang sederhana
dan simpel, kenapa harus pakai lebih dari 1 formula ?
Regards,
Kid
On Thu, Jan 21, 2016 at 10:21 AM, Bayu Prasaja [email protected]
[belajar-excel] <[email protected]> wrote:
>
>
> ternyata pake formula master jadinya seperti di attachment (dari Mr toby
> ) hahaha, terlalu jauh mungkin saya mikirnya ya kang
> tapi saya rubah formulanya ke R1c1 di vba nya
> makasih banyak master
>
>
> On Wednesday, January 20, 2016 4:27 PM, "'Mr. Kid' [email protected]
> [belajar-excel]" <[email protected]> wrote:
>
>
>
> Dinamisnya seperti apa ?
>
>
> On Wed, Jan 20, 2016 at 4:23 PM, Bayu Prasaja [email protected]
> [belajar-excel] <[email protected]> wrote:
>
>
> iya master, soalnya cell "hasil"-nya dynamic ,
> terus klo formula pasti saya rubah lagi ke format .formula atau .R1c1 di
> vba
> jadi klo boleh langsung vba master, atau pake formula tapi dalam bentuk
> vba di cell.formula atau cell.formulaR1C1 hehehe
> maaf klo penjelasannya ngaco
> kurang lebih gitu yang baru saya pahami hehe
>
>
> On Wednesday, January 20, 2016 4:18 PM, "'Mr. Kid' [email protected]
> [belajar-excel]" <[email protected]> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Harus dengan VBA ya ?
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2016-01-20 16:12 GMT+07:00 [email protected] [belajar-excel] <
> [email protected]>:
>
>
> Asslamu'alaikum
> sore master,
> mau nanya VBA untuk penjumlahan komulatif, yang menggunakan dynamic range,
> dan tiap hasil penjumlahan ditampilkan..
> kalo pake autofill dsetination mungkin bisa, tapi bukan itu si yang saya
> pengen, soalnya harus berderet kalo autofill, kalo boleh pake "for" "next"
> hehehe
>
> maaf jika pertanyaan atau pernyataan saya banyak yang salah, soalnya baru
> belajar , jadi agak bingung nanya nya juga hehe,
>
> Terima kasih sebelumnya
> File contoh terlampir
>
>
> Wassalamu'alaikum warahmatullohi wabarokatuh
>
>
>
>
>
>
>
>
>
