안녕하세요?
제가 오늘 대전에 우송대학교에 강의 다녀오느라 도착하고 늦은 저녁 식사를 하고 나니
이제야 시간이 나서 늦게 답변 드립니다.
간단히 아래와 같이 사용자 정의 함수를 만들어 사용했습니다.
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
======================================================================================
첨부파일첨부된 파일이 1개 있습니다.
다음검색