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 > > >
