1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

셀색깔별로 합계를 내고 싶습니다.

조회 수 10607 추천 수 0 2010.04.09 01:50:05

안녕하세요.

 

 셀색별로 합계를 내고 싶습니다.

 

현재 저는 2007를 사용중입니다

 

정렬을 한 후에 합계를 내려고 생각해 보았습니다.

그래서 자동필터를 이용하여 거기서 셀 색별정렬을 했습니다.

정렬된 것을 합계를 내려고 잡으니깐 합계는 정렬 된 것만 합계가 된느것이 아니라. 'C1:C5' 이런식으로 다 잡혀버려서

일일이 하나하나 지정하여 합계를 내야 하더라구요.

안좋았습니다.

 

 

좀더 간단하게  불규칙한 셀들을 합계내는 방법이 무엇인가요?

파일에 보면 소계에다 합계를 내는 것입니다.

 

한열마다  셀색별 합계내는 방법과

통째로 셀색별 합계내는 방법


댓글 '1'

profile

[레벨:30]아별

2010.04.11 16:44:31
*.75.228.246

안녕하세요? 자주되는 질문중에 하나군요..

그래서 이참에 해당 기능을 아별툴 기능에 추가했습니다. (20100411-1 버전을 설치해야합니다.)

아래처럼 사용하면 원하는 값을 찾을 수 있습니다.

=sumbyCellColor(대상셀범위,찾을셀음영색이 있는 셀)

 

첨부파일을 열어보시면 사용자 정의함수를 확인할 수 있습니다.

abyul_QnA_SumByCellColor_simple_20100411-1.xls

 

참고하세요.

 

1. 실제 아별툴에 적용된 코드는 좀 복잡합니다. 에러처리가 포함되어 있거든요.

2. 아별툴에는 아래의 사용자 정의 함수가 더 있습니다.

     sumbyCellColor( 대상 셀범위, 찾을 셀 음영색이 지정된 셀 또는 색상 값) : 특정셀 음영색이 지정된 셀들의 합계를 구함.

     countbyCellColor( 대상 셀범위, 찾을 셀 음영색이 지정된 셀 또는 색상 값) : 특정셀 음영색이 지정된 셀의 개수를 구함.

     sumbyFontColor( 대상 셀범위, 찾을 폰트색이 지정된 셀 또는 색상 값) : 특정 폰트색이 지정된 셀의 합계를 구함.

     countbyFontColor( 대상 셀범위, 찾을 폰트색이 지정된 셀 또는 색상 값) : 특정  폰트색이 지정된 셀의 개수를 구함.

 

첨부파일에 작성된 사용자 정의 함수의 코드는 아래와 같습니다.

 

 

Option Explicit
 
# 특정 셀 음영색을 기준으로 합계 내는 사용자 정의 함수
Function sumByCellColor(targetRange As Range, rngFind As Range)
    Dim i As Integer
    Dim r As Range
    Dim doubleSum As Double
    Dim doubleColor As Double
    '# 찾을 색상값을 추출하여 변수에 지정
    doubleColor = rngFind.Interior.Color
    '# 대상범위 셀을 순환하면서 해당 음영셀이면 합계에 더함
    For Each r In targetRange
        If r.Interior.Color = doubleColor Then
            doubleSum = doubleSum + r.Value
        End If
    Next r
    '# 합계를 결과로 돌려줌.
    sumByCellColor = doubleSum
End Function

첨부
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 46042
12 엑셀에서 필터하고 나서 보이는 부분만 복사해서 그대로 붙여넣고 싶은데.. [2] [레벨:2]시시오 2009-12-21 8588
11 필터링 설정후 복사와 관련된 질문 드립니다. [1] [레벨:1]사고뭉치잭바우어 2009-09-11 8530
10 엑셀일반 필터링된 값에 붙여넣기를 할 경우... imagefile [4] [레벨:6]파이스 2012-06-14 8396
9 VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결 file [레벨:1]speena 2015-03-11 5743
8 문의드립니다~ _DB에서 원하는 목록만 불러오기(고급필터) file [1] [레벨:2]대뚜 2010-03-22 5653
7 엑셀일반 필터링된 시트에 붙혀넣기 file [2] [레벨:1]섭지코지 2011-10-29 5436
6 VBA 아별님! 엑셀 질문입니다. _ 고급필터를 활용한 데이터 분리 작업(각 시트로 분리) file [3] [레벨:2]북곰 2013-04-06 4355
5 VBA 필터된 데이터 가져오기 시 문제점 [5] [레벨:3]엑셀대단해 2012-07-23 4150
4 엑셀2007 자동필터 문의 imagefile [2] [레벨:2]도시남자 2011-06-27 3291
3 자동 필터의 기능을 사용하여 제작한 메크로를 대체 가능한가요? file [2] [레벨:1]이엑셀 2010-11-12 2888
2 고급필터 판매 자료 정렬 관련 질문드려요 _ 피벗테이블과 고급필터를 이용한 데이터 추출방법 file [4] [레벨:1]captainkidd 2013-11-25 2843
1 필터링 관련 질문... [2] [레벨:4]나카타 2011-07-08 2381