실마리

## 자주 사용하는 VBA 코드 정리 VBA Code Sub useful_code() last_cell_num = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row '마지막 셀의 행번호 찾기 'A 열 중간에 행이 비어 있어도 가장 마지막 행번호를 찾는다. '워크시트의 A 열 가장 아래쪽 끝에서 Ctrl + ↑를 한 것과 동일하다. Set myRng = Sheets("Sheet1").Cells(1,"A").CurrentRegion 'myRng를 A1 셀과 인접한 비어있지 않은 모든 셀의 Range 객체로 반환한다. 'A1 셀에서 Ctrl + A를 실행한 것과 동일하다. Dim OneArray(10) Dim MyArray(1 To 10, 5 To 15, 10 T..

## 웹 페이지 크롤링(실험)회사 업무중에 웹 페이지를 크롤링 해야 할 일이 생겨서 찾아보던 중자바나 다른 언어는 할 줄 모르기 때문에 현재 내가 할 수 있는 가장 쉬운 방식을 찾았다.구글 스프레드시트 importxml 함수를 통힌 파싱도 쉬워(노가다)보이는데 웹페이지에 따라서 제약이 좀 있는 듯하다. ※ "동일한 형식의 데이터를 보여줄 동일한 웹페이지를 URL 형식으로 모두 인덱싱 할 수 있어야 한다."는 점이 중요해 보인다.무슨 소리나면, 요새 웹페이지들이 http://도메인 이후 파라미터를 숨겨놓은 데가 많은데,그래서 페이지 인덱스가 바뀌어도 URL은 그대로라서 URL by URL 방식의 크롤링이 (마치 안되는 것처럼) 보인다.그런데 거꾸로, 페이지 인덱스만 찾아준다면 아래의 VBA 코드를 이용해서..

여러 단어들에 포함된 키워드를 뽑아내는 매크로이다.2개짜리 단어, 3개짜리 단어 등 단어 길이만큼 모조리 검색해서 빈도수별로 키워드 순위를 알려준다.예를 들어, 다음과 같은 대학 학과 리스트에 매크로를 적용하면{수학과, 수학교육학과, 수학교육과} 수학 = 3 교육 = 2 학교 = 2 수학교 = 2 학교육 = 2 수학교육 = 2위와 같은 형식으로 빈도를 뽑아낸다.※ 아직 VBA 코드를 수정하지 않아 가져다 쓰기에는 무리가 있다. (현재는 말도 안되게 무식한 코드이다.)혹시 테스트를 해볼 요량이면, 시트명이 Sheet1인 시트의 B열에 데이터를 나열하고 실행하면 된다. 엑셀 키워드 빈도 분석 VBA 코드 Option Explicit Dim i As Long, j As Long, k As Long Dim cn..

개체모델(Object Model)이란? 개체모델(Object Model)은 특정 개체의 모든 구성 요소를 구분하고 분류하기 위한 일종의 틀이다. 하나의 건물을 개체모델의 예로 들어보자.여기 관악구청이 있다. 관악구청은 여러 개의 부서로 나눠질 것이고,각 부서마다 팀이 있고 각 팀마다 책상, 의자, 컴퓨터, 사람 등 무수한 개체가 있을 것이다.누구든지 관악구청의 서무과의 경리팀에 있는 의자에 앉으려면 관악구청 > 서무과 > 경리팀 > 의자 순서로 접근해야 한다. 이를 VBA의 개체모델 접근 방식으로 바꾸면,관악구청.과(서무).팀(경리).의자(1) 과 같은 형식이 된다. MS Office의 개체 모델은 작성자가 이해하는 한 이와 같은 방식으로 작동된다. 파워포인트의 특정 개체에 접근하는 코드를 살펴보자.Ac..

S Y N O P S I S #VBA로 폰트 찾기 간혹 PT 작업 중에 저장하면 폰트 때문에 저장할 수 없을 때가 있다. 슬라이드가 많아지면 보통 슬라이드를 복제해서 쓰는 경우가 많기 때문에 내가 사용한 글꼴이 어떤 슬라이드에 있는지 일일이 찾아야 한다. 자체적으로 글꼴을 일괄적으로 변환해주는 기능이 있는데 글꼴이 설치되어 있어야 가능하다. 아래 매크로는 '특정 글꼴이 사용되고 있는 슬라이드를 찾고 싶은 경우'에 사용한다. 글꼴을 입력하면 첫번째부터 마지막 슬라이드까지 내가 검색한 글꼴이 사용되는 슬라이드 번호를 알려주고, 해당 위치로 이동한다. VBA Code Option Explicit Dim myShp As Shape Dim slide_num As Long Dim myFont As Variant D..