Excel에서 TableStyle 삭제

Question

나는 진술을 사용하여 탁월한 통합 문서에 TableStyle을 추가했습니다.

ActiveWorkbook.TableStyles.Add("PivotTable SS")

다음을 사용하여 삭제할 수 있습니다.

ActiveWorkbook.TableStyles("PivotTable SS").Delete

삭제 여부를 결정하기 전에 이미 존재하는지 프로그래밍 방식으로 어떻게 확인할 수 있습니까?

현재 나는 모든 테이블 스타일을 살펴보고 선택적 삭제를 수행하고 있습니다.

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

그러나 이것은 시간이 많이 걸립니다. 피벗 테이블 존재를 확인하고 루핑없이 삭제하려면 어떻게해야합니까?

감사 :)

Answer 1

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

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