안녕하세요~
여러명이서 같이 관리하는 엑셀파일이 있는데 타이머를 설정하여 저장 후 자동 종료 하게끔 만들고 싶습니다.
여기저기 동영상 찾아보면서 타이머는 만들었는데,,, 엑셀 파일을 열면 자동으로 타이머가 실행되고, 저장 후 종료해서 다시 들어가면 타이머가 리셋되어 다시 카운트하는 기능을 어떻게 할지 모르겠어요...
답변 부탁드립니다.
커뮤니티 전체
엑셀자동 종료 타이머 VBA
jhlee1212 Lv.2
📅 2020년 01월 30일 17:49
👁 조회 2.1만
댓글을 작성하려면 로그인이 필요합니다.
게시글 목록
페이지 973 / 978게시글 제목
날짜
조회
추천
2020.03.01
조회 7,872
3
답글 1
2020.02.29
조회 5,249
1
답글 1
2020.02.29
조회 5,618
1
답글 1
2020.02.28
조회 7,020
1
답글 1
2020.02.28
조회 5,941
0
답글 1
2020.02.28
조회 5,966
0
답글 1
2020.02.28
조회 1.3만
4
답글 3
2020.02.28
조회 5,085
0
답글 1
2020.02.28
조회 6,327
0
답글 2
2020.02.27
조회 5,713
1
답글 1
해결
2020.02.27
조회 5,887
0
답글 3
2020.02.26
조회 5,815
0
답글 5
2020.02.25
조회 1.6만
0
답글 2
2020.02.25
조회 7,901
1
답글 2
2020.02.24
조회 6,013
0
답글 2
2020.02.22
조회 1.1만
1
답글 2
2020.02.21
조회 1.6만
1
답글 4
해결
2020.02.21
조회 6,234
1
답글 2
2020.02.20
조회 1.1만
0
답글 2
2020.02.19
조회 1.3만
2
답글 4
WorkBook_Open 이벤트를 사용하시면 됩니다.
간단한 예제 작성하여 첨부해드리니 확인해보시겠어요?
'<--! 이부분에 타이머 명령문을 넣으시면 됩니다 -->
MsgBox "타이머가 시작됩니다."
UserForm1.Show
End Sub
제 답변이 도움이 되셨길 바랍니다.
감사합니다.
안녕하세요
혹시 10분후 엑셀창 종료 예제
부탁드립니다ㅠ
항상 감사합니다. 해결 되었습니다. ㅎㅎㅎ
타이머 잘 돌아가고 저장 후 워크북까지는 종료가 되는데 엑셀창은 안닫히고 열려있습니다.
이 문제는 어떻게 해결해야할지 모르겠어요....
아래 코드 첨부합니다.
1. 통합문서 코드
Private Sub Workbook_Open()
Sheet1.Range("B1").Value = "00:05:00"
timer
End Sub
2. 모듈코드
Sub timer()
interval = Now + TimeValue("00:00:01")
If Range("B1").Value = 0 Then Call CloseFile
On Error Resume Next
Range("b1") = Range("b1") - TimeValue("00:00:01")
Application.OnTime interval, "timer"
End Sub
-------------------------------------------------------------------------------------------------
Sub CloseFile()
If ActiveWorkbook.Saved = False Then
ActiveWorkbook.Close True
Else
ActiveWorkbook.Close False
End If
End Sub
CloseFile 명령문을 아래와 같이 변경해보시겠어요?
Sub CloseFile()
If ActiveWorkbook.Saved = False Then
ActiveWorkbook.Close True
Application.Quit
Else
ActiveWorkbook.Close False
Application.Quit
End If
End Sub
Application.Quit을 각각 추가해주시면 됩니다.^^
감사합니다