관련: 지식인 2  이번에는 Alllocate1.xlsm 엑셀에서 아래 매크로로 자동으로 방호수를 입력하게 해보았습니다. 배정 규칙은 아래와 같습니다.시작 방번호는 101호부터 시작합니다. ( 가능한 방번호가 정해져있을 경우 배열로 방번호 목록을 미리 만들어 두어야 합니다.  )각 국가별 시트 순서대로 배정합니다.여자들부터 방을 배정합니다.성별이 다르면 새로운 방번호로 넘어갑니다.국가가 달라도 새로운 방번호로 넘어갑니다.6명을 넘으면 새로운 방번호로 넘어갑니다.   엑셀 자동으로 방배정하는 VBA코드:더보기Option ExplicitSub Allocate1() Dim sht As Worksheet Dim lastR As Range Dim r As Range, room As Inte..

관련: 지식인 1   엑셀양식에 아래처럼 방을 구분하여 배정하고​ 아래처럼 방별로 배정명단을 출력하는 작업입니다.​코드 내용:더보기Option Explicit Sub GeneratePPT() On Error GoTo Done: Dim pres As Presentation Set pres = ActivePresentation Dim sld As Slide Dim shp As Shape Dim XLapp As Object 'Excel.Application Set XLapp = CreateObject("Excel.Application") Dim book As Object 'Excel.Workbook Dim sht As Object 'Excel..

관련: 지식인 아직 작동하는 HTML 요소를 이용하는 방식의 VBA입니다.https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020101&docId=436801616 아래는 좀 더 빠른 속도를 위해 JSON 데이터를 검색하는 방식입니다.교보문고에서 검색할 때 판매중인 자료는 실시간으로 간단한 데이터들을 Json형식으로 가져옵니다.이 API를 이용해서 Json 형식으로 빠르게 도서 정보를 가져오는 방법입니다. https://search.kyobobook.co.kr/srp/api/v1/search/autocomplete/shop?callback=autocompleteShop&keyword=9788954442688이런 식으로 검색하면 아래와 같은 JSON 데이터를..

엑셀에서 모든 행의 값을 섞어주는 코드입니다. 빨간 버튼은 행 전체를 순서를 바꿔주고 파란 버튼은 현재 열에 한해서 내부의 셀값을 섞어줍니다. Option Explicit '// mix the entire row Sub Shuffle() Dim sht As Worksheet Dim Rng As Range Dim lastRow As Long, l As Long, r As Long Dim t As Variant Randomize Application.ScreenUpdating = False Set sht = ActiveSheet lastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row For l = 1 To lastRow r = CLng(Rnd * (lastRow -..

관련: 지식인 검색어가 400개 이상으로 많고 서버에 부담도 줄이기 위해서는 네이버에서 제공하는 API를 이용해서 조회하여야겠습니다. ​ 네이버 로그인한 후에 아래 사이트를 방문합니다. https://developers.naver.com/apps/#/register?defaultScope=search ​ 아래처럼 API 이용 신청을 합니다. 애플리케이션 이름은 자신이 원하는 이름으로 입력하세요. ​ 이제 Client ID와 Client Secret 이 발급되었습니다. 잘 복사해 놓으세요. 하루 할당량은 25,000회로 제한됩니다. ​ 어떻게 작동하는지 PlayGround에서 연습해볼 수 있습니다. 쇼핑 검색의 경우 https://openapi.naver.com/v1/search/shop.json?disp..

엑셀에서 실시간으로 유튜브 채널들의 구독자수, 조회수 등을 모니터링하는 예제입니다. >> 관련: 지식인 유튜브 구독자수를 구글 API를 이용해서 가져와서 60초, 5분 등 특정 시간마다 갱신하도록 할 수 있습니다. ​ 일반적인 크롤링으로는 45K, 1.6M 등 정확한 구독자수가 안나오기도 하고 서버에 접속하는데도 시간이 더 걸리기 때문에 구글에서 제공하는 정식 API를 이용하는 것이 좋겠습니다. ​ 1.일단 https://console.cloud.google.com/apis/dashboard 에서 구글 API 키를 발급받아야 합니다. 참고 : 링크 - 라이브러리에서 'YouTube Data API v3' 를 선택하고 '사용'을 눌러 활성화시켜야 합니다. - 그리고 사용자 인증정보 > +사용자 인증정보 만..

관련: 지식인1 , 지식인2 여러 개의 URL주소의 이미지를 동일한 크기로 리사이즈(640X640)하여 또는 동일한 가로사이즈(640px)로 조절하여 하나의 긴 세로 이미지로 합쳐서 D:\E\대표 폴더에 원하는 이름으로 저장하는 매크로 만들수 있는지요? 시트에 이미지 URL과 저장할 이미지 파일명은 아래와 같이 입력합니다. 특히 엑셀에서 개체를 그림으로 저장하는 것에 약간의 난관이 있었습니다. ​ 1. 일단 온라인 파일을 다운로드 하는 두 가지 코드입니다. URLDownloadToFile 이라는 API를 이용하면 간단합니다. 간혹 티스토리 등에서 바이러스로 인식하기도 합니다. #If VBA7 Then Declare PtrSafe Function URLDownloadToFile Lib "urlmon.dll..

1. '샘플50.pptx'파일을 '샘플50.ppsx' 로 저장한 다음 엑셀에서 하이퍼링크를 "샘플50.ppsx#12, 샘플50.ppsx#34" 로 하는 것이 가장 간단한 방법입니다. ​ ​ 2.pptx파일을 특정 페이지를 열고 싶다면 VBA를 이용해야겠습니다. https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=335538903#reply1 엑셀에서 하이퍼링크를 통해 특정 PPTX의 특정 페이지로 이동하는 방... https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=335523640&ref=me1lnk&a... kin.naver.com 3. 이미 창이 열린 경우에는 해당 창..