[VBA] 작업량 실적 그래프화 표시

작업량의 시간을 그래프처럼 보기좋게 자동으로 찾아서 표시를 해주고 싶은 경우에 사용할 수 있는 VBA 코드입니다.

작업량실적그래프표시.xlsm

Sub 작업량실적그래프표시()
    Dim rngDB As Range

    Dim lookup_array As Range
    Dim rngC As Range
    Dim n, endRow As Integer
   
    Set rngDB = Range([N3], Cells(Rows.Count, "N").End(3))
    Set lookup_array = Range("B2", "K2")
    endRow = Cells(Rows.Count, "N").End(3).Row
    Range([B3], Cells(endRow, "K")).Interior.Color = xlNone    '// 색상 초기화
   
    For Each rngC In rngDB
        n = WorksheetFunction.Match(rngC, lookup_array, 0)
        '// MACTH(현재 표에서 찾고자 하는 셀, lookup_array,0) 는 일치하는 위치가 몇번째인지를 반환
        '// lookup_array 를 행/열의 구간범위내에서 몇번째인지 반환
        '// 0 (FALSE)은 match type으로 정확하게 일치하는 값만 가져오라는 의미
'        MsgBox n    '// 직접 숫자를 확인하고 싶다면 ...
        Cells(rngC.Row, 2).Resize(1, n).Interior.Color = RGB(255, 210, 210)
        '// RGB 색상표 색상을 쉽게 찾으려면 http://link2me.tistory.com/591 참조
    Next rngC
   
End Sub