大家好，又见面了，我是你们的朋友全栈君。
分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow
也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！
作者：朱金灿
来源：http://blog.csdn.net/clever101
朋友使用Excel制作表格时向我提出这样一个需求：有一列写出计算公式，另一列将该公式的计算结果自动算出，具体如下图：
![编写Excel宏[通俗易懂]](http://hi.csdn.net/attachment/201202/13/30022_1329137728ghFG.png)
![编写Excel宏[通俗易懂]](https://javaforall.net/wp-content/uploads/2020/11/2020110817443450.jpg)
我告诉他，这个写一个宏就可以实现了。具体步骤如下：
1. 找到“工具”菜单栏下的宏（M）菜单下的宏（M），如下图所示：
![编写Excel宏[通俗易懂]](http://hi.csdn.net/attachment/201202/13/30022_13291382271FEf.png)
2. 在弹出的对话框上输入名称:Calc，然后单击创建按钮，如下图：
![编写Excel宏[通俗易懂]](http://hi.csdn.net/attachment/201202/13/30022_1329138270S9vk.png)
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
如下图所示：
![编写Excel宏[通俗易懂]](http://hi.csdn.net/attachment/201202/13/30022_1329139421Z9Kz.png)
这里简单解释下代码：
Sub Calc() 是定义一个函数，End Sub是结束一个函数，这两句基本不用理会。
a = [A1].Value 的意思是把A1表格的表达式赋给变量a，[B1] = Evaluate(a)的意思是计算a表达式的值，把这个表达式的值赋给B1表格。上面那段代码只是计算A1,A2,A3,A4四个格子的值，假如你想计算其它格子的值，如A5、A6、A7等，可以再修改这段代码。
4.单击保存按钮保存这段宏，如下：
![编写Excel宏[通俗易懂]](http://hi.csdn.net/attachment/201202/13/30022_1329139446o404.png)
5. 关闭这个宏编辑界面，如下：
![编写Excel宏[通俗易懂]](http://hi.csdn.net/attachment/201202/13/30022_1329139481e33Y.png)
6. 在A1、A2、A3、A4四个格子输入四个公式，如下图：
![编写Excel宏[通俗易懂]](http://hi.csdn.net/attachment/201202/13/30022_1329139504ExfW.png)
7. 找到“工具”菜单栏下的宏（M）菜单下的宏（M），如下图所示：
![编写Excel宏[通俗易懂]](http://hi.csdn.net/attachment/201202/13/30022_13291395277SIu.png)
8. 选择Calc宏，再单击执行按钮，如下图所示：
![编写Excel宏[通俗易懂]](http://hi.csdn.net/attachment/201202/13/30022_13291395456z6f.png)
9. 最后就是执行结果，如下图所示：
![编写Excel宏[通俗易懂]](http://hi.csdn.net/attachment/201202/13/30022_13291395600hY3.png)
现在发现Office的宏和Visual Studio的宏的编写办法基本是一样的，由此我不得不佩服微软的架构，你只需懂了一个，其它的就基本懂了。
参考文献：
1. Excel中用evaluate()函数求文本型数学表达式的计算结果
给我老师的人工智能教程打call！http://blog.csdn.net/jiangjunshow
发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/134692.html原文链接：https://javaforall.net
