如果可见.PivotItems(“ str”)

时间:2019-05-12 10:38:05

标签: excel vba

Tengo el siguiente codigo para una tabla枢纽,en la que do dos campos que aparecen o no aparecen segun el archivo que este trabajando la macro,el Problema es que cuuando no existe ese campo,quiero controlarlo,错误。

With ActiveSheet.PivotTables("Tabla3").PivotFields("campo1")
        If .PivotItems("(campo2)").Visible Then
            .PivotItems("(campo2)").Visible = False
        End If
        If .PivotFields("campo1").Visible Then
            .PivotItems("campo1").Visible = False
        End If


    End With

El Problema Viene,如果没有“ cano1”,则不存在,如果有控制权,则应该单独保存,否则将以“ salta el erero”身份出现此属性或方法”,例如del campo2。

Muchas gracias de antemano

0 个答案:

没有答案