엑셀(Excel) VBA – 셀에 적용된 같은 배경색 데이터 합산하기 |
환경 : Microsoft Excel 2010 |
이번예제는 같은 색상의 배경색을 가진 데이터에 대해서 합산을 구하는 기능입니다. 특별한 조건없이 사용자가 필요할 때 색상을 분류해서 입혀놨다면 그 분류 대로 값을 합산할수 있습니다.
▼ 먼저 엑셀에서 샘플을 위해 아래 처럼 색상을 분류해 놓았습니다. 이렇게 분류해 놓은 색상별로 합계를 구할 것입니다.
▼ 합계를 구하는 사용자 정의 함수는 두가지 인수를 받게 됩니다. 합계를 구할 영역과 색상값입니다. 색상값은 바로 옆에 만들어 두고 셀을 참조 했습니다. 3개의 색상에 대해 값을 구할 것입니다.
▼ 함수는 첫번째 인수로 받은 Range 개체를 For Each 로 하나씩 꺼내 색상이 맞는지 판단할 것입니다. 배경색 값은 Interior.Color 입니다. 두번째로 넘어온 Range 개체도 Interior.Color 로 비교하면 되겠죠. 두개의 값이 같다면 합산을 합니다.
Function 색상별합계(ran As range, col As range) Dim sumData As Single
For Each k In ran If k.Interior.Color = col.Interior.Color Then sumData = sumData + k.Value End If Next
색상별합계 = sumData End Function |
▼ 위와같이 만든 사용자 정의 함수를 사용해 보겠습니다. 계산값을 추출할 영역은 절대값으로 합니다.
▼ 절대값으로 했기 때문에 나머지 두가지 색상에 대한 값은 드래그 해서 수식을 적용합니다. 색상별로 제대로 값이 구해 진 것 같네요
'엑셀(Excel) > VBA' 카테고리의 다른 글
엑셀(Excel) VBA – 다른 시트의 값을 가져와서 데이터를 추가하는 방법 (4) | 2018.04.18 |
---|---|
엑셀 VBA 동일한 셀의 배경색을 구분하여 값을 합산하는 방법 (7) | 2018.02.01 |
엑셀 Excel UserForm 에 멀티 페이지 구현을 위해 탭 추가하는 방법 (0) | 2017.09.26 |
엑셀(Excel) VBA – Application.Version 개체로 엑셀 버전과 사용언어 알아보기 (0) | 2014.12.29 |
엑셀(Excel) VBA – 문자열에서 숫자, 대문자, 소문자, 한글추출하기 (5) | 2014.12.24 |
엑셀(Excel) VBA – Application.Evaluate 함수 이용해서 수식문자열계산하기 (2) | 2014.12.23 |
엑셀(Excel) VBA – 수식을 문자열로 바꾸는 사용자정의 함수 만들기 (0) | 2014.12.22 |
엑셀(Excel) VBA – Application.Volatile 함수로 사용자정의함수 재구동 (2) | 2014.12.21 |