'달력 유저폼' 선택 셀 왼쪽 열에 나타나게 할 수 있는 VBA

VBA
작성자
007
작성일
2022-01-07 11:54
조회
107
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

새해 복 많이 받으세요.

다음과 같이 '달력 유저폼'이 선택 셀 왼쪽 열에 나타나게 할 수 있는 메크로가 있을까요.

이 사이트의 '최신정보공유' 메뉴와 '달력 유저폼'을 참고하였습니다.

수고로움과 지혜를 구합니다.

 

회원등급 : 13레벨
포인트 : 1167 EP
총질문 : 16 개 (마감율 : 88%)
채택답변 : 0 개
전체 8

  • 2022-01-07 15:28

    ㅎㅎ, 너무 감사드려요.

    매번 도움만 받아서 염치 없습니다.

    새해 평안하시길 기원합니다.

    감사합니다.


    • 2022-01-07 19:21

      @007 님 도움되었다시니 기쁩니다.


  • 2022-01-07 12:29

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim left As Single
    Dim rr, cc

    cc = Target.Column
    rr = Target.Row

    If cc = 2 Or cc = 5 Then

    left = Cells(rr, cc).left - 40 'Range("A" & Target.Row).left
    Me.btnToApplicationMethod.top = Cells(rr, cc - 1).top - 2
    Me.btnToApplicationMethod.left = left

    End If
    End Sub

    매크로 일부를 수정 보완하였습니다.

    METHOD를 시계모양 아이콘으로 바꾸는 것은 [달력]으로 바꾸시던지 아니면 직접 작업해 보시기 바랍니다.

    첨부파일 참고하세요.

    첨부파일 : 날짜입력_해법제안.xlsm


    • 2022-01-07 12:51
      채택된 답변

      @김학동 님 추가로 수정된 파일 보냅니다.

      달력입력.JPG

      첨부파일 : 날짜입력_해법제안.xlsm


  • 2022-01-07 13:46

    와우!  빠른 답변 너무 너무 감사합니다.

    부러워요.

    혹,  B열(입력일)과 E열(출력일)  이외의 셀을 선택하였을 경우

    '단추'가 보이지 않게 하려면 어떻게 해야하는지요?

    if    ~   else 단추이름 hidden(??)  ~ end if 하면 될 것 같은데...

    번거롭게 해드려 죄송합니다.

     

     


    • 2022-01-07 15:01

      @007 님 추가로 조건을 부여하여 단추 숨김을 해 보겠습니다.


      • 2022-01-07 15:06

        @김학동 님 단추 숨김을 수행하는 추가보완 파일 보내드립니다.

        첨부파일 : 날짜입력_해법제안_추가보완.xlsm


        • 2022-01-09 11:08

          @김학동 님 수고해주신 덕분에 완성 파일 올립니다.
          일부 코드를 변경하였습니다.
          늘 감사합니다.

          첨부파일 : 날짜입력_해법제안_코드-변경.xlsm


전체 5,235
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (32)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 834
트로피 오빠두엑셀 2021.10.12 23 834
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (23)
오빠두엑셀 | 2021.10.28 | 추천 33 | 조회 2513
트로피 오빠두엑셀 2021.10.28 33 2513
26508 함수/공식
New 중복데이터 찾아서 삭제하는 방법(3천개정도 됩니다) 첨부파일
따뜻한아메리카노 | 17:10 | 추천 0 | 조회 5
따뜻한아메리카노 17:10 0 5
26504 VBA
New HTML 코드안의 원하는 값 가져오기
엑셀초보(LV.1) | 15:49 | 추천 0 | 조회 11
엑셀초보(LV.1) 15:49 0 11
26501 VBA
New VBA 유저폼 리스트박스에 배열 정렬방법문의드립니다 (1)
98e | 15:04 | 추천 0 | 조회 16
98e 15:04 0 16
26498 VBA
New vba 그래프 영역 변경 구문 간단질문
H.B | 14:23 | 추천 0 | 조회 17
H.B 14:23 0 17
26497 함수/공식
New 엑셀 수식 계산 (4)
스미스 | 14:07 | 추천 0 | 조회 34
스미스 14:07 0 34
26489 함수/공식
New 특정 셀이 공란일시, 저장이 안되게끔 할 수 있을까요? (8) 답변완료
쿠몬은내친구 | 12:45 | 추천 1 | 조회 36
쿠몬은내친구 12:45 1 36
26487 VBA
New 셀서식을 숫자로 변환후, 오름차순 정렬하는 매크로 (4) 답변완료
길리 | 12:16 | 추천 0 | 조회 34
길리 12:16 0 34
26486 VBA
New 특정셀값이 "ID"일 경우, vba를 실행시키고자 합니다 (4) 답변완료
길리 | 12:06 | 추천 0 | 조회 33
길리 12:06 0 33
26484 기능/도구
New 표시형식 도와주세요 첨부파일 (1) 답변완료
김상준 | 11:30 | 추천 0 | 조회 33
김상준 11:30 0 33
26479 함수/공식
New (ㅜㅜ)항목이 다른 각 데이터들 취합하기 문의드립니다. 첨부파일 (2) 답변완료
해룡 | 06:20 | 추천 0 | 조회 39
해룡 06:20 0 39
26468 함수/공식
New 똑같은 수식으로 텍스트의 바이트수를 계산하는데 다르게 나옵니다.ㅠ 첨부파일 (1)
turtle**** | 2022.01.26 | 추천 0 | 조회 40
turtle**** 2022.01.26 0 40
26466 VBA
New 재고관리 filtered_db 함수 사용관련 질문입니다. (db가 empty인 경우 사용법)
탄만두 | 2022.01.26 | 추천 0 | 조회 36
탄만두 2022.01.26 0 36
26462 VBA
New VBA오빠두님의 Listfiles함수 중에 (2)
H.B | 2022.01.26 | 추천 1 | 조회 31
H.B 2022.01.26 1 31
26460 VBA
New vba 일치하는 값 찾기 질문 드립니다. 첨부파일 (6) 답변완료
qkrwo**** | 2022.01.26 | 추천 0 | 조회 41
qkrwo**** 2022.01.26 0 41
26454 VBA
New Excel VBA _ Select 하지않고 바로 작업하는 방법 (2) 답변완료
백일호 | 2022.01.26 | 추천 1 | 조회 45
백일호 2022.01.26 1 45
26444 VBA
New 네이버 웹페이지 특정 정보 가져오기 질문
엑셀초보(LV.1) | 2022.01.26 | 추천 0 | 조회 21
엑셀초보(LV.1) 2022.01.26 0 21
26441 VBA
New vba 코딩으로 다른 시트 데이터 가져오기 질문입니다. 첨부파일 (2) 답변완료
qkrwo**** | 2022.01.26 | 추천 0 | 조회 47
qkrwo**** 2022.01.26 0 47
26440 피벗테이블
New 3개의 피벗테이블 필터 값을 동시에 변경하는 방법이 알고 싶어요 첨부파일
forest choi | 2022.01.26 | 추천 0 | 조회 30
forest choi 2022.01.26 0 30
26439 VBA
New VBA 네이버 부동산 크롤링 질문 (1)
엑셀초보(LV.1) | 2022.01.26 | 추천 0 | 조회 31
엑셀초보(LV.1) 2022.01.26 0 31
26421 문서서식
New 엑셀과 워드 메일머지 강의에는 예제파일이 없나요?
pcs**** | 2022.01.26 | 추천 0 | 조회 28
pcs**** 2022.01.26 0 28
26420 함수/공식
New 회원자료실 커스텀 일정표에서 조건추가하여 사용하고싶은데 질문있습니다 !
창동명 | 2022.01.26 | 추천 0 | 조회 32
창동명 2022.01.26 0 32
26410 피벗테이블
New 피벗 테이블에서 취소선을 표현하는 방법 첨부파일 (1)
퉁퉁이 | 2022.01.25 | 추천 0 | 조회 49
퉁퉁이 2022.01.25 0 49
26408 기능/도구
New 표에서 바로만든 슬라이서도 보고서연결 기능과 비슷하게 만들 수 있나요? (3)
차가운열매 | 2022.01.25 | 추천 0 | 조회 43
차가운열매 2022.01.25 0 43
26405 함수/공식
New 최고점/최저점 찾아내기 첨부파일 (14) 답변완료
km**** | 2022.01.25 | 추천 0 | 조회 73
km**** 2022.01.25 0 73
26403 VBA
New VBA를 이용하여 euc-kr로 인코딩된 site 크롤링 방법 (1)
콩순이 | 2022.01.25 | 추천 0 | 조회 29
콩순이 2022.01.25 0 29
26401 VBA
New 목표값 계산 자동 매크로 방법 첨부파일 (1)
박우성 | 2022.01.25 | 추천 0 | 조회 45
박우성 2022.01.25 0 45
26399 피벗테이블
New 데이터 새로고침 시 피벗테이블 연결 오류 첨부파일 (1)
유정 | 2022.01.25 | 추천 0 | 조회 31
유정 2022.01.25 0 31
26392 함수/공식
New MINIFS 함수 사용시 0으로 값 반환됨 (초보자에게 도움 부탁드립니다...ㅜㅜ) 첨부파일 (3) 답변완료
김원석 | 2022.01.25 | 추천 0 | 조회 45
김원석 2022.01.25 0 45
26387 VBA
New VBA 엑셀에서 다른 프로그램 실행하기 (2) 답변완료
병욱 | 2022.01.25 | 추천 0 | 조회 43
병욱 2022.01.25 0 43
26378 피벗테이블
New 피벗테이블 집계 오류 (5) 답변완료
가을남자 | 2022.01.25 | 추천 0 | 조회 51
가을남자 2022.01.25 0 51