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

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

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

조회 수 10983 추천 수 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 57763

VBA 엑셀 일괄암호저장 imagefile [1]

  • [레벨:1]천운
  • 2017-03-13
  • 조회 수 11252

VBA 추가기능 파일 수정 관련 file [1]

VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select imagefile [1]

VBA 매크로 질문 드립니다.

  • [레벨:1]ORACLE
  • 2016-08-16
  • 조회 수 10411

VBA 컴파일 에러가 나요?

VBA 매크로를 이용한 exe 파일 자동 실행 방법 문의~ imagefile

  • [레벨:1]hickel
  • 2016-09-07
  • 조회 수 9870

VBA 셀 복사 후 아래셀에 수식 및 메모 붙여넣기 관련

VBA 사용자 정의 함수에서 변수의 행번호 추출하기 file

VBA .Find 재고 입고월 분석(vba) file [3]

VBA 셀에 맞춰 그림 삽입하기 [1]

VBA 파일&폴더 파일 만들기 _ 파일 생성, 폴더 생성, 파일 존재하는지 여부 확인 등 [4]

VBA .Find ListBox1 에 추가가 되지를 않습니다. file [3]

VBA .Find 매크로 질문입니다.~ [2]

  • [레벨:1]카멜
  • 2009-07-02
  • 조회 수 7549

VBA 특정개체 수정 관련 [5]

VBA vba질문하나 올리겟습니다.ㅠㅠ file [3]

VBA 랜덤 출력 관련 짧고 간결(?)한 3가지 질문입니다. _ 중복 없는 랜덤 패스워드 생성하는 방법.. [4]

VBA 조건문을 변수화 하는 방법 [2]

VBA 프로그램바 질문 _ 작업 진행바 Progress bar file [2]

VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결 file

  • [레벨:1]speena
  • 2015-03-11
  • 조회 수 6470

VBA VBA로 정렬하는 법 문의 file [6]