엑셀 유저폼을 한번만 실행하고 싶습니다.

VBA
작성자
뱅만보르트
작성일
2022-06-10 12:19
조회
85
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

엑셀 파일을 열거나 혹은 특정 시트를 열면  그 시트에 대한 설명이 담긴 폼이 뜨도록 해 놨는데,

특정 시트를 열때

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

요렇게...

작업중 다른 시트에 갔다가 다시 돌아오면 그 폼이 반복적으로 떠서 처음 의도와는 달리 굉장히 귀찮네요

이걸 윈도우 팝업창 처럼 "오늘은 이만보기" 혹은 "일주일동안 보지 않기"  또는 파일을 열때 1번만 팝업이 뜨고 그 파일을 종료할 때 까지 폼이 뜨지 않게하는 기능을 넣고 싶은데 제 능력으론 도저히 되지 않고 , 검색해 봐도 도저히 찾을 수가 없어서 도움을 청합니다.

미리 감사를 드립니다.

전체 5

  • 2022-06-10 13:19

    @뱅만보르트 님 module에다

    Sub auto_open()
    UserForm1.Show
    End Sub

     


    • 2022-06-10 13:43

      @마법의손 님 댓글 감사합니다.

      저는 특정 시트에서 폼이 뜨도록 하고 싶은데,

      작업파일을 열고 여러 시트를 오가며 작업을 하는지라 파일 종료할 때 까지 그 시트를 들락날락 하여도

      그 시트에 들어간 최초 한번만 폼이 뜨게 하고 싶습니다. ㅠㅠ


      • 2022-06-10 13:55

        @뱅만보르트 님 Private Sub Worksheet_Activate()처럼 이벤트 프러시저에 넣으면 쉬트가 활성화될 때마다 폼을 열라는 뜻이잖아요. 그러니까 이벤트 프러시저에 넣지 말고 일반 모듈에 넣고 필요한 조건에 맞게 auto_open매크로를 실행하도록 하면 됩니다.


      • 2022-06-10 14:09
        채택된 답변

        @뱅만보르트 님 정적변수나 전역변수 쓰시면 되겠습니다.

        Private Sub Worksheet_Activate()
        Static nVisit As Integer

        If nVisit = 0 Then
        nVisit = 1
        UserForm1.Show
        End If
        End Sub

        Dim대신에 Static을 사용합니다.. 정적변수입니다..
        또는 프로시저 밖에다 Public nVisit으로 사용하시면 되겠습니다.


        • 2022-06-10 19:12

          @마법의손 님 덕분에 해결 되었어요. 감사합니다.
          이렇게 또 하나를 배워 갑니다.


전체 6,851
번호 카테고리 제목 작성자 작성일 추천 조회
알림
📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! ~7/8(금) 까지 -- 📌 (89)
오빠두엑셀 | 2022.06.23 | 추천 102 | 조회 15604
오빠두엑셀 2022.06.23 102 15604
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (79)
오빠두엑셀 | 2021.10.28 | 추천 95 | 조회 5319
오빠두엑셀 2021.10.28 95 5319
38370 VBA
New 행에 마지막 입력값 삭제하는 방법 문의 드림니다. 첨부파일 (1)
033cola | 17:36 | 추천 0 | 조회 16
033cola 17:36 0 16
38356 VBA
New VBA 또는 매크로 사용하여 시트1의 원한는 내용만 시트2에 표기하는 스크립트 문의 합니다. 엑셀파일첨부파일
파란맥 | 16:30 | 추천 1 | 조회 16
파란맥 16:30 1 16
38287 VBA
New VBA 범위 입력 소스 문의 합니다. (6) 답변완료
파란맥 | 08:36 | 추천 1 | 조회 39
파란맥 08:36 1 39
38284 기능/도구
New 엑셀 여러가지파일 탭으로 보기 첨부파일
asfdadfs | 08:18 | 추천 -1 | 조회 27
asfdadfs 08:18 -1 27
38260 파워쿼리/피벗
New 청사 출입기록을 월별, 인원별로 정리하고 싶은데 선배님들 조언을 구합니다. 엑셀파일첨부파일
비에리 | 03:30 | 추천 0 | 조회 23
비에리 03:30 0 23
38258 VBA
New 기준열과 동일하게 셀병합 하는 vba 엑셀파일첨부파일 (2)
007 | 02:10 | 추천 0 | 조회 39
007 02:10 0 39
38251 함수/공식
New 엑셀 다중조건으로 다른시트에 추출후 수정해서 원본시트에 업데이트방법? 엑셀파일
제임스딘 | 00:33 | 추천 0 | 조회 25
제임스딘 00:33 0 25
38197 VBA
New VBA 매크로 SelectionChange 명령문(스크립트) 조언 받고자 합니다. 엑셀파일첨부파일 (2) 답변완료
파란맥 | 2022.07.01 | 추천 0 | 조회 22
파란맥 2022.07.01 0 22
38191 함수/공식
New 특정 텍스트만 추출하는 함수에서.. (1) 답변완료
최사무엘 | 2022.07.01 | 추천 0 | 조회 25
최사무엘 2022.07.01 0 25
38187 기능/도구
New 엑린이] 시트값을 자동으로 불러오고 싶습니다 (1)
세잎 | 2022.07.01 | 추천 0 | 조회 26
세잎 2022.07.01 0 26
38183 VBA
New VBA 매크로 SelectionChange 명령문 조언 받고자 합니다. 엑셀파일첨부파일 (7) 답변완료
파란맥 | 2022.07.01 | 추천 1 | 조회 36
파란맥 2022.07.01 1 36
38182 함수/공식
New FILTER함수 사용시에 함수가 안먹히는 문제 첨부파일 (1)
엑셀고수되는방법좀 | 2022.07.01 | 추천 0 | 조회 23
엑셀고수되는방법좀 2022.07.01 0 23
38177 함수/공식
New 값을 찾아 가져오고 싶습니다. 엑셀파일 (1)
땅콩바라기 | 2022.07.01 | 추천 0 | 조회 18
땅콩바라기 2022.07.01 0 18
38175 문서서식
New 핸드폰 번호 서식을 통일 시키고 싶습니다... (2)
qwerty | 2022.07.01 | 추천 0 | 조회 19
qwerty 2022.07.01 0 19
38154 함수/공식
New 재고파일을 만들고 있는데 수식이.. ㅠㅠ 엑셀파일 (1)
최사무엘 | 2022.07.01 | 추천 -1 | 조회 38
최사무엘 2022.07.01 -1 38
38152 VBA
New Sharepoint에 있는 파일에서 ADODB를 이용해 데이터 추출시 에러 발생하는데, 해결방법에 대해 도움 부탁 드립니다 (3) 답변완료
Jas | 2022.07.01 | 추천 0 | 조회 21
Jas 2022.07.01 0 21
38150 함수/공식
New MATCH함수 문의 엑셀파일첨부파일 (1) 답변완료
땅콩바라기 | 2022.07.01 | 추천 0 | 조회 21
땅콩바라기 2022.07.01 0 21
38149 함수/공식
New 번호 매기기 원하는 "0" 제외하고 번호 매기기 ~ 고수님 부탁드립니다. (4) 답변완료
kwt**** | 2022.07.01 | 추천 0 | 조회 17
kwt**** 2022.07.01 0 17
38148 함수/공식
New 선생님들 엑셀 너무 어렵습니다. 알려주세요. ㅠㅠ 첨부파일 (3)
석고데생 | 2022.07.01 | 추천 -1 | 조회 26
석고데생 2022.07.01 -1 26
38129 함수/공식
New 재고 관리에서 악성재고를 추려내고자 하는데.... (3) 답변완료
최사무엘 | 2022.07.01 | 추천 -2 | 조회 41
최사무엘 2022.07.01 -2 41
38122 VBA
New if 문에서 A=B or C or D의 표현 방법이 무엇인가요? (2)
kimki**** | 2022.07.01 | 추천 0 | 조회 26
kimki**** 2022.07.01 0 26
38105 VBA
New 엑셀 파일내 모든 테두리선 일괄변경 관련
엑셀고수를향해 | 2022.07.01 | 추천 -1 | 조회 30
엑셀고수를향해 2022.07.01 -1 30
38097 함수/공식
New 뒤자리 0을 없에는 함수을 알고 싶어요? 첨부파일 (4) 답변완료
포카라 | 2022.07.01 | 추천 0 | 조회 32
포카라 2022.07.01 0 32
38093 문서서식
New [질문] 숫자 123... 을 하나둘셋 으로 표기 하는 법 (2)
티엠프이 | 2022.07.01 | 추천 0 | 조회 23
티엠프이 2022.07.01 0 23
38091 함수/공식
New 도와주세요ㅜㅜ 값을 찾아서 가져오고 싶습니다. 엑셀파일 (4) 답변완료
땅콩바라기 | 2022.07.01 | 추천 0 | 조회 28
땅콩바라기 2022.07.01 0 28
38020 VBA
New VBA 클리어 사용하여 특정 셀만 지우고자 합니다. 첨부파일 (3) 답변완료
파란맥 | 2022.07.01 | 추천 0 | 조회 28
파란맥 2022.07.01 0 28
37986 VBA
New VBA로 생성된 두 개의 피벗 테이블 슬라이서 연동 첨부파일 (4)
라바 | 2022.06.30 | 추천 0 | 조회 23
라바 2022.06.30 0 23
37955 VBA
New 각 조합 별 중복사용자 수 추출방법 알려주실분.. 엑셀파일 (1)
윤썽 | 2022.06.30 | 추천 0 | 조회 31
윤썽 2022.06.30 0 31
37804 함수/공식
New 문의합니다) 조건부 서식 채우기 첨부파일 (2) 답변완료
파란맥 | 2022.06.30 | 추천 0 | 조회 50
파란맥 2022.06.30 0 50
37779 문서서식
New 조건부서식으로 글자크기 변경 (2) 답변완료
엑셀초보랍니다 | 2022.06.30 | 추천 0 | 조회 32
엑셀초보랍니다 2022.06.30 0 32