첨부파일에서 마우스 우클릭을 하면 Get Gemini Selected 와 Get Gemini All 메뉴가 뜹니다.   Get Gemini Selected 는 현재 선택된 셀들에 대해 구글 Gemini 에게 [B1]셀에 주어진 프롬프트를 이용해서 명령을 보내서 돌아온 다시 쓴 문장을 원래 셀 오른쪽에 가져옵니다. Get Gemini All 은  B열에서 B1을 제외한 모든 B:B셀의 문장에 대해 [B1]의 프롬프트 명령을 실행해서 답변 결과를 각 셀의 오른쪽에 가져옵니다.  먼저 구글 API가 필요합니다. API 키 가져오기 | Google AI Studio 위 사이트에 자신의 구글 계정으로 로그인해서  'API 키 만들기'를 클릭하여  API 키를 생성하고 복사합니다.AIza~로 시작하는 40자리 알파..

365 엑셀의 새기능인 셀안의 그림(PictureInCell) 기능입니다.마치 아래 한/글에서 그림을 글자 취급하는 것처럼엑셀 시트에서 그림을 셀안에 종속적으로 삽입할 수 있습니다.글자처럼 간주되어 정렬도 가능합니다. 우클릭해서 '셀 위에 놓기'를 선택해서 일반 그림으로 변경할 수도 있습니다. 반대로 일반 그림을 '셀에 배치'를 선택해서 '셀안의그림'으로 바꿀 수도 있습니다.   셀에서 사용자 함수인 Image 를 이용할 수 있습니다.=IMAGE(source, [alt_text], [sizing], [height], [width]) 세번째 인수:0      이미지를 셀에 맞추고 가로 세로 비율을 유지합니다. 1      셀을 이미지로 채우고 가로 세로 비율을 무시합니다. 2      셀 경계를 초과할 수..

Dictionary 를 이용해서 단어의 빈도수 통계를 내볼 수 있습니다.​Sheet1 에 아래와 같이 텍스트가 들어 있습니다.​Alt+F8로 CountWords 매크로를 실행하면 아래처럼 각 단어의 빈도수를 Sheet2 에 알려줍니다.​코드는 아래와 같습니다.Alt+F11 창 도구 > 참조에서 Microsoft SCripting Runtime 라이브러리를 체크해주세요.더보기Option ExplicitSub CountWords() Dim sht1 As Worksheet, sht2 As Worksheet Dim rng As Range '도구-참조에서 Microsoft Scripting Runtime 체크 필수 Dim d As Dictionary 'Dim d as Object ..

예를 들어 당근 사이트처럼 이미 UTF-8인코딩인 경우 WinHttp 로 HTML 문서 내용을 가져오면인코딩이 깨집니다. 이런 경우 인코딩 오류를 예방하거나 처리하는 방법을 소개합니다. 인코딩이 깨질 때​첫번째 방법: WinHttp 대신 XMLHttp 혹은 ServerXMLHttp를 이용해서 접속하기아래는 Late Binding이지만 Early Binding하려면 도구 > 참조에서 XML 6.0 등의 라이브러리를 추가합니다.Function GetDocumentByURL(URL) Set winhttp = CreateObject("MSXML2.XmlHttp") Set document = CreateObject("Htmlfile") winhttp.Open "GET", URL, False..

위처럼 의료기기를 검색하는 사이트( https://emedi.mfds.go.kr/portal )의 검색결과를 엑셀로 가져오는 예시입니다. 여러가지 항목으로 검색할 수 있는데일단 명칭(query2)과 업체명(entpName) 으로 검색하는 예시 파일을 만들어 보았습니다. 첨부파일 매크로 허용해서 열고명칭이나 업체명을 입력하고 시작페이지 ~ 마지막 페이지를 입력하고마우스 우클릭해서 getMed 를 실행합니다.위와 같이 화면입니다.​내부적으로 xmlHttp를 이용해서https://emedi.mfds.go.kr/search/data/list?chkList=1&nowPageNum=1&tabGubun=1&query2=브러쉬&entpName=신원&chkGroup=GROUP_BY_FIELD_01&pageNum=1&se..

구글 검색결과 링크를 가져오려면http를 이용해 구글 검색 url로 접속 후 돌아온 html을 파싱해서 a태그를 추출하는 직접 파싱하는 방식과정식 구글 API를 이용하는 방법이 있습니다. 안정성을 위해 추천하는 방법은 후자입니다.​아래는 구글 Custom Search API를 이용하는 방법에 대한 샘플입니다.​먼저 Json 데이터를 파싱하기 위한 클래스로 JsonBag 클래스를 이용합니다. https://www.vbforums.com/showthread.php?738845-VB6-JsonBag-Another-JSON-Parser-Generator&p=5366455&viewfull=1#post5366455위 링크에서 JsonBag Treeview.zip 파일을 다운 받아서 JsonBag.cls 파일을 압축..

관련: 지식인 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..