分享一种MOD动作计算法

<!---------------------------------------------------------------------------------------------------------------------------------------------------->

从图上可以看出，每个MOD动作的标记符号有很多，标记符号越多人工计算就越容易算错，而且工作效率非常低。

下面我为此用VBA写出了一种MOD动作计算法，话不多说，直接上代码，简洁明理：

Option Explicit '强制所有变量要声明执行

Public Function 取数字相加(a As String) As Integer '公开,创建子程序,并且声明变量的类型

Dim b As Integer, c As String, d As Integer, i As Integer '声明 b c d i 变量的类型

b = Len(a) '取字符长度

For i = 1 To b '按字符长度进行计次循环

c = Mid(a, i, 1) '从左边开始按顺序取出一位字符

If c = "J" Then '如果,取出的字符遇到“J”时

d = Mid(a, 2, b - 1) '取出字符“J”后面的数字

Exit For '跳出循环

Else '否则,执行下一步

If IsNumeric(c) = True Then '如果,取出的字符为数字时

d = d + Val(c) '将取出的数字逐个相加

End If '结束,如果

End If '结束,如果

Next '结束,计次循环

取数字相加 = d '赋值于子程序,作为返回结果

End Function '结束,子程序

 测试效果，如下图：