연속구매회수 구하기

Step 1: 눈으로 파악하기 어려운 이유

파악해야 할 고객이 몇 명 되지 않는다면 그까이꺼~ 그냥 눈으로 대충 봐도 알 수 있을 테지만 고객 DB가 몇백, 몇천건 된다거나 파악해야 할 날짜의 범위가 넓다면 곤혹스런 일이 아닐 수 없습니다.

다음의 표만 보더라도… 눈으로 파악하기가 만만하지 않음을 알 수 있습니다.

고객별로 일자별 구매 금액이 입력된 표에서, 맨 오른쪽 '연속 구매회수' 열에 최대로 연속해서 구매한 일수를 구하려는 것입니다. 이제 아래 버튼을 눌러서 '연속 구매회수' 부분을 살펴보세요!

잘 되지요?

Step 2: 코드 살펴보기

위의 빗금으로 표시된 셀에 입력된 수식을 보면, '=serialday(B39:K39)'라고 되어 있을 것입니다. 여기서 SerialDay는 사용자 정의 함수입니다.

Function SerialDay(rngX As Range)
' 함수를 시작할 때 사용자가 입력한 범위(Range 개체)까지 넘겨받습니다.

    Dim i As Integer
    Dim intX As Integer
    Dim intNum As Integer
    Dim intNum2 As Integer
    intX = rngX.Cells.Count - 1

    For i = 0 To intX
    ' rngX, 즉 사용자가 지정한 범위 내의 셀 수만큼 반복문을 실행합니다.

        If rngX.Cells(1).Offset(0, i) = "" Then
        ' rngX 영역에서 한 컬럼씩 옆으로 이동하면서 공란인지 여부를 파악합니다.
        ' 공란을 만나면 intNum 변수의 값을 초기화 시킵니다.

            intNum = 0
        Else
        ' 공란이 아니라면, 즉 연속적으로 구매를 한 경우라면 intNum 변수의 값을 1씩 증가시켜
        ' 나갑니다.

            intNum = intNum + 1

            ' 그런데… 아래의 If 구문은 무엇 때문에 적어 주었을까요? 그것은… 숙제랍니다! ^^;
            If intNum > intNum2 Then
                intNum2 = intNum
            End If
        End If
    Next i
    SerialDay = intNum2

End Function

코드는… 앞서 보신 바와 같이 싱거우리만치 간단합니다. 컴퓨터가 아닌 사람이 직접 이런 작업을 할 때 어떤 프로세스로 수행을 하는지를 먼저 고민해 보시면 쉽게 이해하실 수 있을 것입니다.

오늘은 여기까지…

정리 — SerialDay 함수 코드 핵심

자주 묻는 질문 (FAQ)

마치며

사람이 직접 이런 작업을 할 때 어떤 과정을 거치는지 먼저 고민해 보면 코드는 싱겁게 느껴질 만큼 간단해집니다.