使用If情况生成数据透视表

Question

我有张纸BW。和另一张表人。

我正在使用“BW”数据生成数据透视表。

我正在生成带有行字段为“S”的数据透视表。我想有一个条件。如果列“Z”包含“Ontime”，那么我只需要计算我的数据透视表中的列“T”。如果它是“”那么我不想要“T”的计数。

我有可能以这种方式做吗？

任何人都可以提供帮助

我已尝试过以下代码。

Sub AutoPivot5()
Dim ws5 As Worksheet
Dim pc5 As PivotCache
Dim pt5 As PivotTable
Dim ct5 As Integer
Set ws5 = Sheets("Man")
Set pc5 = ActiveWorkbook.PivotCaches.Create(xlDatabase, "'BW'!R4C16:R1048576C21")
Set pt5 = pc5.CreatePivotTable(ws5.Range("A3"))
pt5.AddDataField pt5.PivotFields("OVERDUE"), "Sum of OVERDUE", xlSum
With pt5
With .PivotFields("Location")
.Orientation = xlRowField
.Position = 1
.AutoSort xlDescending, "Sum of OVERDUE"
pt5.TableRange2.Offset(0, 1).HorizontalAlignment = xlCenter
End With
End With
End Sub