EGTools

Chart의 특정 부위를 더블 클릭하면 이벤트를 실행하고자 할 때 Class를 이용해서 차트에서 이벤트를 사용할 수 있도록 설정하는 방법입니다. 전체적인 내용은 이벤트를 가진 개체를 정의할 때 사용하는 방법과 동일합니다. □ 이벤트를 가진 Chart용 이벤트 Class 정의 먼저 Chart에서 이벤트를 사용할 수 있도록 WithEvents를 사용한 Class를 정의합니다. Class 이름은 clsEventChart라고 하겠습니다. 실제 Chart에서 일어나는 이벤트 처리 작업은 여기에서 설정합니다. Public WithEvents EvtChart As Chart '//이벤트를 가진 Chart개체 Private m_x As Long '//마우스 위치 Private m_y As Long '//마우스 위치 P..

Excel에서 이벤트를 이용할 때 WorkSheet 이벤트와 WorkBook 이벤트 그리고 Application Class 이벤트 등 사용하는 이벤트의 장단점이 있으므로 그 발생 순서를 이해하고 사용하면 자동화 하는데 많은 도움이 됩니다. 3가지 사이의 발생순서와 Sheet를 이동하거나 WorkBook을 이동할 때 이베트가 발생하는 순서 등이 어떻게 되는지 볼 수 있도록 이벤트를 기록하도록 작성한 샘플입니다. Worksheet 이벤트에는 해당 시트에서만 작동하는 기능을 넣는 것이 좋습니다. 이벤트에 ByVal Sh As Object 같은 Worksheet가 전달되는 것이 없습니다. Workbook 이벤트에는 파일의 시작, 종료, 저장 및 여러 시트에 공통으로 적용할 수 있는 기능을 넣는 것이 좋습니다. ..

□ 레이블이벤트를 사용할 클래스 추가 및 동작 지정 삽입 - 클래스 모듈 (이름 : cLblEvents ) WithEvents를 사용하여클래스 내부에 이베트를 가진 레이블을 추가 (이름: lbl ) 동작 : 레이블을 클릭하거나 더블클릭하면 Tag에 있는 날짜를 SelectedDate 인터페이스를 통해 지정 선택된 날짜를 기재하고 폼은 숨기기 Public WithEvents lbl As MSForms.Label Private Sub lbl_Click() If Left(lbl.Name, 3) = "lbD" Then lbl.Parent.SelectedDate = CDate(lbl.Tag) lbl.Parent.Hide End If End Sub Private Sub lbl_DblClick(ByVal Cancel..