이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
![[레벨:5]](http://www.abyul.com/zbxe/modules/point/icons/default/5.gif "포인트:3193point (95%), 레벨:5/30"){kind=icon}
맑은이슬안녕하세요!
아별님!!
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
여기서 두번 연속 실행시 하기의 경고 메세지를 출력되게 하고 싶습니다(같은자리에 입력으로 데이터 겹쳐짐 방지)
'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
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141971point, 레벨:30/30"){kind=icon}
아별
맑은이슬님..
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
저는 최대한 배려해드렸다고 생각하는데요.. 제가 잘 못 생각하고 있는건가요?
맑은이슬님의 배려를 부탁드립니다.
감사합니다.