나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 길토래비 (groundsea)

추천:  2
파일:     글자색 셀 개수 구하는 방법.xlsx (29.2KB) 조회:  1451
제목:   특정 글자색이 적용된 셀이 개수 구하는 방법?
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):2010

30분 시험감독하는 반을 빨간색으로 표시해 두었습니다.
30분 시험감독 횟수를 함수를 이용해 구하려고 합니다.
빨간색으로 표시된 셀의 개수를 구하는 방법이 있을까요?
(함수나 VBA)

고수님들의 도움 부탁드립니다.
 
[불량 게시물 신고]  
dew아래 사용자정의 함수을 이용하세요.
T3셀 "=redFontCount(C3:J3)" 

Function redFontCount(rData As Range) As Integer
    Dim iX As Integer, rX As Range
    
    Application.Volatile
    
    For Each rX In rData.Cells
        If rX.Font.Color = RGB(255, 0, 0) Then iX = iX + 1 ' 글자가 빨강색일경우
    Next
    
    redFontCount = iX
End Function
12-06 (16:54)
삭제 ■신고
길토래비감사합니다. 그런데 알려주신 사용자정의 함수를 만들어 사용했더니
함수 입력한 셀을 더블클릭해야 갯수가 바뀌어 적용이 되는데
글자색을 바꾸면 바로 갯수가 변경되게 하는 세부 설정 방법이 따로 있나요?
12-06 (17:32)
삭제 ■신고
dew시트가 재계산될때 자동으로 반영되도록 되어 있습니다.
Application.Volatile <- 휘발성 함수로 정의하는 부분.
12-07 (08:55)
삭제 ■신고
        
  

작성일 : 2018-12-06(16:39)
최종수정일 : 2018-12-06(16:39)