如何用数据透视表设置组合框？

Question

我对VBA还是很陌生，但是我想做的是创建一个组合框以与我的数据透视表进行交互。因此，组合框中的项目将是“数据透视表”字段中的“行”。我想选择我想要的字段，它只会显示该字段。

如何开始编写代码？或者我在哪里可以找到开始的信息？

这是我到目前为止所得到的

Sub ComboBox1_Change()
Dim pt As Pivot Table
Dim pf As PivotField
Dim cbo As ComboBox

Set pt = ActiveSheet.PivotTables("PivotTable1")

For Each pf In pt.RowsFields
   If pf.Name <> "Values" Then
        pf.Orientation = xlHidden
   End if
Next pf
If cbo = "customer" Then


Activesheet.PivotTables("PivotTable1").PivotFields("Customer").Orientation = xlRowField

End Sub

该代码当前无法正常工作，但我希望你们能看到这个主意。因此，选项将是客户，位置和产品。