| |
Functionとして有ります
ユーザー定義関数としても使えます
ただし、「１．４．８．１６．２２．２６．２８」は、カンマでは無く
ピリオドで区切られていますが？
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/9/3(土) 7:53 -
