Сортировка сводной таблицы



Sub rrrrr(myD As Variant, Optional myD1 As Variant, Optional myD2 As Variant, Optional myD3 As Variant)
'
' Макрос3 Макрос
'
If IsMissing(myD1) = True Then
    myD1 = myD
End If

If IsMissing(myD2) = True Then
    myD2 = myD
End If

If IsMissing(myD3) = True Then
    myD3 = myD
End If
'
On Error GoTo ErrorHandler
'myD = "ООО ромашка 1"
'myD1 = "ООО ромашка 2"
'myD2 = "ООО ромашка 9"
'myD3 = "ООО ромашка 10"
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Компания")
    
             For Each PItem In .PivotItems
                 PItem.Visible = True
             Next
         
        For Each PItem In .PivotItems
                 PItem.Visible = True
                If PItem.Name = myD _
                Or PItem.Name = myD1 _
                Or PItem.Name = myD2 _
                Or PItem.Name = myD3 Then
                   PItem.Visible = True
                  Else: PItem.Visible = False
                End If
         Next
    End With
    Exit Sub
ErrorHandler:
        With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Компания")
             For Each PItem In .PivotItems
                 PItem.Visible = True
             Next
    End With
    
End Sub
Sub Макрос4()
  Call rrrrr("ООО ромашка 10", "ООО ромашка 1", "ООО ромашка 12", "ООО ромашка 1255")
End Sub


Добавить комментарий

Ваш адрес email не будет опубликован.