첨부파일에서 마우스 우클릭을 하면 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자리 알파..
Excel 검색 결과
VBA 처리과정도 마우스로 슬라이드의 표(테이블)을 복사해서 엑셀 시트에 붙여넣는 것과 유사합니다. 테이블.Copy 해서 시트의 셀.Paste 하거나 시트.PasteSpecial로 붙여넣습니다. 테이블이 여러개 일텐데 아래와 같은 샘플을 만들었습니다. VBA코드: 더보기 'Copy the table content on each slide to Excel sheet Option Explicit Const TextOnly As Boolean = False Sub CopyTableToSheet() Dim xl As Object 'New Excel.Application Dim wb As Object 'Excel.Workbook Dim sht As Object 'Excel.Worksheet Dim rn..
참고: 지식인 질문글 화면 및 주요 코드: 실행 결과: 질문자가 원하는 결과 문자열이 JSON 문자열과 거의 흡사하기 때문에 VBAJSON 라이브러리를 활용하였습니다. 엑셀 데이터의 첫번째 행은 카테고리로 읽어들이고 나머지 행은 Dictionary 구조를 이용해서 데이터 구조를 만들어서 최종적으로 ConvertToJson 함수를 이용해서 items 배열(컬렉션)을 Json 문자열로 변환합니다. 원래 JSON데이터는 카테고리명의 양쪽에 따옴표가 있는데 삭제시켰습니다. 따옴표를 원래대로 놔두려면 해당 부분(따옴표를 제거하는 for 문 부분)을 주석처리하면 됩니다. 더보기 'Add Reference to Microsoft Scripting Runtime Library Sub Convert() Dim..
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 로 ..
최근댓글