由于示例发在了论坛,不便于网友们搜索到,为了方便网友们搜索到示例\文章,整理了一下,供下载参考:

'模块自定义函数 

Public Function 公式计算(字段一, 字段二, 字段三, 公式)
    Dim stemp
    For N = 1 To Len(公式)
        If Mid(公式, N, 1) = "A" Then
            stemp = stemp & 字段一
        ElseIf Mid(公式, N, 1) = "B" Then
            stemp = stemp & 字段二
        ElseIf Mid(公式, N, 1) = "C" Then
            stemp = stemp & 字段三
        Else
            stemp = stemp & Mid(公式, N, 1)
        End If
    Next N
    公式计算 = Eval(stemp)
End Function

附   件:

点击这里下载 

设计视图:

数据表视图: