VBA 5개의 시트에서 TRUE / FALSE 를 받아오는데 5개의 시트에서 전부 FALSE일경우 작동안하게 하는방법이 있을까요?

Question

sub test()

'///////////////////////////////////////////////////////////////////////////////////////////////
' Sheet1
'///////////////////////////////////////////////////////////////////////////////////////////////
Select Case Sheets("Sheet1").Range("V1").Value
Case "False"

Case "True"

Msgbox True

Case Else
End Select
'///////////////////////////////////////////////////////////////////////////////////////////////
' Sheet2
'///////////////////////////////////////////////////////////////////////////////////////////////
Select Case Sheets("Sheet2").Range("V1").Value
Case "False"

Case "True"

Msgbox True

Case Else
End Select

'///////////////////////////////////////////////////////////////////////////////////////////////
' Sheet3
'///////////////////////////////////////////////////////////////////////////////////////////////
Select Case Sheets("Sheet3").Range("V1").Value
Case "False"

Case "True"

Msgbox True

Case Else
End Select

'///////////////////////////////////////////////////////////////////////////////////////////////
' Sheet4
'///////////////////////////////////////////////////////////////////////////////////////////////
Select Case Sheets("Sheet4").Range("V1").Value
Case "False"

Case "True"

Msgbox True

Case Else
End Select

'///////////////////////////////////////////////////////////////////////////////////////////////
' Sheet5
'///////////////////////////////////////////////////////////////////////////////////////////////
Select Case Sheets("Sheet5").Range("V1").Value
Case "False"

Case "True"

Msgbox True

Case Else
End Select

End Sub

시트 5개가 전부 FALSE일경우 test 매크로가 작동하지 않게 하는방법이 있을까요?

원조백수 · Accepted Answer

참고하세요.

Sub Test()
    Dim vSh As Variant, i As Long, GoRun As Boolean
    '// 시트이름을 나열하여 Split으로 시트이름 목록을 생성
    vSh = Split("Sheet1,Sheet2,Sheet3,Sheet4,Sheet5",  ",")

    '// 생성된 목록으로 값을 점검하고 Go/No 결정
    For i = LBound(vSh) To UBound(vSh)
        If Worksheets(vSh(i)).Range("V1").Value2 <> "False" Then
            GoRun = True
            Exit For
        End If
    Next i
    
    If Not GoRun Then Exit Sub
    
    MsgBox "Run Macro..."

End Sub

VBA 5개의 시트에서 TRUE / FALSE 를 받아오는데 5개의 시트에서 전부 FALSE일경우 작동안하게 하는방법이 있을까요?

댓글 2

질문답변 게시판의 최근 글

바로가기

커뮤니티

문의

[직원 채용] 오빠두에듀 프리랜서 보조 강사 모집

[직원 채용] 오빠두엑셀이 정규직 동료를 모십니다