Microsoft Office Tutorials and References
In Depth Information
Emulating Excel’s SUM function
Dim i As Variant
Dim TempRange As Range, cell As Range
Dim ECode As String
Dim m, n
MySum = 0
‘ Process each argument
For i = 0 To UBound(args)
‘ Skip missing arguments
If Not IsMissing(args(i)) Then
‘ What type of argument is it?
Select Case TypeName(args(i))
Case “Range”
‘ Create temp range to handle full row or column ranges
Set TempRange = Intersect(args(i).Parent.UsedRange, _
args(i))
For Each cell In TempRange
If IsError(cell) Then
MySum = cell ‘ return the error
Exit Function
End If
If cell = True Or cell = False Then
MySum = MySum + 0
Else
If IsNumeric(cell) Or IsDate(cell) Then _
MySum = MySum + cell
End If
Next cell
Case “Variant()”
n = args(i)
For m = LBound(n) To UBound(n)
MySum = MySum(MySum, n(m)) ‘recursive call
Next m
Case “Null” ‘ignore it
Case “Error” ‘return the error
MySum = args(i)
Exit Function
Case “Boolean”
‘ Check for literal TRUE and compensate
If args(i) = “True” Then MySum = MySum + 1
Case “Date”
MySum = MySum + args(i)
Case Else
MySum = MySum + args(i)
End Select
End If
Next i
End Function
 
Search JabSto ::




Custom Search