고급필터 예제, 해당 시트 존재 여부 알려주는 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

저작자표시

'Excel VBA > VBA 예제' 카테고리의 다른 글

고급필터 예제, 해당 시트 존재 여부 알려주는 function  (0)	2020.11.10
구글 스프레드시트 세로값 펼치기  (0)	2019.05.09
excel vba function 예제 - 사칙연산, 시트개수 세기  (0)	2018.07.25
열개수 숫자를 알파벳으로 ex)27 -> AA  (0)	2018.07.24
excel vba 날짜 다루기 now, string -> dateObject date add  (0)	2018.06.19
excel vba regexp  (0)	2018.06.02