Sudah bisa Mr. Kid..Terima kasih banyak bantuannya, betul2 sangat membantu saya
Satu lagi Mr, kid & Members, tanpa mengurangi rasa hormat, bagaimana kode VB nya kalau hasilnya keluar di Workbook yang baru ya bukan di sheet yang baru ? Terima kasih sekali lagi 2012/1/11 Kid Mr. <[email protected]> > ** > > > Coba diletakkan *tepat sebelum* baris-baris untuk print preview. > > Kid. > > > 2012/1/11 dimas ricky <[email protected]> > >> ** >> >> >> Dear Mr. Kid, >> >> terima kasih banyak untuk bantuannya. >> >> >> saya sudah pindahkan data fieldnya ke column seperti di bawah ini ( Maaf >> kalau salah, hehehe, soalnya saya cuman comot sana comot sini, Masih tahap >> belajar soalnya ) : >> >> Set objField = objTable.PivotFields("Depok") >> objField.Orientation = xlColumnField >> >> objField.Function = xlSum >> objField.NumberFormat = "#,##0" >> >> dan saya juga coba yang seperti di bawah ini : >> >> Set objField = objTable.PivotFields("Depok") >> objtable.datapivotfield.orientation=xlcolumnfield >> >> objField.Function = xlSum >> objField.NumberFormat = "#,##0" >> >> Tapi setelah di jalankan tidak bisa, >> >> Mohon bantuanya Mr Kid dan yang lainnya. >> >> >> >> >> >> 2012/1/10 Kid Mr. <[email protected]> >> >> ** >>> >>> >>> Coba sebelum print preview, pindahkan Data Field ke column >>> dengan object yang anda miliki, bisa jadi seperti : >>> objtable.datapivotfield.orientation=xlcolumnfield >>> >>> Kid. >>> >>> 2012/1/10 dimas ricky <[email protected]> >>> >>>> ** >>>> >>>> >>>> Dear Mods & Members, >>>> >>>> Mohon maaf sebelumnya karena saya sudah posting perntanyaan tanpa >>>> membaca dulu peraturan dari milis ini hehehe ( mudah2an sekarnag tidak >>>> salah lagi ya :p ) >>>> >>>> Berikut adalah masalah yang saya hadapi dalam membuat tabel pivot : >>>> >>>> 1. kode vb yang saya coba buat untuk tabel, hasilnya adalah field2nya >>>> ( maap kalau salah) berada dalam satu kolom saja ( lihat sheet "Hasil >>>> yang ada"), sedangkan hasil yang saya inginkan adalah hasilnya itu >>>> terpencar di row2 yang ada ( lihat sheet "Hasil yang di inginkan "). >>>> >>>> Pertanyaan saya adalah bagaimana cara agar hasil pivot bsa seperti yang >>>> diinginkan ( seperti sheet "Hasil yang di inginkan") >>>> >>>> >>>> Berikut kode makro yang saya sudah buat ( maap kalau berantakan, saya >>>> masih newbie soalnya di makro hikz ! ) hehe , sapa tau dari kode vb ini ada >>>> yang perlu di revisi : >>>> >>>> Sub CreatePivot() >>>> ' Creates a PivotTable report from the table on Sheet1 >>>> ' by using the PivotTableWizard method with the PivotFields >>>> ' method to specify the fields in the PivotTable. >>>> Dim objTable As PivotTable, objField As PivotField >>>> >>>> ' Memilih sheet datase dengan cell yang pertama. >>>> ActiveWorkbook.Sheets("DB_1").Select >>>> Range("A4").Select >>>> >>>> ' Membuat pivottable dari database yang ada. >>>> Set objTable = Sheet1.PivotTableWizard >>>> >>>> ' Spesifik row dan Field. >>>> Set objField = objTable.PivotFields("Co No") >>>> objField.Orientation = xlRowField >>>> Set objField = objTable.PivotFields("Descriptions") >>>> objField.Orientation = xlRowField >>>> >>>> ' Spesifik data dengan rangkumannya . >>>> ' function and format. >>>> Set objField = objTable.PivotFields("Depok") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Bekasi") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Mampang") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Pramuka") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Warung") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Buncit") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Kuningan") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Tebet") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Benhill") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Pancoran") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Kalibata") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Pasar Minggu") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Pondok Indah") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Tanggerang") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> Set objField = objTable.PivotFields("Total Cost") >>>> objField.Orientation = xlDataField >>>> objField.Function = xlSum >>>> objField.NumberFormat = "#,##0" >>>> >>>> ' Melihat hasil PrintPreview . >>>> ActiveSheet.PrintPreview >>>> >>>> ' Pilihan untuk menghapus pivot or tidak . >>>> Application.DisplayAlerts = False >>>> If MsgBox("Delete the Report ?", vbYesNo) = vbYes Then >>>> ActiveSheet.Delete >>>> End If >>>> Application.DisplayAlerts = True >>>> >>>> End Sub >>>> >>>> Terima kasih untuk bantuannya..saya harap saya tidak menyalahi aturan >>>> milis lagi =( >>>> >>>> Dimas >>>> >>>> >>> >> > >
