代码之家 › 专栏 › 技术社区 › yeon

.数据透视字段(1)。方向=1:。数据透视字段(1)。位置=1<这是什么意思?

pivot-table vba excel

yeon · 技术社区 · 2 年前

这是使用VBA创建透视表的代码。但有件事我不明白。

.数据透视字段(1)。方向=1:。数据透视字段(1)。位置=1

明确地

1: .数据透视字段(1)

我不知道这是什么意思。

我在网上搜索过,但还是不太清楚。你能解释一下吗?

Dim wkSht As Worksheet                         '
Dim rngAll As Range
Dim rngT As Range

Application.ScreenUpdating = False

Set rngAll = Range("A1", Cells(Rows.Count, "H").End(3))

On Error Resume Next
    
Set wkSht = Sheets("PivotTable1")

If Err <> 0 Then
    Sheets.Add(after:=Sheets(1)).Name = "PivotTable1"
    Err.Clear
Else
    MsgBox "The sheet already exists." & vbCr & vbCr _
    & "Delete and then try again", 64, "sheet creation error"
                                                     
    Exit Sub
End If
On Error GoTo 0

Set rngT = Cells(1, 1)

                               
 ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    rngAll, Version:=6).CreatePivotTable TableDestination:= _
    rngT, TableName:="PivotTable1", DefaultVersion:=6

                                                          
                                                          
                                                          
                                                          
With Sheets("PivotTable1").PivotTables("PivotTable1")
    .AddDataField .PivotFields(8), "SUM", xlSum
    .PivotFields(1).Orientation = 1: .PivotFields(1).Position = 1 #this part
    
End With

End Sub