Coba script :
dim rng as range, lRec as long
set rng=sheet1.range("a2").currentregion
with rng
lrec=.rows.count-1
if lrec>0 then
with .resize(lrec,1).offset(1,6)
.formula="=LEFT(C3,FIND("" - "",C3&"" - - "",FIND("" - "",C3&""
- "")+1)-1)"
.parent.calculate
.value=.value
end with
endif
end with
Letakkan dalam prosedur yang bertugas untuk menyusun kolom G
Wassalam,
Kid.
2013/1/20 dhen.baguse <[email protected]>
> **
>
>
> Salam,
>
> terimakasih atas masukkan mr kind dan exceler untuk menambahkan satu kolom
> lagi agar bisa membuat pivot. dan setelah melihat fungsi tambahan saya
> mencoba membuat fungsi terssebut menggunakan makro atau VBA, tetapi
> hasilnya error. Hal yang mau tanyakan berikutnya di point mana kesalahan
> coding yang saya buat.
>
> terimakasih
>
> ------------------------------
> *From:* Mr. Kid <[email protected]>
> *To:* [email protected]
> *Sent:* Saturday, January 19, 2013 11:36 PM
> *Subject:* Re: [belajar-excel] Merangkum dalam satu group
>
>
> Den Bagus,
>
> Andaikan ada sebuah kolom yang menunjukkan hirarki keterangan, maka akan
> lebih mudah menyusun pivot table reportnya.
> Pada file lampiran dibuat level 1 dari hirarki keterangan yang diberi nama
> dengan grup.
> Nilai total disusun dengan Calculated Field.
> Setting subtotal khusus pada values Total saja dalam pivot table disusun
> dengan Conditional Formatting terhadap values Debet dan values Kredit
>
> File terlampir.
>
> Wassalam,
> Kid.
>
> 2013/1/19 dhen.baguse <[email protected]>
>
> **
>
> Salam para exceler,
> saya coba merangkum suatu transkasi pemberian bon mengunakan pivot tapi
> saya belum bisa seperti apa yang saya inginkan. Mohon bantuan para exceler
> masukkan menggunakan pivot maupun vba.
> terimaksih.
>
> _
>
>
>
>
>
>
