Snasui Excel Forum

Code: Select all

Sub pivot_table()
    Dim pt_cache As PivotCache
    Dim pt_table As PivotTable
    Set pt_cache = ActiveWorkbook.PivotCaches.Add( _
        SourceType:=xlDatabase, _
        SourceData:=Worksheets("DATA SNH").UsedRange)
    Worksheets("สรุป SNH").UsedRange.Clear 'Add this line
    Set pt_table = pt_cache.CreatePivotTable( _
        TableDestination:=Worksheets("สรุป SNH").Range("A1"), _
        TableName:="PivotTable1")
    With pt_table
        .PivotFields("ประกันไทย /ต่างประเทศ").Orientation = xlPageField
        .PivotFields("เดือน").Orientation = xlPageField
        .PivotFields("ปี").Orientation = xlPageField
        .PivotFields("แผนกที่ส่งเอกสาร").Orientation = xlRowField
        .PivotFields("ประกันไทย /ต่างประเทศ").Orientation = xlDataField
        .PivotFields("ประกันไทย /ต่างประเทศ").Orientation = xlDataField
    End With
        With Sheets("สรุป SNH").PivotTables("PivotTable1").DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
End Sub

Code: Select all

Sub pivot_table()
    Dim pt_cache As PivotCache
    Dim pt_table As PivotTable
    Set pt_cache = ActiveWorkbook.PivotCaches.Add( _
        SourceType:=xlDatabase, _
        SourceData:=Worksheets("DATA SNH").UsedRange)
    Worksheets("สรุป SNH").UsedRange.Clear 'Add this line
    Set pt_table = pt_cache.CreatePivotTable( _
        TableDestination:=Worksheets("สรุป SNH").Range("A1"), _
        TableName:="PivotTable1")
    With pt_table
     
        .PivotFields("ประกันไทย /ต่างประเทศ").Orientation = xlPageField
        .PivotFields("เดือน").Orientation = xlPageField
        .PivotFields("ปี").Orientation = xlPageField

        .PivotFields("แผนกที่ส่งเอกสาร").Orientation = xlRowField
        

        .PivotFields("ประกันไทย /ต่างประเทศ").Orientation = xlDataField
        .PivotFields("ประกันไทย /ต่างประเทศ").Orientation = xlDataField
    End With
    
    With ActiveSheet.PivotTables("PivotTable1").DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With

End Sub