HTS연동 된 값 질문 입니다.

VBA
작성자
COXMAN
작성일
2020-09-27 17:34
조회
55
HTS에 영동 시키면 셀에 주식이름 값이

=DDES|'ST017890'!Name <<< 이렇게 넣어 집니다.

빨간색 숫자가 종목 코드고 뒤에 Name값으로 종목명이 출력 되게 됩니다.

여기서 다른 종목으로 바꾸려면 종목 코드만 입력하면 되는데

문제는 셀을 클릭해서 숫자만 지우고 입력해야 한다는 겁니다.

그래서 나머지 부분은 셀 서식처럼 지정만 해놓고 숫자만 입력하면 바로 종목명이 나오게 할 수 있을까요
전체 3

  • 2020-09-29 23:57

    회사별 DLL 로 제공하는
    HTS 기능에 통합된 형태 구현이 조금 어려운 부분이 있더군요.

    제가 즐겨썼던 방법은
    행열구조가 동일한
    별도의 시트에 종목코드만 만들고
    시트간의 셀을 참조하게 하는 것입니다.

    * 그리고
    제  경험으로는
    DDE 연결을 하게 되면, 연결되는 시점에 엑셀이 초기화되기 때문에
    셀서식 적용은 안되더라고요.

    1) 그래서, 필요한 함수를 만들고 .bas 로 저장하고
    2) DDE 연결하고
    3) 1)번의 모듈을 삽입해서 사용하는 순서로 했던 것 같습니다.

     

     

     


    • 2020-09-30 03:59

      답변 감사드립니다.

      네이년의 바다를 헤엄쳐서

      아래의 VBA코드를 구해서 해 봤는데 종목명까지는 어찌어찌 했으나

      현재가, 전일종가 등등은 어설픈 제 실력으로는 구현 하기가 힘드네요.

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Target.Column = 8 Then Exit Sub
      If Target.Count > 1 Then Exit Sub
      Application.EnableEvents = False
      Target.Offset(0).Formula = "=DDES|'ST00" & Target.value & "'!Name"
      Application.EnableEvents = True
      End Sub

       

      "=DDES|'ST00" & Target.value & "'!Name" <<이 부분에서도 ST 뒷 부분에 00이 없어야 하고.... 아무튼 제 실력으로는 많이 부족하네요. 제발 도와 주세요. Please!~~~~~


    • 2020-09-28 16:12

      안녕하세요. INDIRECT 함수를 사용해보세요.

      =INDIRECT("DDES|'ST"&종목코드"'!Name...")

      으로 사용해보시길 바랍니다.:)


      전체 1,339
      번호 카테고리제목작성자작성일추천조회
      1334 함수/공식
      New 조건에 맞는 데이터 내림차순으로 정렬 함수 문의 첨부파일
      혁궁 | 17:20 | 추천 0 | 조회 9
      혁궁17:2009
      1333 대시보드
      New 대시보드 만들기 3강 (SUMPRODUCT 값 Name 오류) 첨부파일
      료마 | 15:59 | 추천 0 | 조회 14
      료마15:59014
      1332 함수/공식
      New 데이터유효성 검사 중 '공백무시'는 어떤 의미인가요? (1)
      성현생각 | 14:53 | 추천 0 | 조회 12
      성현생각14:53012
      1331 VBA
      New 한글(HWP)로 된 문서를 엑셀에 붙여넣는 작업을 매크로를 이용해 자동화하기
      화가 | 14:20 | 추천 0 | 조회 12
      화가14:20012
      1330 VBA
      New 각각 다른 파일을 개별로 메일을 보내고 싶습니다.
      DAN | 13:57 | 추천 0 | 조회 11
      DAN13:57011
      1329 차트/그래프
      New 거품차트+원형차트 복합 (Compound bubble and pie chart) (3)
      아카시아 | 09:16 | 추천 0 | 조회 28
      아카시아09:16028
      1328 함수/공식
      New 2가지 조건을 만족하는 함수를 작성해야합니다. (4)
      THEEUGENE | 2020.10.22 | 추천 1 | 조회 26
      THEEUGENE2020.10.22126
      1327 차트/그래프
      New 간트 차트 내용 추가 관련 문의 드립니다. (1)
      나짱보이 | 2020.10.22 | 추천 0 | 조회 15
      나짱보이2020.10.22015
      1326 VBA
      New VBA로 특정 셀 잠그기 / 잠금 해제하기 (1)
      엑셀늅늅이 | 2020.10.22 | 추천 0 | 조회 24
      엑셀늅늅이2020.10.22024
      1325 피벗테이블
      New 피벗테이블에서 사용날짜에 있는 값들이 이전 달에 들어가서 합이 되어 버리는 오류가 발생합니다. 첨부파일 (2)
      김광수 | 2020.10.22 | 추천 0 | 조회 25
      김광수2020.10.22025
      1324 차트/그래프
      New [질문] 월 데이터를 그래프로 그릴 때 공휴일, 토, 일은 그래프에서 삭제하고 싶습니다. (4)
      그때의너 | 2020.10.22 | 추천 0 | 조회 27
      그때의너2020.10.22027
      1323 차트/그래프
      New 연결하여 붙여넣기(그림) 선택옵션에서 안보여서용 ㅠㅠ도와주세용 (2)
      윤사슴 | 2020.10.21 | 추천 0 | 조회 34
      윤사슴2020.10.21034
      1322 기능/도구
      New 조건부서식 아이콘표시 문의 첨부파일 (10)
      글래스 | 2020.10.21 | 추천 0 | 조회 41
      글래스2020.10.21041
      1321 차트/그래프
      New 선생님.. 첨부파일 (1)
      rpaq**** | 2020.10.21 | 추천 0 | 조회 34
      rpaq****2020.10.21034
      1320 함수/공식
      New 다운받은게 추가기능에서 설치가 된거 같은데 작동을 안하네요. 첨부파일 (1)
      Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 28
      Fund 꿈전사2020.10.21028
      1319 문서서식
      New 원하는 프르그렘 엑셀 유료 제작도 해주시나요? (1)
      Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 60
      Fund 꿈전사2020.10.21060
      1318 VBA
      New 엑셀에서 아웃룩일정 입력하는 방법에 관한 질문 (2)
      naver_5f8b682a12bb7 | 2020.10.21 | 추천 0 | 조회 27
      naver_5f8b682a12bb72020.10.21027
      1317 문서서식
      New 인쇄물 좌측하단 사용자정보 삭제방법 문의 첨부파일 (2)
      naver_5f8ee15a8602b | 2020.10.20 | 추천 0 | 조회 27
      naver_5f8ee15a8602b2020.10.20027
      1316 함수/공식
      New 재고 중복 차감 되는 문제... 첨부파일 (2)
      skya**** | 2020.10.20 | 추천 0 | 조회 43
      skya****2020.10.20043
      1315 VBA
      New 동일한 이름을 가진 통합 문서를 동시에 열 수 없습니다 첨부파일 (1)
      당신을축복하는올빼미 | 2020.10.20 | 추천 0 | 조회 31
      당신을축복하는올빼미2020.10.20031
      1314 VBA
      셀 범위 조건으로 메시지 팝업창 처음 한번만 뜨게 할 수 있나요? (2)
      와따나 | 2020.10.20 | 추천 0 | 조회 36
      와따나2020.10.20036
      1313 함수/공식
      공정별 날짜별 작업인원 수를 표시할려고하는데 도움이 필요합니다. 첨부파일 (4)
      casanova | 2020.10.20 | 추천 0 | 조회 38
      casanova2020.10.20038
      1312 기능/도구
      다중필터 엑셀 추가기능 (Excel 추가기능 Addin) 설치 파일 좀 보내주실 분;;.. (1)
      쨍하고해뜬오후 | 2020.10.20 | 추천 0 | 조회 30
      쨍하고해뜬오후2020.10.20030
      1311 차트/그래프
      선생님... - 엑셀 VBA 차트 계열 색 변경 자동화 매크로 첨부파일 (2)
      rpaq**** | 2020.10.20 | 추천 0 | 조회 37
      rpaq****2020.10.20037
      1310 함수/공식
      Xlookup 활용 문의 첨부파일 (1)
      K_Division | 2020.10.20 | 추천 0 | 조회 36
      K_Division2020.10.20036
      1309 VBA
      여러개의 참조 삽입 방법 (7)
      써머데이즈 | 2020.10.20 | 추천 0 | 조회 31
      써머데이즈2020.10.20031
      1308 함수/공식
      엑셀초보입니다. 다른시트 내용을 VLOOKUP을 이용해서 가져오기 ㅠ (3)
      el**** | 2020.10.20 | 추천 0 | 조회 56
      el****2020.10.20056
      1307 함수/공식
      서식들어간 일자 concat 조합 첨부파일 (2)
      내뀨바라기 | 2020.10.19 | 추천 0 | 조회 36
      내뀨바라기2020.10.19036
      1306 함수/공식
      엑셀초보자입니다. if함수 수식좀 알려주세요... (1)
      이재똥 | 2020.10.19 | 추천 0 | 조회 41
      이재똥2020.10.19041
      1305 함수/공식
      안녕하세요 if함수 질문있습니다. (2)
      glass | 2020.10.19 | 추천 0 | 조회 31
      glass2020.10.19031