Skip to content

[VBA] 일정패턴의 특정 시트만 선택하는 방법

by CroitzK posted Nov 09, 2020 Views 10 Likes 0 Replies 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

특정 명단표가 있고 이 명단 중 특정값을 갖는 이름에 해당하는 특정시트들만 선택하고자 할때 아래 코드를 사용함.


아래는 코드 샘플


Option Explicit

Sub SelectSheet()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim maxRange As Range
    Dim MaxCount As Integer, i As Integer, j As Integer
    
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("명단")
    Set maxRange = ws.Range("sMaxCount")
    
    MaxCount = Application.WorksheetFunction.Max(maxRange)
    
    Dim sh() As String
    Dim chk As String
    Dim str As String
    Dim arrMax As Integer
    arrMax = 0
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    For i = 1 To MaxCount
        chk = ws.Range("$F$" & i + 1).Value
        If chk Then
            arrMax = arrMax + 1
        End If
    Next i
    
    ReDim Preserve sh(1 To arrMax)
    
    j = 1
    For i = 1 To MaxCount
        chk = ws.Range("$F$" & i + 1).Value
        If chk Then
            sh(j) = "용지 (" & i & ")"
            j = j + 1
        End If
    Next i
    
    Worksheets(sh).Select
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
End Sub


TAG •
?

Calender

2020.12
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31    

Time Info

Counter Info

방문자수

전체 : 50,599
오늘 : 46
어제 : 46

페이지뷰

전체 : 1,780,392
오늘 : 233
어제 : 3,048

COPYRIGHT 2009 by AGMServer.com

Powered by Xpress Engine / Designed by Sketchbook

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소