用VBA写单元格求和自定义函数

laoau123

用VBA写单元格求和自定义函数

蝶·舞

直接SUM不行吗？

laoau123

蝶·舞 发表于 2016-8-18 13:00
直接SUM不行吗？

直接SUM当然可以，不过最好还是写一个，好吧

mathking77

Function cnmb(ParamArray Arr())
Dim f, c, k
f = 0
For Each c In Arr
Select Case VarType(c)
Case vbVariant + vbArray
For Each k In c
If VarType(k) = vbBoolean Then
If k = True Then
f = f + 1
End If
ElseIf IsNumeric(k) Then
f = f + k
End If
Next k
Case Else
If VarType(c) = vbBoolean Then
If c = True Then
f = f + 1
End If
ElseIf IsNumeric(c) Then
f = f + c
End If
End Select
Next c
cnmb = f
End Function

laoau123

mathking77 发表于 2016-8-18 14:46
Function cnmb(ParamArray Arr())
Dim f, c, k
f = 0

只可惜可得太复杂了

Function qh(rng As Range)
Dim cel As Range, h
For Each cel In rng
    h = h + cel.Value
Next
qh = h
End Function

用法：A10=qh(a1:e1)