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. <mr.nm...@gmail.com>
> **
>
>
> 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 <dimasr1...@gmail.com>
>
>> **
>>
>>
>> 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
>>
>>
>
>
