|
Functionとして有ります
ユーザー定義関数としても使えます
ただし、「1.4.8.16.22.26.28」は、カンマでは無く
ピリオドで区切られていますが?
Public Function AddUp(ByVal vntMark As Variant) As Variant
Dim i As Long
Dim lngPos As Long
Dim lngAdd As Long
If vntMark = "" Then
Exit Function
End If
vntMark = StrConv(vntMark, vbNarrow)
i = 1
lngPos = InStr(i, vntMark, ",", vbBinaryCompare)
Do Until lngPos = 0
lngAdd = lngAdd + Val(Mid(vntMark, i, lngPos - i))
i = lngPos + 1
lngPos = InStr(i, vntMark, ",", vbBinaryCompare)
Loop
lngAdd = lngAdd + Val(Mid(vntMark, i))
AddUp = lngAdd
End Function
|
|