1、打开Excel菜单栏中的“工具”--“宏”--“visual basic编辑器”。
2、在弹出的VB编辑器中，在左边的工程项目出新建一个模块。
3、新建完毕后，在右面的代码编辑器输入如下代码：Function S(a, b, h)S = (1 / 2) * (a + b) * hEnd Function这就是梯形的面积公式：（上底+下底）*高/2，函数名称S。
4、代码输入完毕后，保存就行了，保存的的形式是以一工作簿的形式保存的，新建的这个公式只能在这个文件中使用。打开保存的这个工作簿，一般开始打开时候都会提示是否启用宏，一定要选择是，不然我们新建的公式是运行不了 的。打开之后，我们任意的输入几组验证数据，若觉得难得录的话，用rand函数生成一组数也行，只是数据会变化。
5、现在我们选中D5单元格，然后选择菜单栏上的插入--函数--自定义函数--S，然后分别将A,B,C所在的地址填在函数参数中，确定变可以出结果了。
6、然后再用自动填充分方法将余下的单元格进行填充，我们需要计算的面积就算完成。很显然，这种做法对于大批量的求同一种运算时候，会给我们的计算带来很大的帮助。
