메그로를 실행하여 데이트 함수에 시트명의 월을 넣는 방법 문의

VBA
작성자
무궁
작성일
2020-09-15 20:16
조회
39
안녕하세요..

첨부의 화일중 19.10.1시트를 시:분옆에 행을 추가하고 1열의 숫자를 일로 하는 연-월-일 표시하는 메크로(ctl+u)를 만들었습니다..

그리고 19.9.1과 같이 정열하는 메크로( ctl+i)를 만들었습니다,

 

ActiveCell.FormulaR1C1 = "=DATE(2019, 9, R[-3]C[1])"

그런데 위의 수식에 매달 메크로의 date함수의 월을 수정해야 해서 번거럽네요..

그래서 시트명을 년과 월에 사용 할수 방법이 없나요...

행 변셩, 날짜삽입 메크로는 "A:A 선택후 ctl+u

데이터 정열은 2번째일(j4) 해당 날짜의 제일 위에것 선택한 상태에서  ctl+i입니다..

 

감사합니다...
전체 2

  • 2020-09-16 10:30

    안녕하세요.

    시트명을 '2019-10-01'과 같이 작성하실 경우,

    ActiveCell.FormulaR1C1 = "=DATE(2019, 9, R[-3]C[1])"

    위 명령문을 아래와 같이 수정해보세요.

    ActiveCell.FormulaR1C1 = "=DATE(" & CLng(Left(ActiveSheet.Name, 4)) & "," & CLng(Mid(ActiveSheet.Name, 6, 2)) & ", R[-3]C[1])"

    제시해드린 답변이 도움이 되셨길 바랍니다. 🙂


    • 2020-09-16 11:42

      감사합니다,, 잘실행 됩니다,, 잘 사용 하겠습니다..


    전체 1,192
    번호 카테고리제목작성자작성일추천조회
    1188 기능/도구
    New 엑셀 필터 조회 안될때 문의 (1)
    이영호 | 2020.09.29 | 추천 0 | 조회 17
    이영호2020.09.29017
    1187 함수/공식
    New 특정 문자 포함 셀 값 합치기 (5)
    해봐 | 2020.09.29 | 추천 0 | 조회 35
    해봐2020.09.29035
    1186 문서서식
    New 다중필터 관련 질문 (1)
    벚꽃이진다고너를 | 2020.09.29 | 추천 0 | 조회 25
    벚꽃이진다고너를2020.09.29025
    1185 함수/공식
    New 로또 추출기 (6)
    프리맨소울 | 2020.09.28 | 추천 0 | 조회 45
    프리맨소울2020.09.28045
    1184 함수/공식
    New 월별 누적 매출 구하기 질문 있습니다. 첨부파일 (1)
    [email protected] | 2020.09.28 | 추천 0 | 조회 33
    [email protected]2020.09.28033
    1183 함수/공식
    New (연평균 증가률 질문 드려요) 시작값, 종료값이 마이너스 또는 플러스일때 (1)
    푸우 | 2020.09.28 | 추천 0 | 조회 25
    푸우2020.09.28025
    1182 함수/공식
    New xfilter함수 다중범위 이용하는게 가능할까요? (3)
    David Cho | 2020.09.28 | 추천 0 | 조회 31
    David Cho2020.09.28031
    1181 함수/공식
    New Sum(Sumifs) 함수로 조건에 맞는 월별 합계를 구하고자 하는데 다른 방법이 있을지 질문드립니다. (8)
    Hannah | 2020.09.28 | 추천 0 | 조회 40
    Hannah2020.09.28040
    1180 함수/공식
    New 중복 카운트 (2)
    유리비 | 2020.09.28 | 추천 0 | 조회 39
    유리비2020.09.28039
    1179 함수/공식
    New 도움이 필요합니다 (배열형태 개수를 구하는 함수) 첨부파일 (2)
    벗님들 | 2020.09.28 | 추천 0 | 조회 21
    벗님들2020.09.28021
    1178 VBA
    New HTS연동 된 값 질문 입니다. (3)
    COXMAN | 2020.09.27 | 추천 0 | 조회 30
    COXMAN2020.09.27030
    1177 차트/그래프
    조건부서식 규칙관리자 첨부파일 (2)
    강재성 | 2020.09.27 | 추천 0 | 조회 34
    강재성2020.09.27034
    1176 문서서식
    행 2개로 구분되어 있는 텍스트를 열 2개로 만드는 방법은 없을까요..? (4)
    찬찬 | 2020.09.26 | 추천 0 | 조회 40
    찬찬2020.09.26040
    1175 함수/공식
    함수 참조 문제 첨부파일 (2)
    1oi1oi1oi | 2020.09.26 | 추천 0 | 조회 28
    1oi1oi1oi2020.09.26028
    1174 피벗테이블
    시간슬라이서와 피벗테이블 주 간격 생성방법 첨부파일 (4)
    iviolin**** | 2020.09.26 | 추천 0 | 조회 31
    iviolin****2020.09.26031
    1173 함수/공식
    섬프로덱트+인덱스매치 조합 외에도 다른 방식이 있는지 궁금합니다. 첨부파일 (3)
    달퐁이 | 2020.09.26 | 추천 0 | 조회 46
    달퐁이2020.09.26046
    1172 기능/도구
    엑셀늅인데 정렬에 관해서 궁금합니다 ㅠ (3)
    유녕 | 2020.09.25 | 추천 0 | 조회 38
    유녕2020.09.25038
    1171 파워쿼리/피벗
    데이터셋을 재구성하는 방법 질문.. 첨부파일 (2)
    김연수 | 2020.09.25 | 추천 0 | 조회 35
    김연수2020.09.25035
    1170 VBA
    VBA에서 변수로 영역 지정하는 방법과 구문의 구조에 대한 질문입니다 (4)
    공대생 | 2020.09.24 | 추천 0 | 조회 39
    공대생2020.09.24039
    1169 VBA
    웹 크롤링 관련 질문드립니다. (5)
    hall**** | 2020.09.24 | 추천 2 | 조회 55
    hall****2020.09.24255
    1168 함수/공식
    NaverFinanceSearch 함수 기능 문의 첨부파일 (2)
    알파보이 | 2020.09.24 | 추천 0 | 조회 46
    알파보이2020.09.24046
    1167 차트/그래프
    동적범위를 이용한 날짜 합계 구하는 함수 문의 (2)
    째쨈 | 2020.09.24 | 추천 0 | 조회 42
    째쨈2020.09.24042
    1166 피벗테이블
    대량의 두개의 데이터를 합친후 데이터수정 및 합계결과 뽑아내는법이 궁금합니다 (1)
    자유인 | 2020.09.24 | 추천 0 | 조회 44
    자유인2020.09.24044
    1165 VBA
    VBA 여러개 시트를 활용한 피벗데이블 질문 첨부파일 (4)
    sundaychefchef | 2020.09.23 | 추천 0 | 조회 43
    sundaychefchef2020.09.23043
    1164 VBA
    if문의 조건에 대해 질문드립니다. (7)
    엑셀늅늅이 | 2020.09.23 | 추천 0 | 조회 50
    엑셀늅늅이2020.09.23050
    1163 함수/공식
    엑셀 배열을 합칠 수 있는 방법이 있을까요? (7)
    나그네 | 2020.09.23 | 추천 0 | 조회 53
    나그네2020.09.23053
    1162 함수/공식
    경우의 수 관련 질문드립니다. (10)
    speedoo | 2020.09.23 | 추천 0 | 조회 53
    speedoo2020.09.23053
    1161 함수/공식
    데이터 뽑기 첨부파일 (1)
    soung**** | 2020.09.23 | 추천 0 | 조회 51
    soung****2020.09.23051
    1160 VBA
    기초적인 질문 하나만 할께요 2차원 배열에서 range값을 배열로 받아서 다른 시트에 배열 붙여넣는 방법이 어떻게 되나요 (1)
    밍장군 | 2020.09.23 | 추천 0 | 조회 22
    밍장군2020.09.23022
    1159 VBA
    (VBA) 도형서식 -> 채우기 -> 그림 또는 질감 채우기 -> 다음에서 그림 삽입 -> 클립보드 선택 구현 (1)
    건주 | 2020.09.23 | 추천 0 | 조회 32
    건주2020.09.23032