ListObject.ShowAutoFilterDropDown property

ListObject.ShowAutoFilterDropDown 속성

ListObject 개체에 대한 자동 필터 드롭다운이 표시되면 True입니다. 읽기/쓰기 부울입니다.

 

Syntax
expression.ShowAutoFilterDropDown

 

expression : ListObject 개체를 나타내는 변수입니다.

 

다음 코드는 드롭다운 필터를 표시합니다.

Sub ShowDropDown()
    Dim lo As ListObject
    Set lo = Sheets("Sheet1").ListObjects("Table1")
    lo.ShowAutoFilterDropDown = True
End Sub

 

다음 코드는 드롭다운 필터를 숨깁니다.

Sub HideDropDown()
    Dim lo As ListObject
    Set lo = Sheets("Sheet1").ListObjects("Table1")
    lo.ShowAutoFilterDropDown = False
End Sub

 

드롭다운 상태에 따라 메시지를 출력합니다.

Sub CheckDropDown()
    Dim lo As ListObject
    Set lo = Sheets("Sheet1").ListObjects("Table1")
    If lo.ShowAutoFilterDropDown Then
        MsgBox "The AutoFilter drop-down is visible."
    Else
        MsgBox "The AutoFilter drop-down is hidden."
    End If
End Sub

 

ShowAutoFilterDropDown 속성을 사용하려면 필터가 실행된 상태여야 합니다.그렇지 않으면 오류가 납니다.

 

아래 그림은 필터가 실행된 상태에서 HideDropDown 프로시저를 실행한 화면입니다.

 

도움말 출처

 

ListObject.ShowAutoFilterDropDown property (Excel)