간단한 엑셀 VBA 매크로 작성 요청드립니다.

VBA
작성자
채채
작성일
2020-11-10 00:14
조회
67


안녕하세요.

위의 그림처럼 A~E열까지 주식 데이터를 가지고 F~K열을 자동으로 채워주는 VBA 매크로 수식을 얻고 싶습니다.


정답은 제가 손으로 적어두었는데 많은 데이터를 해야해서 VBA 자동화가 필요합니다.


F, J, K열의 수식별 내용은 3행에 적어두었습니다.


1. F열은 양봉음봉 여부를 판단하는것이고, 종가와 시가를 비교해서 G, H, I열을 채우는 것입니다.


2. J열은 G열의 양봉 갯수를 누적해서 적다가 K열이 2가 되면 J열을 0으로 초기화해서 다시 누적합니다.


3. K열은 H열의 음봉 갯수를 누적해서 적다가 J열이 2가 되면 K열을 0으로 초기화해서 다시 누적합니다.


꼭 완성된 매크로가 필요합니다. 파일이나 VBA 수식 부탁드립니다.

전체 3

  • 2020-11-10 20:46

    특정 섹터/업종의 지수를 활용해서 리밸런싱 전략투자를 하려고 하는 듯 한데,
    말씀하신 로직은 순환루프 오류가 발생합니다.

    그리고, 누적 과정에 자신을 리셋하는 방식은 순환사이클上
    상승과 하락의 반전 포인트로 해석할 때 사용하는 것이나
    나중에 결과가 나와도 해석에 어려움이 있을 수 있으므로
    질문하신 내용정도면, VBA보다는 엑셀 함수를 세분화해서 정리하는게 어떨지요?

     

    20201110_203629.png


    • 2020-11-10 20:50

      추가적으로,
      도지를 단순히  (시가=종가) 로 하면 원하시는 기술적 분석에 한계가 발생합니다.
      경험적으로,
      도지는  (±1호가) 정도를  Equal 로 판단하는게 무난합니다.

      원하시는 답인지 모르겠네요.

      첨부파일 : 201109-vba-질문용답변.xlsm


      • 2020-11-10 18:46

        안녕하세요.

        매크로는 간단하게 작성할 수 있을 듯 합니다. 하지만 매크로 코드를 직접 작성하여 답변을 드리기에는 많은 시간이 소요되므로 직접 코드를 작성해드리기 보다는 방향을 제시해드리고 있습니다.

        우선 For 문과 If문을 사용하여 각 행/열을 하나씩 돌아가며  양봉/음봉을 체크하시고,

        그리고 값이 2보다 클 경우에는 그 이후 값을 0으로 입력하는 방법으로 입력하시면 됩니다.

        여기에 대한 내용은 이전에 올려드린 여러 퀵VBA 강의에서 다양한 방법으로 사용되었으므로, 퀵 VBA 강의를 참고하시면 도움이 되실 듯 합니다.^^ 아래 예제 링크를 적어드리니 영상강의와 VBA 예제코드를 참고해보세요.

        엑셀 VBA 시트 합치기 프로그램 :: 시트 병합 매크로 총정리

        코드 작성중 어려운 부분이 생길경우, 언제든지 커뮤니티에 글 남겨주세요.

        감사합니다.


        전체 1,570
        번호카테고리제목작성자작성일추천조회
        1565함수/공식
        New 월,주,일 특정 구간 산출공식 첨부파일
        H.B | 18:55 | 추천 0 | 조회 3
        H.B18:5503
        1564대시보드
        New 피벗 1차가공 동적그래프 문의 첨부파일
        H.B | 17:42 | 추천 0 | 조회 5
        H.B17:4205
        1563함수/공식
        New 방대한 양의 데이터를 모두 수식으로 작성한 파일에서 값으로 바뀐 항목의 갯수를 카운팅하거나
        김상수 | 16:19 | 추천 0 | 조회 6
        김상수16:1906
        1562차트/그래프
        New 차트에대해 질문드립니다. 첨부파일
        dasdas | 14:08 | 추천 0 | 조회 8
        dasdas14:0808
        1561기능/도구
        New 줄바꿈 제거 질문입니다. (3)
        옥수수수염차 | 13:56 | 추천 0 | 조회 17
        옥수수수염차13:56017
        1560피벗테이블
        New 피벗 접기 펼치기기능 슬라이서 구현화 문의 첨부파일 (1) 답변완료
        H.B | 09:46 | 추천 0 | 조회 22
        H.B09:46022
        1559VBA
        New 네이버 연관검색어 파일 VBA 복구하거나 제거 무슨 뜻인지? (2)
        Greenpunch | 2020.11.26 | 추천 0 | 조회 13
        Greenpunch2020.11.26013
        1558기능/도구
        New 엑셀 크롤링 기능을 활용한 [품절] 항목 검색 (1)
        고래 | 2020.11.26 | 추천 0 | 조회 19
        고래2020.11.26019
        1557VBA
        New VBA 창에서 프로젝트창, 속성창 등이 고정되지 않아 넘 불편합니다. ㅠㅠ (1)
        공석 | 2020.11.26 | 추천 0 | 조회 20
        공석2020.11.26020
        1556차트/그래프
        New 지도차트 관련 질문 (1)
        Astroz | 2020.11.26 | 추천 0 | 조회 18
        Astroz2020.11.26018
        1555VBA
        New VBA 사용 시트병합 강의 따라하는데 매크로 단축키 지정이 안됩니다. 해결책이 있나요? (3)
        공석 | 2020.11.26 | 추천 0 | 조회 26
        공석2020.11.26026
        1554함수/공식
        New 당직근무자 자동생성 관련 / 첨부파일 (1)
        naver_5f055a605ee7d | 2020.11.26 | 추천 0 | 조회 28
        naver_5f055a605ee7d2020.11.26028
        1553VBA
        New 셀단위 이미지 자동추출 문제 관련 첨부파일 (1)
        ezdaily | 2020.11.26 | 추천 0 | 조회 13
        ezdaily2020.11.26013
        1552함수/공식
        New 피벗테이블로 유효성검사3가지 려고하는데 잘안되요 첨부파일 (1)
        ja**** | 2020.11.26 | 추천 0 | 조회 24
        ja****2020.11.26024
        1551함수/공식
        New PDF로 저장할때 HYPERLINK 함수를 적용시킬수 있는 방법이 있을까요? 첨부파일 (1)
        찬우아빠 | 2020.11.25 | 추천 1 | 조회 32
        찬우아빠2020.11.25132
        1550문서서식
        New 한글에서 표를 엑셀로 복사붙여넣기 할때요 (2) 답변완료
        욕심없는성공v | 2020.11.25 | 추천 0 | 조회 34
        욕심없는성공v2020.11.25034
        1549기능/도구
        New du-tool 삭제시 오류메세지 문의드립니다. 첨부파일 (1)
        좐킴 | 2020.11.25 | 추천 0 | 조회 14
        좐킴2020.11.25014
        1548VBA
        New 이메일 본문에 차트 삽입 (1)
        달님 | 2020.11.25 | 추천 0 | 조회 20
        달님2020.11.25020
        1547VBA
        New vba로 인터넷 창 전환 후 크기 변경 질문 드립니다. (1)
        hyuk**** | 2020.11.25 | 추천 0 | 조회 17
        hyuk****2020.11.25017
        1546기능/도구
        New 4개 기능 함수를 다운받아 설치 후 엑셀이 에러 창이 뜹니다. 첨부파일 (1)
        SM AD AMERICA | 2020.11.24 | 추천 0 | 조회 33
        SM AD AMERICA2020.11.24033
        1545기능/도구
        New 엑셀 실행 시 에러 창이 뜹니다. 이거 해결할 수 있나요? 첨부파일 (1)
        SM AD AMERICA | 2020.11.24 | 추천 0 | 조회 20
        SM AD AMERICA2020.11.24020
        1544차트/그래프
        New 주차별 꺾은선그래프 위에 증감수치 입력방법 (2)
        wjdxkdl**** | 2020.11.24 | 추천 0 | 조회 22
        wjdxkdl****2020.11.24022
        1543문서서식
        New 아주 기초적인 질문이요.. (1)
        빨간돼지 | 2020.11.24 | 추천 0 | 조회 26
        빨간돼지2020.11.24026
        1542VBA
        폴더 밑 하위 폴더 전체 이름을 반환하고 싶어요 도와주세요 (4)
        밍장군 | 2020.11.24 | 추천 0 | 조회 21
        밍장군2020.11.24021
        1541차트/그래프
        주식형 차트에다가 보조축을 활용하고싶은데 방법을 모르겠습니다. (2) 답변완료
        김상호 | 2020.11.24 | 추천 0 | 조회 21
        김상호2020.11.24021
        1540함수/공식
        엑셀 지도차트 만들기 transpose 배열함수 값 오류 뜹니다. (7)
        Yooon | 2020.11.24 | 추천 0 | 조회 41
        Yooon2020.11.24041
        1539대시보드
        대시보드 관련 질문사항입니다. (4) 답변완료
        H.B | 2020.11.24 | 추천 2 | 조회 22
        H.B2020.11.24222
        1538함수/공식
        INDIRECT함수 관련 (2) 답변완료
        finebyme | 2020.11.24 | 추천 0 | 조회 32
        finebyme2020.11.24032
        1537VBA
        VBA 오픈 API 도와주세요 ㅜ (4)
        에너지뿜 | 2020.11.24 | 추천 0 | 조회 42
        에너지뿜2020.11.24042
        1536문서서식
        ~여러개 시트 하나로 연결 하는 문제 (1)
        생활지원센터 | 2020.11.23 | 추천 0 | 조회 49
        생활지원센터2020.11.23049