Как настроить поле со списком с помощью сводной таблицы? - PullRequest
Новая
       15

Как настроить поле со списком с помощью сводной таблицы?

0 голосов
/ 25 апреля 2019

Я довольно новичок в VBA, но я хочу создать Combo Box для взаимодействия с моей сводной таблицей. Таким образом, элементы в поле со списком будут строки из сводной таблицы. Я хочу выбрать поле, которое я хочу, и это только покажет это.

Как мне запустить код? Или где я могу найти информацию для начала?

Это то, что я получил до сих пор 

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

Код сейчас не работает, но я надеюсь, что вы, ребята, поняли идею. Таким образом, варианты будут клиент, местоположение и продукт.

...