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