조건이 있는 n열마다 합계 구하기

Step 1: 어떤 질문이었을까요?

먼 소린지 말로는 상황 파악이 안되시지요? 그러실줄 알고 준비했습니다. 다음 버튼을 누르세요!

잘 보고 오셨나요? 이제 질문하신 분이 무엇을 하고 싶다는 것인지 이해가 되시리라 믿습니다.

Stage 시트에는 A형, B형 등의 종류를 나타내는 머리글이 B1, C1 셀에 있고, 오른쪽 D2:U2 영역에 '날짜, 종류, 개수' 세 칸이 한 묶음으로 반복해서 입력되어 있습니다. 예를 들어 종류가 A형인 개수를 모두 더하면 12, B형은 21이 되어야 합니다.

단순히 일정 열마다 합계를 구하는 경우라면 그냥 배열 수식을 사용하면 되겠습니다만, 이와 같이 n열마다 합계를 구하되 조건이 추가적으로 부과되는 경우라면 머리가 아파옵니다.

여러 가지 함수를 사용하여 갖은 기교를 다 부리면 어떻게 될 법도 합니다만, 그것보다는 이런 경우, 사용자 정의 함수를 만들어 사용하면 훨~씬 효율적입니다.

Stage 시트의 B2 셀에는 다음과 같은 수식이 입력되어 있습니다.

=mysum(B1,D2:U2)

'어라? 그냥 Sum도 아니고 앞에 my가 붙은 걸 보니… 나만을 위한 Sum 함수라는 뜻인가?'

하시겠지요. 맞습니다! 그런 의미로 이름붙인 사용자 정의 함수입니다.

Step 2: 코드 살펴보기

함수의 내용을 살펴보면 다음과 같습니다. 허탈할 정도로 간단하군요.

Function MySum(rngX As Range, rngXXX As Range) As Long

    Dim rngCell As Range
    Dim lngSum As Long

    For Each rngCell In rngXXX
        If rngCell = rngX Then
            lngSum = lngSum + rngCell.Offset(0, 1)
        End If
    Next rngCell

    MySum = lngSum

End Function

rngX는 B1 셀, rngXXX는 각 날짜별 종류(A, B, C)와 개수 데이터가 들어있는 영역을 지정한 다음, rngXXX의 각 셀을 순차적으로 돌면서 rngX, 즉 B1 셀에 입력된 값이 같은지를 비교하여, 같은 경우에만 그 옆셀(rngCell.Offset(0,1) 셀에 입력된 값을 계속 더한 다음 MySum 함수의 결과값으로 되돌려주는 사용자 정의 함수입니다.

오늘 설명드린 내용은 VBA에 입문하신 분들을 위한 것이라 할 수 있겠습니다. 문제에 대한 접근 방법 및 사용자 정의 함수의 기본적인 사용 패턴(위 코드 상자 안에 들어있는 내용)을 완전히 내 것으로 만드시기 바랍니다.

오늘은 짧게 여기까지…

정리 — MySum 함수 코드 핵심

자주 묻는 질문 (FAQ)

마치며

문제에 대한 접근 방법과 사용자 정의 함수의 기본 패턴을 완전히 내 것으로 만들어 두면 다양한 상황에 응용할 수 있습니다.