1. 설명 : 특정 cell(A1)에 100이 입력되면 메시지를 출력하고 sheet2를 숨긴다.

2. 소스
Dim sheet As Worksheet
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$1" Then '값 확인할 셀 주소
       If Target.Value = 100 Then '셀의 현재 값 비교
           Sheet1.msg '특정 조건의 이벤트 출력
           Sheet1.HideSheet
       Else
           Sheet1.ShowSheet
       End If
   End If
End Sub

Sub msg()
   MsgBox "100입니다."
End Sub

Sub HideSheet()
   Set sheet = ThisWorkbook.Worksheets("Sheet2")
   If sheet.Visible <> xlSheetVeryHidden Then
       'sheet.Visible = xlSheetVeryHidden '서시-시트에서 숨기기 취소 사용 못 함
       sheet.Visible = xlSheetHidden '서식-시트에서 숨기기 취소 사용 가능
   End If
End Sub

Sub ShowSheet()
   Set sheet = ThisWorkbook.Worksheets("Sheet2")
   sheet.Visible = xlSheetVisible
End Sub

3. 샘플


Posted by Gu Youn
,