작업량의 시간을 그래프처럼 보기좋게 자동으로 찾아서 표시를 해주고 싶은 경우에 사용할 수 있는 VBA 코드입니다.
작업량실적그래프표시.xlsmSub 작업량실적그래프표시()
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
'업무 능력 향상 > 엑셀 VBA 활용' 카테고리의 다른 글
| [VBA] 환율 파싱 (0) | 2015.05.18 |
|---|---|
| [VBA] 다른 엑셀 또는 다른 시트에서 SQL 로 데이터 가져오기 (0) | 2015.05.15 |
| MAC address 주소 가져오는 VBA (0) | 2015.05.09 |
| [VBA] 엑셀 표 테두리 씌우기 (0) | 2015.05.08 |
| 요일별 최대값, 최소값 구하는 VBA (0) | 2015.05.05 |
Link2Me