Skip to content

Instantly share code, notes, and snippets.

@Kyeongrok

Kyeongrok/advanced_ver1.md

Created November 4, 2017 06:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Kyeongrok/dedb803a8ec04686f939b73b6177dd97 to your computer and use it in GitHub Desktop.
Save Kyeongrok/dedb803a8ec04686f939b73b6177dd97 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
advanced_ver1.md 
Sub main_advanced_filter()
    Call advancedFilter("list!A1:D37")
End Sub

Sub 조건1()
    Sheets("filter").Range("a2").Value = "*요양*"
    Call advancedFilter("list!A1:D37")
End Sub

Sub 조건지우기()
    Sheets("filter").Range("a2:d4").ClearContents
End Sub

Sub advancedFilter(p_데이터범위)
    Range(p_데이터범위).advancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("filter!A1:D2"), CopyToRange:=Range( _
        "filter!A7:D7"), Unique:=False
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment