다음은 초등학교 5학년 최상위(?) 수학문제입니다.소수점 곱하기 관련 단원인데 문제는 대충 이렇습니다. Q. 0.6 + 0.66 + 0.666 + 0.6666 + 0.66666 + ... 이렇게 소수점 자리에 6이 반복되는데 총 24개까지 반복될 때 모든 소수를 합한 값의 소수점 2째 자리의 수를 알아내시오. 문제 풀이는 0.6*24 + 0.06*23 + 0.006*22 + 0.00006*21 + 0.000006*20 + .... 이런 식으로 변환해서몇개 정도 소수점 곱하기 계산을 한 뒤에 몇자리 이상에는 소수자리가 0이 계속된다는 것을 알게되고소수점 둘째자리 값을 알 수 있다는 식이었습니다. 수학 풀이에 관한 문제는 제쳐두고이걸 엑셀 VBA에서 직접 소수점 곱하기 결과를 누적해서실제 총 더한 값을 계산..
XLS+VBA 검색 결과
위 게임 사이트의 각 캐릭터의 능력치, 장비 등의 자료를 엑셀로 가져오는 예시입니다. 아래 그림의 파란색 네모 부분을 가져오는 것입니다. 엑셀화면은 아래와 같습니다. 웹사이트 자료 가져오는 연습 삼아 만들어 보았습니다. 위 사이트는 간단한 프로필 즉, 레벨이나 등급 등은 일반 html로 받아오고공격, 방어율, 자세한 장비 보유 유무 등은 JSON 형태로 실시간으로 받아와서 html로 뿌려주고 있네요. 일반html은 winhttp, xmlhttp 를 이용해서 html을 받아오면 되고JSon 데이터는 간단한 문자열 구조인데 문자열을 나눌(파싱할) 때 VBA-JSON이라는 라이브러리를 이용하여 파싱할 수 있습니다. 캐릭터이름을 새로 추가 입력하고 나서 우측 상단 새로고침 아이콘을 누르면 테스트 목적으로만 사용..
지식인 링크: https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102&docId=316777745&page=1#answer1 RSS XML데이터를 읽는 방법은 여러가지입니다. VBA 없이 손쉽게 읽어 오는 방법은먼저 개발도구의 '원본'을 눌러서RSS 주소를 넣어주고RSS 트리가 불러와 지면item 폴더를 끌어서 셀에 갖다 놓고우클릭해서 '갱신'을 선택해주면RSS 내용을 필터형식으로 조회할 수 있습니다. 그 과정을 VBA를 이용한다면 Workbook.XmlImport를 이용해서 아래와 같습니다. 12345678910111213141516171819202122232425Sub Xml_Import() Dim str As String On Error Resume Next..
관련 지식인 질문:https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102&docId=313829165&page=1#answer1 작동설명:매크로 허용하고 파일을 열고우측상단 새로고침 아이콘을 누르면 네이버 증권에 접속하여 (PC버전보다 모바일사이트에 접속)Json 데이터를 수집하고이를 VBAJSON을 이용하여파싱하여엑셀 시트에 입력해준다. 코드는 해당종목으로 하이퍼링크가 추가되고전일비와 등락률에는 조건부 서식이 적용되고또한 아이콘 서식이 적용된다. PC버전 네이버 증권사이트에 접속하여HTML데이터를 HTML Object Library와 GetElementsByTagId 를 이용하여 파싱할 수도 있겠으나각 페이지별로 20여페이지를 로딩/파싱해야해서 불편하여이번에는 ..
파워포인트나 엑셀에서 개발도구의 Active-X 텍스트박스나 개체를 삽입할 때 &H8004005 지정되지 않은 오류, (-2147467259) 시스템 오류 개체를 삽입하는데 실패했습니다. Active-X object insert failed 와 같은 오류 발생시 대처방법: - 오류 원인 파악 1) 오피스 보안업그레이드 후에 Extender 가 오류가 발생하는 경우는 MSForms.Exd 를 찾아 지워주면 새로 생성되어 오류가 해결됩니다. MSforms.Exd임시폴더:%appdata%\microsoft\forms%temp%\excel8.0%temp%\word8.0%temp%\PPT11.0%temp%\vbe예를 들면, C:\Users\User\AppData\Local\Temp 의 PPT11.0 이나 Exce..
제목대로네이버 파워링크와 블로그 검색결과를 엑셀로 정리해주는 매크로 프로그램입니다. 지식인 질문 링크:https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102&docId=307239121&page=1#answer1 1.파워링크 검색: 위와 같은 파워링크 검색 결과를 아래처럼 엑셀 시트에 가져옵니다. 파워링크는 한페이지가 25개인데 더 있을 경우 제한 검색건수를 입력한 만큼 검색합니다.파워링크는 블로그와 달리 페이지단위로 마지막 페이지까지 검색합니다. 조회 URL: https://ad.search.naver.com/search.naver?where=ad&query=검색어검색어는 한글도 검색되도록 URLEncode 했습니다. 2. 블로그 검색: 블로그 검색결과를 아래 ..
단어 리스트에 대해 실시간으로 네이버사전을 검색해서 첫번째 뜻과 예문 등을 가져오고 또한 해당 단어 발음(첫번째 미국식)을 Mp3폴더에 자동으로 다운 받는 매크로입니다. 사용법: 첨부파일을 다운받고 매크로 컨텐츠를 허용합니다. 2행부터는 삭제해도 됩니다. B열에 Word 아래에 단어목록을 적습니다. 많이 적을 수록 검색 시간이 길어집니다. 좌측 상단 '검색' 버튼을 누르면 위 화면과 같이 네이버 영어사전에서 단어를 검색합니다. Mp3폴더 아래에 단어명.mp3 파일을 다운로드합니다. (매크로 파일이 있는 폴더에 Mp3폴더가 미리 있어야 합니다.) 1.각 단어에는 해당단어에 대한 네이버사전으로 하이퍼링크가 추가됩니다. 자세히 알고 싶을 때 클릭하면 브라우져 창이 열립니다. 2. 발음기호를 클릭하면 다운 받은..
VBA로 네이버 오늘의 단어 가져오기 URL: http://m.wordbook.naver.com/endic/today/recite.nhn?targetDate=2018.04.09기능: 시트이름이 Daily, Monthly, Weekly 로 시작하면 각각 날짜별, 달별, 일주일별 오늘의 단어 5개씩을 가져옴사용 개체: WinhttpRequest, HTMLDocument, IHTMLElementCollection 등을 이용함.HTML을 파싱할 때 Split, Instr 을 이용하지 않고 GetElementBYTagName 을 이용함. 사용방법:매크로를 허용하고 연 다음왼쪽 상단 '날짜선택'을 누르고 대상 날짜를 입력.오늘 날짜가 자동으로 뜸.현재 선택된 시트이름이 Daily, Weekly, Monthly 로 ..
최근댓글