엑셀에 정리한 URL목록을 일괄로 웹브라우저 북마크로 추가할 수 있게 도와주는 VBA매크로입니다. 일단 아래와 같이 엑셀에 URL을 정리했습니다. 이 링크들을 일괄로 웹브라우저 북마크에 폴더를 하나 만들어 추가하고 싶습니다. 물론 모든 링크를 클릭해서 웹브라우저 탭에 띄운 다음열린 탭들을 북마크에 추가할 수 있습니다. 하지만 모든 링크를 여는 것은 번거로운 작업입니다.그래서 엑셀VBA로 이 과정을 자동으로 처리합니다. 핵심 원리는 웹브라우저 북마크를 내보내면 아래와 같은 HTML양식인데이 양식에 맞게 VBA로 북마크 HTML을 만들면 되겠습니다. 특히 초반 헤더 부분과 Description List 태그와 Description Term 태그를 이용합니다.원래는 DT 다음에 Description De..

VBA를 이용해서 Http로 서점 서버에 접속해서시트상에 나열된 ISBN 목록에 대해 각 지점의 재고현황 데이터를 JSON 형식으로 받아서엑셀 시트에 일괄로 정리하는 사례입니다. 교보문고의 사례입니다. 책 상세 페이지에서 '매장 재고. 위치'를 눌렀을 때 아래와 같이 조회됩니다. 매장 재고 URL은 아래처럼 S000000610612 같은 상품코드를 필요로 합니다.https://product.kyobobook.co.kr/api/gw/pdt/product/S000000610612/location-inventory내부 JSON 데이터상에서 saleCmdtid 라는 값인데ISBN으로 검색하는 상황이므로 바로 상품코드로 조회할 수는 없습니다. 최초에 13자리 ISBN (9788936434120)으..

관련: https://konahn.tistory.com/entry/DAUMNews QuerySelector를 이용한 다음(DAUM) 뉴스 검색모바일 다음에서 뉴스기사를 검색하면 아래와 같은 URL로 접속됩니다.https://m.search.daum.net/search?w=news&q=인공지능최대한 간단히 줄인 주소입니다.PC웹에서 검색해도 비슷한데 효율성을 위해서 모바konahn.tistory.com 이번에는 멜론 사이트의 노래 순위, 제목, 가수, 앨범 아트 정보를 가져옵니다. 일단 상황은 미리 멜론, 벅스, 스포티파이 등 음악사이트에서 다운 받아놓은 mp3 등의 파일의 파일명을 내가 원하는 스타일로 일괄로 바꾸고 싶은 경우입니다. 001.mp3 ▶️▶️ 001. IVE (아이브) - BANG B..

엑셀 시트에 데이터를 생성, 정리해놓고웹브라우저나 DB시스템 등에 자료를 입력해야하는 상황에서직접 손으로 입력하기에는 너무 힘들기 때문에VBA를 이용해서 자동화할 수 있습니다. 주로 SendKeys를 이용해서데이터를 복사하고 붙여넣은 다음 Sleep으로 잠시 대기하고다음 행의 데이터를 붙여넣는 방식입니다. 더보기#If VBA7 Then Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByV..

엑셀로 영상을 편집한다? 숫자를 계산하는 용도인 엑셀로 동영상을 편집한다니말도 안되는 이야기처럼 보이지만아래처럼 영상의 시간을 입력해서 영상을 규칙적으로 자르고 일정 부분을 추출해서 최종 영상으로 합칠 수 있습니다. 특히 고프로나 DJI Action, AcePro , Insta360 등 액션카메라나 휴대폰으로 촬영한 몇시간짜리 긴 영상이 있을 때프리미어나 다빈치 리졸브, 파이널컷, 캡컷, 샷컷 등의 영상 편집프로그램을 이용하지 않고전체 영상을 2분마다 3초씩 추출해서 하나의 랜덤 기록 영상을 만들고 싶을 때 이용하면 효과적입니다. 물론 엑셀에서 영상을 직접 편집하는 것은 아니고FFMPEG 이라는 커맨드라인 프로그램에 명령을 보내서 처리합니다. https://www.ffmpeg.org/download..

관련: 지식인 엑셀에서 셀 내의 글자에 취소선을 적용할 수 있습니다.그런데 단순한 직선 대신 화살표 모양 취소선을 표시하고 싶은 경우입니다. 엑셀에서 따로 취소선의 서식을 지원하지 않으므로VBA를 이용해서 직접 그려줘야겠습니다.​아래 VBA를 이용하면 선택된 셀에 텍스트에 취소선 화살표를 그려줍니다.화살표 모양이나 색상, 굵기 등은 코드를 수정하면 됩니다.텍스트인경우 왼쪽 정렬해서 글자 위에 그려줍니다. 문제가 하나 있습니다.사실, 엑셀의 텍스트로는 글자의 X/Y위치값을 알 수 없습니다. 단순하게 셀 크기 만큼의 크기로 직선을 그으면 되지만 취소선과 같은 모양으로 만들려면텍스트의 시작이나 마지막의 X/Y좌표를 알 수 없어 직선을 그리는데 어려움이 있습니다. 파워포인트의 텍스트상자나 도형은 내부 텍스..

엑셀에서 특정 단어만 찾아서 강조표시하고 싶은 경우 찾기/ 바꾸기를 실행하면 포함된 셀 전체의 서식이 바뀌어 버립니다. 이럴 때 VBA로 특정 단어만 찾아서 표시할 수 있습니다. 실행화면은 아래와 같습니다.​아래와 같은 코드가 사용되었습니다. Sub Findicate() Dim sht As Worksheet, rng As Range Dim pos&, usr$, str$ '찾을 단어 usr = InputBox("표시할 단어는?", "특정단어 강조표시", "lov") If usr = "" Then Exit Sub '셀 순환 Set sht = ActiveSheet For Each rng In sht.UsedRange str = rn..

셀에 특정 색상을 적용해 놓고지정한 색상의 값들만 합산하고 싶을 때 사용할 수 있는 사용자 함수입니다. VBA로 주어진 색상이 칠해진 셀들의 합을 구하는 사용자 함수를 만들어 사용할 수 있습니다.=SumColor(범위, 기준색상셀) 형식입니다.=SumColor(A2:B20, F2) 라면 A2:B20 범위에서 F2의 배경색상과 같은 셀의 숫자를 모두 합한 결과를 출력합니다. Function SumColor(Rng As Range, cRng As Range) As Long Dim r As Range For Each r In Rng If r.Interior.Color = cRng.Interior.Color Then If IsNumeric(r.Value) ..