실마리

지정한 범위에 대해 스파크라인을 자동으로 넣어주는 매크로이다. 그냥 스파크라인 편하게 넣어보려고 만들어봤다. 시간에 따른 추이를 보아야 하는 데이터가 있다면 유용할 것이다. 아래 예시는 최근 90일 간 FNGU ETF와 종속 주식의 흐름을 나타낸 것이다. 확실히 엔비디아(NVDA)의 최근 주가 흐름이 광기 수준이었다는 걸 알 수 있다. 매크로 Output VBA Code Option Explicit Sub sparkline() Dim oSht As Worksheet Dim totalRng As Range '선택영역을 담을 변수 Dim crng As Range '선택영역을 순환할 셀 변수 Set oSht = Sheets(1) '워크시트 초기화 Set totalRng = Selection '선택 영역을 초기..

1차원 배열의 역순으로 바뀐 배열을 반환하는 함수이다. Sub 모듈은 함수를 테스트하는 용도로 넣어본 모듈이다. Function 내용은 주석을 참고하면 된다. 매크로 Output(없음) VBA Code Option Explicit Sub test() '함수 테스트용 모듈 Dim x() As Variant Dim y() As Variant Dim i As Long x = Array(1, 2, 3, 4, 5) y = getReverseArr(x) For i = LBound(y) To UBound(y) Debug.Print y(i) '5, 4, 3, 2, 1 Next End Sub Public Function getReverseArr(src As Variant, Optional period As Long) A..

통상 필터는 어떠한 기준(조건)에 맞는 사례만 따로 보고자 할 때 쓴다. 이를테면, 수학 성적이 90점 이상인 학생, 성이 김씨인 학생, 안경을 쓴 학생 등을 구할 때 쓴다. 그런데 케이스마다 적용하는 기준이 다르다면? 혹은 없다면? 예를 들어, 수 천 명의 학생 데이터 중에서 특정 100 명만 리스트해야 한다면? 이 매크로는 전체 케이스 중 특정 목록에 속하는 데이터만 필터링하는 매크로이다. 매크로 예제로 사용한 데이터는 미국 주식 티커별 데이터이다. 특정 ETF에 포함된 상위15개 티커를 필터링한다. 참고로 예제 영상에서 모든 데이터가 필터링되지 않는 이유는 나에게 필요하지 않은 티커를 삭제했기 때문이다. 매크로 작동방식은 코드 내 주석을 확인하면 된다. 매크로 Output VBA Code Optio..

짤막하고 유용한 사용자정의 함수 스니핏 엑셀을 사용하면서 왠지 있을 것 같은데 없거나 지원되지 않는 기능이 있다. 따로 추가기능을 만들거나 프로그램을 짜려니 그정도 노력을 기울일 정도로 필요한 것도 아니고 또 그냥 노가다를 하기엔 성가신 경우가 있어서 필요한 기능을 사용자정의 함수로 만들어보았다. 앞으로 사용자정의 함수와 관련해서는 본 포스팅에서 계속 업데이트 할 예정이다. (2021. 2. 2.) 1) 여러 범위의 셀내용(문자열) 합치기 엑셀 함수 Concatenate와 유사한 함수라고 생각하면 된다. 기존 Concatenate 함수는 셀 하나씩만 인자로 받을 수 있었던 반면, 이 함수는 범위만 지정해주면 모든 셀값을 하나로 연결해준다. Function constr(ByRef cRng As Range)..

이 매크로는 숫자데이터들의 구간별 빈도를 빠르게 산출하는 매크로이다. 각종 통계 데이터의 분포를 빠르게 살펴보고 보고서로 작성할 때 유용한 매크로이다. 사용법은 간단하다. 1) 데이터의 범위를 지정하고, 2) 매크로를 실행한 다음, 3) 구간값을 띄어쓰기로 입력하면 된다. 3) 단계에 대한 부연을 하자면 다음과 같다. 가령 내가 가진 연령 데이터가 최소 15세부터 최대 67세까지 있다고 하자.(매크로를 실행하면 범위를 알려준다.) 이에 대해 1) 20세 미만, 2) 20세 이상 40세 미만, 3) 40세 이상 60세 미만, 4) 60세 이상 4개 구간으로 구분하여 빈도를 산출하고자 한다면. 입력창에 0 20 40 60 100(60보다 큰 수이면 된다.)을 입력하면 된다. 일단 코드만 먼저 제시하고 추후에..

S Y N O P S I S #모든 조합 뽑아내기2 구버전 에디터를 쓰다가 작성한 내용이 모두 날아갔다..(깊은 한숨..) 지난 포스팅(링크(새창))에 문의해주신 분에 대한 답으로 조합을 산출하는 매크로를 응용하는 코드를 작성해보았다. 문의내용의 요지는, 'n개의 집단 중에서 임의의 r개의 집단을 뽑는 nCr개의 조합을 산출하고, 각각의 조합에 대해 다시 하위요소들의 조합을 열거하는 것'이다. 예컨대, 4개의 집단(커피, 사이즈, 샷추가, 얼음추가) 중에서 2개의 집단을 뽑아내는 4C2개(6개)의 조합에 대해 모든 조합을 열거한다. 여기서 사용자가 임의로 변경해주어야 하는 부분은 2가지이다. 1) 전체 영역(여기서 n이 결정된다.), 2) 이 중에서 선정할 조합의 개수(여기서 r을 결정한다.) 참고로 조..

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

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 Code 예시 Option Explicit Sub merge_maintain_content() Dim targetR As Range '병합 범위 Dim mergeStr As String '병합 내용 변소 Dim eachR As Range '셀 순환용 객체 Application.DisplayAlerts = False '병합시 대화창 Off Set targetR = Application.InputBox("병합할 범위를 선택하세요", Type:=..

매크로 설명 지난 번 포스팅을 약간 수정하여 보다 보편화된 상황에서 사용할 수 있도록 만든 매크로이다. (http://ruahneuma.tistory.com/57 "강제 줄바꿈 셀 분리하기") 특정 구분자(예, 콤마, 띄어쓰기, 콜론 등)로 나열된 셀 내용을 행을 추가하여 별도로 분리하는 매크로이다. targetChr 변수에 원하는 구분자를 입력하여 쉽게 분리할 수 있다. VBA Code Sub forced_enter_separation() Dim k As Integer, cnt As Integer Dim varSize As Integer Dim lastRow As Integer Dim myColumn As String Dim targetChr As String With ActiveSheet.UsedRa..