作者：朱金灿

来源：

 

       朋友使用Excel制作表格时向我提出这样一个需求：有一列写出计算公式，另一列将该公式的计算结果自动算出，具体如下图：

                                                         

             我告诉他，这个写一个宏就可以实现了。具体步骤如下：

1. 找到“工具”菜单栏下的宏（M）菜单下的宏（M），如下图所示：

2. 在弹出的对话框上输入名称:Calc，然后单击创建按钮，如下图：

3. 在弹出的界面下先删除所有代码，输入如下代码：

Sub Calc()a = [A1].Value[B1] = Evaluate(a)a = [A2].Value[B2] = Evaluate(a)a = [A3].Value[B3] = Evaluate(a)a = [A4].Value[B4] = Evaluate(a)End Sub

       

   如下图所示：

 这里简单解释下代码：

Sub Calc() 是定义一个函数，End Sub是结束一个函数，这两句基本不用理会。

a = [A1].Value 的意思是把A1表格的表达式赋给变量a，[B1] = Evaluate(a)的意思是计算a表达式的值，把这个表达式的值赋给B1表格。上面那段代码只是计算A1,A2,A3,A4四个格子的值，假如你想计算其它格子的值，如A5、A6、A7等，可以再修改这段代码。

 

4.单击保存按钮保存这段宏，如下：

5. 关闭这个宏编辑界面，如下：

6. 在A1、A2、A3、A4四个格子输入四个公式，如下图：

7. 找到“工具”菜单栏下的宏（M）菜单下的宏（M），如下图所示：

8. 选择Calc宏，再单击执行按钮，如下图所示：

9. 最后就是执行结果，如下图所示：

          

 

    现在发现Office的宏和Visual Studio的宏的编写办法基本是一样的，由此我不得不佩服微软的架构，你只需懂了一个，其它的就基本懂了。

 

参考文献：

 

1.

         

作者：clever101 发表于2012-2-13 21:32:08

阅读：261 评论：0