Фильтрация сводной таблицы - как добавить два фильтра - PullRequest
Новая
       98

Фильтрация сводной таблицы - как добавить два фильтра

0 голосов
/ 30 мая 2020

У меня есть пример кода ниже, который мне подходит. В настоящее время есть один фильтр (по номеру объекта), и я хочу добавить еще один фильтр. 

Private Sub PopulateRentalSpaceUsage()            

 cbo_SelectRentalUsage.Clear
 myfilterFacNum = Sheets("AdminCtrls").Range("B12").Value 


 Set PvtTblRental = 
 Worksheets("AdminCtrls").PivotTables("pt_UsageRS")
 myfilterTypePS = Sheets("AdminCtrls").Range("B15").Value

 With PvtTblRental
     .PivotFields("Facility Number").ClearLabelFilters
     .PivotFields("Facility Number").PivotFilters.Add 
         Type:=xlCaptionEquals, Value1:=myfilterFacNum
 End With

 For Each cellRS In Range("RS_ptRange")
     ThisrowRS = cellRS.row
     If Not cellRS.Rows.Hidden And ThisrowRS <> LastrowRS 
         Then
         cbo_SelectRentalUsage.AddItem cellRS.Value
     End If
        LastrowRS = ThisrowRS
 Next cellRS

End Sub

У меня проблема с этой строкой.

.PivotFields («Номер объекта»). PivotFilters.Add Тип: = xlCaptionEquals, Value1: = myfilterFacNum

Которая фильтрует точку по желанию. Но как мне добавить «второй фильтр» - кажется, я не могу получить правильный синтаксис. спасибо за ваши предложения.

...