Function Color_Count(rng_T As Range, rng_Target As Range)
Dim rng_Temp As Range
Dim color_Cnt As Integer
For Each rng_Temp In rng_T
If rng_Temp.Interior.ColorIndex = rng_Target.Interior.ColorIndex Then
color_Cnt = color_Cnt + 1
End If
Next
Color_Count = color_Cnt
End Function
ex. Color_Count(A1:C10, A11)
이올린에 북마크하기
이올린에 추천하기'Excel > VBA' 카테고리의 다른 글
| 추가 기능 버전을 관리하자..!! (개요) (0) | 2009/10/22 |
|---|---|
| xlBuiltIndialog 정보 (1) | 2009/04/28 |
| environ 함수의 환경 변수 인덱스 별 의미. (0) | 2009/02/16 |
| 지정된 영역에서 특정 색으로 채워진 셀 개수 구하기 (0) | 2008/06/23 |
| 엑셀 2007에서 VBA 리본 활성화 (1) | 2008/04/14 |
