엑셀 파란글씨만 COUNT 하기

"엑셀 파란글씨만 COUNT 하기"

갑자기 쌩뚱맞은 포스팅 입니다.~

오늘 티스토리 통계를 보다가

발견한 유입로그 입니다. ^^

"엑셀 파란글씨만 COUNT" 라는 문구가

너무 재미있어서,

만들어봤습니다.

함수로 어찌어찌 해보려다가....

어쩔 수 없이 엑셀 매크로를 사용했습니다.

절반의 성공이네요.

다음엔 함수로 한번 도전해보겠습니다.!

1. 위와같은 영역의 표가 있다고 가정합니다.

2. 아무셀에나 "=" 를 입력하고,

    my를 입력하면,

     제가 만들어놓은 함수 세개가 보입니다.

    일반 함수처럼 사용하면 됩니다.

  1) =MyBoldC(A)

     설명 : 선택된 영역 내 "굵은글씨"를 Count 합니다.

     - A : Count하고자 하는 범위

  2) =MyPicCellC(A,B)

     설명 : 선택된 영역 내 B와 같은 셀 색깔을 Count 합니다.

     - A : Count하고자 하는 범위 선택

     - B : Count하고자 하는 색깔의 셀 선택

  3) =MyPicFontC(A,B)

     설명 : 선택된 영역 내 B와 같은 글씨 색깔을 Count 합니다.

     - A : Count하고자 하는 범위 선택

     - B : Count하고자 하는 색깔의 글씨 선택

3. MyPicFontC 를 선택합니다. (더블클릭)

4. 찾고자 하는 영역을 선택합니다.

    위는 B3:K13 영역을 선택했습니다.

5. 찾고자 하는 글씨색깔이 있는 셀을

   선택합니다. (아무셀이나 됨)

    위는 K3 셀(파란색 글씨)을 선택했습니다.

6. 해당 B3:K13 영역 내에는

    파란글씨(K3셀)가 20개 있습니다.

위 방법과 동일하게,

MyPicCellC 와 MyBoldC 도 해봅니다.

MyBoldC 는 인수를 한개(범위)만 넣으면 됩니다.

작성된 매크로는 아래처럼 간단합니다.

[매크로 설명]

Function MyPicFontC(Area, Pick)

   Dim Cell, PicC

 PicC = Pick.Font.Color

 

 For Each Cell In Area

     If Cell.Font.Color = PicC Then

        MyPicFontC = MyPicFontC + 1

     End If

 Next Cell

End Function

함수명은 임의로 정하면 됩니다.

위 스크립트 중

파란색부분을 변경하면,

여러가지 활용이 가능합니다.

Cell.Font.Color = PicC

(글씨색이 같으면)

Cell.Interior.Color = PicC

(셀색이 같으면)

Cell.Font.Bold = True

(굵은글씨이면)

이상 재미삼아 만들어본~

유입로그에 대한 답변포스팅 마칩니다.~

[파일 첨부합니다.]

011.서식찾는사용자함수만들기.xlsm