1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

글 수 822

VBA 실행시 경고 메세지 출력하기

VBA 조회 수 3290 추천 수 0 2013.06.21 11:25:49
[레벨:5]맑은이슬 *.247.145.54

안녕하세요!

아별님!!

VBA를 공부 하고,업무에 활용하고자 합니다

 

하기 VBA에서  VBA_1 이 두번 연속으로 실행 안되게 합니다
여기서 두번 연속 실행시  하기의 경고 메세지를 출력되게 하고 싶습니다(같은자리에 입력으로 데이터 겹쳐짐 방지)
'MsgBox "두번연속 입력입니다,입력 데이터를 확인 하세요☞ !", vbExclamation, " Programing By jhkim"
어느 부위에 추가를 해야 하는지요??
 아래VBA는 2번연속  VBA_1 이 실행 되지는 않으나 경고 메세지 출력어 없어 알수가 없어 경고 메세지창을 출력 하고자 합니다


정상 실행 순서는 VBA_1  >>> VBA_2  >> 실행1,또는2 는 정상 실행
이렇게 실행시는 VBA_1  >>> VBA_1  >>  실행이 안되고 경고 메세지 출력되게 하려고 합니다

Dim bln As Boolean
 
Sub VBA_1()  '2번 연속으로 실행안되게 하는 메뉴
If bln Then Exit Sub
bln = True                                       '이곳 어디에 2번 연속 실행시 경고 메세지 출력을 추가 하고 싶어요
data입력국내1
End Sub
 
Sub VBA_2()
  If bln Then bln = False
  data입력해외3
End Sub
 
Sub VBA_ALL()
   If bln Then bln = False
  Main일일1
End Sub

Sub VBA_ALL2()
   If bln Then bln = False
  Main전체1
End Sub

Sub 실행1()
If MsgBox("정말로 명령을 실행할까요?,실행이후는 취소가 불가능 합니다", vbYesNo + vbDefaultButton2) = vbYes Then Call VBA_ALL          '실행여부를 묻는 명령 추가
End Sub

Sub 실행2()
If MsgBox("정말로 명령을 실행할까요?,실행이후는 취소가 불가능 합니다", vbYesNo + vbDefaultButton2) = vbYes Then Call VBA_ALL2             '실행여부를 묻는 명령 추가
End Sub

이 게시물을...
엮인글 :
http://www.abyul.com/zbxe/122229/e84/trackback
목록

댓글 '2'

profile

[레벨:30]아별

2013.06.24 07:02:50
*.104.126.21

맑은이슬님..

8개의 질문 글중에 질문하실때 첨부파일을 주신게 2개밖에 없네요..

http://www.abyul.com/zbxe/?mid=xl_QnA&search_target=nick_name&search_keyword=%EB%A7%91%EC%9D%80%EC%9D%B4%EC%8A%AC


이번 질문부터, 엑셀 파일을 첨부해주시지 않으면 답변 드리지 않겠습니다.

엑셀 파일 올려달라고 공지 달고.. 댓글로 요청드린게 몇 년은 된 것 같습니다.

http://www.abyul.com/zbxe/98782


저는 최대한 배려해드렸다고 생각하는데요.. 제가 잘 못 생각하고 있는건가요?


맑은이슬님의 배려를 부탁드립니다.

감사합니다.

[레벨:5]맑은이슬

2013.06.24 07:31:12
*.247.145.54

먼저 감사 드립니다

죄송합니다,첨부 파일은 회사내 사용으로 외부 업로드 불가(보안 프로그램이 PC 자체에 내장)로 올릴수가 없습니다

아무리 간단한 파일도 외부로 업로드는 불가한 상황입니다

열심히 인터넷을 헤메어 공부 해야 겟습니다

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 42206
목록
쓰기