VBA 유저폼 실행위치 설정방법 (StartUpPosition 제외)

VBA
작성자
VBA고수되고파
작성일
2022-08-19 18:04
조회
5396
엑셀버전 : 엑셀2019

운영체제 : 윈도우10


질문 요약 : 유저폼 실행위치 지정(유동적)

안녕하세요.

생성한 UserForm의 실행위치를 설정하는데 어려움을 느껴 질의합니다.

속성에서 지정된 좌표(left, top 등)를 주는 것이 아닌 사용자 환경과 엑셀 창 위치에 따라 유동적으로

변하는 실행위치를 지정하고 싶습니다.

 

Q&A 게시판 내 게시된 관련글을 참조 해 보았을때

_Module_GetCursor 모듈을 추가하고

해당 모듈 내 사용방법으로

'-------------------------------------------------------
'■ 사용방법
'Dim MousePOS As POINTAPI
'POINTAPI = convertMouseToForm
'유저폼.Top = POINTAPI.Y
'유저폼.Left = POINTAPI.X
'--------------------------------------------------------

이렇게 작성되어 있으나

수정하고 추가해야하는 부분과 작성위치 등을 이해하기가 어렵습니다.

 

날짜입력 달력폼이 아닌 단순하게 제가 만든 유저폼의 실행 위치만 설정하고 싶습니다.

(유저폼 속성의 StartUpPosition의 설정이 아닌 특정 셀 옆 또는 Target 셀 옆 등)\

 

도움 주시면 감사하겠습니다.

신고
스크랩
공유
전체 4

  • 2022-08-20 00:59

    @VBA고수되고파 님 보기 편하게 유저폼 위치지정에 필요한 부분만 남겼습니다

    2022-08-20-005315.gif

    첨부파일 : UserForm-실행위치2.xlsm


  • 2022-08-20 11:16
    채택된 답변

    @VBA고수되고파 님 엑셀의 셀에도 윈도우좌표가 되어 있습니다. APPLICATION에도 좌표가 있구요..

    Sub Run()

    UserForm1.Left = Selection.Left + Selection.Width + 30 + Application.Left
    UserForm1.Top = Selection.Top + UserForm1.Height + Application.Top

    UserForm1.Show

    End Sub

    20-181VCpZDL9.gif

    첨부파일 : 복사본-UserForm-실행위치.xlsm


    • 2022-08-21 15:39

      @마법의손 님 감사합니다. 이런 방법이 있었군요!!
      제가 정말 원하던 방법입니다.

      고수님들께 많이 배워갑니다!!


전체 18,458
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] IT/오피스 '1위' 베스트셀러! 엑셀 공부, 이 교재로 마스터하세요! (313)
오빠두엑셀 | 2022.02.03 | 추천 572 | 조회 599124
오빠두엑셀 2022.02.03 572 599124
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 310 | 조회 34865
오빠두엑셀 2021.10.28 310 34865
78396 함수/공식
New 직원별로 근태 합계를 확인하고 싶어요 엑셀파일 (5)
배진희 | 13:50 | 추천 0 | 조회 29
배진희 13:50 - 29
78395 함수/공식
New 특정 단어를 포함한 행 골라내는 방법에 대해 문의드립니다. (3) 답변완료
mmm1010 | 13:36 | 추천 0 | 조회 22
mmm1010 13:36 - 22
78392 함수/공식
New 도와주세요... ( 특정값에 해당하는 반 번호 찾아 목록만들기) 엑셀파일첨부파일 (1)
김동생 | 13:02 | 추천 0 | 조회 16
김동생 13:02 - 16
78389 기능/도구
New 오빠두LIVE 196회 - 엑셀 프로젝트 관리 _ 일,주 바꾸는법 엑셀파일 (1)
일류 | 09:21 | 추천 0 | 조회 37
일류 09:21 - 37
78387 함수/공식
New 엑셀 관련 질문입니다. SUM과 IFERROR 입니다 ㅠ (6)
| 2025.04.27 | 추천 0 | 조회 84
2025.04.27 - 84
78382
New Excel 추세선 이상 엑셀파일 (2)
eagle | 2025.04.27 | 추천 0 | 조회 61
eagle 2025.04.27 - 61
78381 함수/공식
New 같은 이름 N 번째 데이터 엑셀파일첨부파일 (14)
박정호 | 2025.04.27 | 추천 1 | 조회 96
박정호 2025.04.27 1 96
78380 함수/공식
New On Error Resume Next 문구를 삽입하는 위치는? (2)
GEEM | 2025.04.27 | 추천 0 | 조회 65
GEEM 2025.04.27 - 65
78376 함수/공식
New 지역별 증감금액 확인 엑셀파일 (3) 답변완료
충무공 | 2025.04.26 | 추천 0 | 조회 65
충무공 2025.04.26 - 65
78374 함수/공식
New index를 활용한 조건에 맞는 금액을 찾는 방법 엑셀파일첨부파일 (4)
뚜둥뚜둥 | 2025.04.26 | 추천 0 | 조회 76
뚜둥뚜둥 2025.04.26 - 76
78372 기능/도구
New 표서식 차이 문의 첨부파일 (2) 답변완료
hossang**** | 2025.04.25 | 추천 0 | 조회 54
hossang**** 2025.04.25 - 54
78370 피벗테이블
New (피벗테이블) 2024년 2025년 판매 TOP10 비교데이터 첨부파일 (13)
패션피플 | 2025.04.25 | 추천 0 | 조회 76
패션피플 2025.04.25 - 76
78369 구글시트
New 엑셀을 구글 시트와 연동하는 법 (1)
물만둡 | 2025.04.25 | 추천 0 | 조회 58
물만둡 2025.04.25 - 58
78368 함수/공식
New 곱하기 계산시 0일때도 계산하고 싶습니다 엑셀파일 (2)
또야 | 2025.04.25 | 추천 0 | 조회 71
또야 2025.04.25 - 71
78366
New 엑셀 일정 범위 내 최대값 가져오기 함수식 문의 (조건 있음) 엑셀파일 (3)
peac**** | 2025.04.25 | 추천 0 | 조회 54
peac**** 2025.04.25 - 54
78358
New 파워포인트 글씨 굵게 (1)
쫄면김밥 | 2025.04.24 | 추천 0 | 조회 31
쫄면김밥 2025.04.24 - 31
78354 문서서식
New 구글스프레드시트 숨기기 질문이에요! 첨부파일 (1)
Aberdeen | 2025.04.24 | 추천 0 | 조회 54
Aberdeen 2025.04.24 - 54
78352 피벗테이블
New 여러 피벗테이블 하나의 슬라이서로 동작과 테이블간 관계 만들기 문의 엑셀파일첨부파일 (3) 답변완료
이미자 | 2025.04.24 | 추천 0 | 조회 74
이미자 2025.04.24 - 74
78347 대시보드
New 대시보드 결과 값끼리 열 비교하기 (4)
아네모네 | 2025.04.24 | 추천 0 | 조회 69
아네모네 2025.04.24 - 69
78346 함수/공식
New 요일별 색상 구분 엑셀파일 (4)
슈토파이터 | 2025.04.24 | 추천 0 | 조회 79
슈토파이터 2025.04.24 - 79
78344 VBA
New 첫 셀에만 수식입력하면 열 전체가 자동으로 수식 적용되는 기능 푸는방법 문의 첨부파일 (6) 답변완료
나라달 | 2025.04.24 | 추천 0 | 조회 101
나라달 2025.04.24 - 101
78342
New 만년 달력 관련 도와주세요.ㅠㅠ
주식회사 티에프티 | 2025.04.24 | 추천 0 | 조회 50
주식회사 티에프티 2025.04.24 - 50
78341 함수/공식
New sumproduct 조건에 관해서 (1)
쪼쪼 | 2025.04.24 | 추천 0 | 조회 77
쪼쪼 2025.04.24 - 77
78340 피벗테이블
New 다중영역 피벗테이블에서 영역을 표만들기로 적용하는 경우 오류발생, 원인을 모르겠습니다 엑셀파일첨부파일 (2)
S지니 | 2025.04.24 | 추천 0 | 조회 47
S지니 2025.04.24 - 47
78339 함수/공식
New 엑셀이느려집니다 ㅠ 자동견적서만드는데 VLOOKUP을 너무많이써서그런가 원인좀 봐주세요 (2)
리더실드 | 2025.04.24 | 추천 0 | 조회 86
리더실드 2025.04.24 - 86
78335
New 인쇄시 양식을 배경으로 깔 수 있을까요? (1)
emma6094 | 2025.04.24 | 추천 0 | 조회 34
emma6094 2025.04.24 - 34
78332 기능/도구
New 고수님들 질문들립니다. GPT 엑셀 연동 으로 데이터수집 관련 (2)
왕뚜껑 | 2025.04.23 | 추천 0 | 조회 80
왕뚜껑 2025.04.23 - 80
78330 함수/공식
New 15분마다 쌓이는 데이터를 1시간 단위로 합산해서 정리하고싶어요.. 엑셀파일 (3)
sj | 2025.04.23 | 추천 0 | 조회 113
sj 2025.04.23 - 113
78327 VBA
New 엑셀 VBA 챌린지 2일차, 값바꾸기 버튼 클릭해도 안 바뀌는 이유 첨부파일 (8)
Babelfish | 2025.04.23 | 추천 0 | 조회 65
Babelfish 2025.04.23 - 65
78326 함수/공식
New 여러 열의 데이터가 중복될때 표시되는 조건부서식을 할때요 엑셀파일 (2) 답변완료
윷즈 | 2025.04.23 | 추천 0 | 조회 75
윷즈 2025.04.23 - 75