삭제 TABLESTYLE 엑셀

Question

에서 나는 문을 사용하여 통합 문서를 능가하는 TABLESTYLE을 추가 한 삭제 여부

현재 나는 모든 테이블 스타일을 통해 반복하고 선택적 삭제를하고있는 중이 야 :

For Each ts In ActiveWorkbook.TableStyles 
     If ts.Name = "PivotTable Style 1" Then 
      ts.Delete 
     End If 
    Next ts 

그러나,이 시간이 많이 소요됩니다. 피벗 테이블 존재 여부를 확인하고 반복하지 않고 삭제할 수 있습니까?

감사 :

Answer 1

변수에 스타일을 할당 해보십시오. 변수가 Nothing이면 스타일이 없습니다. 스타일이 존재하지 않고 변수를 지정하려고하면 오류 메시지가 표시되므로 오류 처리를 일시적으로 중단해야합니다.

Sub DeleteAStyle() 

    Dim ts As TableStyle 

    On Error Resume Next 
    Set ts = ActiveWorkbook.TableStyles("PivotTable Style 1") 
    On Error GoTo MyUsualErrorHandler 

    If Not ts Is Nothing Then 
     ts.Delete 
    End If 

End Sub