테스트 스크립트

사용자 함수 사용방법 

더할때(더할때는 더하기 기호를 생략 해도 됨) 

UDF_Column_Hidden_Sum(합산범위,"+") 

곱할때 

UDF_Column_Hidden_Sum(곱합범위, "*")

Function UDF_Column_Hidden_Sum(rngWrk As Range, Optional Oper As String = "+")
    Dim strTemp As String
    For Each c In rngWrk
        If c.EntireColumn.Hidden = True Then
        Else
            If c.Columns = 1 Then
                strTemp = c.Value
            Else
                strTemp = strTemp & Oper & c.Value
            End If
        End If
    Next
    UDF_Column_Hidden_Sum = Evaluate(strTemp)
End Function

	Test Plain Text