[VBA 제 29강] Worksheet_Activate이벤트 썸네일 이미지
[VBA 제 29강] Worksheet_Activate이벤트
콘텐츠 타입 MS 오피스 엑셀 2003(2007, 2010가능), Windows XP 이상
용량0KB
조회1,396
즐겨찾기
[VBA 제 29강] Worksheet_Activate이벤트를 즐겨찾기 한 횟수는 0 0입니다.
이용등급 프리미엄
제품 상세정보

 




[ 기초 강좌 ]

 

제 29 강

Worksheet_Activate이벤트

 

Excel의 생명이라고 할 수 있는 Worksheet_Activate이벤트

그 사용법을 알아봅니다.

이럴 때 필요해요

 

몇 가지의 이벤트 프로시저중의 하나입니다. 

이렇게 사용해요

아래의 데이터를 작성하고,

(Sheet를 잘확인하세요.)

 


(C5 셀은 'Result'로 이름정의 되어있습니다.)

 



 

아래의 코드까지 작성 하세요.

Private Sub Worksheet_Activate()
  Call Sum_Thisbook
End Sub

 

 

Sub Sum_Thisbook()
    Dim rngTarget As Range
    Dim sht As Worksheet
   
    [Result].ClearContents
   
    For Each sht In Worksheets
   Set rngTarget = sht.Range("C4:C20")
     [Result] = [Result] + Application.Sum(rngTarget)
   Next sht
End Sub 

 

먼저, 위 C5 셀의 현재값을 확인하신 다음, 다른 시트의 특정영역(예: Sheet2C5 셀)에 적당한

숫자(예: 100)를 입력하고나서, 다시 Main Sheet을 열고 C5 셀의 값을 살펴 보시기 바랍니다.

 

다음은, 특정시트(예: Sheet2)를 삭제하신 다음, 다시 Main SheetC5 셀의 변화를 살펴 보시기 바랍니다.

다른 Sheet에서 특정 영역(C4:C20)의 값이 변경되거나 또는 삭제되는 경우,

Main Sheet의 활성화(Activate)와 동시에 C5 셀(이름정의: Result)의 값도 변경됩니다.

 

그럼, 이제 프로젝트 탐색기에서 Main Sheet의 Worksheet오브젝트를 열고, Worksheet_Activate 라는

이벤트 프로시저의 내용을 살펴 보시기 바랍니다.

 

앞서 소개해 드렸던 Worksheet_Change 이벤트 프로시저 및 Worksheet_SelectionChange이벤트 프로시저 등

Worksheet오브젝트에는 몇 가지의 이벤트 프로시저가 있는데, 그 중의 하나가 오늘 소개해 드릴 Worksheet_Activate

이벤트 프로시저입니다.  

Worksheet_Activate이벤트 프로시저는 대부분의 다른 이벤트 프로시저와는 달리, 특정 Range오브젝트(Target)를

사용하지 않는다는 점이 특징입니다. (말 그대로 해당 Sheet가 활성화, 즉 Activate되면 지정된 프로시저를 실행하는 것이

이벤트 그 자체이므로 Range오브젝트 등 별도의 매개변수를 필요로 하지 않습니다.)

 

다음은, 모듈시트에서 위에서 설명드린 내용과 같이 현재시트, 즉 Main시트의 Worksheet_Activate이벤트 프로시저를

사용하여 현재시트가 활성화되면 실행하게 될, 또 다른 모듈프로시저(Sum_Thisbook)의 내용을 살펴 보시기 바랍니다.

모듈프로시저(Sum_Thisbook)의 코드에 대해서는 특별히 설명드릴 필요가 없을 것으로 생각되어 생략합니다.

 

 

저작권정보
1. 콘텐츠의 저작권은 쿠키(www.coukey.co.kr)에 있으며, 사용권한은 1인 1카피입니다.
2. 다운로드 받은 콘텐츠는 본인(본인회사)만 사용할 수 있습니다.
3. 다른 사람과 공유하거나 원본 또는 수정 후 무단전제,무단배포,무단판매,무단 공유할 수 없습니다.
4. 웹상에서 배포는 상업,비상업적 목적을 불문하고, 손해배상등 가중처벌됩니다.
[VBA 제 29강] Worksheet_Activate이벤트
이용후기

업무자동화 맞춤제작

고객님의 상황에 100% 맞춘 콘텐츠 제작 전문 서비스를 이용해 보세요.
프리미엄 무료 이벤트 중