zoukankan      html  css  js  c++  java
  • 20170517xlVBA添加数据透视表

    Sub AddPovitTable()
        'Constance
        Const DATA_SHEET As String = "Advanced Filter"
        Const DATA_ADDRESS As String = "R7C1:R107C11"
        Const PIVOT_SHEET As String = "PivotSheet"    ' Sheet Name  with No space
        Const PIVOT_ADDRESS As String = "R3C1"
        Const PIVOT_TABLE As String = "Pivot Table"
    
       'Object
        Dim Wb As Workbook
        Dim Sht As Worksheet
        Dim pvtTable As PivotTable
        
        
        Set Wb = ThisWorkbook
        
        'Do not display Alert when delete a sheet
        Application.DisplayAlerts = False
        For Each Sht In Wb.Worksheets
            If Sht.Name = PIVOT_SHEET Then Sht.Delete
        Next Sht
        Application.DisplayAlerts = True
    
        'Add a new sheet for pivot table
        Set Sht = Wb.Worksheets.Add(After:=Wb.Worksheets(Wb.Worksheets.Count))
        Sht.Name = PIVOT_SHEET
    
        'Create a new pivot table
        Set pvtTable = Wb.PivotCaches.Create( _
                                             SourceType:=xlDatabase, _
                                             SourceData:=DATA_SHEET & "!" & DATA_ADDRESS, _
                                             Version:=xlPivotTableVersion15). _
                       CreatePivotTable( _
                                        TableDestination:=PIVOT_SHEET & "!" & PIVOT_ADDRESS, _
                                        TableName:=PIVOT_TABLE, _
                                        DefaultVersion:=xlPivotTableVersion15)
       'set Fields
        With pvtTable
            .PivotFields("State").Orientation = xlRowField
            .PivotFields("State").Position = 1
    
            .PivotFields("City").Orientation = xlRowField
            .PivotFields("City").Position = 2
    
            .PivotFields("Salesperson").Orientation = xlRowField
            .PivotFields("Salesperson").Position = 3
    
            .PivotFields("Payment").Orientation = xlRowField
            .PivotFields("Payment").Position = 4
    
            .PivotFields("Transport").Orientation = xlRowField
            .PivotFields("Transport").Position = 5
    
            .PivotFields("Month").Orientation = xlRowField
            .PivotFields("Month").Position = 6
    
            .AddDataField .PivotFields("Product A"), "Sum:Product A", xlSum
            .AddDataField .PivotFields("Product B"), "Sum:Product B", xlSum
            .AddDataField .PivotFields("Product C"), "Sum:Product C", xlSum
    
        End With
          
        'Release Objects
        Set Wb = Nothing
        Set Sht = Nothing
        Set pvtTable = Nothing
    
    
    End Sub
    

      

  • 相关阅读:
    [ios]总结iOS开发当中一些特别注意的问题 【转】
    [ios]Core Data
    [ios]图片转pdf 【转】
    rsync服务的安装与配置
    c# winform及DotnetBar笔记
    我恨博客园
    C#日期格式化(ASP.NET)
    c# winform DatagridView使用总结
    .net2.0数据绑定语法
    div代替window.alert,让这个div显示信息后,在指定之间时间内消失
  • 原文地址:https://www.cnblogs.com/nextseven/p/7129153.html
Copyright © 2011-2022 走看看