如何使用Excel VBA根据条件求和枢轴项目数据

Question

ParentName    Designation    offsite      onsite   total
ASP           ASE                 1                    1
              SE                  2           2        4
              ITA                 3           7       10
              AssSE               **2**           2        4
ASP Total                         8          11       19
ESP           ITA                15                   15
              AssC                2                    2
              AssSE               1                    1
ESP Total                        18                   18
IS-TP         ASE                 7                    7
              AssSE             **19**                   19
              SE                 32                   32
              BA                  1           3        4
              ITA                24          11       35
IS-TP Total                      83          14       97
Grand Total                     109          25      134

In that pivot table the star marked cell values can be summed based on the pivot data. How to get the pivot data and sum the values based on the designation. ie if designation is Asst.system engineer and Parent IOU Name is "Is-Telecom-parent" and Assurance Services-1Parent then get the offsite total count and summed them as resultant in excel using VBA.

**Provide VBA code

Answer 1

Try this code:

Sub SumSelectedPivotElements()
    Dim piv As PivotTable
    Dim res As Double

    Set piv = Sheets("YourSheet").PivotTables(1) 'Replace with correct sheetname

    'Replace "Location" with your column field name
    res = piv.GetPivotData("Name of your data field", "ParentName", "IS-TP", "Designation", "AssSE", "Location", "offsite")
    res = res + piv.GetPivotData("Name of your data field", "ParentName", "IS-TP", "Designation", "AssSE", "Location", "offsite")
    Debug.Print "The result is: ", res
End Sub