본문 바로가기

Excel VBA/VBA 예제

고급필터 예제, 해당 시트 존재 여부 알려주는 function

728x90

고급필터 예제

Sub advancedFilter(db시트명, filter시트명)
    filter시트columns = Sheets(filter시트명).Range("a1").CurrentRegion.Columns.Count
    filter_column_name_addr = Sheets(filter시트명).Range(Sheets(filter시트명).Cells(8, 1), Sheets(filter시트명).Cells(8, filter시트columns)).Address

    Sheets(db시트명).Range("A1").CurrentRegion.advancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets(filter시트명).Range("A1").CurrentRegion, CopyToRange:=Range( _
        filter시트명 & "!" & filter_column_name_addr), Unique:=False
End Sub

해당 시트 존재 여부 알려주는 function

Function checkIfSheetExists(SheetName) As Boolean
      checkIfSheetExists = False
      For Each WS In Worksheets
        If SheetName = WS.Name Then
          checkIfSheetExists = True
          Exit Function
        End If
      Next WS
End Function

참고

stackoverflow.com/questions/6688131/test-or-check-if-sheet-exists

728x90
블로그 주인장입니다. 원하시는 정보는 얻으셨나요? 이 포스트에서 추가로 필요한 정보가 있으시면 여기에 남겨주세요.