셀 조건으로 카운팅

제 15호 태풍 고니가 올라와 사무실 바깥 유리창에 비와 바람을 뿌리고
오늘로 예정되었던 협력 회사 Audit는 태풍으로 인해 비행기가 연착되어
내일로 미뤄져서 심심해서 아질게에 올라온 질문 풀이를 시작하였습니다.

http://www.clien.net/cs2/bbs/board.php?bo_table=kin&wr_id=3507316
(글꼴이나 글자색이 다른 것을 조건으로 카운팅 가능한가요?)

Option Explicit

Sub Count_Special_Cell()

Dim cell_cnt As Integer

Dim RngCel As Range
Dim RngFont As Range
Dim RngRef As Range

cell_cnt = 0

‘ 검색할 영역 설정
Set RngRef = Range(“A1”, Range(“C1”).End(xlDown))

‘ 검색할 셀의 조건을 셀을 클릭해서 선택
Set RngFont = Application.InputBox(“셀 선택”, , Type:=8)

‘ 영역을 선택했을 때 에러 처리
If RngFont.Cells.Count > 1 Then

MsgBox “유효하지 않은 셀이므로 다시 선택하세요”

Exit Sub

End If

‘ 검색할 영역에서 선택된 셀과 같은 조건이 있으면 카운트
For Each RngCel In RngRef

If RngCel.Font.Color = RngFont.Font.Color And RngCel.Font.Bold = True _
And RngCel.Font.Underline = xlUnderlineStyleSingle Then

cell_cnt = cell_cnt + 1

End If

Next

‘ 검색된 셀의 갯수를 보여줌
MsgBox cell_cnt

End Sub

위 내용을 해석하면 선택된 셀의 컬러와 Bold, Underline(Single Line)과 값이 같으면
카운터를 세어서 보여주는 것입니다.

첨부 화일 : 20150825-셀 스타일별 카운트