VBA制作特殊数字型字符串求和或乘自定义函数

1、 ALT+F11打开VBE编辑器，新建个模块，命名为：特殊字符求和或乘，粘贴如下代码：

Function tssum(s As Range, Optional str As String = " ")

Dim arr, temp, rg As Range

For Each rg In s

arr = Split(rg.Value, str)

For i = 0 To UBound(arr)

 If arr(i) <> str Then temp = temp + Val(arr(i))

Next

Next

tssum = temp

End Function

Function tscheng(s As Range, Optional str As String = " ")

Dim arr, temp, rg As Range

temp = 1

For Each rg In s

arr = Split(rg.Value, str)

For i = 0 To UBound(arr)

 If arr(i) <> str And arr(i) <> "" Then temp = temp * Val(arr(i))

Next

Next

tscheng = temp

End Function

Sub tjbz()

        Application.MacroOptions "tssum", _

        Category:="特殊求和或乘", _

        Description:="对含有用单一特殊字符分割的数字型字符串单元格区域求和。" & Chr(10) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & _

        "S表示：所需求和单元格区域，str表示：分割数字型字符串的单一特殊字符(默认：“空格”）。"

        Application.MacroOptions "tscheng", _

        Category:="特殊求和或乘", _

        Description:="对含有用单一特殊字符分割的数字型字符串单元格区域求乘。" & Chr(10) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & _

        "S表示：所需求乘单元格区域，str表示：分割数字型字符串的单一特殊字符(默认：“空格”）。"

End Sub

2、 单击菜单：文件-属性，在弹出的属性对话框中点选摘要标签，标题输入：特殊字符求和或乘，备注输入：对特殊字符分割的数字型字符串求和或乘。

3、 单击菜单：文件-另存为，在弹出的另存为对话框中，文件名输入：特殊数字型字符串求和或乘，保存类型选择为加载宏类型，点保存。

4、 单击菜单：工具-加载宏，在弹出的加载宏对话框，点浏览，加载我们刚刚新建的：特殊数字型字符串求和或乘.xla加载宏。

5、 单击菜单：插入-函数，查看自定义函数的帮助，效果如下图：

6、 如下图所示，分别在B1，B2,B3,B4单元格输入：=tssum(A1:A2,"|.")，=tscheng(A1:A2,"|.")，=tssum(A3:A4)，=tscheng(A3:A4)，验证下结果如下图所示。（ 文中所涉及加载宏文件可至：http://pan.baidu.com/s/1sjHaQb7下载。）