|
참고하세요.
'--------------------------------------------------------------
Function UserSumX(rSum As Range, rCri As Range, sName As String)
'--------------------------------------------------------------
Dim rX As Range
Dim iSum As Long: iSum = 0
Dim vSum As Variant: vSum = rSum.Value
Dim vCri As Variant: vCri = rCri.Value
Dim r As Long, c As Long
For r = 1 To UBound(vCri, 1)
For c = 1 To UBound(vCri, 2)
If vCri(r, c) = sName Then
iSum = iSum + vSum(r, 1)
End If
Next c
Next r
UserSumX = iSum
End Function |
|