예를 들어 8:55부터 10:00까지 10초단위로 작성한 모듈내의 특정 procedure를
아래의 예제에서는 첫번째 쉬트(Sheet1)에 있는 버튼이 클릭되었을 때 지정된 매크로를
실행시키는 방법이다
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Public Sub runbtn() Application.Run ("Sheet1.CommandButton1_Click")End SubSub setTimer() ' '--- 08:55분부터 10:00까지 10초단위로 실행하도록 타이머 세팅 Dim nSetCnt As Integer dTime = TimeValue("08:55:00") nMax = (60 * 60 + 60 * 5) / 10 For nSetCnt = 0 To nMax Application.OnTime dTime, "Sheet1.runbtn" dTime = dTime + TimeValue("00:00:10") NextEnd SubPublic Sub CommandButton1_Click() Debug.Print "실행시각 : " + CStr(Now())End Sub |
'컴퓨터 > 엑셀' 카테고리의 다른 글
| 엑셀 홀수열(한줄 건너 한줄) 삭제 (0) | 2015.03.14 |
|---|---|
| 오피스 문서(워드, 엑셀등)에서 한자, 일본어, 한글 추출 (3) | 2013.07.08 |
| 찾고싶은 성경(NIV, 개역개정) 장, 절을 입력하면 자동으로 PPT 슬라이드 생성 (9) | 2013.04.17 |
| 엑셀 데이타값이(자료의 Key값) 바뀔때마다 KEY에 속한 자료들의 합계를 구하는 방법 (0) | 2012.12.13 |
| 엑셀 조건부서식(Conditional Formatting)이용하여 슬라이드막대의 움직임에 따라 Cell이 선택되는 것처럼 보이기(Create a dynamic cell highlight) (0) | 2012.05.04 |