전체 글 106

[엑셀 VBA] 가능한 모든 조합 나열하기

개인적으로 필요해서 SPSS의 집단별 통계 기능을 엑셀로 만들고 있는 중이다. 이 매크로는 그 과정의 시작 단계라 할 수 있겠다. 집단별 변수값에 따라 만들 수 있는 모든 조합을 나열한다. 예를 들어, 성별 변수가 남/여, 지역 변수가 서울/수도권/비수도권으로 구분되어 있다면, 남-서울, 남-수도권, 남-비수도권, 여-서울, 여-수도권, 여-비수도권 항목을 모두 나열하는 기능이다. 사용방법: 1) 조합을 산출할 영역을 지정한다. 2) 매크로를 실행한다. 3) 끝 코딩은 공부하는 차원에서 컬렉션을 사용했는데, 그냥 배열변수를 써도 무방하다. 매크로 Output VBA Code Option Explicit Option Base 1 Sub every_case() Dim oCol() As New Collecti..

VBA Macro/VBA Excel 2020.05.18

[엑셀 VBA] 두 단어의 일치도(%) 산출 매크로 #2 (일반화된 방법)

S Y N O P S I S #두 단어의 일치도(%) 산출하기 기존 포스팅(링크)의 한계점을 보완한 매크로이다. 일치도 산출 매크로를 사용자정의 함수로 정의하고, 2개의 셀을 입력받아 일치도를 산출하도록 했다. 기존 포스팅과 마찬가지로 연속된 글자일 경우에만 산출한다. 작동방식: 아래 화면과 같이 단어목록1과 단어목록2를 순차적으로 비교하여 C열에 일치도를 산출한다. 매크로 Output VBA Code Option Explicit Sub max_common_text() Dim lastRow As Long Dim k As Long With ActiveSheet.UsedRange lastRow = .Row + .Rows.Count - 1 '마지막 행 번호 End With For k = 2 To lastRow..

VBA Macro/VBA Excel 2020.05.12

[파워포인트 VBA] 도형(Shape) 개체 다루기

파워포인트 VBA에서 도형 개체 다루기 이번 포스팅은 파워포인트 VBA를 통해 도형 개체를 다루는 방법이다. 파워포인트에서 다루어지는 대부분의 개체는 도형 개체(Shape Object)이다. 도형 개체에는 그림, 선, 표, 텍스트상자, 차트 등 수없이 많다. 도형 개체가 매우 다양하기 때문에 여기서는 표(Table Object)를 중심으로 설명한다. 이하의 설명은 표 이외의 모든 도형 개체에 적용될 수 있는 내용이다. 여기서 다루는 예제는 기본적으로 마이크로소프트 MSDN의 개체모델을 참고하였다. 파워포인트 개체모델 링크(새창) 해당 링크에서 원하는 Object를 찾으려면 좌측의 Filter by Title에서 Object를 검색하거나 직접 스크롤해서 Object를 찾으면 된다. 테이블 개체(Table ..

[파워포인트 추가기능 배포] 표 행렬 전환하기

추가기능 사용방법 표의 행렬을 전환하는 기능이다. 기존의 표를 전환하는 게 아니라 행렬 전환된 새로운 표를 생성한다. 표의 스타일은 복사하지 못하기 때문에 값만 전환한다. ※병합된 셀이 있는 경우에도 가능하다. 설치 방법 1) 첨부파일의 압축 파일을 압축 해제한다. (아무 곳이듯 상관 없음) 2) setup.exe 파일을 (반드시)관리자 권한으로 실행한다. (마우스 오른쪽 클릭 -> 관리자 권한으로 실행) 3) 다음, 설치를 클릭하면 설치가 완료된다. 사용 방법 1) 표 선택 2) 루아흐뉴마 탭 클릭 3) TableTranspose 클릭 삭제하는 방법 1) 시작 -> 제어판 -> 프로그램 및 기능 2) 설치 날짜를 기준으로 내림차순 정렬 3) 설치된 프로그램을 선택하여 제거 추가기능 실행 동영상 메인 코..

[파워포인트 추가기능 배포] 지정 슬라이드로 이동하기

추가기능 사용방법 지정한 슬라이드 번호로 이동하는 기능이다. PPT 장표가 많아질수록 유용할 것이다. 슬라이드쇼 화면에서 페이지 바로가기 기능을 쓸 수도 있지만 화면전환이 부담스러운 경우 가볍게 쓸 수 있는 추가기능이다. 설치 방법 1) 첨부파일의 압축 파일을 압축 해제한다. (아무 곳이듯 상관 없음) 2) setup.exe 파일을 (반드시)관리자 권한으로 실행한다. (마우스 오른쪽 클릭 -> 관리자 권한으로 실행) 3) 다음, 설치를 클릭하면 설치가 완료된다. 사용 방법 1) 루아흐뉴마 탭 클릭 2) GoTo 텍스트박스에 슬라이드 번호 입력 3) Enter키를 누르거나 슬라이드 빈 곳을 마우스로 클릭 삭제하는 방법 1) 시작 -> 제어판 -> 프로그램 및 기능 2) 설치 날짜를 기준으로 내림차순 정렬 ..