'이벤트 처리' 태그의 글 목록

'이벤트 처리'에 해당되는 글 1건

2007.01.06 특정 셀의 값 변경 이벤트 19

특정 셀의 값 변경 이벤트

Computer/Excel & VBA 2007. 1. 6. 01:20

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. 샘플

invalid-file