NaverFinanceHistory( ) 을 이용하여 종가 구하기입니다.

VBA
작성자
eex****
작성일
2022-08-03 06:13
조회
46
엑셀버전 : 엑셀2019

운영체제 : 윈도우11

질문 요약 : 오빠두 엑셀님이 만드신 NaverFinanceHistory(E2, TODAY()-90) 을 이용하여 개별종목의 종가만 구하려고 합니다.

 

1. B열에 있는 데이터(예005930) 가 E2에 하나씩 들어갑니다.

2. E2 셀이 변경될때 마다 e4: k62 의 내용이 달라집니다.

3. 그때마다 종가(I열) 의 값을 N, O, P,... 의 열에 입력되게 하려고합니다.

4. NaverFinanceHistory.xlam 을 추가기능으로 설치해야 합니다

 

Sub stock()

Dim i

For i = 1 To 2900

m = Cells(4 + i, 2)
Cells(2, 5) = m

Range("i4:i65").Copy

???

Next i

 

End Sub

 

 

전체 5

  • 2022-08-03 09:16

    @eex**** 님 e3셀을 =naverfinancehistory($E$2)
    으로 바꾸시고,

    vba에서 stock 을 이렇게 바꿔보세요

    Sub stock()

    Dim i As Integer
    Dim m As String
    Dim ans As Integer

    For i = 1 To 2900
    m = Cells(4 + i - 1, 2)
    Cells(2, 5) = m

    Range("i4:i2904").Copy
    Range("i4:i2904").Offset(0, i + 4).PasteSpecial xlPasteValues

    ans = MsgBox("계속 실행하시겠습니까?", vbYesNo, "stock")
    If ans = 6 Then
    Else
    MsgBox "실행을 취소하셨습니다."
    Exit For
    End If

    Next i

    End Sub

     


    • 2022-08-03 09:22

      연속해서 출력하고, 아래쪽 상태표시줄에 몇개째 진행했는지 표시하는 방법입니다.

      Sub stock2()

      Dim i As Integer
      Dim m As String
      Dim ans As Integer

      Application.ScreenUpdating = False
      'Application.Calculation = xlCalculationManual
      Application.EnableEvents = False
      ActiveSheet.DisplayPageBreaks = False

      For i = 1 To 2900

      Application.StatusBar = "stock을 읽는 중 " & i & " / " & 2900

      m = Cells(4 + i - 1, 2)
      Cells(2, 5) = m

      Range("i4:i2904").Copy
      Range("i4:i2904").Offset(0, i + 4).PasteSpecial xlPasteValues

      Next i

      Application.ScreenUpdating = True
      'Application.Calculation = xlCalculationAutomatic
      Application.EnableEvents = True
      ActiveSheet.DisplayPageBreaks = True

      Application.StatusBar = False

      End Sub


      • 2022-08-03 11:05

        @ak 님 상태줄에 표시되는게 참 신기하네요.. 과정을 알 수 있어서 좋습니다.


    • 2022-08-03 09:45
      채택된 답변

      웹에서 데이터를 가져오는 것만으로도 딜레이가 있는데
      한 영역을 바꿔가면서 COPY를 해서 PASTE를 하는것도 비효율적이라..

      단순히 종가만 가져올 목적이시면 이런식으로 종목별로 2열씩 만드신 다음에
      (2900줄 전체 복사 후에 오른쪽에 붙여넣고, 정렬 > 옵션 > 왼쪽에서 오른쪽으로 > 1~2900 번호 있는 열 기준 오름차순 정렬하면 바로 생성 가능)

      삼성전자거 1셀만 만든 다음에, 날짜-종가 출력 하고,
      맨 위 2셀 복사해서 오른쪽 전체 영역 선택해서 붙여넣으면 2줄씩 있는 시트가 완성되고,

      결과 시트 하나 만들어서 ADDRESS 안에 COLUMN()*2-1로 불러오면 홀수열(종가)만 가져올 수 있습니다.

      그냥 셀 주소를 넣지 않고, INDIRECT로 연결하면 WAY2 시트를 삭제해도 수식에 있는 주소가 #REF로 깨지는걸 막을 수 있습니다.

      2022-08-03-094004.gif

      첨부파일 : 주식종목2900-02-2.xlsm


  • 2022-08-03 11:02

    @eex**** 님 이틀을 고민하고 했었는데.. 이렇게 되는 군요. 너무 감사합니다.


전체 7,322
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
오빠두엑셀 | 2022.07.31 | 추천 8 | 조회 1022
오빠두엑셀 2022.07.31 8 1022
공지사항 함수/공식
New [신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 85
오빠두엑셀 2022.08.04 4 85
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 116 | 조회 6071
오빠두엑셀 2021.10.28 116 6071
41067 함수/공식
New 몇 일 이후의 날짜 계산 오류 첨부파일 (3) 답변완료
보라색양털 | 10:01 | 추천 1 | 조회 15
보라색양털 10:01 1 15
41064 함수/공식
New 카운트관련 3번째 질의 드립니다. ㅠㅠ 엑셀파일 (1)
Thekey_guy | 09:29 | 추천 0 | 조회 17
Thekey_guy 09:29 - 17
41061 함수/공식
New 월별로 해당하는 건수를 계산하고 싶어요 엑셀파일 (2)
꿈꾸는부자 | 2022.08.10 | 추천 0 | 조회 40
꿈꾸는부자 2022.08.10 - 40
41060 피벗테이블
New 합계, 개수로 각각 다른 값의 피벗테이블을 만들었으나 동일한 응시율이 표시되는 이유??? 엑셀파일
sky3**** | 2022.08.10 | 추천 0 | 조회 36
sky3**** 2022.08.10 - 36
41058 함수/공식
New Excel 2019 수식 FILTER 첨부파일 (1)
Merci getta | 2022.08.10 | 추천 0 | 조회 46
Merci getta 2022.08.10 - 46
41052 VBA
New 특정문자 제거 (2) 답변완료
천하무적 | 2022.08.10 | 추천 0 | 조회 49
천하무적 2022.08.10 - 49
41046 함수/공식
New 마지막 셀 이동을 위한 Match 함수에서 문자열과 선택옵션 -1의 의미 (1)
| 2022.08.10 | 추천 0 | 조회 49
2022.08.10 - 49
41042 함수/공식
New 월 수 일할 계산 가능할까요? (2)
치키치키 | 2022.08.10 | 추천 0 | 조회 48
치키치키 2022.08.10 - 48
41037 파워쿼리/피벗
New 쿼리에서 줄바꾸기가를 다른 기호로 바꿀 방법이 있을까요? (3)
지금 | 2022.08.10 | 추천 0 | 조회 48
지금 2022.08.10 - 48
41035 함수/공식
New countif 함수를 써서 동일한 값 색칠하려고 하는데 조건이 2개입니다 ㅠㅠ 도와주세요 엑셀파일첨부파일 (2)
| 2022.08.10 | 추천 0 | 조회 55
2022.08.10 - 55
41024 VBA
New 무엇을 공부해야 만들 수 있을까요?? 첨부파일 (1)
뚝이 | 2022.08.09 | 추천 0 | 조회 72
뚝이 2022.08.09 - 72
41023 함수/공식
New 엑셀 반입 반출 list를 만들고 싶습니다. 근데 어떻게 해야할지 감이 안옵니다. 엑셀파일첨부파일 (4)
| 2022.08.09 | 추천 1 | 조회 85
2022.08.09 1 85
41017 함수/공식
New 카운트 관련 추가질의 드립니다. 엑셀파일 (1)
Thekey_guy | 2022.08.09 | 추천 1 | 조회 52
Thekey_guy 2022.08.09 1 52
41013 VBA
New 특정 셀에서 데이터 찾아내어 다른시트로 복사
itaci | 2022.08.09 | 추천 -4 | 조회 62
itaci 2022.08.09 -4 62
41010 문서서식
New 사용자 서식 지정 된 셀을 보이는 값 그대로 입력값을 바꾸고 싶어요/ 또는 중간 숫자를 셀서식없이 바꾸고 싶어요 첨부파일 (6) 답변완료
바람개비 | 2022.08.09 | 추천 0 | 조회 48
바람개비 2022.08.09 - 48
41007 VBA
New 체크박스를 이용한 PDF파일 저장 문제관련 엑셀파일
qkznl**** | 2022.08.09 | 추천 0 | 조회 42
qkznl**** 2022.08.09 - 42
41003 함수/공식
New 다른 셀값 복사된 셀에 내용을 추가 입력하는 방법 첨부파일 (4) 답변완료
마운틴 | 2022.08.09 | 추천 0 | 조회 48
마운틴 2022.08.09 - 48
41002 함수/공식
New 월별 제품 판매 수량과 제품별 사용 부품을 통한 월별 부품 사용 수량 구하기 엑셀파일 (5)
SELIA | 2022.08.09 | 추천 0 | 조회 53
SELIA 2022.08.09 - 53
40995 함수/공식
New 해당 요일이 주말일 경우 평일로 날짜를 출력하는 방법 첨부파일 (2)
juyoun**** | 2022.08.09 | 추천 0 | 조회 53
juyoun**** 2022.08.09 - 53
40994 함수/공식
New 다른 시트의 품목을 불러와 그 값을 비교하는 방법 (6) 답변완료
콕콕이 | 2022.08.09 | 추천 1 | 조회 58
콕콕이 2022.08.09 1 58
40993 함수/공식
New 다른시트 데이터 가져오기 엑셀파일 (2) 답변완료
포에버하윤둥이 | 2022.08.09 | 추천 0 | 조회 74
포에버하윤둥이 2022.08.09 - 74
40987 VBA
New 선택한 셀 근처에 차트 나타내기 엑셀파일첨부파일 (1)
eexcell | 2022.08.08 | 추천 0 | 조회 42
eexcell 2022.08.08 - 42
40982 VBA
New 입력 수량에 따른 버튼 또는 레이블 생성 첨부파일 (2)
늙은베짱이 | 2022.08.08 | 추천 -2 | 조회 54
늙은베짱이 2022.08.08 -2 54
40974 함수/공식
New 사과를 치면 옆 셀에 과일로, 배추를 치면 옆 셀에 야채로 넣는 방법 첨부파일 (6) 답변완료
곡식창고 | 2022.08.08 | 추천 0 | 조회 76
곡식창고 2022.08.08 - 76
40971 기능/도구
New 이름 정의 범위 선택시 에러 발생 엑셀파일첨부파일 (2)
라운드티 | 2022.08.08 | 추천 0 | 조회 54
라운드티 2022.08.08 - 54
40966 함수/공식
New TEXTJOIN함수에서 대싱 셀값이 0일때 JOIN안되게 하는 방법 (8) 답변완료
마운틴 | 2022.08.08 | 추천 0 | 조회 66
마운틴 2022.08.08 - 66
40963 함수/공식
New 특정문자가 포함된 여러 셀값을 특정문자 별로 정리하고 싶습니다. 엑셀파일 (1)
rin**** | 2022.08.08 | 추천 0 | 조회 50
rin**** 2022.08.08 - 50
40961 기능/도구
New G메일로 받은 내용 중 회신시간이 늦은 메일들을 엑셀로 관리할 수 있는 방법이 있을까요 ? (1)
최사무엘 | 2022.08.08 | 추천 0 | 조회 54
최사무엘 2022.08.08 - 54
40960 기능/도구
New 보안경고 안뜨게 설정하려면 어떻게 옵션을 설정해야 하나요? 첨부파일 (2) 답변완료
니가가라 하와이 | 2022.08.08 | 추천 0 | 조회 39
니가가라 하와이 2022.08.08 - 39
40958 차트/그래프
New 그래프 가로 축 레이블 설정 부분 첨부파일 (1)
성호 | 2022.08.08 | 추천 0 | 조회 45
성호 2022.08.08 - 45