로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2010.03.16 15:09
잘 아시는 바와 같이,
subtotal함수는
행을 기준으로, 숨겨져있거나 자동 필터에서 제외된 아이들을 제외하고 작동하는 함수입니다.
열은 숨기던 말던 쌩까지요.. ^-^;;
현재 엑셀에 숨긴 열을 제외하고 계산하는 수식은 없는 것으로 알고 있습니다.
그런 기능을 사용하려면 사용자 정의 함수를 만들어서 사용할 수 밖에 없을 것 같습니다.
제가 한번 만들어봤습니다. 첨부파일을 참고하세요.
(참고로 사용자 정의 수식은 셀의 변화에 따라 자동으로 값이 업데이트가 안됩니다. Ctrl+Shift+Alt+F9를 눌러 전체 재계산해야합니다.)
abyul_20100316_숨긴열제외합계.xls
Option Explicit
Function subtotal2(targetRange As Range) Dim r As Range Dim output As Double For Each r In targetRange If r.Width <> 0 And r.Height <> 0 Then output = output + r.Value End If Next r subtotal2 = outputEnd Function
새 창으로
선택한 기호
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141971point, 레벨:30/30"){kind=icon}
아별
잘 아시는 바와 같이,
subtotal함수는
행을 기준으로, 숨겨져있거나 자동 필터에서 제외된 아이들을 제외하고 작동하는 함수입니다.
열은 숨기던 말던 쌩까지요.. ^-^;;
현재 엑셀에 숨긴 열을 제외하고 계산하는 수식은 없는 것으로 알고 있습니다.
그런 기능을 사용하려면 사용자 정의 함수를 만들어서 사용할 수 밖에 없을 것 같습니다.
제가 한번 만들어봤습니다. 첨부파일을 참고하세요.
(참고로 사용자 정의 수식은 셀의 변화에 따라 자동으로 값이 업데이트가 안됩니다. Ctrl+Shift+Alt+F9를 눌러 전체 재계산해야합니다.)
abyul_20100316_숨긴열제외합계.xls
Option Explicit
Function subtotal2(targetRange As Range)
Dim r As Range
Dim output As Double
For Each r In targetRange
If r.Width <> 0 And r.Height <> 0 Then
output = output + r.Value
End If
Next r
subtotal2 = output
End Function