<엑셀VBA 입문 11-2강> 배열(Array)

Sub 매크로1()
‘
‘ 매크로1 매크로
‘
‘ 바로 가기 키: Ctrl+k
‘

Dim arr(9)

arr(0) = “매일경제”
arr(1) = “한국경제”
arr(2) = “서울경제”
arr(3) = “국민일보”
arr(4) = “중앙일보”
arr(5) = “조선일보”
arr(6) = “한겨레”
arr(7) = “경향신문”
arr(8) = “매일경제”

‘정렬 이전 배열 표시한다.
MsgBox (getArrayString(arr))

‘배열 정렬한다.
Call sortArray(arr)

‘정렬 이후 배열 표시한다.
MsgBox (getArrayString(arr))

End Sub

‘sortArray : 배열 정렬하기
Function sortArray(arr)
    Dim cnt
    cnt = getArraySize(arr)
   
    Dim lastIdx
    lastIdx = cnt – 1
   
    Dim tempVal
   
    For i = 0 To lastIdx
        For k = i + 1 To lastIdx
            If checkFrontText(arr(i), arr(k)) Then
                tempVal = arr(i)
                arr(i) = arr(k)
                arr(k) = tempVal
            End If
        Next k
    Next i

End Function

‘getArrayString : 배열 텍스트로 만들기
Function getArrayString(arr)
    Dim cnt
    cnt = getArraySize(arr)
   
    Dim lastIdx
    lastIdx = cnt – 1

    Dim result
    result = “”

    For i = 0 To lastIdx
        result = result & i & ” : ” & arr(i) & Chr(10) & Chr(13)
    Next i
   
    getArrayString = result

End Function

‘checkFrontText : 단어 2개를 비교해서 앞쪽에 위치해야 할 경우 true 리턴
Function checkFrontText(text1, text2)

    Dim len1
    Dim len2
    len1 = Len(text1)
    len2 = Len(text2)
   
    ‘공통 길이를 구한다. 둘 중 짧은 길이가 공통된 길이다.
    Dim commonLen
    If len1 < len2 Then
        commonLen = len1
    Else
        commonLen = len2
    End If
   
   
    ‘공통 길이만큼 글자수를 돌면서
    ‘한 글자라도 다르면 true 또는 false를 리턴한다.
    Dim ch1
    Dim ch2
    For i = 1 To commonLen
        ch1 = Mid(text1, i, 1)
        ch2 = Mid(text2, i, 1)
       
        If ch1 > ch2 Then
            checkFrontText = True
            Exit Function
           
        ElseIf ch1 < ch2 Then
            checkFrontText = False
            Exit Function
        End If
    Next i
   
   
    ‘공통 길이만큼 비교했는데 문자열이 동일하다면, 짧은 문자열이 앞에 오도록 한다.
    If len1 > len2 Then
        checkFrontText = True
        Exit Function
    Else
        checkFrontText = False
        Exit Function
    End If
   
End Function

‘getArraySize : 배열 사이즈 가져오기
Function getArraySize(arr)
    getArraySize = UBound(arr) – LBound(arr)
End Function