1. 설명 : 특정 cell(A1)에 100이 입력되면 메시지를 출력하고 sheet2를 숨긴다.
2. 소스
3. 샘플
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
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. 샘플
invalid-file
