해결 M365윈도우10

■ 셀에 삽입된 메모 수량 카운팅하는 방법

비

비스타

1월 25일 조회 2,912

각 열에 메모가 몇 개 있는지의 여부를 카운팅하고 싶습니다.함수는 안 되고,,, 매크로 사용해야할 것 같은데... 엑셀 고수님들 도와주시면 감사드리겠습니다.

메모-카운트하기.xlsx 26 KB · 다운로드

#VBA·매크로

더

더블유에이 채택된 답변 1월 25일

Sub 메모수량세기()

On Error Resume Next
Dim r As Range
Set r = Range("M:M")
Set r = r.SpecialCells(xlCellTypeComments)
MsgBox r.Count

End Sub

비

비스타 작성자 1월 25일

@더블유에이 님 @더블유에이 님 더블유에이 님이 알려 주신 대로 모듈에 붙여넣기 했는데,,, 셀에 수식 명령어를 뭐라고 입력해야 하는지요 ?

첨부 파일로 한 수 가르쳐 주시면 고맙겠습니다. ^^

더

더블유에이 1월 25일

Function CommentCount(r)

On Error Resume Next
Set r = r.SpecialCells(xlCellTypeComments)
CommentCount = r.Count

End Function

함수로 사용하실거면 이렇게 수정하면 됩니다 =Commentcount(범위)

비

비스타 작성자 1월 25일

@더블유에이 님 추가 답변 감사드립니다.

알려주신 대로 실행하니, 셀 지정 범위의 셀 수만 카운팅 되고,

메모 삽입을 해도 메모 수는 카운팅이 안 되네요~~

비

비스타 작성자 1월 25일

@더블유에이 님 더블유에이 님!

죄송하지만, 제가 첨부한 파일에 작성해 주시면 안 될까요 ?

사용하는 파일의 용량이 조건부서식이 많아서(8MB) 꼭 필요한 기능입니다.

다시 한번 부탁 드립니다^^!

더

더블유에이 1월 28일

@비스타 님 수식에 오류가 있었네요.. 유첨파일로 첨부해드리니 다시 확인해보세요..^^ 도움이 되셨길..

Function CommentCount(rng)

On Error Resume Next
Dim r As Range
Dim x, i As Long

For Each r In rng
    x = Len(r.Comment.Parent)
    If Err.Number <> 0 Then
        Err.Clear
    Else
        i = i + 1
    End If
Next

CommentCount = i

End Function

메모-카운트하기-1.xlsm 32 KB

비

비스타 작성자 1월 28일

@더블유에이 님 해결됐습니다. 감사합니다 ^^