안녕하세요?
제가 오늘 대전에 우송대학교에 강의 다녀오느라 도착하고 늦은 저녁 식사를 하고 나니
이제야 시간이 나서 늦게 답변 드립니다.
간단히 아래와 같이 사용자 정의 함수를 만들어 사용했습니다.
Option Explicit
Function CM(Rng As Range) As Double
Dim c As Range
For Each c In Rng
If c.Font.Strikethrough Then CM = CM + c.Value
Next c
End Function
자세한 내용은 첨부파일을 참고로...
그럼 잘 해결되시길... ^^*
======================================================================================
첨부파일
120221_취소선_금액_합산하기_VBA.xlsm
======================================================================================
첫댓글 윤슬님 답변 정말 감사드립니다. 뭐라 드릴 말씀이 없네요
카페 글 검색중에 알게 되었는데 제가 보고 있던 책이 엑셀 데이터 관리이네요 ^^
제책을 우연찮게 보고 계셨는데...
활동하던 카페가 제 카페였군요... ㅎㅎ~
암튼 감사합니다...!