abyul.com > Excel > Question & Answer

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

2011.12.10 01:36

안녕하세요? 하이버리님..

반갑습니다.. ^^

첨부파일을 참고하세요..

다운 받기 : abyul.com_20111210_autofilterByComboBox-1.xlsm

Sub 드롭다운6_Change()
    Dim strCriteria As String
    Dim shtTarget As Worksheet: Set shtTarget = Sheets("타자")
    Dim shtFilter As Worksheet: Set shtFilter = Sheets("자동필터")
    Select Case shtFilter.Range("B7").Value
        Case 1
            strCriteria = "좌타"
        Case 2
            strCriteria = "우타"
    End Select
    shtTarget.Activate
    shtTarget.Range("$A$3:$Y$27").AutoFilter Field:=2
    shtTarget.Range("$A$3:$Y$27").AutoFilter Field:=2, Criteria1:=strCriteria
End Sub