EXECL计算公式自动计算

EXEC计算公式自动计算（四则运算，可在公式中输入中文说明）

我们常在EXECL电子表格当中要计算公式，并且要将计算公式的表达式显示出来，以前一般是在前面一格输入表达式，再在后面结果的那一格输入“＝”号后再把公式输入一遍，这对于工作效率有较大的影响，我们可以利用EXECL的Evaluate函数来完成把前面表格的表达式计算出结果显示在第二格。

具体实现方法如下：

第一步，菜单“工具，宏，Visual Basic 编辑器”

第二步，在工程窗口空白处点右键，选择“插入，模块”，出现“模块1”。

第三步：在模块1的编辑窗口中输入以下内容：

Function 计算公式(公式As String)

If Trim(公式) = "" Then '如果内容为空，直接返回空，结束函数

计算公式= 0

Exit Function

End If

公式= Trim(公式) '清空表达式的前后空格

公式= Replace(公式, "（", "(") '替换中文括号格式

公式= Replace(公式, "[", "(") '替换方括号

公式= Replace(公式, "）", ")") '替换中文括号格式

公式= Replace(公式, "]", ")") '替换方括号

For i = 1 To Len(公式)

LString = Mid(公式, i, 1)

AA = Asc(LString)

If (AA >= 40 And AA <= 57) Then '清除表达式中的不是数字的括号、小数点的内容BB = BB & LString

End If

Next

计算公式= Evaluate(BB) ' 计算公式= Evaluate(公式2)

End Function

第四步：保存，关闭Visual Basic 编辑器窗口，回去EXECL界面。

现在就可以直接使用公式功能了。使用方法如下：（这是我做的一个表格，F列是输入公式，G列得出结果）

在表格中输入以下内容：（公式显示模式，就是Ctrl + ` 键）

取消公式显示模式后的结果：